我需要根据地域代码查找每个地区有多少策略.因此,每当我在记录中找到领土时,我需要在表格中增加该区域的计数,然后我就可以将其移动到我的输出中.我无法弄清楚如何根据以下记录计算每个地区的政策.我尝试过各种各样的东西但似乎没什么用.
如果您需要更多信息,请告诉我.
以下是记录的定义和摘录(共57条记录)
rec-94-type pic x(2) rec-94-policy-number pic x(8) filler pic x(5) rec-94-parish-code pic x(3) filler pic x(1) rec-94-territory-code pic x(1) 94A 018517 080 1 94A 027721 090 1 94A 036470 250 6 94A 049137 010 1 ......
我最近的尝试:
05 T2-TERRITORY-COUNT.
10 FILLER PIC X(4) VALUE '1 '.
10 FILLER PIC X(4) VALUE '2 '.
10 FILLER PIC X(4) VALUE '3 '.
10 FILLER PIC X(4) VALUE '4 '.
10 FILLER PIC X(4) VALUE '5 '.
10 FILLER PIC X(4) …此练习的目标是读取输入文件并将其存储到表中,然后验证输入中的某些字段并输出任何错误记录.我需要读取并存储每个策略组,以便一次只存储5个记录而不是整个文件.
所以我需要读取一个5个记录的策略组,进行处理,然后读取接下来的5个记录等,直到文件结束.
This is the input file.
10A 011111 2005062520060625
20A 011111000861038
32A 011111 79372
60A 0111112020 6 4
94A 011111 080 1
10A 02222 2005082520060825
20A 022221000187062
32A 022221 05038
60A 0222212003 6 4
94A 022221 090 1
....
我能够将前5个记录加载到表中,让我的表发生了5次,但我不知道如何继续这样做.我的代码如下.(我写它只是为了看它是否正常工作,但是它打印的标题行包含前4个记录,而不仅仅是前5个)01 TABLES.
05 T1-RECORD-TABLE.
10 T1-ENTRY OCCURS 5 TIMES
INDEXED BY T1-INDEX.
15 RECORD-TYPE-10 PIC X(80).
15 RECORD-TYPE-20 PIC X(80).
15 RECORD-TYPE-32 PIC X(80).
15 RECORD-TYPE-60 PIC X(80).
15 RECORD-TYPE-94 PIC X(80).
copy trnrec10.
COPY TRNREC20.
COPY TRNREC32.
COPY TRNREC60. …cobol ×2