|
000100 IDENTIFICATION DIVISION. IX2104.2
000200 PROGRAM-ID. IX2104.2
000300 IX210A. IX2104.2
000400**************************************************************** IX2104.2
000500* * IX2104.2
000600* VALIDATION FOR:- * IX2104.2
000700* * IX2104.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2104.2
000900* * IX2104.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2104.2
001100* * IX2104.2
001200**************************************************************** IX2104.2
001300* * IX2104.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * IX2104.2
001500* * IX2104.2
001600* X-55 - SYSTEM PRINTER NAME. * IX2104.2
001700* X-82 - SOURCE COMPUTER NAME. * IX2104.2
001800* X-83 - OBJECT COMPUTER NAME. * IX2104.2
001900* * IX2104.2
002000**************************************************************** IX2104.2
002100* THE PURPOSE OF THE PROGRAM IS TO TEST USE OF THE IX2104.2
002200* START --- GREATER THAN --- STATEMENT USING FIRST THE PRIME IX2104.2
002300* RECORD KEY AND THEN WITH AN ALTERNATE RECORD KEY IX2104.2
002400* AS THE KEY OF REFERENCE. THE START STATEMENT NAMES, IX2104.2
002500* IN ITS CONSTRUCT , EITHER THE DATA NAME SPECIFIED IN THE IX2104.2
002600* KEY CLAUSE OR A DATA ITEM THAT IS SUBORDINATE TO THE IX2104.2
002700* KEY NAME. DIFFERENT KEY VALUES ARE USED FOR TESTING. IX2104.2
002800* IF A KEY VALUE IS PROVIDED WHICH MATCHES A RECORD IN THE FILEIX2104.2
002900* WHEN THE START IS EXECUTED THEN THE RECORD IS EXPECTED TO IX2104.2
003000* MADE AVAILABLE BY THE SUBSEQUENT READ STATEMENT. IF A KEY IX2104.2
003100* VALUE IS PROVIDED WHICH DOES NOT MATCH ANY RECORD IN THE IX2104.2
003200* FILE THEN THE INVALID KEY PATH IS EXPECTED TO BE TAKEN. IX2104.2
003300* THE FILE STATUS CONTENTS RESULTING FROM EXECUTION OF THE IX2104.2
003400* START TESTS ARE SAVED AND CHECKED IN LATER TESTS. IX2104.2
003500* IX2104.2
003600* REFERENCE AMERICAN NATIONAL STANDARD IX2104.2
003700* PROGRAMMING LANGUAGE COBOL, X3.23-1985. IX2104.2
003800* SECTION IX, INDEX I-O, THE START IX2104.2
003900* STATEMENT. PARAGRAPHS 4.7.3 (3); IX2104.2
004000* 4.7.4 (1), (4), (4)IX2104.2
004100* AND IX2104.2
004200* THE FILE STATUS PARAGRAPH 1.3.4 IX2104.2
004300* IX2104.2
004400* BEFORE EXECUTION OF THE START IN EACH TEST, A RECORD IS MADE IX2104.2
004500* AVAILABLE FROM THE FILE THAT IS DIFFERENT THAN WILL RESULT IX2104.2
004600* FROM THE TEST, AND THE RECORD KEY IS LOADED WITH A KEY VALUE.IX2104.2
004700* DEPENDING ON THE NATURE OF THE TEST THE KEY VALUE MAY OR IX2104.2
004800* MAY NOT BE A VALID KEY FOR THE FILE. IX2104.2
004900* IX2104.2
005000* THIS PROGRAM FIRST CREATES AN INDEXED SEQUENTIAL FILE IX2104.2
005100* CONTAINING TWO ALTERNATE KEYS AND THE ONE REQUIRED RECORD IX2104.2
005200* KEY FOR THE FILE. IMMEDIATELY FOLLOWING FILE CREATION THE IX2104.2
005300* FILE IS READ AND THE RECORDS OF THE FILE VERIFIED FOR IX2104.2
005400* ACCURACY. NEXT THE TESTS ARE EXECUTED USING THE START --- IX2104.2
005500* GREATER THAN ---STATEMENT. IX2104.2
005600* THE RECORDS IN THE FILE ARE CREATED IN SEQUENTIAL ORDER BY IX2104.2
005700* RECORD KEY VALUE. FOLLOWING IS A SAMPLE OF THE DATA IX2104.2
005800* CONTENTS FOR THE RECORD KEY AND TWO ALTERNATE RECORD KEYS IN IX2104.2
005900* THE FILE. IX2104.2
006000* IX2104.2
006100* REC-NO RECORD-KEY ALTERNATE-KEY-1 ALTERNATE-KEY-2 IX2104.2
006200* ------ ---------- --------------- --------------- IX2104.2
006300* 001 BBBBBBBBBC002 EEEEEEEEEF000ALTKEY1 WWWWWWWWWV398ALTKEY2IX2104.2
006400* 002 BBBBBBBBCC004 EEEEEEEEFF004ALTKEY1 WWWWWWWWVV396ALTKEY2IX2104.2
006500* 003 BBBBBBBCCC006 EEEEEEEFFF006ALTKEY1 WWWWWWWVVV394ALTKEY2IX2104.2
006600* . . . . IX2104.2
006700* . . . . IX2104.2
006800* . . . . IX2104.2
006900* 010 CCCCCCCCCC020 FFFFFFFFFF020ALTKEY1 VVVVVVVVVV380ALTKEY2IX2104.2
007000* 011 CCCCCCCCCD022 FFFFFFFFFG022ALTKEY1 VVVVVVVVVV380ALTKEY2IX2104.2
007100* 012 CCCCCCCCDD024 FFFFFFFFGG024ALTKEY1 VVVVVVVVUU376ALTKEY2IX2104.2
007200* . . . . IX2104.2
007300* . . . . IX2104.2
007400* . . . . IX2104.2
007500* 200 UUUUUUUUUU400 YYYYYYYYYY400ALTKEY1 DDDDDDDDDD000ALTKEY2IX2104.2
007600* IX2104.2
007700* NOTE 1 - ALTERNATE KEY NUMBER 2 CONTAINS DUPLICATE KEYS IX2104.2
007800* EVERY 10TH AND 11TH RECORDS. IX2104.2
007900* IX2104.2
008000* NOTE 2 - THE FIRST 50 RECORDS AND LAST 25 RECORDS OF THE IX2104.2
008100* FILE FOLLOW THE ABOVE SEQUENTIAL KEY PATTERN. FOR THE MIDDLEIX2104.2
008200* 125 RECORDS ONLY THE NUMBER PART OF THE KEYS ARE VARIED IX2104.2
008300* AND VARIED IN THE SEQUENCE SHOWN ABOVE. THAT IS, RECORD-KEY IX2104.2
008400* AND ALTERNATE-KEY-1 ARE INCREMENTED BY 2 AND THE ALTERNATE- IX2104.2
008500* KEY-2 IS DECREMENTED BY 2 EACH TIME A RECORD IS WRITTEN TO IX2104.2
008600* THE FILE. THE FILE IS DESIGNED TO BE LARGE ENOUGH SO THAT IX2104.2
008700* AN I-O OPERATION IS REQUIRED FOR EACH RECORD ACCESSED FROM IX2104.2
008800* THE FILE. IX2104.2
008900* IX2104.2
009000* FILE CHARACTERISTICS ARE: FILE SIZE = 200 RECORDS IX2104.2
009100* RECORD SIZE = 240 CHARS. IX2104.2
009200* RECORD KEY SIZE = 13 CHARS. IX2104.2
009300* ALTERNATE KEY 1 SIZE = 20 CHARS. IX2104.2
009400* ALTERNATE KEY 2 SIZE = 20 CHARS. IX2104.2
009500* ACCESS MODE = SEQUENTIAL IX2104.2
009600* IX2104.2
009700* A LIST OF COBOL ELEMENTS WITH THE PARAGRAPH NAME IN PARENTH- IX2104.2
009800* ESIS THAT TESTS THE ELEMENT AND A SHORT DESCRIPTION OF THE IX2104.2
009900* TEST FOLLOWS. IX2104.2
010000* IX2104.2
010100* PROGRAM COLLATING SEQUENCE CLAUSE. (ALL START TESTS) - IX2104.2
010200* THE PROGRAM COLLATING SEQUENCE CLAUSE SHOULD HAVE NO IX2104.2
010300* EFFECT ON THE COMARAISIONS ASSOCIATED WITH THE START IX2104.2
010400* STATEMENT. THIS PROGRAM ASSUMES THAT THE PROGRAM IX2104.2
010500* COLLATING SEQUENCE CLAUSE ALSO DOES NOT IN ANY WAY IX2104.2
010600* EFFECT THE SEQUENTIAL ORDER OF RECORDS ACCESSED IX2104.2
010700* FROM OR WRITTEN TO THE FILE. IX2104.2
010800* WRITE --- INVALID KEY---. (INX-TEST-001) - THIS TEST CREATEIX2104.2
010900* A FILE OF 200 RECORDS CONTAINING ONE RECORD KEY AND IX2104.2
011000* TWO ALTERNATE KEYS. IX2104.2
011100* READ ---AT END ---. (INX-TEST-002) - THIS TEST READS THE IX2104.2
011200* FILE CREATED IN INX-TEST-001 AND VERIFIES THAT THE IX2104.2
011300* FILE WAS CREATED CORRECTLY. IX2104.2
011400* START ---KEY GREATER THAN RECORD-KEY INVALID KEY ---. (INX-IX2104.2
011500* TEST-003.01 THRU INX-TEST-003.04) - THE START IX2104.2
011600* STATEMENT IS EXECUTED USING THE RECORD-KEY FOR THE IX2104.2
011700* FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
011800* RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY IX2104.2
011900* VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE IX2104.2
012000* (.03) AND GREATER THAN THAN THE LAST RECORD IN THE IX2104.2
012100* FILE (.04). IX2104.2
012200* START ---KEY GREATER THAN DATA-ITEM INVALID KEY ---. (INX-IX2104.2
012300* TEST-003.05 THRU INX-TEST-003.09) - THE START IX2104.2
012400* STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS IX2104.2
012500* SUBORDINATE TO THE RECORD-KEY NAME OF THE FILE IX2104.2
012600* AND CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
012700* RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN IX2104.2
012800* IN MORE THAN ONE RECORD IN THE FILE (.06), IX2104.2
012900* NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN IX2104.2
013000* THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN IX2104.2
013100* THE LAST RECORD IN THE FILE (.09. IX2104.2
013200* IX2104.2
013300* NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2104.2
013400* IS AN ENTRY SUBORDINATE TO A REDEFINES IX2104.2
013500* ENTRY WHICH USES AS ITS OBJECT THE KEY IX2104.2
013600* NAMED BY THE RECORD KEY CLAUSE. IX2104.2
013700* IX2104.2
013800* FILE STATUS. (INX-TEST-004.01 THRU INX-TEST-004.09) - THESEIX2104.2
013900* TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2104.2
014000* FROM THE START IN INX-TEST-003.01 THRU IX2104.2
014100* INX-TEST-003.09. IX2104.2
014200* START ---KEY GREATER THAN ALTNATE-KEY INVALID KEY --. (INX-IX2104.2
014300* TEST-005.01 THRU INX-TEST-005.04) - THE START IX2104.2
014400* STATEMENT IS EXECUTED USING THE ALTERNATE-KEY FOR THEIX2104.2
014500* FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
014600* RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY IX2104.2
014700* VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE IX2104.2
014800* (.03) AND GREATER THAN THAN THE LAST RECORD IN THE IX2104.2
014900* FILE (.04). IX2104.2
015000* START ---KEY GREATER THAN DATA-ITEM INVALID KEY --. (INX-IX2104.2
015100* TEST-005.05 THRU INX-TEST-005.09) - THE START IX2104.2
015200* STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS IX2104.2
015300* SUBORDINATE TO THE ALTERNATE-KEY NAME OF THE FILE IX2104.2
015400* AND CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
015500* RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN IX2104.2
015600* IN MORE THAN ONE RECORD IN THE FILE (.06), IX2104.2
015700* NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN IX2104.2
015800* THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN IX2104.2
015900* THE LAST RECORD IN THE FILE (.09. IX2104.2
016000* IX2104.2
016100* NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2104.2
016200* IS AN ENTRY SUBORDINATE TO A REDEFINES IX2104.2
016300* ENTRY WHICH USES AS ITS OBJECT THE KEY IX2104.2
016400* NAMED BY THE RECORD KEY CLAUSE. IX2104.2
016500* IX2104.2
016600* FILE STATUS. (INX-TEST-006.01 THRU INX-TEST-006.09) - THESEIX2104.2
016700* TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2104.2
016800* FROM THE START IN INX-TEST-005.01 THRU IX2104.2
016900* INX-TEST-005.09. IX2104.2
017000* MULTIPLE STARTS. (INX-TEST-007) - THIS TEST EXECUTES IX2104.2
017100* SEVERAL START STATEMENTS FOLLOWED BY A READ STATEMENTIX2104.2
017200* AND EXPECTS THE RECORD DESIGNATED BY THE LAST IX2104.2
017300* START BE MADE AVAILABLE. IX2104.2
017400* IX2104.2
017500******************************************************************IX2104.2
017600* IX2104.2
017700 ENVIRONMENT DIVISION. IX2104.2
017800 CONFIGURATION SECTION. IX2104.2
017900 SOURCE-COMPUTER. IX2104.2
018000 Card0130. IX2104.2
018100 OBJECT-COMPUTER. IX2104.2
018200 Card0131 IX2104.2
018300 PROGRAM COLLATING SEQUENCE IS FOR-INX-START-TEST. IX2104.2
018400 SPECIAL-NAMES. IX2104.2
018500 ALPHABET IX2104.2
018600 FOR-INX-START-TEST IS "WVUTSRJIHGFEDCB". IX2104.2
018700 INPUT-OUTPUT SECTION. IX2104.2
018800 FILE-CONTROL. IX2104.2
018900 SELECT RAW-DATA ASSIGN TO IX2104.2
019000 "C0098" IX2104.2
019100 ORGANIZATION IS INDEXED IX2104.2
019200 ACCESS MODE IS RANDOM IX2104.2
019300 RECORD KEY IS RAW-DATA-KEY. IX2104.2
019400 SELECT PRINT-FILE ASSIGN TO IX2104.2
019500 "C0085" . IX2104.2
019600 SELECT IX-FS1 IX2104.2
019700 ASSIGN TO IX2104.2
019800 "C0036" IX2104.2
019900 "C0068" IX2104.2
020000 ACCESS MODE IS SEQUENTIAL IX2104.2
020100 ORGANIZATION IS INDEXED IX2104.2
020200 RECORD KEY IS IX-FS1-KEY IX2104.2
020300 ALTERNATE RECORD KEY IS IX-FS1-ALTKEY1 IX2104.2
020400 ALTERNATE RECORD KEY IS IX-FS1-ALTKEY2 WITH DUPLICATES IX2104.2
020500 FILE STATUS IS FS1-STATUS. IX2104.2
020600 DATA DIVISION. IX2104.2
020700 FILE SECTION. IX2104.2
020800 IX2104.2
020900 FD RAW-DATA. IX2104.2
021000 IX2104.2
021100 01 RAW-DATA-SATZ. IX2104.2
021200 05 RAW-DATA-KEY PIC X(6). IX2104.2
021300 05 C-DATE PIC 9(6). IX2104.2
021400 05 C-TIME PIC 9(8). IX2104.2
021500 05 C-NO-OF-TESTS PIC 99. IX2104.2
021600 05 C-OK PIC 999. IX2104.2
021700 05 C-ALL PIC 999. IX2104.2
021800 05 C-FAIL PIC 999. IX2104.2
021900 05 C-DELETED PIC 999. IX2104.2
022000 05 C-INSPECT PIC 999. IX2104.2
022100 05 C-NOTE PIC X(13). IX2104.2
022200 05 C-INDENT PIC X. IX2104.2
022300 05 C-ABORT PIC X(8). IX2104.2
022400 FD PRINT-FILE. IX2104.2
022500 01 PRINT-REC PICTURE X(120). IX2104.2
022600 01 DUMMY-RECORD PICTURE X(120). IX2104.2
022700 FD IX-FS1 IX2104.2
022800 LABEL RECORDS ARE STANDARD IX2104.2
022900 DATA RECORD IS IX-FS1R1-F-G-240 IX2104.2
023000 RECORD CONTAINS 240 CHARACTERS. IX2104.2
023100 01 IX-FS1R1-F-G-240. IX2104.2
023200 05 IX-FS1-REC-120 PICTURE X(120). IX2104.2
023300 05 IX-FS1-REC-121-240. IX2104.2
023400 10 FILLER PICTURE X(8). IX2104.2
023500 10 IX-REC-KEY-AREA. IX2104.2
023600 15 IX-FS1-KEY. IX2104.2
023700 20 IX-FS1-KEY-1-10. IX2104.2
023800 25 IX-FS1-KEY-1-5 PICTURE X(5). IX2104.2
023900 25 IX-FS1-KEY-6-10 PICTURE X(5). IX2104.2
024000 20 IX-FS1-KEY-11-13 PICTURE X(3). IX2104.2
024100 15 IX-REDF-RECKEY REDEFINES IX-FS1-KEY. IX2104.2
024200 20 R-RECKEY-1-7 PICTURE X(7). IX2104.2
024300 20 R-RECKEY-8-13 PICTURE X(6). IX2104.2
024400 15 FILLER PICTURE X(16). IX2104.2
024500 10 FILLER PICTURE X(9). IX2104.2
024600 10 IX-ALT-KEY1-AREA. IX2104.2
024700 15 IX-FS1-ALTKEY1. IX2104.2
024800 20 IX-FS1-ALTKEY1-1-10. IX2104.2
024900 25 IX-FS1-ALTKEY1-1-5 PICTURE X(5). IX2104.2
025000 25 IX-FS1-ALTKEY1-6-10 PICTURE X(5). IX2104.2
025100 20 IX-FS1-ALTKEY1-11-13 PICTURE X(3). IX2104.2
025200 20 IX-FS1-ALTKEY1-14-20 PICTURE X(7). IX2104.2
025300 15 IX-REDF-ALTKEY1 REDEFINES IX-FS1-ALTKEY1. IX2104.2
025400 20 R-ALTKEY1-1-6 PICTURE X(6). IX2104.2
025500 20 R-ALTKEY1-7-10 PICTURE X(4). IX2104.2
025600 20 R-ALTKEY1-11-20 PICTURE X(10). IX2104.2
025700 15 FILLER PICTURE X(9). IX2104.2
025800 10 FILLER PICTURE X(9). IX2104.2
025900 10 IX-ALT-KEY2-AREA. IX2104.2
026000 15 IX-FS1-ALTKEY2. IX2104.2
026100 20 IX-FS1-ALTKEY2-1-10. IX2104.2
026200 25 IX-FS1-ALTKEY2-1-5 PICTURE X(5). IX2104.2
026300 25 IX-FS1-ALTKEY2-6-10 PICTURE X(5). IX2104.2
026400 20 IX-FS1-ALTKEY2-11-13 PICTURE X(3). IX2104.2
026500 20 IX-FS1-ALTKEY2-14-20 PICTURE X(7). IX2104.2
026600 15 FILLER PICTURE X(9). IX2104.2
026700 10 FILLER PICTURE X(7). IX2104.2
026800 WORKING-STORAGE SECTION. IX2104.2
026900 01 WRK-FS1-RECKEY. IX2104.2
027000 05 FS1-RECKEY-1-13. IX2104.2
027100 10 FS1-RECKEY-1-10 PICTURE X(10). IX2104.2
027200 10 FS1-RECKEY-11-13 PICTURE 9(3). IX2104.2
027300 05 FILLER PICTURE X(16) VALUE SPACE. IX2104.2
027400 01 WRK-FS1-ALTKEY1. IX2104.2
027500 05 FS1-ALTKEY1-1-20. IX2104.2
027600 10 FS1-ALTKEY1-1-10. IX2104.2
027700 15 FS1-ALTKEY1-1-5 PICTURE X(5). IX2104.2
027800 15 FS1-ALTKEY1-6-10 PICTURE X(5). IX2104.2
027900 10 FS1-ALTKEY1-11-13 PICTURE 9(3). IX2104.2
028000 10 FS1-ALTKEY1-14-20 PICTURE X(7). IX2104.2
028100 05 FILLER PICTURE X(9) VALUE SPACE. IX2104.2
028200 01 WRK-FS1-ALTKEY2. IX2104.2
028300 05 FS1-ALTKEY2-1-20. IX2104.2
028400 10 FS1-ALTKEY2-1-10. IX2104.2
028500 15 FS1-ALTKEY2-1-5 PICTURE X(5). IX2104.2
028600 15 FS1-ALTKEY2-6-10 PICTURE X(5). IX2104.2
028700 10 FS1-ALTKEY2-11-13 PICTURE 9(3). IX2104.2
028800 10 FS1-ALTKEY2-14-20 PICTURE X(7). IX2104.2
028900 05 FILLER PICTURE X(9) VALUE SPACE. IX2104.2
029000 01 RECNO PICTURE 9(5) VALUE ZERO. IX2104.2
029100 01 FS1-STATUS PICTURE XX VALUE SPACE. IX2104.2
029200 01 EXCUT-COUNTER-06V00 PICTURE 9(6) VALUE ZERO. IX2104.2
029300 01 KEYSUB PICTURE 9(3) COMPUTATIONAL. IX2104.2
029400 01 INVKEY-COUNTER PICTURE 9(3) COMPUTATIONAL. IX2104.2
029500 01 RECORDS-WRITTEN PICTURE 9(3). IX2104.2
029600 01 RECKEY-NUM PICTURE 9(3). IX2104.2
029700 01 ALTKEY1-NUM PICTURE 9(3). IX2104.2
029800 01 ALTKEY2-NUM PICTURE 9(3). IX2104.2
029900 01 RECORD-KEY-CONTENT. IX2104.2
030000 05 FILLER PIC X(53) VALUE IX2104.2
030100 "BBBBBBBBBC002EEEEEEEEEF002ALTKEY1WWWWWWWWWV398ALTKEY2".IX2104.2
030200 05 FILLER PIC X(53) VALUE IX2104.2
030300 "BBBBBBBBCC004EEEEEEEEFF004ALTKEY1WWWWWWWWVV396ALTKEY2".IX2104.2
030400 05 FILLER PIC X(53) VALUE IX2104.2
030500 "BBBBBBBCCC006EEEEEEEFFF006ALTKEY1WWWWWWWVVV394ALTKEY2".IX2104.2
030600 05 FILLER PIC X(53) VALUE IX2104.2
030700 "BBBBBBCCCC008EEEEEEFFFF008ALTKEY1WWWWWWVVVV392ALTKEY2".IX2104.2
030800 05 FILLER PIC X(53) VALUE IX2104.2
030900 "BBBBBCCCCC010EEEEEFFFFF010ALTKEY1WWWWWVVVVV390ALTKEY2".IX2104.2
031000 05 FILLER PIC X(53) VALUE IX2104.2
031100 "BBBBCCCCCC012EEEEFFFFFF012ALTKEY1WWWWVVVVVV388ALTKEY2".IX2104.2
031200 05 FILLER PIC X(53) VALUE IX2104.2
031300 "BBBCCCCCCC014EEEFFFFFFF014ALTKEY1WWWVVVVVVV386ALTKEY2".IX2104.2
031400 05 FILLER PIC X(53) VALUE IX2104.2
031500 "BBCCCCCCCC016EEFFFFFFFF016ALTKEY1WWVVVVVVVV384ALTKEY2".IX2104.2
031600 05 FILLER PIC X(53) VALUE IX2104.2
031700 "BCCCCCCCCC018EFFFFFFFFF018ALTKEY1WVVVVVVVVV382ALTKEY2".IX2104.2
031800 05 FILLER PIC X(53) VALUE IX2104.2
031900 "CCCCCCCCCC020FFFFFFFFFF020ALTKEY1VVVVVVVVVV380ALTKEY2".IX2104.2
032000 05 FILLER PIC X(53) VALUE IX2104.2
032100 "CCCCCCCCCD022FFFFFFFFFG022ALTKEY1VVVVVVVVVV380ALTKEY2".IX2104.2
032200 05 FILLER PIC X(53) VALUE IX2104.2
032300 "CCCCCCCCDD024FFFFFFFFGG024ALTKEY1VVVVVVVVUU376ALTKEY2".IX2104.2
032400 05 FILLER PIC X(53) VALUE IX2104.2
032500 "CCCCCCCDDD026FFFFFFFGGG026ALTKEY1VVVVVVVUUU374ALTKEY2".IX2104.2
032600 05 FILLER PIC X(53) VALUE IX2104.2
032700 "CCCCCCDDDD028FFFFFFGGGG028ALTKEY1VVVVVVUUUU372ALTKEY2".IX2104.2
032800 05 FILLER PIC X(53) VALUE IX2104.2
032900 "CCCCCDDDDD030FFFFFGGGGG030ALTKEY1VVVVVUUUUU370ALTKEY2".IX2104.2
033000 05 FILLER PIC X(53) VALUE IX2104.2
033100 "CCCCDDDDDD032FFFFGGGGGG032ALTKEY1VVVVUUUUUU368ALTKEY2".IX2104.2
033200 05 FILLER PIC X(53) VALUE IX2104.2
033300 "CCCDDDDDDD034FFFGGGGGGG034ALTKEY1VVVUUUUUUU366ALTKEY2".IX2104.2
033400 05 FILLER PIC X(53) VALUE IX2104.2
033500 "CCDDDDDDDD036FFGGGGGGGG036ALTKEY1VVUUUUUUUU364ALTKEY2".IX2104.2
033600 05 FILLER PIC X(53) VALUE IX2104.2
033700 "CDDDDDDDDD038FGGGGGGGGG038ALTKEY1VUUUUUUUUU362ALTKEY2".IX2104.2
033800 05 FILLER PIC X(53) VALUE IX2104.2
033900 "DDDDDDDDDD040GGGGGGGGGG040ALTKEY1UUUUUUUUUU360ALTKEY2".IX2104.2
034000 05 FILLER PIC X(53) VALUE IX2104.2
034100 "DDDDDDDDDE042GGGGGGGGGH042ALTKEY1UUUUUUUUUU360ALTKEY2".IX2104.2
034200 05 FILLER PIC X(53) VALUE IX2104.2
034300 "DDDDDDDDEE044GGGGGGGGHH044ALTKEY1UUUUUUUUTT356ALTKEY2".IX2104.2
034400 05 FILLER PIC X(53) VALUE IX2104.2
034500 "DDDDDDDEEE046GGGGGGGHHH046ALTKEY1UUUUUUUTTT354ALTKEY2".IX2104.2
034600 05 FILLER PIC X(53) VALUE IX2104.2
034700 "DDDDDDEEEE048GGGGGGHHHH048ALTKEY1UUUUUUTTTT352ALTKEY2".IX2104.2
034800 05 FILLER PIC X(53) VALUE IX2104.2
034900 "DDDDDEEEEE050GGGGGHHHHH050ALTKEY1UUUUUTTTTT350ALTKEY2".IX2104.2
035000 05 FILLER PIC X(53) VALUE IX2104.2
035100 "DDDDEEEEEE052GGGGHHHHHH052ALTKEY1UUUUTTTTTT348ALTKEY2".IX2104.2
035200 05 FILLER PIC X(53) VALUE IX2104.2
035300 "DDDEEEEEEE054GGGHHHHHHH054ALTKEY1UUUTTTTTTT346ALTKEY2".IX2104.2
035400 05 FILLER PIC X(53) VALUE IX2104.2
035500 "DDEEEEEEEE056GGHHHHHHHH056ALTKEY1UUTTTTTTTT344ALTKEY2".IX2104.2
035600 05 FILLER PIC X(53) VALUE IX2104.2
035700 "DEEEEEEEEE058GHHHHHHHHH058ALTKEY1UTTTTTTTTT342ALTKEY2".IX2104.2
035800 05 FILLER PIC X(53) VALUE IX2104.2
035900 "EEEEEEEEEE060HHHHHHHHHH060ALTKEY1TTTTTTTTTT340ALTKEY2".IX2104.2
036000 05 FILLER PIC X(53) VALUE IX2104.2
036100 "EEEEEEEEEF062HHHHHHHHHI062ALTKEY1TTTTTTTTTT340ALTKEY2".IX2104.2
036200 05 FILLER PIC X(53) VALUE IX2104.2
036300 "EEEEEEEEFF064HHHHHHHHII064ALTKEY1TTTTTTTTSS336ALTKEY2".IX2104.2
036400 05 FILLER PIC X(53) VALUE IX2104.2
036500 "EEEEEEEFFF066HHHHHHHIII066ALTKEY1TTTTTTTSSS334ALTKEY2".IX2104.2
036600 05 FILLER PIC X(53) VALUE IX2104.2
036700 "EEEEEEFFFF068HHHHHHIIII068ALTKEY1TTTTTTSSSS332ALTKEY2".IX2104.2
036800 05 FILLER PIC X(53) VALUE IX2104.2
036900 "EEEEEFFFFF070HHHHHIIIII070ALTKEY1TTTTTSSSSS330ALTKEY2".IX2104.2
037000 05 FILLER PIC X(53) VALUE IX2104.2
037100 "EEEEFFFFFF072HHHHIIIIII072ALTKEY1TTTTSSSSSS328ALTKEY2".IX2104.2
037200 05 FILLER PIC X(53) VALUE IX2104.2
037300 "EEEFFFFFFF074HHHIIIIIII074ALTKEY1TTTSSSSSSS326ALTKEY2".IX2104.2
037400 05 FILLER PIC X(53) VALUE IX2104.2
037500 "EEFFFFFFFF076HHIIIIIIII076ALTKEY1TTSSSSSSSS324ALTKEY2".IX2104.2
037600 05 FILLER PIC X(53) VALUE IX2104.2
037700 "EFFFFFFFFF078HIIIIIIIII078ALTKEY1TSSSSSSSSS322ALTKEY2".IX2104.2
037800 05 FILLER PIC X(53) VALUE IX2104.2
037900 "FFFFFFFFFF080IIIIIIIIII080ALTKEY1SSSSSSSSSS320ALTKEY2".IX2104.2
038000 05 FILLER PIC X(53) VALUE IX2104.2
038100 "FFFFFFFFFG082IIIIIIIIIJ082ALTKEY1SSSSSSSSSS320ALTKEY2".IX2104.2
038200 05 FILLER PIC X(53) VALUE IX2104.2
038300 "FFFFFFFFGG084IIIIIIIIJJ084ALTKEY1SSSSSSSSRR316ALTKEY2".IX2104.2
038400 05 FILLER PIC X(53) VALUE IX2104.2
038500 "FFFFFFFGGG086IIIIIIIJJJ086ALTKEY1SSSSSSSRRR314ALTKEY2".IX2104.2
038600 05 FILLER PIC X(53) VALUE IX2104.2
038700 "FFFFFFGGGG088IIIIIIJJJJ088ALTKEY1SSSSSSRRRR312ALTKEY2".IX2104.2
038800 05 FILLER PIC X(53) VALUE IX2104.2
038900 "FFFFFGGGGG090IIIIIJJJJJ090ALTKEY1SSSSSRRRRR310ALTKEY2".IX2104.2
039000 05 FILLER PIC X(53) VALUE IX2104.2
039100 "FFFFGGGGGG092IIIIJJJJJJ092ALTKEY1SSSSRRRRRR308ALTKEY2".IX2104.2
039200 05 FILLER PIC X(53) VALUE IX2104.2
039300 "FFFGGGGGGG094IIIJJJJJJJ094ALTKEY1SSSRRRRRRR306ALTKEY2".IX2104.2
039400 05 FILLER PIC X(53) VALUE IX2104.2
039500 "FFGGGGGGGG096IIJJJJJJJJ096ALTKEY1SSRRRRRRRR304ALTKEY2".IX2104.2
039600 05 FILLER PIC X(53) VALUE IX2104.2
039700 "FGGGGGGGGG098IJJJJJJJJJ098ALTKEY1SRRRRRRRRR302ALTKEY2".IX2104.2
039800 05 FILLER PIC X(53) VALUE IX2104.2
039900 "GGGGGGGGGG100JJJJJJJJJJ100ALTKEY1RRRRRRRRRR300ALTKEY2".IX2104.2
040000 05 FILLER PIC X(53) VALUE IX2104.2
040100 "RRRRSSSSSS352VVVVWWWWWW352ALTKEY1GGGGFFFFFF048ALTKEY2".IX2104.2
040200 05 FILLER PIC X(53) VALUE IX2104.2
040300 "RRRSSSSSSS354VVVWWWWWWW354ALTKEY1GGGFFFFFFF046ALTKEY2".IX2104.2
040400 05 FILLER PIC X(53) VALUE IX2104.2
040500 "RRSSSSSSSS356VVWWWWWWWW356ALTKEY1GGFFFFFFFF044ALTKEY2".IX2104.2
040600 05 FILLER PIC X(53) VALUE IX2104.2
040700 "RSSSSSSSSS358VWWWWWWWWW358ALTKEY1GFFFFFFFFF042ALTKEY2".IX2104.2
040800 05 FILLER PIC X(53) VALUE IX2104.2
040900 "SSSSSSSSSS360WWWWWWWWWW360ALTKEY1FFFFFFFFFF040ALTKEY2".IX2104.2
041000 05 FILLER PIC X(53) VALUE IX2104.2
041100 "SSSSSSSSST362WWWWWWWWWX362ALTKEY1FFFFFFFFFF040ALTKEY2".IX2104.2
041200 05 FILLER PIC X(53) VALUE IX2104.2
041300 "SSSSSSSSTT364WWWWWWWWXX364ALTKEY1FFFFFFFFEE036ALTKEY2".IX2104.2
041400 05 FILLER PIC X(53) VALUE IX2104.2
041500 "SSSSSSSTTT366WWWWWWWXXX366ALTKEY1FFFFFFFEEE034ALTKEY2".IX2104.2
041600 05 FILLER PIC X(53) VALUE IX2104.2
041700 "SSSSSSTTTT368WWWWWWXXXX368ALTKEY1FFFFFFEEEE032ALTKEY2".IX2104.2
041800 05 FILLER PIC X(53) VALUE IX2104.2
041900 "SSSSSTTTTT370WWWWWCard0880ALTKEY1FFFFFEEEEE030ALTKEY2".IX2104.2
042000 05 FILLER PIC X(53) VALUE IX2104.2
042100 "SSSSTTTTTT372WWWWXXXXXX372ALTKEY1FFFFEEEEEE028ALTKEY2".IX2104.2
042200 05 FILLER PIC X(53) VALUE IX2104.2
042300 "SSSTTTTTTT374WWWXXXXXXX374ALTKEY1FFFEEEEEEE026ALTKEY2".IX2104.2
042400 05 FILLER PIC X(53) VALUE IX2104.2
042500 "SSTTTTTTTT376WWXXXXXXXX376ALTKEY1FFEEEEEEEE024ALTKEY2".IX2104.2
042600 05 FILLER PIC X(53) VALUE IX2104.2
042700 "STTTTTTTTT378WXXXXXXXXX378ALTKEY1FEEEEEEEEE022ALTKEY2".IX2104.2
042800 05 FILLER PIC X(53) VALUE IX2104.2
042900 "TTTTTTTTTT380XXXXXXXXXX380ALTKEY1EEEEEEEEEE020ALTKEY2".IX2104.2
043000 05 FILLER PIC X(53) VALUE IX2104.2
043100 "TTTTTTTTTU382XXXXXXXXXY382ALTKEY1EEEEEEEEEE020ALTKEY2".IX2104.2
043200 05 FILLER PIC X(53) VALUE IX2104.2
043300 "TTTTTTTTUU384XXXXXXXXYY384ALTKEY1EEEEEEEEDD016ALTKEY2".IX2104.2
043400 05 FILLER PIC X(53) VALUE IX2104.2
043500 "TTTTTTTUUU386XXXXXXXYYY386ALTKEY1EEEEEEEDDD014ALTKEY2".IX2104.2
043600 05 FILLER PIC X(53) VALUE IX2104.2
043700 "TTTTTTUUUU388XXXXXXYYYY388ALTKEY1EEEEEEDDDD012ALTKEY2".IX2104.2
043800 05 FILLER PIC X(53) VALUE IX2104.2
043900 "TTTTTUUUUU390XXXXXYYYYY390ALTKEY1EEEEEDDDDD010ALTKEY2".IX2104.2
044000 05 FILLER PIC X(53) VALUE IX2104.2
044100 "TTTTUUUUUU392XXXXYYYYYY392ALTKEY1EEEEDDDDDD008ALTKEY2".IX2104.2
044200 05 FILLER PIC X(53) VALUE IX2104.2
044300 "TTTUUUUUUU394XXXYYYYYYY394ALTKEY1EEEDDDDDDD006ALTKEY2".IX2104.2
044400 05 FILLER PIC X(53) VALUE IX2104.2
044500 "TTUUUUUUUU396XXYYYYYYYY396ALTKEY1EEDDDDDDDD004ALTKEY2".IX2104.2
044600 05 FILLER PIC X(53) VALUE IX2104.2
044700 "TUUUUUUUUU398XYYYYYYYYY398ALTKEY1EDDDDDDDDD002ALTKEY2".IX2104.2
044800 05 FILLER PIC X(53) VALUE IX2104.2
044900 "UUUUUUUUUU400YYYYYYYYYY400ALTKEY1DDDDDDDDDD000ALTKEY2".IX2104.2
045000 01 RECORD-KEY-DATA REDEFINES RECORD-KEY-CONTENT. IX2104.2
045100 05 KEY-VALUES OCCURS 75 TIMES. IX2104.2
045200 10 RECKEY-VALUE PICTURE X(13). IX2104.2
045300 10 ALTKEY1-VALUE PICTURE X(20). IX2104.2
045400 10 ALTKEY2-VALUE PICTURE X(20). IX2104.2
045500 01 INIT-FLAG PICTURE 9. IX2104.2
045600 01 HOLD-FILESTATUS-RECORD. IX2104.2
045700 05 FILESTATUS PICTURE XX OCCURS 10 TIMES. IX2104.2
045800 01 FILE-RECORD-INFORMATION-REC. IX2104.2
045900 03 FILE-RECORD-INFO-SKELETON. IX2104.2
046000 05 FILLER PICTURE X(48) VALUE IX2104.2
046100 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". IX2104.2
046200 05 FILLER PICTURE X(46) VALUE IX2104.2
046300 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". IX2104.2
046400 05 FILLER PICTURE X(26) VALUE IX2104.2
046500 ",LFIL=000000,ORG= ,LBLR= ". IX2104.2
046600 05 FILLER PICTURE X(37) VALUE IX2104.2
046700 ",RECKEY= ". IX2104.2
046800 05 FILLER PICTURE X(38) VALUE IX2104.2
046900 ",ALTKEY1= ". IX2104.2
047000 05 FILLER PICTURE X(38) VALUE IX2104.2
047100 ",ALTKEY2= ". IX2104.2
047200 05 FILLER PICTURE X(7) VALUE SPACE.IX2104.2
047300 03 FILE-RECORD-INFO OCCURS 10 TIMES. IX2104.2
047400 05 FILE-RECORD-INFO-P1-120. IX2104.2
047500 07 FILLER PIC X(5). IX2104.2
047600 07 XFILE-NAME PIC X(6). IX2104.2
047700 07 FILLER PIC X(8). IX2104.2
047800 07 XRECORD-NAME PIC X(6). IX2104.2
047900 07 FILLER PIC X(1). IX2104.2
048000 07 REELUNIT-NUMBER PIC 9(1). IX2104.2
048100 07 FILLER PIC X(7). IX2104.2
048200 07 XRECORD-NUMBER PIC 9(6). IX2104.2
048300 07 FILLER PIC X(6). IX2104.2
048400 07 UPDATE-NUMBER PIC 9(2). IX2104.2
048500 07 FILLER PIC X(5). IX2104.2
048600 07 ODO-NUMBER PIC 9(4). IX2104.2
048700 07 FILLER PIC X(5). IX2104.2
048800 07 XPROGRAM-NAME PIC X(5). IX2104.2
048900 07 FILLER PIC X(7). IX2104.2
049000 07 XRECORD-LENGTH PIC 9(6). IX2104.2
049100 07 FILLER PIC X(7). IX2104.2
049200 07 CHARS-OR-RECORDS PIC X(2). IX2104.2
049300 07 FILLER PIC X(1). IX2104.2
049400 07 XBLOCK-SIZE PIC 9(4). IX2104.2
049500 07 FILLER PIC X(6). IX2104.2
049600 07 RECORDS-IN-FILE PIC 9(6). IX2104.2
049700 07 FILLER PIC X(5). IX2104.2
049800 07 XFILE-ORGANIZATION PIC X(2). IX2104.2
049900 07 FILLER PIC X(6). IX2104.2
050000 07 XLABEL-TYPE PIC X(1). IX2104.2
050100 05 FILE-RECORD-INFO-P121-240. IX2104.2
050200 07 FILLER PIC X(8). IX2104.2
050300 07 XRECORD-KEY PIC X(29). IX2104.2
050400 07 FILLER PIC X(9). IX2104.2
050500 07 ALTERNATE-KEY1 PIC X(29). IX2104.2
050600 07 FILLER PIC X(9). IX2104.2
050700 07 ALTERNATE-KEY2 PIC X(29). IX2104.2
050800 07 FILLER PIC X(7). IX2104.2
050900 01 TEST-RESULTS. IX2104.2
051000 02 FILLER PIC X VALUE SPACE. IX2104.2
051100 02 FEATURE PIC X(20) VALUE SPACE. IX2104.2
051200 02 FILLER PIC X VALUE SPACE. IX2104.2
051300 02 P-OR-F PIC X(5) VALUE SPACE. IX2104.2
051400 02 FILLER PIC X VALUE SPACE. IX2104.2
051500 02 PAR-NAME. IX2104.2
051600 03 FILLER PIC X(19) VALUE SPACE. IX2104.2
051700 03 PARDOT-X PIC X VALUE SPACE. IX2104.2
051800 03 DOTVALUE PIC 99 VALUE ZERO. IX2104.2
051900 02 FILLER PIC X(8) VALUE SPACE. IX2104.2
052000 02 RE-MARK PIC X(61). IX2104.2
052100 01 TEST-COMPUTED. IX2104.2
052200 02 FILLER PIC X(30) VALUE SPACE. IX2104.2
052300 02 FILLER PIC X(17) VALUE IX2104.2
052400 " COMPUTED=". IX2104.2
052500 02 COMPUTED-X. IX2104.2
052600 03 COMPUTED-A PIC X(20) VALUE SPACE. IX2104.2
052700 03 COMPUTED-N REDEFINES COMPUTED-A IX2104.2
052800 PIC -9(9).9(9). IX2104.2
052900 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). IX2104.2
053000 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). IX2104.2
053100 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). IX2104.2
053200 03 CM-18V0 REDEFINES COMPUTED-A. IX2104.2
053300 04 COMPUTED-18V0 PIC -9(18). IX2104.2
053400 04 FILLER PIC X. IX2104.2
053500 03 FILLER PIC X(50) VALUE SPACE. IX2104.2
053600 01 TEST-CORRECT. IX2104.2
053700 02 FILLER PIC X(30) VALUE SPACE. IX2104.2
053800 02 FILLER PIC X(17) VALUE " CORRECT =". IX2104.2
053900 02 CORRECT-X. IX2104.2
054000 03 CORRECT-A PIC X(20) VALUE SPACE. IX2104.2
054100 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). IX2104.2
054200 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). IX2104.2
054300 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). IX2104.2
054400 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). IX2104.2
054500 03 CR-18V0 REDEFINES CORRECT-A. IX2104.2
054600 04 CORRECT-18V0 PIC -9(18). IX2104.2
054700 04 FILLER PIC X. IX2104.2
054800 03 FILLER PIC X(2) VALUE SPACE. IX2104.2
054900 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. IX2104.2
055000 01 CCVS-C-1. IX2104.2
055100 02 FILLER PIC IS X(99) VALUE IS " FEATURE PAIX2104.2
055200- "SS PARAGRAPH-NAME IX2104.2
055300- " REMARKS". IX2104.2
055400 02 FILLER PIC X(20) VALUE SPACE. IX2104.2
055500 01 CCVS-C-2. IX2104.2
055600 02 FILLER PIC X VALUE SPACE. IX2104.2
055700 02 FILLER PIC X(6) VALUE "TESTED". IX2104.2
055800 02 FILLER PIC X(15) VALUE SPACE. IX2104.2
055900 02 FILLER PIC X(4) VALUE "FAIL". IX2104.2
056000 02 FILLER PIC X(94) VALUE SPACE. IX2104.2
056100 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. IX2104.2
056200 01 REC-CT PIC 99 VALUE ZERO. IX2104.2
056300 01 DELETE-COUNTER PIC 999 VALUE ZERO. IX2104.2
056400 01 ERROR-COUNTER PIC 999 VALUE ZERO. IX2104.2
056500 01 INSPECT-COUNTER PIC 999 VALUE ZERO. IX2104.2
056600 01 PASS-COUNTER PIC 999 VALUE ZERO. IX2104.2
056700 01 TOTAL-ERROR PIC 999 VALUE ZERO. IX2104.2
056800 01 ERROR-HOLD PIC 999 VALUE ZERO. IX2104.2
056900 01 DUMMY-HOLD PIC X(120) VALUE SPACE. IX2104.2
057000 01 RECORD-COUNT PIC 9(5) VALUE ZERO. IX2104.2
057100 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. IX2104.2
057200 01 CCVS-H-1. IX2104.2
057300 02 FILLER PIC X(39) VALUE SPACES. IX2104.2
057400 02 FILLER PIC X(42) VALUE IX2104.2
057500 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". IX2104.2
057600 02 FILLER PIC X(39) VALUE SPACES. IX2104.2
057700 01 CCVS-H-2A. IX2104.2
057800 02 FILLER PIC X(40) VALUE SPACE. IX2104.2
057900 02 FILLER PIC X(7) VALUE "CCVS85 ". IX2104.2
058000 02 FILLER PIC XXXX VALUE IX2104.2
058100 "4.2 ". IX2104.2
058200 02 FILLER PIC X(28) VALUE IX2104.2
058300 " COPY - NOT FOR DISTRIBUTION". IX2104.2
058400 02 FILLER PIC X(41) VALUE SPACE. IX2104.2
058500 IX2104.2
058600 01 CCVS-H-2B. IX2104.2
058700 02 FILLER PIC X(15) VALUE IX2104.2
058800 "TEST RESULT OF ". IX2104.2
058900 02 TEST-ID PIC X(9). IX2104.2
059000 02 FILLER PIC X(4) VALUE IX2104.2
059100 " IN ". IX2104.2
059200 02 FILLER PIC X(12) VALUE IX2104.2
059300 " HIGH ". IX2104.2
059400 02 FILLER PIC X(22) VALUE IX2104.2
059500 " LEVEL VALIDATION FOR ". IX2104.2
059600 02 FILLER PIC X(58) VALUE IX2104.2
059700 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2104.2
059800 01 CCVS-H-3. IX2104.2
059900 02 FILLER PIC X(34) VALUE IX2104.2
060000 " FOR OFFICIAL USE ONLY ". IX2104.2
060100 02 FILLER PIC X(58) VALUE IX2104.2
060200 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2104.2
060300 02 FILLER PIC X(28) VALUE IX2104.2
060400 " COPYRIGHT 1985 ". IX2104.2
060500 01 CCVS-E-1. IX2104.2
060600 02 FILLER PIC X(52) VALUE SPACE. IX2104.2
060700 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". IX2104.2
060800 02 ID-AGAIN PIC X(9). IX2104.2
060900 02 FILLER PIC X(45) VALUE SPACES. IX2104.2
061000 01 CCVS-E-2. IX2104.2
061100 02 FILLER PIC X(31) VALUE SPACE. IX2104.2
061200 02 FILLER PIC X(21) VALUE SPACE. IX2104.2
061300 02 CCVS-E-2-2. IX2104.2
061400 03 ERROR-TOTAL PIC XXX VALUE SPACE. IX2104.2
061500 03 FILLER PIC X VALUE SPACE. IX2104.2
061600 03 ENDER-DESC PIC X(44) VALUE IX2104.2
061700 "ERRORS ENCOUNTERED". IX2104.2
061800 01 CCVS-E-3. IX2104.2
061900 02 FILLER PIC X(22) VALUE IX2104.2
062000 " FOR OFFICIAL USE ONLY". IX2104.2
062100 02 FILLER PIC X(12) VALUE SPACE. IX2104.2
062200 02 FILLER PIC X(58) VALUE IX2104.2
062300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2104.2
062400 02 FILLER PIC X(13) VALUE SPACE. IX2104.2
062500 02 FILLER PIC X(15) VALUE IX2104.2
062600 " COPYRIGHT 1985". IX2104.2
062700 01 CCVS-E-4. IX2104.2
062800 02 CCVS-E-4-1 PIC XXX VALUE SPACE. IX2104.2
062900 02 FILLER PIC X(4) VALUE " OF ". IX2104.2
063000 02 CCVS-E-4-2 PIC XXX VALUE SPACE. IX2104.2
063100 02 FILLER PIC X(40) VALUE IX2104.2
063200 " TESTS WERE EXECUTED SUCCESSFULLY". IX2104.2
063300 01 XXINFO. IX2104.2
063400 02 FILLER PIC X(19) VALUE IX2104.2
063500 "*** INFORMATION ***". IX2104.2
063600 02 INFO-TEXT. IX2104.2
063700 04 FILLER PIC X(8) VALUE SPACE. IX2104.2
063800 04 XXCOMPUTED PIC X(20). IX2104.2
063900 04 FILLER PIC X(5) VALUE SPACE. IX2104.2
064000 04 XXCORRECT PIC X(20). IX2104.2
064100 02 INF-ANSI-REFERENCE PIC X(48). IX2104.2
064200 01 HYPHEN-LINE. IX2104.2
064300 02 FILLER PIC IS X VALUE IS SPACE. IX2104.2
064400 02 FILLER PIC IS X(65) VALUE IS "************************IX2104.2
064500- "*****************************************". IX2104.2
064600 02 FILLER PIC IS X(54) VALUE IS "************************IX2104.2
064700- "******************************". IX2104.2
064800 01 CCVS-PGM-ID PIC X(9) VALUE IX2104.2
064900 "IX210A". IX2104.2
065000 PROCEDURE DIVISION. IX2104.2
065100 CCVS1 SECTION. IX2104.2
065200 OPEN-FILES. IX2104.2
065300 OPEN I-O RAW-DATA. IX2104.2
065400 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2104.2
065500 READ RAW-DATA INVALID KEY GO TO END-E-1. IX2104.2
065600 MOVE "ABORTED " TO C-ABORT. IX2104.2
065700 ADD 1 TO C-NO-OF-TESTS. IX2104.2
065800 ACCEPT C-DATE FROM DATE. IX2104.2
065900 ACCEPT C-TIME FROM TIME. IX2104.2
066000 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX2104.2
066100 END-E-1. IX2104.2
066200 CLOSE RAW-DATA. IX2104.2
066300 OPEN OUTPUT PRINT-FILE. IX2104.2
066400 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IX2104.2
066500 MOVE SPACE TO TEST-RESULTS. IX2104.2
066600 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX2104.2
066700 MOVE ZERO TO REC-SKL-SUB. IX2104.2
066800 PERFORM CCVS-INIT-FILE 9 TIMES. IX2104.2
066900 CCVS-INIT-FILE. IX2104.2
067000 ADD 1 TO REC-SKL-SUB. IX2104.2
067100 MOVE FILE-RECORD-INFO-SKELETON IX2104.2
067200 TO FILE-RECORD-INFO (REC-SKL-SUB). IX2104.2
067300 CCVS-INIT-EXIT. IX2104.2
067400 GO TO CCVS1-EXIT. IX2104.2
067500 CLOSE-FILES. IX2104.2
067600 OPEN I-O RAW-DATA. IX2104.2
067700 MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2104.2
067800 READ RAW-DATA INVALID KEY GO TO END-E-2. IX2104.2
067900 MOVE "OK. " TO C-ABORT. IX2104.2
068000 MOVE PASS-COUNTER TO C-OK. IX2104.2
068100 MOVE ERROR-HOLD TO C-ALL. IX2104.2
068200 MOVE ERROR-COUNTER TO C-FAIL. IX2104.2
068300 MOVE DELETE-COUNTER TO C-DELETED. IX2104.2
068400 MOVE INSPECT-COUNTER TO C-INSPECT. IX2104.2
068500 REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. IX2104.2
068600 END-E-2. IX2104.2
068700 CLOSE RAW-DATA. IX2104.2
068800 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IX2104.2
068900 TERMINATE-CCVS. IX2104.2
069000 EXIT PROGRAM. IX2104.2
069100 TERMINATE-CALL. IX2104.2
069200 STOP RUN. IX2104.2
069300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IX2104.2
069400 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IX2104.2
069500 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IX2104.2
069600 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IX2104.2
069700 MOVE "****TEST DELETED****" TO RE-MARK. IX2104.2
069800 PRINT-DETAIL. IX2104.2
069900 IF REC-CT NOT EQUAL TO ZERO IX2104.2
070000 MOVE "." TO PARDOT-X IX2104.2
070100 MOVE REC-CT TO DOTVALUE. IX2104.2
070200 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IX2104.2
070300 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IX2104.2
070400 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IX2104.2
070500 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IX2104.2
070600 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IX2104.2
070700 MOVE SPACE TO CORRECT-X. IX2104.2
070800 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX2104.2
070900 MOVE SPACE TO RE-MARK. IX2104.2
071000 HEAD-ROUTINE. IX2104.2
071100 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2
071200 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2
071300 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2104.2
071400 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2104.2
071500 COLUMN-NAMES-ROUTINE. IX2104.2
071600 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2
071700 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2
071800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2
071900 END-ROUTINE. IX2104.2
072000 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2104.2
072100 END-RTN-EXIT. IX2104.2
072200 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2
072300 END-ROUTINE-1. IX2104.2
072400 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IX2104.2
072500 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. IX2104.2
072600 ADD PASS-COUNTER TO ERROR-HOLD. IX2104.2
072700* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. IX2104.2
072800 MOVE PASS-COUNTER TO CCVS-E-4-1. IX2104.2
072900 MOVE ERROR-HOLD TO CCVS-E-4-2. IX2104.2
073000 MOVE CCVS-E-4 TO CCVS-E-2-2. IX2104.2
073100 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IX2104.2
073200 END-ROUTINE-12. IX2104.2
073300 MOVE "TEST(S) FAILED" TO ENDER-DESC. IX2104.2
073400 IF ERROR-COUNTER IS EQUAL TO ZERO IX2104.2
073500 MOVE "NO " TO ERROR-TOTAL IX2104.2
073600 ELSE IX2104.2
073700 MOVE ERROR-COUNTER TO ERROR-TOTAL. IX2104.2
073800 MOVE CCVS-E-2 TO DUMMY-RECORD. IX2104.2
073900 PERFORM WRITE-LINE. IX2104.2
074000 END-ROUTINE-13. IX2104.2
074100 IF DELETE-COUNTER IS EQUAL TO ZERO IX2104.2
074200 MOVE "NO " TO ERROR-TOTAL ELSE IX2104.2
074300 MOVE DELETE-COUNTER TO ERROR-TOTAL. IX2104.2
074400 MOVE "TEST(S) DELETED " TO ENDER-DESC. IX2104.2
074500 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2
074600 IF INSPECT-COUNTER EQUAL TO ZERO IX2104.2
074700 MOVE "NO " TO ERROR-TOTAL IX2104.2
074800 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX2104.2
074900 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX2104.2
075000 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2
075100 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2
075200 WRITE-LINE. IX2104.2
075300 ADD 1 TO RECORD-COUNT. IX2104.2
075400 IF RECORD-COUNT GREATER 42 IX2104.2
075500 MOVE DUMMY-RECORD TO DUMMY-HOLD IX2104.2
075600 MOVE SPACE TO DUMMY-RECORD IX2104.2
075700 WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX2104.2
075800 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2104.2
075900 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2104.2
076000 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2104.2
076100 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2104.2
076200 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IX2104.2
076300 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX2104.2
076400 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IX2104.2
076500 MOVE DUMMY-HOLD TO DUMMY-RECORD IX2104.2
076600 MOVE ZERO TO RECORD-COUNT. IX2104.2
076700 PERFORM WRT-LN. IX2104.2
076800 WRT-LN. IX2104.2
076900 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IX2104.2
077000 MOVE SPACE TO DUMMY-RECORD. IX2104.2
077100 BLANK-LINE-PRINT. IX2104.2
077200 PERFORM WRT-LN. IX2104.2
077300 FAIL-ROUTINE. IX2104.2
077400 IF COMPUTED-X NOT EQUAL TO SPACE IX2104.2
077500 GO TO FAIL-ROUTINE-WRITE. IX2104.2
077600 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2104.2
077700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2104.2
077800 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX2104.2
077900 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2
078000 MOVE SPACES TO INF-ANSI-REFERENCE. IX2104.2
078100 GO TO FAIL-ROUTINE-EX. IX2104.2
078200 FAIL-ROUTINE-WRITE. IX2104.2
078300 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX2104.2
078400 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX2104.2
078500 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2104.2
078600 MOVE SPACES TO COR-ANSI-REFERENCE. IX2104.2
078700 FAIL-ROUTINE-EX. EXIT. IX2104.2
078800 BAIL-OUT. IX2104.2
078900 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IX2104.2
079000 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IX2104.2
079100 BAIL-OUT-WRITE. IX2104.2
079200 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. IX2104.2
079300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2104.2
079400 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2
079500 MOVE SPACES TO INF-ANSI-REFERENCE. IX2104.2
079600 BAIL-OUT-EX. EXIT. IX2104.2
079700 CCVS1-EXIT. IX2104.2
079800 EXIT. IX2104.2
079900 SECT-0001-IX210A SECTION. IX2104.2
080000 WRITE-INT-GF. IX2104.2
080100 OPEN OUTPUT IX-FS1. IX2104.2
080200 MOVE "IX-FS1" TO XFILE-NAME (1). IX2104.2
080300 MOVE "R1-F-G" TO XRECORD-NAME (1). IX2104.2
080400 MOVE ZERO TO XRECORD-NUMBER (1). IX2104.2
080500 MOVE "RC" TO CHARS-OR-RECORDS (1). IX2104.2
080600 MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). IX2104.2
080700 MOVE 240 TO XRECORD-LENGTH (1). IX2104.2
080800 MOVE 001 TO XBLOCK-SIZE (1). IX2104.2
080900 MOVE "IX" TO XFILE-ORGANIZATION (1). IX2104.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.52 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|
