/src/test/resources/gov/nist/IX106A.CBL
https://github.com/uwol/proleap-cobol-parser · COBOL · 1235 lines · 1233 code · 0 blank · 2 comment · 0 complexity · d8bb1ba1945ba312737b5b60c87f841b MD5 · raw file
Large files are truncated click here to view the full file
- *HEADER,COBOL,IX106A
- 000100 IDENTIFICATION DIVISION. IX1064.2
- 000200 PROGRAM-ID. IX1064.2
- 000300 IX106A. IX1064.2
- 000400**************************************************************** IX1064.2
- 000500* * IX1064.2
- 000600* VALIDATION FOR:- * IX1064.2
- 000700* * IX1064.2
- 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1064.2
- 000900* * IX1064.2
- 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1064.2
- 001100* * IX1064.2
- 001200**************************************************************** IX1064.2
- 001300* THE PURPOSE OF THIS PROGRAM IS TO TEST THE ABILITY TO IX1064.2
- 001400* USE THE THREE DIFFERENT TYPES OF FILES (SEQUENTIAL , IX1064.2
- 001500* INDEXED , AND RELATIVE) IN ONE PROGRAM . THE PROGRAM IX1064.2
- 001600* IS BROKEN INTO FIVE SECTIONS . THE FIRST SECTION TESTS IX1064.2
- 001700* THE ABILITY TO CREATE A RELATIVE FILE RANDOMLY . THE IX1064.2
- 001800* SECOND SECTION TESTS THE ABILITY TO USE ALL THREE FILE IX1064.2
- 001900* TYPES , READING IN THE RELATIVE FILE AND WRITING OUT THE IX1064.2
- 002000* SEQUENTIAL AND INDEXED FILES . THE THIRD SECTION FURTHER IX1064.2
- 002100* TESTS THE ABILITY TO USE THE THREE FILE TYPES . THE FOURTH IX1064.2
- 002200* SECTION TESTS THE ABILITY TO DELETE RECORDS FROM THE IX1064.2
- 002300* DIFFERENT FILE TYPES . THE FIFTH SECTION TESTS THE ABILITY IX1064.2
- 002400* TO REWRITE RECORDS TO EACH OF THE FILE TYPES . IX1064.2
- 002500* IX1064.2
- 002600* X-CARDS WHICH MUST BE RELACED WITH IMPLEMENTORS NAMES' IN IX1064.2
- 002700* THIS PROGRAM ARE : IX1064.2
- 002800* IX1064.2
- 002900* X-14 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR IX1064.2
- 003000* SEQUENTIAL FILE . IX1064.2
- 003100* X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR IX1064.2
- 003200* RELATIVE FILE-1 , FILE-2 . IX1064.2
- 003300* X-24 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR IX1064.2
- 003400* INDEXED FILE . IX1064.2
- 003500* X-44 SYSTEM-NAME IN ASSIGN CLAUSE FOR IX1064.2
- 003600* INDEXED FILE . IX1064.2
- 003700* X-55 SYSTEM PRINTER . IX1064.2
- 003800* X-62 FOR RAW-DATA IX1064.2
- 003900* X-82 SOURCE-COMPUTER . IX1064.2
- 004000* X-83 OBJECT-COMPUTER . IX1064.2
- 004100* C X-84 PRINTE-FILE LABELS IX1064.2
- 004200**************************************************************** IX1064.2
- 004300 ENVIRONMENT DIVISION. IX1064.2
- 004400 CONFIGURATION SECTION. IX1064.2
- 004500 SOURCE-COMPUTER. IX1064.2
- 004600 XXXXX082. IX1064.2
- 004700 OBJECT-COMPUTER. IX1064.2
- 004800 XXXXX083. IX1064.2
- 004900 INPUT-OUTPUT SECTION. IX1064.2
- 005000 FILE-CONTROL. IX1064.2
- 005100* SELECT RAW-DATA ASSIGN TO IX1064.2
- 005200* XXXXX062 IX1064.2
- 005300* ORGANIZATION IS INDEXED IX1064.2
- 005400* ACCESS MODE IS RANDOM IX1064.2
- 005500* RECORD KEY IS RAW-DATA-KEY. IX1064.2
- 005600 SELECT PRINT-FILE ASSIGN TO IX1064.2
- 005700 XXXXX055. IX1064.2
- 005800 SELECT RL-FR1 IX1064.2
- 005900 ASSIGN TO IX1064.2
- 006000 XXXXX021 IX1064.2
- 006100 ACCESS MODE IS RANDOM IX1064.2
- 006200 RELATIVE KEY IS RL-KEY IX1064.2
- 006300 ORGANIZATION IS RELATIVE IX1064.2
- 006400 FILE STATUS IS FR1-STATUS. IX1064.2
- 006500 SELECT IX-FS1 IX1064.2
- 006600 ASSIGN TO IX1064.2
- 006700 XXXXX024 IX1064.2
- 006800* XXXXX044 IX1064.2
- 006900 ACCESS MODE IS RANDOM IX1064.2
- 007000 ORGANIZATION IS INDEXED IX1064.2
- 007100 RECORD KEY IS IX-FS1-KEY-11-13 IX1064.2
- 007200 FILE STATUS IS FS1-STATUS-IX. IX1064.2
- 007300 SELECT SQ-FS1 IX1064.2
- 007400 ASSIGN TO IX1064.2
- 007500 XXXXX014 IX1064.2
- 007600 ACCESS MODE IS SEQUENTIAL IX1064.2
- 007700 ORGANIZATION IS SEQUENTIAL IX1064.2
- 007800 FILE STATUS IS FS1-STATUS-SQ. IX1064.2
- 007900 DATA DIVISION. IX1064.2
- 008000 FILE SECTION. IX1064.2
- 008100* IX1064.2
- 008200*FD RAW-DATA. IX1064.2
- 008300* IX1064.2
- 008400*01 RAW-DATA-SATZ. IX1064.2
- 008500* 05 RAW-DATA-KEY PIC X(6). IX1064.2
- 008600* 05 C-DATE PIC 9(6). IX1064.2
- 008700* 05 C-TIME PIC 9(8). IX1064.2
- 008800* 05 C-NO-OF-TESTS PIC 99. IX1064.2
- 008900* 05 C-OK PIC 999. IX1064.2
- 009000* 05 C-ALL PIC 999. IX1064.2
- 009100* 05 C-FAIL PIC 999. IX1064.2
- 009200* 05 C-DELETED PIC 999. IX1064.2
- 009300* 05 C-INSPECT PIC 999. IX1064.2
- 009400* 05 C-NOTE PIC X(13). IX1064.2
- 009500* 05 C-INDENT PIC X. IX1064.2
- 009600* 05 C-ABORT PIC X(8). IX1064.2
- 009700 FD PRINT-FILE. IX1064.2
- 009800 01 PRINT-REC PICTURE X(120). IX1064.2
- 009900 01 DUMMY-RECORD PICTURE X(120). IX1064.2
- 010000 FD RL-FR1 IX1064.2
- 010100C LABEL RECORDS ARE STANDARD IX1064.2
- 010200C DATA RECORD IS RL-FR1R1-F-G-241 IX1064.2
- 010300 RECORD CONTAINS 241 CHARACTERS. IX1064.2
- 010400 01 RL-FR1R1-F-G-241. IX1064.2
- 010500 05 RL-FR1-REC-120 PICTURE X(120). IX1064.2
- 010600 05 RL-FR1-REC-121-241. IX1064.2
- 010700 10 FILLER PICTURE X(8). IX1064.2
- 010800 10 RL-REC-KEY-AREA. IX1064.2
- 010900 15 RL-FR1-KEY. IX1064.2
- 011000 20 RL-FR1-KEY-1-10. IX1064.2
- 011100 25 RL-FR1-KEY-1-5 PICTURE X(5). IX1064.2
- 011200 25 RL-FR1-KEY-6-10 PICTURE X(5). IX1064.2
- 011300 20 RL-FR1-KEY-11-13 PICTURE 9(3). IX1064.2
- 011400 15 RL-REDF-RECKEY REDEFINES RL-FR1-KEY. IX1064.2
- 011500 20 R-RECKEY-1-7 PICTURE X(7). IX1064.2
- 011600 20 R-RECKEY-8-13 PICTURE X(6). IX1064.2
- 011700 15 FILLER PICTURE X(16). IX1064.2
- 011800 10 FILLER PICTURE X(9). IX1064.2
- 011900 10 RL-ALT-KEY1-AREA. IX1064.2
- 012000 15 RL-FR1-ALTKEY1. IX1064.2
- 012100 20 RL-FR1-ALTKEY1-1-10. IX1064.2
- 012200 25 RL-FR1-ALTKEY1-1-5 PICTURE X(5). IX1064.2
- 012300 25 RL-FR1-ALTKEY1-6-10 PICTURE X(5). IX1064.2
- 012400 20 RL-FR1-ALTKEY1-11-13 PICTURE X(3). IX1064.2
- 012500 20 RL-FR1-ALTKEY1-14-20 PICTURE X(7). IX1064.2
- 012600 15 RL-REDF-ALTKEY1 REDEFINES RL-FR1-ALTKEY1. IX1064.2
- 012700 20 R-ALTKEY1-1-6 PICTURE X(6). IX1064.2
- 012800 20 R-ALTKEY1-7-10 PICTURE X(4). IX1064.2
- 012900 20 R-ALTKEY1-11-20 PICTURE X(10). IX1064.2
- 013000 15 FILLER PICTURE X(9). IX1064.2
- 013100 10 FILLER PICTURE X(9). IX1064.2
- 013200 10 RL-ALT-KEY2-AREA. IX1064.2
- 013300 15 RL-FR1-ALTKEY2. IX1064.2
- 013400 20 RL-FR1-ALTKEY2-1-10. IX1064.2
- 013500 25 RL-FR1-ALTKEY2-1-5 PICTURE X(5). IX1064.2
- 013600 25 RL-FR1-ALTKEY2-6-10 PICTURE X(5). IX1064.2
- 013700 20 RL-FR1-ALTKEY2-11-13 PICTURE X(3). IX1064.2
- 013800 20 RL-FR1-ALTKEY2-14-20 PICTURE X(7). IX1064.2
- 013900 15 FILLER PICTURE X(9). IX1064.2
- 014000 10 FILLER PICTURE X(8). IX1064.2
- 014100 FD IX-FS1 IX1064.2
- 014200C LABEL RECORDS ARE STANDARD IX1064.2
- 014300C DATA RECORD IS IX-FS1R1-F-G-241 IX1064.2
- 014400 RECORD CONTAINS 241 CHARACTERS. IX1064.2
- 014500 01 IX-FS1R1-F-G-241. IX1064.2
- 014600 05 IX-FS1-REC-120 PICTURE X(120). IX1064.2
- 014700 05 IX-FS1-REC-121-241. IX1064.2
- 014800 10 FILLER PICTURE X(8). IX1064.2
- 014900 10 IX-REC-KEY-AREA. IX1064.2
- 015000 15 IX-FS1-KEY. IX1064.2
- 015100 20 IX-FS1-KEY-1-10. IX1064.2
- 015200 25 IX-FS1-KEY-1-5 PICTURE X(5). IX1064.2
- 015300 25 IX-FS1-KEY-6-10 PICTURE X(5). IX1064.2
- 015400 20 IX-FS1-KEY-11-13 PICTURE X(3). IX1064.2
- 015500 15 IX-REDF-RECKEY REDEFINES IX-FS1-KEY. IX1064.2
- 015600 20 I-RECKEY-1-7 PICTURE X(7). IX1064.2
- 015700 20 I-RECKEY-8-13 PICTURE X(6). IX1064.2
- 015800 15 FILLER PICTURE X(16). IX1064.2
- 015900 10 FILLER PICTURE X(9). IX1064.2
- 016000 10 IX-ALT-KEY1-AREA. IX1064.2
- 016100 15 IX-FS1-ALTKEY1. IX1064.2
- 016200 20 IX-FS1-ALTKEY1-1-10. IX1064.2
- 016300 25 IX-FS1-ALTKEY1-1-5 PICTURE X(5). IX1064.2
- 016400 25 IX-FS1-ALTKEY1-6-10 PICTURE X(5). IX1064.2
- 016500 20 IX-FS1-ALTKEY1-11-13 PICTURE X(3). IX1064.2
- 016600 20 IX-FS1-ALTKEY1-14-20 PICTURE X(7). IX1064.2
- 016700 15 IX-REDF-ALTKEY1 REDEFINES IX-FS1-ALTKEY1. IX1064.2
- 016800 20 I-ALTKEY1-1-6 PICTURE X(6). IX1064.2
- 016900 20 I-ALTKEY1-7-10 PICTURE X(4). IX1064.2
- 017000 20 I-ALTKEY1-11-20 PICTURE X(10). IX1064.2
- 017100 15 FILLER PICTURE X(9). IX1064.2
- 017200 10 FILLER PICTURE X(9). IX1064.2
- 017300 10 IX-ALT-KEY2-AREA. IX1064.2
- 017400 15 IX-FS1-ALTKEY2. IX1064.2
- 017500 20 IX-FS1-ALTKEY2-1-10. IX1064.2
- 017600 25 IX-FR1-ALTKEY2-1-5 PICTURE X(5). IX1064.2
- 017700 25 IX-FR1-ALTKEY2-6-10 PICTURE X(5). IX1064.2
- 017800 20 IX-FS1-ALTKEY2-11-13 PICTURE X(3). IX1064.2
- 017900 20 IX-FS1-ALTKEY2-14-20 PICTURE X(7). IX1064.2
- 018000 15 FILLER PICTURE X(9). IX1064.2
- 018100 10 FILLER PICTURE X(8). IX1064.2
- 018200 FD SQ-FS1 IX1064.2
- 018300C LABEL RECORDS ARE STANDARD IX1064.2
- 018400C DATA RECORD IS SQ-FS1R1-F-G-241 IX1064.2
- 018500 RECORD CONTAINS 241 CHARACTERS. IX1064.2
- 018600 01 SQ-FS1R1-F-G-241. IX1064.2
- 018700 05 SQ-FS1-REC-120 PICTURE X(120). IX1064.2
- 018800 05 SQ-FS1-REC-121-241. IX1064.2
- 018900 10 FILLER PICTURE X(8). IX1064.2
- 019000 10 SQ-REC-KEY-AREA. IX1064.2
- 019100 15 SQ-FS1-KEY. IX1064.2
- 019200 20 SQ-FS1-KEY-1-10. IX1064.2
- 019300 25 SQ-FS1-KEY-1-5 PICTURE X(5). IX1064.2
- 019400 25 SQ-FS1-KEY-6-10 PICTURE X(5). IX1064.2
- 019500 20 SQ-FS1-KEY-11-13 PICTURE 9(3). IX1064.2
- 019600 15 SQ-REDF-RECKEY REDEFINES SQ-FS1-KEY. IX1064.2
- 019700 20 S-RECKEY-1-7 PICTURE X(7). IX1064.2
- 019800 20 S-RECKEY-8-13 PICTURE X(6). IX1064.2
- 019900 15 FILLER PICTURE X(16). IX1064.2
- 020000 10 FILLER PICTURE X(9). IX1064.2
- 020100 10 SQ-ALT-KEY1-AREA. IX1064.2
- 020200 15 SQ-FS1-ALTKEY1. IX1064.2
- 020300 20 SQ-FS1-ALTKEY1-1-10. IX1064.2
- 020400 25 SQ-FS1-ALTKEY1-1-5 PICTURE X(5). IX1064.2
- 020500 25 SQ-FS1-ALTKEY1-6-10 PICTURE X(5). IX1064.2
- 020600 20 SQ-FS1-ALTKEY1-11-13 PICTURE X(3). IX1064.2
- 020700 20 SQ-FS1-ALTKEY1-14-20 PICTURE X(7). IX1064.2
- 020800 15 SQ-REDF-ALTKEY1 REDEFINES SQ-FS1-ALTKEY1. IX1064.2
- 020900 20 S-ALTKEY1-1-6 PICTURE X(6). IX1064.2
- 021000 20 S-ALTKEY1-7-10 PICTURE X(4). IX1064.2
- 021100 20 S-ALTKEY1-11-20 PICTURE X(10). IX1064.2
- 021200 15 FILLER PICTURE X(9). IX1064.2
- 021300 10 FILLER PICTURE X(9). IX1064.2
- 021400 10 SQ-ALT-KEY2-AREA. IX1064.2
- 021500 15 SQ-FS1-ALTKEY2. IX1064.2
- 021600 20 SQ-FS1-ALTKEY2-1-10. IX1064.2
- 021700 25 SQ-FS1-ALTKEY2-1-5 PICTURE X(5). IX1064.2
- 021800 25 SQ-FS1-ALTKEY2-6-10 PICTURE X(5). IX1064.2
- 021900 20 SQ-FS1-ALTKEY2-11-13 PICTURE X(3). IX1064.2
- 022000 20 SQ-FS1-ALTKEY2-14-20 PICTURE X(7). IX1064.2
- 022100 15 FILLER PICTURE X(9). IX1064.2
- 022200 10 FILLER PICTURE X(8). IX1064.2
- 022300 WORKING-STORAGE SECTION. IX1064.2
- 022400 01 WRK-DS-09V00-001 PIC S9(09) USAGE COMP VALUE ZERO. IX1064.2
- 022500 01 WRK-DS-09V00-002 PIC 9(3) VALUE ZERO. IX1064.2
- 022600 01 WRK-CS-09V00-002 PIC S9(09) USAGE COMP VALUE ZERO. IX1064.2
- 022700 01 WRK-CS-09V00-003 PIC S9(09) USAGE COMP VALUE ZERO. IX1064.2
- 022800 01 RL-KEY PIC 9(3). IX1064.2
- 022900 01 RL-KEY2 PIC 9(3). IX1064.2
- 023000* IX1064.2
- 023100 01 WRK-FR1-RECKEY. IX1064.2
- 023200 05 FR1-RECKEY-1-13. IX1064.2
- 023300 10 FR1-RECKEY-1-10 PICTURE X(10). IX1064.2
- 023400 10 FR1-RECKEY-11-13 PICTURE 9(3). IX1064.2
- 023500 05 FILLER PICTURE X(16) VALUE SPACE. IX1064.2
- 023600 01 WRK-FR1-ALTKEY1. IX1064.2
- 023700 05 FR1-ALTKEY1-1-20. IX1064.2
- 023800 10 FR1-ALTKEY1-1-10. IX1064.2
- 023900 15 FR1-ALTKEY1-1-5 PICTURE X(5). IX1064.2
- 024000 15 FR1-ALTKEY1-6-10 PICTURE X(5). IX1064.2
- 024100 10 FR1-ALTKEY1-11-13 PICTURE 9(3). IX1064.2
- 024200 10 FR1-ALTKEY1-14-20 PICTURE X(7). IX1064.2
- 024300 05 FILLER PICTURE X(9) VALUE SPACE. IX1064.2
- 024400 01 WRK-FR1-ALTKEY2. IX1064.2
- 024500 05 FR1-ALTKEY2-1-20. IX1064.2
- 024600 10 FR1-ALTKEY2-1-10. IX1064.2
- 024700 15 FR1-ALTKEY2-1-5 PICTURE X(5). IX1064.2
- 024800 15 FR1-ALTKEY2-6-10 PICTURE X(5). IX1064.2
- 024900 10 FR1-ALTKEY2-11-13 PICTURE 9(3). IX1064.2
- 025000 10 FR1-ALTKEY2-14-20 PICTURE X(7). IX1064.2
- 025100 05 FILLER PICTURE X(9) VALUE SPACE. IX1064.2
- 025200 01 RECNO PICTURE 9(5) VALUE ZERO. IX1064.2
- 025300 01 FR1-STATUS PICTURE XX VALUE SPACE. IX1064.2
- 025400 01 FS1-STATUS-IX PIC XX VALUE SPACE. IX1064.2
- 025500 01 FS1-STATUS-SQ PIC XX VALUE SPACE. IX1064.2
- 025600 01 EXCUT-COUNTER-06V00 PICTURE 9(6) VALUE ZERO. IX1064.2
- 025700 01 KEYSUB PICTURE 9(3) COMPUTATIONAL. IX1064.2
- 025800 01 INVKEY-COUNTER-RL PICTURE 9(3) COMPUTATIONAL. IX1064.2
- 025900 01 INVKEY-COUNTER-IX PICTURE 9(3) COMPUTATIONAL. IX1064.2
- 026000 01 RECORDS-WRITTEN PICTURE 9(3). IX1064.2
- 026100 01 RECKEY-NUM PICTURE 9(3). IX1064.2
- 026200 01 ALTKEY1-NUM PICTURE 9(3). IX1064.2
- 026300 01 ALTKEY2-NUM PICTURE 9(3). IX1064.2
- 026400 01 RECORD-KEY-CONTENT. IX1064.2
- 026500 05 FILLER PIC X(53) VALUE IX1064.2
- 026600 "BBBBBBBBBC225EEEEEEEEEF001ALTKEY1WWWWWWWWWV076ALTKEY2".IX1064.2
- 026700 05 FILLER PIC X(53) VALUE IX1064.2
- 026800 "BBBBBBBBCC224EEEEEEEEFF002ALTKEY1WWWWWWWWVV077ALTKEY2".IX1064.2
- 026900 05 FILLER PIC X(53) VALUE IX1064.2
- 027000 "BBBBBBBCCC223EEEEEEEFFF003ALTKEY1WWWWWWWVVV078ALTKEY2".IX1064.2
- 027100 05 FILLER PIC X(53) VALUE IX1064.2
- 027200 "BBBBBBCCCC222EEEEEEFFFF004ALTKEY1WWWWWWVVVV079ALTKEY2".IX1064.2
- 027300 05 FILLER PIC X(53) VALUE IX1064.2
- 027400 "BBBBBCCCCC221EEEEEFFFFF005ALTKEY1WWWWWVVVVV080ALTKEY2".IX1064.2
- 027500 05 FILLER PIC X(53) VALUE IX1064.2
- 027600 "BBBBCCCCCC220EEEEFFFFFF006ALTKEY1WWWWVVVVVV081ALTKEY2".IX1064.2
- 027700 05 FILLER PIC X(53) VALUE IX1064.2
- 027800 "BBBCCCCCCC219EEEFFFFFFF007ALTKEY1WWWVVVVVVV082ALTKEY2".IX1064.2
- 027900 05 FILLER PIC X(53) VALUE IX1064.2
- 028000 "BBCCCCCCCC218EEFFFFFFFF008ALTKEY1WWVVVVVVVV083ALTKEY2".IX1064.2
- 028100 05 FILLER PIC X(53) VALUE IX1064.2
- 028200 "BCCCCCCCCC217EFFFFFFFFF009ALTKEY1WVVVVVVVVV084ALTKEY2".IX1064.2
- 028300 05 FILLER PIC X(53) VALUE IX1064.2
- 028400 "CCCCCCCCCC216FFFFFFFFFF010ALTKEY1VVVVVVVVVV085ALTKEY2".IX1064.2
- 028500 05 FILLER PIC X(53) VALUE IX1064.2
- 028600 "CCCCCCCCCD215FFFFFFFFFG011ALTKEY1VVVVVVVVVV086ALTKEY2".IX1064.2
- 028700 05 FILLER PIC X(53) VALUE IX1064.2
- 028800 "CCCCCCCCDD214FFFFFFFFGG012ALTKEY1VVVVVVVVUU087ALTKEY2".IX1064.2
- 028900 05 FILLER PIC X(53) VALUE IX1064.2
- 029000 "CCCCCCCDDD213FFFFFFFGGG013ALTKEY1VVVVVVVUUU088ALTKEY2".IX1064.2
- 029100 05 FILLER PIC X(53) VALUE IX1064.2
- 029200 "CCCCCCDDDD212FFFFFFGGGG014ALTKEY1VVVVVVUUUU089ALTKEY2".IX1064.2
- 029300 05 FILLER PIC X(53) VALUE IX1064.2
- 029400 "CCCCCDDDDD211FFFFFGGGGG015ALTKEY1VVVVVUUUUU090ALTKEY2".IX1064.2
- 029500 05 FILLER PIC X(53) VALUE IX1064.2
- 029600 "CCCCDDDDDD210FFFFGGGGGG016ALTKEY1VVVVUUUUUU091ALTKEY2".IX1064.2
- 029700 05 FILLER PIC X(53) VALUE IX1064.2
- 029800 "CCCDDDDDDD209FFFGGGGGGG017ALTKEY1VVVUUUUUUU092ALTKEY2".IX1064.2
- 029900 05 FILLER PIC X(53) VALUE IX1064.2
- 030000 "CCDDDDDDDD208FFGGGGGGGG018ALTKEY1VVUUUUUUUU093ALTKEY2".IX1064.2
- 030100 05 FILLER PIC X(53) VALUE IX1064.2
- 030200 "CDDDDDDDDD207FGGGGGGGGG019ALTKEY1VUUUUUUUUU094ALTKEY2".IX1064.2
- 030300 05 FILLER PIC X(53) VALUE IX1064.2
- 030400 "DDDDDDDDDD206GGGGGGGGGG020ALTKEY1UUUUUUUUUU095ALTKEY2".IX1064.2
- 030500 05 FILLER PIC X(53) VALUE IX1064.2
- 030600 "DDDDDDDDDE205GGGGGGGGGH021ALTKEY1UUUUUUUUUU096ALTKEY2".IX1064.2
- 030700 05 FILLER PIC X(53) VALUE IX1064.2
- 030800 "DDDDDDDDEE204GGGGGGGGHH022ALTKEY1UUUUUUUUTT097ALTKEY2".IX1064.2
- 030900 05 FILLER PIC X(53) VALUE IX1064.2
- 031000 "DDDDDDDEEE203GGGGGGGHHH023ALTKEY1UUUUUUUTTT098ALTKEY2".IX1064.2
- 031100 05 FILLER PIC X(53) VALUE IX1064.2
- 031200 "DDDDDDEEEE202GGGGGGHHHH024ALTKEY1UUUUUUTTTT099ALTKEY2".IX1064.2
- 031300 05 FILLER PIC X(53) VALUE IX1064.2
- 031400 "DDDDDEEEEE201GGGGGHHHHH025ALTKEY1UUUUUTTTTT100ALTKEY2".IX1064.2
- 031500 05 FILLER PIC X(53) VALUE IX1064.2
- 031600 "DDDDEEEEEE200GGGGHHHHHH026ALTKEY1UUUUTTTTTT101ALTKEY2".IX1064.2
- 031700 05 FILLER PIC X(53) VALUE IX1064.2
- 031800 "DDDEEEEEEE199GGGHHHHHHH027ALTKEY1UUUTTTTTTT102ALTKEY2".IX1064.2
- 031900 05 FILLER PIC X(53) VALUE IX1064.2
- 032000 "DDEEEEEEEE198GGHHHHHHHH028ALTKEY1UUTTTTTTTT103ALTKEY2".IX1064.2
- 032100 05 FILLER PIC X(53) VALUE IX1064.2
- 032200 "DEEEEEEEEE197GHHHHHHHHH029ALTKEY1UTTTTTTTTT104ALTKEY2".IX1064.2
- 032300 05 FILLER PIC X(53) VALUE IX1064.2
- 032400 "EEEEEEEEEE196HHHHHHHHHH030ALTKEY1TTTTTTTTTT105ALTKEY2".IX1064.2
- 032500 05 FILLER PIC X(53) VALUE IX1064.2
- 032600 "EEEEEEEEEF195HHHHHHHHHI031ALTKEY1TTTTTTTTTT106ALTKEY2".IX1064.2
- 032700 05 FILLER PIC X(53) VALUE IX1064.2
- 032800 "EEEEEEEEFF194HHHHHHHHII032ALTKEY1TTTTTTTTSS107ALTKEY2".IX1064.2
- 032900 05 FILLER PIC X(53) VALUE IX1064.2
- 033000 "EEEEEEEFFF193HHHHHHHIII033ALTKEY1TTTTTTTSSS108ALTKEY2".IX1064.2
- 033100 05 FILLER PIC X(53) VALUE IX1064.2
- 033200 "EEEEEEFFFF192HHHHHHIIII034ALTKEY1TTTTTTSSSS109ALTKEY2".IX1064.2
- 033300 05 FILLER PIC X(53) VALUE IX1064.2
- 033400 "EEEEEFFFFF191HHHHHIIIII035ALTKEY1TTTTTSSSSS110ALTKEY2".IX1064.2
- 033500 05 FILLER PIC X(53) VALUE IX1064.2
- 033600 "EEEEFFFFFF190HHHHIIIIII036ALTKEY1TTTTSSSSSS111ALTKEY2".IX1064.2
- 033700 05 FILLER PIC X(53) VALUE IX1064.2
- 033800 "EEEFFFFFFF189HHHIIIIIII037ALTKEY1TTTSSSSSSS112ALTKEY2".IX1064.2
- 033900 05 FILLER PIC X(53) VALUE IX1064.2
- 034000 "EEFFFFFFFF188HHIIIIIIII038ALTKEY1TTSSSSSSSS113ALTKEY2".IX1064.2
- 034100 05 FILLER PIC X(53) VALUE IX1064.2
- 034200 "EFFFFFFFFF187HIIIIIIIII039ALTKEY1TSSSSSSSSS114ALTKEY2".IX1064.2
- 034300 05 FILLER PIC X(53) VALUE IX1064.2
- 034400 "FFFFFFFFFF186IIIIIIIIII040ALTKEY1SSSSSSSSSS115ALTKEY2".IX1064.2
- 034500 05 FILLER PIC X(53) VALUE IX1064.2
- 034600 "FFFFFFFFFG185IIIIIIIIIJ041ALTKEY1SSSSSSSSSS116ALTKEY2".IX1064.2
- 034700 05 FILLER PIC X(53) VALUE IX1064.2
- 034800 "FFFFFFFFGG184IIIIIIIIJJ042ALTKEY1SSSSSSSSRR117ALTKEY2".IX1064.2
- 034900 05 FILLER PIC X(53) VALUE IX1064.2
- 035000 "FFFFFFFGGG183IIIIIIIJJJ043ALTKEY1SSSSSSSRRR118ALTKEY2".IX1064.2
- 035100 05 FILLER PIC X(53) VALUE IX1064.2
- 035200 "FFFFFFGGGG182IIIIIIJJJJ044ALTKEY1SSSSSSRRRR119ALTKEY2".IX1064.2
- 035300 05 FILLER PIC X(53) VALUE IX1064.2
- 035400 "FFFFFGGGGG181IIIIIJJJJJ045ALTKEY1SSSSSRRRRR120ALTKEY2".IX1064.2
- 035500 05 FILLER PIC X(53) VALUE IX1064.2
- 035600 "FFFFGGGGGG180IIIIJJJJJJ046ALTKEY1SSSSRRRRRR121ALTKEY2".IX1064.2
- 035700 05 FILLER PIC X(53) VALUE IX1064.2
- 035800 "FFFGGGGGGG179IIIJJJJJJJ047ALTKEY1SSSRRRRRRR122ALTKEY2".IX1064.2
- 035900 05 FILLER PIC X(53) VALUE IX1064.2
- 036000 "FFGGGGGGGG178IIJJJJJJJJ048ALTKEY1SSRRRRRRRR123ALTKEY2".IX1064.2
- 036100 05 FILLER PIC X(53) VALUE IX1064.2
- 036200 "FGGGGGGGGG177IJJJJJJJJJ049ALTKEY1SRRRRRRRRR124ALTKEY2".IX1064.2
- 036300 05 FILLER PIC X(53) VALUE IX1064.2
- 036400 "GGGGGGGGGG176JJJJJJJJJJ050ALTKEY1RRRRRRRRRR125ALTKEY2".IX1064.2
- 036500 05 FILLER PIC X(53) VALUE IX1064.2
- 036600 "RRRRSSSSSS175VVVVWWWWWW051ALTKEY1GGGGFFFFFF126ALTKEY2".IX1064.2
- 036700 05 FILLER PIC X(53) VALUE IX1064.2
- 036800 "RRRSSSSSSS174VVVWWWWWWW052ALTKEY1GGGFFFFFFF127ALTKEY2".IX1064.2
- 036900 05 FILLER PIC X(53) VALUE IX1064.2
- 037000 "RRSSSSSSSS173VVWWWWWWWW053ALTKEY1GGFFFFFFFF128ALTKEY2".IX1064.2
- 037100 05 FILLER PIC X(53) VALUE IX1064.2
- 037200 "RSSSSSSSSS172VWWWWWWWWW054ALTKEY1GFFFFFFFFF129ALTKEY2".IX1064.2
- 037300 05 FILLER PIC X(53) VALUE IX1064.2
- 037400 "SSSSSSSSSS171WWWWWWWWWW055ALTKEY1FFFFFFFFFF130ALTKEY2".IX1064.2
- 037500 05 FILLER PIC X(53) VALUE IX1064.2
- 037600 "SSSSSSSSST170WWWWWWWWWX056ALTKEY1FFFFFFFFFF131ALTKEY2".IX1064.2
- 037700 05 FILLER PIC X(53) VALUE IX1064.2
- 037800 "SSSSSSSSTT169WWWWWWWWXX057ALTKEY1FFFFFFFFEE132ALTKEY2".IX1064.2
- 037900 05 FILLER PIC X(53) VALUE IX1064.2
- 038000 "SSSSSSSTTT168WWWWWWWXXX058ALTKEY1FFFFFFFEEE133ALTKEY2".IX1064.2
- 038100 05 FILLER PIC X(53) VALUE IX1064.2
- 038200 "SSSSSSTTTT167WWWWWWXXXX059ALTKEY1FFFFFFEEEE134ALTKEY2".IX1064.2
- 038300 05 FILLER PIC X(53) VALUE IX1064.2
- 038400 "SSSSSTTTTT166WWWWWXXXXX060ALTKEY1FFFFFEEEEE135ALTKEY2".IX1064.2
- 038500 05 FILLER PIC X(53) VALUE IX1064.2
- 038600 "SSSSTTTTTT165WWWWXXXXXX061ALTKEY1FFFFEEEEEE136ALTKEY2".IX1064.2
- 038700 05 FILLER PIC X(53) VALUE IX1064.2
- 038800 "SSSTTTTTTT164WWWXXXXXXX062ALTKEY1FFFEEEEEEE137ALTKEY2".IX1064.2
- 038900 05 FILLER PIC X(53) VALUE IX1064.2
- 039000 "SSTTTTTTTT163WWXXXXXXXX063ALTKEY1FFEEEEEEEE138ALTKEY2".IX1064.2
- 039100 05 FILLER PIC X(53) VALUE IX1064.2
- 039200 "STTTTTTTTT162WXXXXXXXXX064ALTKEY1FEEEEEEEEE139ALTKEY2".IX1064.2
- 039300 05 FILLER PIC X(53) VALUE IX1064.2
- 039400 "TTTTTTTTTT161XXXXXXXXXX065ALTKEY1EEEEEEEEEE140ALTKEY2".IX1064.2
- 039500 05 FILLER PIC X(53) VALUE IX1064.2
- 039600 "TTTTTTTTTU160XXXXXXXXXY066ALTKEY1EEEEEEEEEE141ALTKEY2".IX1064.2
- 039700 05 FILLER PIC X(53) VALUE IX1064.2
- 039800 "TTTTTTTTUU159XXXXXXXXYY067ALTKEY1EEEEEEEEDD142ALTKEY2".IX1064.2
- 039900 05 FILLER PIC X(53) VALUE IX1064.2
- 040000 "TTTTTTTUUU158XXXXXXXYYY068ALTKEY1EEEEEEEDDD143ALTKEY2".IX1064.2
- 040100 05 FILLER PIC X(53) VALUE IX1064.2
- 040200 "TTTTTTUUUU157XXXXXXYYYY069ALTKEY1EEEEEEDDDD144ALTKEY2".IX1064.2
- 040300 05 FILLER PIC X(53) VALUE IX1064.2
- 040400 "TTTTTUUUUU156XXXXXYYYYY070ALTKEY1EEEEEDDDDD145ALTKEY2".IX1064.2
- 040500 05 FILLER PIC X(53) VALUE IX1064.2
- 040600 "TTTTUUUUUU155XXXXYYYYYY071ALTKEY1EEEEDDDDDD146ALTKEY2".IX1064.2
- 040700 05 FILLER PIC X(53) VALUE IX1064.2
- 040800 "TTTUUUUUUU154XXXYYYYYYY072ALTKEY1EEEDDDDDDD147ALTKEY2".IX1064.2
- 040900 05 FILLER PIC X(53) VALUE IX1064.2
- 041000 "TTUUUUUUUU153XXYYYYYYYY073ALTKEY1EEDDDDDDDD148ALTKEY2".IX1064.2
- 041100 05 FILLER PIC X(53) VALUE IX1064.2
- 041200 "TUUUUUUUUU152XYYYYYYYYY074ALTKEY1EDDDDDDDDD149ALTKEY2".IX1064.2
- 041300 05 FILLER PIC X(53) VALUE IX1064.2
- 041400 "UUUUUUUUUU151YYYYYYYYYY075ALTKEY1DDDDDDDDDD150ALTKEY2".IX1064.2
- 041500 01 RECORD-KEY-DATA REDEFINES RECORD-KEY-CONTENT. IX1064.2
- 041600 05 KEY-VALUES OCCURS 75 TIMES. IX1064.2
- 041700 10 RECKEY-VALUE PICTURE X(13). IX1064.2
- 041800 10 ALTKEY1-VALUE PICTURE X(20). IX1064.2
- 041900 10 ALTKEY2-VALUE PICTURE X(20). IX1064.2
- 042000 01 INIT-FLAG PICTURE 9. IX1064.2
- 042100 01 HOLD-FILESTATUS-RECORD. IX1064.2
- 042200 05 FILESTATUS PICTURE XX OCCURS 10 TIMES. IX1064.2
- 042300 IX1064.2
- 042400 01 FILE-RECORD-INFORMATION-REC. IX1064.2
- 042500 03 FILE-RECORD-INFO-SKELETON. IX1064.2
- 042600 05 FILLER PICTURE X(48) VALUE IX1064.2
- 042700 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX1064.2
- 042800 05 FILLER PICTURE X(46) VALUE IX1064.2
- 042900 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX1064.2
- 043000 05 FILLER PICTURE X(26) VALUE IX1064.2
- 043100 ",LFIL=000000,ORG= ,LBLR= ". IX1064.2
- 043200 05 FILLER PICTURE X(37) VALUE IX1064.2
- 043300 ",RECKEY= ". IX1064.2
- 043400 05 FILLER PICTURE X(38) VALUE IX1064.2
- 043500 ",ALTKEY1= ". IX1064.2
- 043600 05 FILLER PICTURE X(38) VALUE IX1064.2
- 043700 ",ALTKEY2= ". IX1064.2
- 043800 05 FILLER PICTURE X(7) VALUE SPACE.IX1064.2
- 043900 03 FILE-RECORD-INFO OCCURS 10 TIMES. IX1064.2
- 044000 05 FILE-RECORD-INFO-P1-120. IX1064.2
- 044100 07 FILLER PIC X(5). IX1064.2
- 044200 07 XFILE-NAME PIC X(6). IX1064.2
- 044300 07 FILLER PIC X(8). IX1064.2
- 044400 07 XRECORD-NAME PIC X(6). IX1064.2
- 044500 07 FILLER PIC X(1). IX1064.2
- 044600 07 REELUNIT-NUMBER PIC 9(1). IX1064.2
- 044700 07 FILLER PIC X(7). IX1064.2
- 044800 07 XRECORD-NUMBER PIC 9(6). IX1064.2
- 044900 07 FILLER PIC X(6). IX1064.2
- 045000 07 UPDATE-NUMBER PIC 9(2). IX1064.2
- 045100 07 FILLER PIC X(5). IX1064.2
- 045200 07 ODO-NUMBER PIC 9(4). IX1064.2
- 045300 07 FILLER PIC X(5). IX1064.2
- 045400 07 XPROGRAM-NAME PIC X(5). IX1064.2
- 045500 07 FILLER PIC X(7). IX1064.2
- 045600 07 XRECORD-LENGTH PIC 9(6). IX1064.2
- 045700 07 FILLER PIC X(7). IX1064.2
- 045800 07 CHARS-OR-RECORDS PIC X(2). IX1064.2
- 045900 07 FILLER PIC X(1). IX1064.2
- 046000 07 XBLOCK-SIZE PIC 9(4). IX1064.2
- 046100 07 FILLER PIC X(6). IX1064.2
- 046200 07 RECORDS-IN-FILE PIC 9(6). IX1064.2
- 046300 07 FILLER PIC X(5). IX1064.2
- 046400 07 XFILE-ORGANIZATION PIC X(2). IX1064.2
- 046500 07 FILLER PIC X(6). IX1064.2
- 046600 07 XLABEL-TYPE PIC X(1). IX1064.2
- 046700 05 FILE-RECORD-INFO-P121-240. IX1064.2
- 046800 07 FILLER PIC X(8). IX1064.2
- 046900 07 XRECORD-KEY PIC X(29). IX1064.2
- 047000 07 FILLER PIC X(9). IX1064.2
- 047100 07 ALTERNATE-KEY1 PIC X(29). IX1064.2
- 047200 07 FILLER PIC X(9). IX1064.2
- 047300 07 ALTERNATE-KEY2 PIC X(29). IX1064.2
- 047400 07 FILLER PIC X(7). IX1064.2
- 047500 IX1064.2
- 047600 01 TEST-RESULTS. IX1064.2
- 047700 02 FILLER PIC X VALUE SPACE. IX1064.2
- 047800 02 FEATURE PIC X(20) VALUE SPACE. IX1064.2
- 047900 02 FILLER PIC X VALUE SPACE. IX1064.2
- 048000 02 P-OR-F PIC X(5) VALUE SPACE. IX1064.2
- 048100 02 FILLER PIC X VALUE SPACE. IX1064.2
- 048200 02 PAR-NAME. IX1064.2
- 048300 03 FILLER PIC X(19) VALUE SPACE. IX1064.2
- 048400 03 PARDOT-X PIC X VALUE SPACE. IX1064.2
- 048500 03 DOTVALUE PIC 99 VALUE ZERO. IX1064.2
- 048600 02 FILLER PIC X(8) VALUE SPACE. IX1064.2
- 048700 02 RE-MARK PIC X(61). IX1064.2
- 048800 01 TEST-COMPUTED. IX1064.2
- 048900 02 FILLER PIC X(30) VALUE SPACE. IX1064.2
- 049000 02 FILLER PIC X(17) VALUE IX1064.2
- 049100 " COMPUTED=". IX1064.2
- 049200 02 COMPUTED-X. IX1064.2
- 049300 03 COMPUTED-A PIC X(20) VALUE SPACE. IX1064.2
- 049400 03 COMPUTED-N REDEFINES COMPUTED-A IX1064.2
- 049500 PIC -9(9).9(9). IX1064.2
- 049600 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). IX1064.2
- 049700 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). IX1064.2
- 049800 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). IX1064.2
- 049900 03 CM-18V0 REDEFINES COMPUTED-A. IX1064.2
- 050000 04 COMPUTED-18V0 PIC -9(18). IX1064.2
- 050100 04 FILLER PIC X. IX1064.2
- 050200 03 FILLER PIC X(50) VALUE SPACE. IX1064.2
- 050300 01 TEST-CORRECT. IX1064.2
- 050400 02 FILLER PIC X(30) VALUE SPACE. IX1064.2
- 050500 02 FILLER PIC X(17) VALUE " CORRECT =". IX1064.2
- 050600 02 CORRECT-X. IX1064.2
- 050700 03 CORRECT-A PIC X(20) VALUE SPACE. IX1064.2
- 050800 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). IX1064.2
- 050900 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). IX1064.2
- 051000 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). IX1064.2
- 051100 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). IX1064.2
- 051200 03 CR-18V0 REDEFINES CORRECT-A. IX1064.2
- 051300 04 CORRECT-18V0 PIC -9(18). IX1064.2
- 051400 04 FILLER PIC X. IX1064.2
- 051500 03 FILLER PIC X(2) VALUE SPACE. IX1064.2
- 051600 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. IX1064.2
- 051700 01 CCVS-C-1. IX1064.2
- 051800 02 FILLER PIC IS X(99) VALUE IS " FEATURE PAIX1064.2
- 051900- "SS PARAGRAPH-NAME IX1064.2
- 052000- " REMARKS". IX1064.2
- 052100 02 FILLER PIC X(20) VALUE SPACE. IX1064.2
- 052200 01 CCVS-C-2. IX1064.2
- 052300 02 FILLER PIC X VALUE SPACE. IX1064.2
- 052400 02 FILLER PIC X(6) VALUE "TESTED". IX1064.2
- 052500 02 FILLER PIC X(15) VALUE SPACE. IX1064.2
- 052600 02 FILLER PIC X(4) VALUE "FAIL". IX1064.2
- 052700 02 FILLER PIC X(94) VALUE SPACE. IX1064.2
- 052800 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. IX1064.2
- 052900 01 REC-CT PIC 99 VALUE ZERO. IX1064.2
- 053000 01 DELETE-COUNTER PIC 999 VALUE ZERO. IX1064.2
- 053100 01 ERROR-COUNTER PIC 999 VALUE ZERO. IX1064.2
- 053200 01 INSPECT-COUNTER PIC 999 VALUE ZERO. IX1064.2
- 053300 01 PASS-COUNTER PIC 999 VALUE ZERO. IX1064.2
- 053400 01 TOTAL-ERROR PIC 999 VALUE ZERO. IX1064.2
- 053500 01 ERROR-HOLD PIC 999 VALUE ZERO. IX1064.2
- 053600 01 DUMMY-HOLD PIC X(120) VALUE SPACE. IX1064.2
- 053700 01 RECORD-COUNT PIC 9(5) VALUE ZERO. IX1064.2
- 053800 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. IX1064.2
- 053900 01 CCVS-H-1. IX1064.2
- 054000 02 FILLER PIC X(39) VALUE SPACES. IX1064.2
- 054100 02 FILLER PIC X(42) VALUE IX1064.2
- 054200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". IX1064.2
- 054300 02 FILLER PIC X(39) VALUE SPACES. IX1064.2
- 054400 01 CCVS-H-2A. IX1064.2
- 054500 02 FILLER PIC X(40) VALUE SPACE. IX1064.2
- 054600 02 FILLER PIC X(7) VALUE "CCVS85 ". IX1064.2
- 054700 02 FILLER PIC XXXX VALUE IX1064.2
- 054800 "4.2 ". IX1064.2
- 054900 02 FILLER PIC X(28) VALUE IX1064.2
- 055000 " COPY - NOT FOR DISTRIBUTION". IX1064.2
- 055100 02 FILLER PIC X(41) VALUE SPACE. IX1064.2
- 055200 IX1064.2
- 055300 01 CCVS-H-2B. IX1064.2
- 055400 02 FILLER PIC X(15) VALUE IX1064.2
- 055500 "TEST RESULT OF ". IX1064.2
- 055600 02 TEST-ID PIC X(9). IX1064.2
- 055700 02 FILLER PIC X(4) VALUE IX1064.2
- 055800 " IN ". IX1064.2
- 055900 02 FILLER PIC X(12) VALUE IX1064.2
- 056000 " HIGH ". IX1064.2
- 056100 02 FILLER PIC X(22) VALUE IX1064.2
- 056200 " LEVEL VALIDATION FOR ". IX1064.2
- 056300 02 FILLER PIC X(58) VALUE IX1064.2
- 056400 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1064.2
- 056500 01 CCVS-H-3. IX1064.2
- 056600 02 FILLER PIC X(34) VALUE IX1064.2
- 056700 " FOR OFFICIAL USE ONLY ". IX1064.2
- 056800 02 FILLER PIC X(58) VALUE IX1064.2
- 056900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1064.2
- 057000 02 FILLER PIC X(28) VALUE IX1064.2
- 057100 " COPYRIGHT 1985 ". IX1064.2
- 057200 01 CCVS-E-1. IX1064.2
- 057300 02 FILLER PIC X(52) VALUE SPACE. IX1064.2
- 057400 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". IX1064.2
- 057500 02 ID-AGAIN PIC X(9). IX1064.2
- 057600 02 FILLER PIC X(45) VALUE SPACES. IX1064.2
- 057700 01 CCVS-E-2. IX1064.2
- 057800 02 FILLER PIC X(31) VALUE SPACE. IX1064.2
- 057900 02 FILLER PIC X(21) VALUE SPACE. IX1064.2
- 058000 02 CCVS-E-2-2. IX1064.2
- 058100 03 ERROR-TOTAL PIC XXX VALUE SPACE. IX1064.2
- 058200 03 FILLER PIC X VALUE SPACE. IX1064.2
- 058300 03 ENDER-DESC PIC X(44) VALUE IX1064.2
- 058400 "ERRORS ENCOUNTERED". IX1064.2
- 058500 01 CCVS-E-3. IX1064.2
- 058600 02 FILLER PIC X(22) VALUE IX1064.2
- 058700 " FOR OFFICIAL USE ONLY". IX1064.2
- 058800 02 FILLER PIC X(12) VALUE SPACE. IX1064.2
- 058900 02 FILLER PIC X(58) VALUE IX1064.2
- 059000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1064.2
- 059100 02 FILLER PIC X(13) VALUE SPACE. IX1064.2
- 059200 02 FILLER PIC X(15) VALUE IX1064.2
- 059300 " COPYRIGHT 1985". IX1064.2
- 059400 01 CCVS-E-4. IX1064.2
- 059500 02 CCVS-E-4-1 PIC XXX VALUE SPACE. IX1064.2
- 059600 02 FILLER PIC X(4) VALUE " OF ". IX1064.2
- 059700 02 CCVS-E-4-2 PIC XXX VALUE SPACE. IX1064.2
- 059800 02 FILLER PIC X(40) VALUE IX1064.2
- 059900 " TESTS WERE EXECUTED SUCCESSFULLY". IX1064.2
- 060000 01 XXINFO. IX1064.2
- 060100 02 FILLER PIC X(19) VALUE IX1064.2
- 060200 "*** INFORMATION ***". IX1064.2
- 060300 02 INFO-TEXT. IX1064.2
- 060400 04 FILLER PIC X(8) VALUE SPACE. IX1064.2
- 060500 04 XXCOMPUTED PIC X(20). IX1064.2
- 060600 04 FILLER PIC X(5) VALUE SPACE. IX1064.2
- 060700 04 XXCORRECT PIC X(20). IX1064.2
- 060800 02 INF-ANSI-REFERENCE PIC X(48). IX1064.2
- 060900 01 HYPHEN-LINE. IX1064.2
- 061000 02 FILLER PIC IS X VALUE IS SPACE. IX1064.2
- 061100 02 FILLER PIC IS X(65) VALUE IS "************************IX1064.2
- 061200- "*****************************************". IX1064.2
- 061300 02 FILLER PIC IS X(54) VALUE IS "************************IX1064.2
- 061400- "******************************". IX1064.2
- 061500 01 CCVS-PGM-ID PIC X(9) VALUE IX1064.2
- 061600 "IX106A". IX1064.2
- 061700 PROCEDURE DIVISI…