|
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 Card0130. IX1064.2
004700 OBJECT-COMPUTER. IX1064.2
004800 Card0131. IX1064.2
004900 INPUT-OUTPUT SECTION. IX1064.2
005000 FILE-CONTROL. IX1064.2
005100 SELECT RAW-DATA ASSIGN TO IX1064.2
005200 "C0098" 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 "C0085" . IX1064.2
005800 SELECT RL-FR1 IX1064.2
005900 ASSIGN TO IX1064.2
006000 "C0033" 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 "C0036" IX1064.2
006800 "C0068" 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 "C0020" 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
010100 LABEL RECORDS ARE STANDARD IX1064.2
010200 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
014200 LABEL RECORDS ARE STANDARD IX1064.2
014300 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
018300 LABEL RECORDS ARE STANDARD IX1064.2
018400 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 "SSSSSTTTTT166WWWWWCard0096ALTKEY1FFFFFEEEEE135ALTKEY2".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 DIVISION. IX1064.2
061800 CCVS1 SECTION. IX1064.2
061900 OPEN-FILES. IX1064.2
062000 OPEN I-O RAW-DATA. IX1064.2
062100 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX1064.2
062200 READ RAW-DATA INVALID KEY GO TO END-E-1. IX1064.2
062300 MOVE "ABORTED " TO C-ABORT. IX1064.2
062400 ADD 1 TO C-NO-OF-TESTS. IX1064.2
062500 ACCEPT C-DATE FROM DATE. IX1064.2
062600 ACCEPT C-TIME FROM TIME. IX1064.2
062700 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX1064.2
062800 END-E-1. IX1064.2
062900 CLOSE RAW-DATA. IX1064.2
063000 OPEN OUTPUT PRINT-FILE. IX1064.2
063100 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IX1064.2
063200 MOVE SPACE TO TEST-RESULTS. IX1064.2
063300 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX1064.2
063400 MOVE ZERO TO REC-SKL-SUB. IX1064.2
063500 PERFORM CCVS-INIT-FILE 9 TIMES. IX1064.2
063600 CCVS-INIT-FILE. IX1064.2
063700 ADD 1 TO REC-SKL-SUB. IX1064.2
063800 MOVE FILE-RECORD-INFO-SKELETON IX1064.2
063900 TO FILE-RECORD-INFO (REC-SKL-SUB). IX1064.2
064000 CCVS-INIT-EXIT. IX1064.2
064100 GO TO CCVS1-EXIT. IX1064.2
064200 CLOSE-FILES. IX1064.2
064300 OPEN I-O RAW-DATA. IX1064.2
064400 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX1064.2
064500 READ RAW-DATA INVALID KEY GO TO END-E-2. IX1064.2
064600 MOVE "OK. " TO C-ABORT. IX1064.2
064700 MOVE PASS-COUNTER TO C-OK. IX1064.2
064800 MOVE ERROR-HOLD TO C-ALL. IX1064.2
064900 MOVE ERROR-COUNTER TO C-FAIL. IX1064.2
065000 MOVE DELETE-COUNTER TO C-DELETED. IX1064.2
065100 MOVE INSPECT-COUNTER TO C-INSPECT. IX1064.2
065200 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. IX1064.2
065300 END-E-2. IX1064.2
065400 CLOSE RAW-DATA. IX1064.2
065500 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IX1064.2
065600 TERMINATE-CCVS. IX1064.2
065700 EXIT PROGRAM. IX1064.2
065800 TERMINATE-CALL. IX1064.2
065900 STOP RUN. IX1064.2
066000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IX1064.2
066100 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IX1064.2
066200 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IX1064.2
066300 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IX1064.2
066400 MOVE "****TEST DELETED****" TO RE-MARK. IX1064.2
066500 PRINT-DETAIL. IX1064.2
066600 IF REC-CT NOT EQUAL TO ZERO IX1064.2
066700 MOVE "." TO PARDOT-X IX1064.2
066800 MOVE REC-CT TO DOTVALUE. IX1064.2
066900 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IX1064.2
067000 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IX1064.2
067100 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IX1064.2
067200 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IX1064.2
067300 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IX1064.2
067400 MOVE SPACE TO CORRECT-X. IX1064.2
067500 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX1064.2
067600 MOVE SPACE TO RE-MARK. IX1064.2
067700 HEAD-ROUTINE. IX1064.2
067800 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1064.2
067900 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1064.2
068000 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX1064.2
068100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX1064.2
068200 COLUMN-NAMES-ROUTINE. IX1064.2
068300 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1064.2
068400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1064.2
068500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1064.2
068600 END-ROUTINE. IX1064.2
068700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX1064.2
068800 END-RTN-EXIT. IX1064.2
068900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1064.2
069000 END-ROUTINE-1. IX1064.2
069100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IX1064.2
069200 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. IX1064.2
069300 ADD PASS-COUNTER TO ERROR-HOLD. IX1064.2
069400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. IX1064.2
069500 MOVE PASS-COUNTER TO CCVS-E-4-1. IX1064.2
069600 MOVE ERROR-HOLD TO CCVS-E-4-2. IX1064.2
069700 MOVE CCVS-E-4 TO CCVS-E-2-2. IX1064.2
069800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IX1064.2
069900 END-ROUTINE-12. IX1064.2
070000 MOVE "TEST(S) FAILED" TO ENDER-DESC. IX1064.2
070100 IF ERROR-COUNTER IS EQUAL TO ZERO IX1064.2
070200 MOVE "NO " TO ERROR-TOTAL IX1064.2
070300 ELSE IX1064.2
070400 MOVE ERROR-COUNTER TO ERROR-TOTAL. IX1064.2
070500 MOVE CCVS-E-2 TO DUMMY-RECORD. IX1064.2
070600 PERFORM WRITE-LINE. IX1064.2
070700 END-ROUTINE-13. IX1064.2
070800 IF DELETE-COUNTER IS EQUAL TO ZERO IX1064.2
070900 MOVE "NO " TO ERROR-TOTAL ELSE IX1064.2
071000 MOVE DELETE-COUNTER TO ERROR-TOTAL. IX1064.2
071100 MOVE "TEST(S) DELETED " TO ENDER-DESC. IX1064.2
071200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1064.2
071300 IF INSPECT-COUNTER EQUAL TO ZERO IX1064.2
071400 MOVE "NO " TO ERROR-TOTAL IX1064.2
071500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX1064.2
071600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX1064.2
071700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1064.2
071800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX1064.2
071900 WRITE-LINE. IX1064.2
072000 ADD 1 TO RECORD-COUNT. IX1064.2
072100 IF RECORD-COUNT GREATER 42 IX1064.2
072200 MOVE DUMMY-RECORD TO DUMMY-HOLD IX1064.2
072300 MOVE SPACE TO DUMMY-RECORD IX1064.2
072400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX1064.2
072500 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX1064.2
072600 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX1064.2
072700 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX1064.2
072800 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX1064.2
072900 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IX1064.2
073000 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX1064.2
073100 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IX1064.2
073200 MOVE DUMMY-HOLD TO DUMMY-RECORD IX1064.2
073300 MOVE ZERO TO RECORD-COUNT. IX1064.2
073400 PERFORM WRT-LN. IX1064.2
073500 WRT-LN. IX1064.2
073600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IX1064.2
073700 MOVE SPACE TO DUMMY-RECORD. IX1064.2
073800 BLANK-LINE-PRINT. IX1064.2
073900 PERFORM WRT-LN. IX1064.2
074000 FAIL-ROUTINE. IX1064.2
074100 IF COMPUTED-X NOT EQUAL TO SPACE IX1064.2
074200 GO TO FAIL-ROUTINE-WRITE. IX1064.2
074300 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1064.2
074400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX1064.2
074500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX1064.2
074600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1064.2
074700 MOVE SPACES TO INF-ANSI-REFERENCE. IX1064.2
074800 GO TO FAIL-ROUTINE-EX. IX1064.2
074900 FAIL-ROUTINE-WRITE. IX1064.2
075000 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX1064.2
075100 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX1064.2
075200 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX1064.2
075300 MOVE SPACES TO COR-ANSI-REFERENCE. IX1064.2
075400 FAIL-ROUTINE-EX. EXIT. IX1064.2
075500 BAIL-OUT. IX1064.2
075600 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IX1064.2
075700 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IX1064.2
075800 BAIL-OUT-WRITE. IX1064.2
075900 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. IX1064.2
076000 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX1064.2
076100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX1064.2
076200 MOVE SPACES TO INF-ANSI-REFERENCE. IX1064.2
076300 BAIL-OUT-EX. EXIT. IX1064.2
076400 CCVS1-EXIT. IX1064.2
076500 EXIT. IX1064.2
076600******************************************************************IX1064.2
076700 SECT-0001-RIS101 SECTION. IX1064.2
076800* IX1064.2
076900* THIS SECTION CREATES A RELATIVE FILE RANDOMLY. IX1064.2
077000* IX1064.2
077100 WRITE-INT-GF-01. IX1064.2
077200 OPEN OUTPUT RL-FR1. IX1064.2
077300 MOVE "RL-FR1" TO XFILE-NAME (1). IX1064.2
077400 MOVE "R1-F-G" TO XRECORD-NAME (1). IX1064.2
077500 MOVE ZERO TO XRECORD-NUMBER (1). IX1064.2
077600 MOVE "RC" TO CHARS-OR-RECORDS (1). IX1064.2
077700 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). IX1064.2
077800 MOVE 241 TO XRECORD-LENGTH (1). IX1064.2
077900 MOVE 001 TO XBLOCK-SIZE (1). IX1064.2
078000 MOVE "RL" TO XFILE-ORGANIZATION (1). IX1064.2
078100 MOVE "S" TO XLABEL-TYPE (1). IX1064.2
078200 MOVE 225 TO RECORDS-IN-FILE (1). IX1064.2
078300 MOVE "WRITE RL-FR1 " TO FEATURE. IX1064.2
078400 MOVE "WRITE-TEST-GF-01" TO PAR-NAME. IX1064.2
078500 MOVE ZERO TO KEYSUB. IX1064.2
078600 MOVE ZERO TO INVKEY-COUNTER-RL. IX1064.2
078700 WRITE-INIT-GF-01-01. IX1064.2
078800 PERFORM WRITE-TEST-GF-01-R1 75 TIMES. IX1064.2
078900 GO TO WRITE-TEST-GF-01. IX1064.2
079000 WRITE-TEST-GF-01-R1. IX1064.2
079100* IX1064.2
079200* WRITE-TEST-GF-01-R1 - WRITES THREE RECORDS FOR EACH PASS THRU . IX1064.2
079300* 1) FOR THE FIRST RECORD CREATED RL-KEY IS IX1064.2
079400* SET TO FR1-RECKEY-11-13 . IX1064.2
079500* 2) FOR THE SECOND RECORD CREATED RL-KEY IS IX1064.2
079600* SET TO FR1-ALTKEY1-11-13 . IX1064.2
079700* 3) FOR THE THIRD RECORD CREATED RL-KEY IS IX1064.2
079800* SET TO FR1-ALTKEY2-11-13 . IX1064.2
079900* THESE RECORD KEYS ARE IN THREE DIFFERENT IX1064.2
080000* ORDERINGS. IX1064.2
080100* 1) FR1-RECKEY-11-13 ARE THE NUMBERS FROM IX1064.2
080200* 225 TO 151 DECENDING . IX1064.2
080300* 2) FR1-ALTKEY1-11-13 ARE THE NUMBERS FROM IX1064.2
080400* 1 TO 75 ASCENDING . IX1064.2
080500* 3) FR1-ALTKEY-11-13 ARE THE NUMBERS FROM IX1064.2
080600* 76 TO 151 ASCENDING . IX1064.2
080700* IX1064.2
080800 ADD 001 TO XRECORD-NUMBER (1). IX1064.2
080900 ADD 001 TO KEYSUB. IX1064.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.102 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
