LABLE RECORD IS STANDARD :所有的磁盘文件和磁带文件都必须写明此句。 01 层定义’输入纪录区’ 的名字为IN-RECORD,由于 01层属于FD描述体,因此也就指定了 IN-RECORD 和 IN-FILE 的关系。亦即从IN-FILE 读入的数据存放在 IN-RECORD记录区中。 这样,在执行一次READ语句后,文件中一个记录的数据便输入到内存记...
LABEL RECORDS ARE STANDARD VALUE OF FILE-ID IS "logfile.dat". 01 LOG-RECORD. 05 EMPLOYEE-ID PIC X(10). 05 LOGIN-TIME PIC X(8). 05 ACTIVITY-TIME PIC X(8). WORKING-STORAGE SECTION. 77 WS-EMPLOYEE-ID PIC X(10). 77 WS-LOGIN-TIME PIC X(8). 77 WS-ACTIVITY-TIME PIC X(8). ...
cobol的编程实例[精华]一个COBOL的编程实例 通常一个程序分为几个处理过程，然后有序地组合起来使用，以实现我们所希望的处理结果。这里，给出一个销售公司对销售数据处理的范例，通过实际的编程，掌握COBOL编程的技巧和步骤。销售数据处理系统简介 用户需求 （1）某销售公司有若干个销售商店，公司想获得每个商品的销售...
[RECORD (CONTAINS int–3 [TO int–4] CHARACTERS)/(IS VARYING IN SIZE [FROM int–5] [TO int–6] CHARACTERS)/(DEPENDING ON data1) [LABEL (RECORD IS)/(RECORDS ARE) STANDARD/OMITTED] [VALUE OF (implementor–name IS id–lit–1)...] [DATA (RECORD IS)/(RECORDS ARE) data2] BLOCK C...
LABEL RECORDS ARE OMITTED:表示忽略文件记录的标号。OMITTED为手动指定,STANDARD为默认指定 RECORDING CONTAINS 132 CHARACTERS:表明每条文件记录包含132个字符 DATA RECORD IS PRINT-LINE.:指出该文件包含的记录名。 通过PIC语句依次定义文件中每条记录所包含的数据项。
IDENTIFICATIONDIVISION.PROGRAM-ID.READSEQV.ENVIRONMENTDIVISION.INPUT-OUTPUTSECTION.FILE-CONTROL.SELECTENTREE-FDASSIGNTO"ENTREE"ORGANIZATIONISRECORDSEQUENTIALACCESSISSEQUENTIALFILESTATUSISIO-STATUS.DATADIVISION.FILESECTION.FDENTREE-FDLABELRECORDSTANDARDRECORDINGMODEISVRECORDISVARYINGINSIZEFROM12TO16DEPENDINGONENTREE-REC...
可以按照如下两种方法定义：1.01 WK-CHAR-AREA OCCURS 0 TO 999 TIMES DEPENDING ON WK-QTY INDEXED BY WK-IDX.05 WK-CHAR PIC X(1).2.01 WK-CHAR-AREA OCCURS WK-MAX TIMES INDEXED BY WK-DX.05 WK-CHAR PIC X(1)....
LABEL RECORDS ARE STANDARD DATA RECORD IS LIST-LINE. 01 LIST-LINE PIC X(132). * WORKING-STORAGE SECTION. * * Error Code parameter include. As this sample program * uses COPY to include the error code structure, only the first * 16 bytes of the error code structure are available. If ...
有两种方法 1 把B文件CLOSE 再 OPEN 然后 READ 2 B文件创建成相对文件，然后利用相对文件的相对key读取 我一般习惯使用1方法
特性:RECORDINGMODEISF:文件记录格式,F=Fixed-lengthrecords定长记录LABELRECORDSAREOMITTED:文件记录的标号OMITTRD多用于输出打印的文件,STANDARDRECORDCONTAINS132CHARACTERS:每条文件记录包含132个字符DATA RECORDISPRINT-LINE:文件记录包含的文件名BLOCKCONTAINSnRECORDS:一个数据块包含多少条记录定义数据主要有数据组和数据项...