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