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