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