| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/IX/ (NIST Cobol-85 ©) Datei vom 4.1.2008 mit Größe 228 kB |
|
Quellcode-Bibliothek ix209a.cobSprache: Cobol |
|||||||||||||||
|
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 081000 GO TO WRITE-TEST-GF-01. IX2094.2 081100 WRITE-TEST-GF-01-1. IX2094.2 081200 ADD 001 TO XRECORD-NUMBER (1). IX2094.2 081300 ADD 001 TO KEYSUB. IX2094.2 081400 MOVE RECKEY-VALUE (KEYSUB) TO FS1-RECKEY-1-13. IX2094.2 081500 MOVE ALTKEY1-VALUE (KEYSUB) TO FS1-ALTKEY1-1-20. IX2094.2 081600 MOVE ALTKEY2-VALUE (KEYSUB) TO FS1-ALTKEY2-1-20. IX2094.2 081700 MOVE WRK-FS1-RECKEY TO XRECORD-KEY (1). IX2094.2 081800 MOVE WRK-FS1-ALTKEY1 TO ALTERNATE-KEY1 (1). IX2094.2 081900 MOVE WRK-FS1-ALTKEY2 TO ALTERNATE-KEY2 (1). IX2094.2 082000 MOVE FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240. IX2094.2 082100 WRITE IX-FS1R1-F-G-240 IX2094.2 082200 INVALID KEY ADD 001 TO INVKEY-COUNTER. IX2094.2 082300 ADD 001 TO EXCUT-COUNTER-06V00. IX2094.2 082400 WRITE-TEST-GF-01-2. IX2094.2 082500 ADD 002 TO FS1-RECKEY-11-13. IX2094.2 082600 ADD 002 TO FS1-ALTKEY1-11-13. IX2094.2 082700 SUBTRACT 002 FROM FS1-ALTKEY2-11-13. IX2094.2 082800 ADD 001 TO XRECORD-NUMBER (1). IX2094.2 082900 MOVE WRK-FS1-RECKEY TO XRECORD-KEY (1). IX2094.2 083000 MOVE WRK-FS1-ALTKEY1 TO ALTERNATE-KEY1 (1). IX2094.2 083100 MOVE WRK-FS1-ALTKEY2 TO ALTERNATE-KEY2 (1). IX2094.2 083200 MOVE FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240. IX2094.2 083300 WRITE IX-FS1R1-F-G-240 IX2094.2 083400 INVALID KEY ADD 001 TO INVKEY-COUNTER. IX2094.2 083500 ADD 001 TO EXCUT-COUNTER-06V00. IX2094.2 083600 WRITE-TEST-GF-01. IX2094.2 083700 SUBTRACT INVKEY-COUNTER FROM EXCUT-COUNTER-06V00 IX2094.2 083800 GIVING RECORDS-WRITTEN. IX2094.2 083900 MOVE 200 TO CORRECT-18V0. IX2094.2 084000 MOVE RECORDS-WRITTEN TO COMPUTED-18V0. IX2094.2 084100 IF RECORDS-WRITTEN EQUAL TO 200 IX2094.2 084200 PERFORM PASS IX2094.2 084300 ELSE IX2094.2 084400 PERFORM FAIL. IX2094.2 084500 MOVE "RECORDS IN FILE" TO RE-MARK. IX2094.2 084600 PERFORM PRINT-DETAIL. IX2094.2 084700 GO TO WRITE-TEST-GF-01-END. IX2094.2 084800 WRITE-DELETE-GF-01. IX2094.2 084900 MOVE "WRITE-TEST-GF-01" TO PAR-NAME. IX2094.2 085000 PERFORM DE-LETE. IX2094.2 085100 PERFORM PRINT-DETAIL. IX2094.2 085200 WRITE-TEST-GF-01-END. IX2094.2 085300 CLOSE IX-FS1. IX2094.2 085400 READ-INIT-F1-01. IX2094.2 085500 OPEN INPUT IX-FS1. IX2094.2 085600 MOVE "READ-TEST-F1-01" TO PAR-NAME. IX2094.2 085700 MOVE "READ FILE IX-FS1" TO FEATURE. IX2094.2 085800 MOVE ZERO TO EXCUT-COUNTER-06V00. IX2094.2 085900 MOVE 02 TO RECKEY-NUM. IX2094.2 086000 MOVE 002 TO ALTKEY1-NUM. IX2094.2 086100 READ-TEST-F1-01-R1. IX2094.2 086200 READ IX-FS1 AT END GO TO READ-TEST-F1-01. IX2094.2 086300 MOVE IX-REC-KEY-AREA TO WRK-FS1-RECKEY. IX2094.2 086400 MOVE IX-ALT-KEY1-AREA TO WRK-FS1-ALTKEY1. IX2094.2 086500 IF FS1-RECKEY-11-13 EQUAL TO RECKEY-NUM IX2094.2 086600 AND FS1-ALTKEY1-11-13 EQUAL TO ALTKEY1-NUM IX2094.2 086700 NEXT SENTENCE IX2094.2 086800 ELSE IX2094.2 086900 PERFORM READ-FAIL-F1-01. IX2094.2 087000 ADD 001 TO EXCUT-COUNTER-06V00. IX2094.2 087100 ADD 002 TO RECKEY-NUM IX2094.2 087200 ADD 002 TO ALTKEY1-NUM. IX2094.2 087300 GO TO READ-TEST-F1-01-R1. IX2094.2 087400 READ-TEST-F1-01. IX2094.2 087500 IF EXCUT-COUNTER-06V00 EQUAL TO 200 IX2094.2 087600 PERFORM PASS ELSE IX2094.2 087700 MOVE "IX-28; 4.5.2 OR IX-41; 4.9.2 NOT COORECTLY EXECUTED" IX2094.2 087800 TO RE-MARK IX2094.2 087900 PERFORM FAIL. IX2094.2 088000 MOVE EXCUT-COUNTER-06V00 TO COMPUTED-18V0. IX2094.2 088100 MOVE 200 TO CORRECT-18V0. IX2094.2 088200 MOVE "RECORDS IN FILE" TO RE-MARK. IX2094.2 088300 PERFORM PRINT-DETAIL. IX2094.2 088400 GO TO READ-EXIT-F1-01. IX2094.2 088500 READ-FAIL-F1-01. IX2094.2 088600 PERFORM FAIL. IX2094.2 088700 MOVE FS1-RECKEY-11-13 TO COMPUTED-18V0. IX2094.2 088800 MOVE RECKEY-NUM TO CORRECT-18V0. IX2094.2 088900 MOVE "NUM EMBEDDED IN RECKEY" TO RE-MARK. IX2094.2 089000 PERFORM PRINT-DETAIL. IX2094.2 089100 READ-EXIT-F1-01. IX2094.2 089200 CLOSE IX-FS1. IX2094.2 089300 START-INIT-GF-01. IX2094.2 089400 OPEN INPUT IX-FS1. IX2094.2 089500 MOVE "START EQ TO RECKEY" TO FEATURE. IX2094.2 089600 MOVE "START-TEST-GF-01" TO PAR-NAME. IX2094.2 089700 MOVE "********************" TO HOLD-FILESTATUS-RECORD. IX2094.2 089800* IX2094.2 089900* THIS TEST TESTS THE "START -- EQUAL TO" FOR PROPER POSITIONING IX2094.2 090000* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT. IX2094.2 090100* START-TEST-GF-01 USE ONLY THE PRIME RECORD KEY FOR ESTABLISHING IX2094.2 090200* THE CURRENT RECORD POINTER FOR THE FILE. THE FOLLOWING IS A IX2094.2 090300* SUMMARY OF THE TEST CONDITIONS AND THE EXPECTED ACTION TO BE IX2094.2 090400* TAKEN FOR THE TESTS. IX2094.2 090500* IX2094.2 090600* CONDITIONS (CONTENTS OF KEY) / ACTION IX2094.2 090700* IX2094.2 090800* START-TEST-GF-01 - EQUAL A RECORD IN FILE / RECORD FOUND IX2094.2 090900* START-TEST-GF-02 - BETWEEN 2 EXISTING KEY VALUES / INVALID KEYIX2094.2 091000* START-TEST-GF-03 - LESS THAN FIRST FILE RECORD / INVALID KEY IX2094.2 091100* START-TEST-GF-04 - GREATER THAN LAST FILE RECORD / INVALID KEYIX2094.2 091200* START-TEST-GF-05 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2094.2 091300* START-TEST-GF-06 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2094.2 091400* START-TEST-GF-07 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2094.2 091500* START-TEST-GF-08 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2094.2 091600* START-TEST-GF-09 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEY IX2094.2 091700* IX2094.2 091800* BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2094.2 091900* THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2094.2 092000* IF AN INVALID KEY IS EXPECTED FROM THE TEST, THE KEYS IX2094.2 092100* ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE IX2094.2 092200* START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD IX2094.2 092300* MATCH RECORDS IN THE FILE. IF KEY MATCH IS EXPECTED FROM IX2094.2 092400* THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT IX2094.2 092500* PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH IX2094.2 092600* VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE. THE FILE IX2094.2 092700* STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2094.2 092800* IX2094.2 092900 START-INIT-GF-01-01. IX2094.2 093000 PERFORM START-INITIALIZE-RECORD. IX2094.2 093100 MOVE "START-TEST-GF-01" TO PAR-NAME. IX2094.2 093200 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 093300 MOVE "**" TO FILESTATUS (1) IX2094.2 093400 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 093500 GO TO START-DELETE-GF-01. IX2094.2 093600 MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2094.2 093700 MOVE "EEEEEFFFFF022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 093800 MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 093900 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 094000 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 094100 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 094200 START-TEST-GF-01. IX2094.2 094300* IX2094.2 094400* START-TEST-GF-01 - THE START SHOULD FIND A RECORD IN THE FILE IX2094.2 094500* WHICH HAS A RECORD KEY VALUE OF IX2094.2 094600* CCCCCCCCCD022 (RECORD NUMBER 11). IX2094.2 094700* IX2094.2 094800 START IX-FS1 IX2094.2 094900 KEY IS EQUAL TO IX-FS1-KEY IX2094.2 095000 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2094.2 095100 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 095200 GO TO START-FAIL-GF-01. IX2094.2 095300 MOVE FS1-STATUS TO FILESTATUS (1). IX2094.2 095400 READ IX-FS1 AT END IX2094.2 095500 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 095600 GO TO START-FAIL-GF-01. IX2094.2 095700 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 095800 IF XRECORD-NUMBER (1) EQUAL TO 11 IX2094.2 095900 PERFORM PASS IX2094.2 096000 MOVE SPACE TO RE-MARK IX2094.2 096100 GO TO START-WRITE-GF-01. IX2094.2 096200 MOVE 11 TO RECNO. IX2094.2 096300 PERFORM DISPLAY-RECORD-KEYS. IX2094.2 096400 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 096500 START-FAIL-GF-01. IX2094.2 096600 PERFORM FAIL. IX2094.2 096700 MOVE 11 TO CORRECT-18V0. IX2094.2 096800 MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2 096900 GO TO START-WRITE-GF-01. IX2094.2 097000 START-DELETE-GF-01. IX2094.2 097100 PERFORM DE-LETE. IX2094.2 097200 START-WRITE-GF-01. IX2094.2 097300 PERFORM PRINT-DETAIL. IX2094.2 097400 START-INIT-GF-02. IX2094.2 097500 MOVE "START-TEST-GF-02" TO PAR-NAME. IX2094.2 097600 PERFORM START-INITIALIZE-RECORD. IX2094.2 097700 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 097800 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 097900 MOVE "**" TO FILESTATUS (2) IX2094.2 098000 GO TO START-DELETE-GF-02. IX2094.2 098100 MOVE "EEEEEEEFFF067" TO FS1-RECKEY-1-13. IX2094.2 098200 MOVE "HHHHHHHIII066ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 098300 MOVE "TTTTTTTSSS334ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 098400 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 098500 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 098600 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 098700 START-TEST-GF-02. IX2094.2 098800* IX2094.2 098900* START-TEST-GF-02 - THE START SHOULD NOT FIND A RECORD IN THE IX2094.2 099000* FILE WHICH HAS A RECORD KEY VALUE OF IX2094.2 099100* "EEEEEEEFFF067". THIS KEY VALUE IS IX2094.2 099200* SEQUENTIALLY LOCATED BETWEEN TWO CURRENTLY IX2094.2 099300* EXISTING RECORD KEYS IN THE FILE. IX2094.2 099400* IX2094.2 099500 START IX-FS1 IX2094.2 099600 KEY IS EQUAL TO IX-FS1-KEY IX2094.2 099700 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2094.2 099800 GO TO START-PASS-GF-02. IX2094.2 099900 MOVE FS1-STATUS TO FILESTATUS (2). IX2094.2 100000 READ IX-FS1 AT END IX2094.2 100100 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 100200 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 100300 PERFORM FAIL. IX2094.2 100400 MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2 100500 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 100600 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 100700 GO TO START-WRITE-GF-02. IX2094.2 100800 START-PASS-GF-02. IX2094.2 100900 PERFORM PASS. IX2094.2 101000 GO TO START-WRITE-GF-02. IX2094.2 101100 START-DELETE-GF-02. IX2094.2 101200 PERFORM DE-LETE. IX2094.2 101300 START-WRITE-GF-02. IX2094.2 101400 PERFORM PRINT-DETAIL. IX2094.2 101500 START-INIT-GF-03. IX2094.2 101600 PERFORM START-INITIALIZE-RECORD. IX2094.2 101700 MOVE "START-TEST-GF-03" TO PAR-NAME. IX2094.2 101800 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 101900 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 102000 MOVE "**" TO FILESTATUS (3) IX2094.2 102100 GO TO START-DELETE-GF-03. IX2094.2 102200 MOVE "BBBBBBBBBC001" TO FS1-RECKEY-1-13. IX2094.2 102300 MOVE "EEEEEEEEEF002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 102400 MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 102500 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 102600 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 102700 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 102800 START-TEST-GF-03. IX2094.2 102900* IX2094.2 103000* START-TEST-GF-03 - THE START STATEMENT SHOULD NOT FIND A IX2094.2 103100* RECORD IN THE FILE WHICH HAS A RECORD IX2094.2 103200* KEY VALUE OF "BBBBBBBBBC001". THIS KEY IX2094.2 103300* VALUE IS SEQUENTIALLY LOWER THAN ANY IX2094.2 103400* CURRENTLY EXISTING KEY IN THE FILE. IX2094.2 103500* IX2094.2 103600 START IX-FS1 IX2094.2 103700 KEY IS EQUAL TO IX-FS1-KEY IX2094.2 103800 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2094.2 103900 GO TO START-PASS-GF-03. IX2094.2 104000 MOVE FS1-STATUS TO FILESTATUS (3). IX2094.2 104100 READ IX-FS1 AT END IX2094.2 104200 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 104300 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 104400 MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2 104500 PERFORM FAIL. IX2094.2 104600 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 104700 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 104800 GO TO START-WRITE-GF-03. IX2094.2 104900 START-PASS-GF-03. IX2094.2 105000 PERFORM PASS. IX2094.2 105100 GO TO START-WRITE-GF-03. IX2094.2 105200 START-DELETE-GF-03. IX2094.2 105300 PERFORM DE-LETE. IX2094.2 105400 START-WRITE-GF-03. IX2094.2 105500 PERFORM PRINT-DETAIL. IX2094.2 105600 START-INIT-GF-04. IX2094.2 105700 MOVE "START-TEST-GF-04" TO PAR-NAME. IX2094.2 105800 PERFORM START-INITIALIZE-RECORD. IX2094.2 105900 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 106000 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 106100 MOVE "**" TO FILESTATUS (4) IX2094.2 106200 GO TO START-DELETE-GF-04. IX2094.2 106300 MOVE "UUUUUUUUUU401" TO FS1-RECKEY-1-13. IX2094.2 106400 MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 106500 MOVE "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 106600 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 106700 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 106800 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 106900 START-TEST-GF-04. IX2094.2 107000* IX2094.2 107100* START-TEST-GF-04 - THE START STATEMENT SHOULD NOT FIND A IX2094.2 107200* RECORD IN THE FILE WHICH HAS A RECORD IX2094.2 107300* KEY VALUE OF "UUUUUUUUUU401". THIS IX2094.2 107400* VALUE IS SEQUENTIALLY ONE GREATER THAN IX2094.2 107500* ANY RECORD KEY CURRENTLY EXISTING IN IX2094.2 107600* THE FILE. AN INVALID KEY CONDITION IX2094.2 107700* IS EXPECTED WHEN THE START IS EXECUTED. IX2094.2 107800* IX2094.2 107900 START IX-FS1 IX2094.2 108000 KEY IS EQUAL TO IX-FS1-KEY IX2094.2 108100 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2094.2 108200 GO TO START-PASS-GF-04. IX2094.2 108300 MOVE FS1-STATUS TO FILESTATUS (4). IX2094.2 108400 READ IX-FS1 AT END IX2094.2 108500 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 108600 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 108700 MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2 108800 PERFORM FAIL. IX2094.2 108900 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 109000 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 109100 GO TO START-WRITE-GF-04. IX2094.2 109200 START-PASS-GF-04. IX2094.2 109300 PERFORM PASS. IX2094.2 109400 GO TO START-WRITE-GF-04. IX2094.2 109500 START-DELETE-GF-04. IX2094.2 109600 PERFORM DE-LETE. IX2094.2 109700 START-WRITE-GF-04. IX2094.2 109800 PERFORM PRINT-DETAIL. IX2094.2 109900 START-INIT-GF-05. IX2094.2 110000 MOVE "START-TEST-GF-05" TO PAR-NAME. IX2094.2 110100 PERFORM START-INITIALIZE-RECORD. IX2094.2 110200 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 110300 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 110400 MOVE "**" TO FILESTATUS (5) IX2094.2 110500 GO TO START-DELETE-GF-05. IX2094.2 110600 MOVE "CDDDDDDDDD039" TO FS1-RECKEY-1-13. IX2094.2 110700 MOVE "IIIIIIIIJJ083ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 110800 MOVE "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 110900 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 111000 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 111100 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 111200 START-TEST-GF-05. IX2094.2 111300* START-TEST-GF-05 - THE START STATEMENT USES AN OPERAND IX2094.2 111400* IN THE KEY PHRASE WHICH IS NOT THE NAME IX2094.2 111500* OF A RECORD KEY BUT IS THE NAME OF A IX2094.2 111600* DATA ITEM WHICH IS SUBORDINATE TO THE IX2094.2 111700* RECORD KEY. THE CONTENTS OF THE DATA ITEM IX2094.2 111800* (POSITIONS 1 THRU 5 OF THE RECORD KEY) IX2094.2 111900* IS A UNIQUE KEY VALUE FOR THE FILE. THE IX2094.2 112000* BALANCE OF THE KEY (POSITIONS 6 THRU 13) IS IX2094.2 112100* NOT A VALID KEY VALUE FOR THE FILE. THE IX2094.2 112200* RECORD WITH THE RECORD KEY "CDDDDDDDDD038" IX2094.2 112300* (RECORD NUMBER 19) IS EXPECTED TO BE FOUND. IX2094.2 112400* IX2094.2 112500 START IX-FS1 IX2094.2 112600 KEY IS EQUAL TO IX-FS1-KEY-1-5 IX2094.2 112700 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2094.2 112800 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 112900 GO TO START-FAIL-GF-05. IX2094.2 113000 MOVE FS1-STATUS TO FILESTATUS (5). IX2094.2 113100 READ IX-FS1 AT END IX2094.2 113200 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 113300 GO TO START-FAIL-GF-05. IX2094.2 113400 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 113500 IF XRECORD-NUMBER (1) EQUAL TO 19 IX2094.2 113600 PERFORM PASS IX2094.2 113700 GO TO START-WRITE-GF-05. IX2094.2 113800 MOVE 19 TO RECNO. IX2094.2 113900 PERFORM DISPLAY-RECORD-KEYS. IX2094.2 114000 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 114100 START-FAIL-GF-05. IX2094.2 114200 PERFORM FAIL. IX2094.2 114300 MOVE 19 TO CORRECT-18V0. IX2094.2 114400 MOVE "IX-36; 4.7.2 ETC.; SUBORDINATE D-I OF KEY" TO RE-MARK. IX2094.2 114500 GO TO START-WRITE-GF-05. IX2094.2 114600 START-DELETE-GF-05. IX2094.2 114700 PERFORM DE-LETE. IX2094.2 114800 START-WRITE-GF-05. IX2094.2 114900 PERFORM PRINT-DETAIL. IX2094.2 115000 START-INIT-GF-06. IX2094.2 115100 MOVE "START-TEST-GF-06" TO PAR-NAME. IX2094.2 115200 PERFORM START-INITIALIZE-RECORD. IX2094.2 115300 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 115400 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 115500 MOVE "**" TO FILESTATUS (6) IX2094.2 115600 GO TO START-DELETE-GF-06. IX2094.2 115700 MOVE "TTTTTUUUUU390" TO FS1-RECKEY-1-13. IX2094.2 115800 MOVE "XYYYYYYYYY399ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 115900 MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 116000 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 116100 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 116200 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 116300 START-TEST-GF-06. IX2094.2 116400* IX2094.2 116500* START-TEST-GF-06 - THE START STATEMENT USES AN OPERAND IN THE IX2094.2 116600* KEY PHRASE WHICH IS NOT THE NAME OF A RECORD IX2094.2 116700* KEY BUT IS THE NAME OF A DATA ITEM THAT IS IX2094.2 116800* SUBORDINATE TO THE RECORD KEY. THE CONTENTS IX2094.2 116900* OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE IX2094.2 117000* RECORD KEY) IS A DUPLICATE OF THE FIRST IX2094.2 117100* 5 POSITIONS OF 5 OTHER RECORDS IN THE FILE. IX2094.2 117200* THIS TEST EXPECTS THE RECORD POINTER IX2094.2 117300* TO BE POSITIONED TO RECORD KEY TTTTTTTTTT380 IX2094.2 117400* (RECORD NUMBER 190) WHICH WAS THE IX2094.2 117500* FIRST RECORD WRITTEN TO THE FILE THAT IX2094.2 117600* CONTAINS TTTTT IN THE FIRST 5 POSITIONS OF IX2094.2 117700* THE KEY. THE RECORD KEY WAS LOADED WITH THE IX2094.2 117800* VALUE "TTTTTUUUUU390" (KEY FOR RECORD NUMBER IX2094.2 117900* 195) BEFORE THE START WAS EXECUTED. IX2094.2 118000* IX2094.2 118100 START IX-FS1 IX2094.2 118200 KEY IS EQUAL TO IX-FS1-KEY-1-5 IX2094.2 118300 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (6) IX2094.2 118400 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 118500 GO TO START-FAIL-GF-06. IX2094.2 118600 MOVE FS1-STATUS TO FILESTATUS (6). IX2094.2 118700 READ IX-FS1 AT END IX2094.2 118800 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 118900 GO TO START-FAIL-GF-06. IX2094.2 119000 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 119100 IF XRECORD-NUMBER (1) EQUAL TO 190 IX2094.2 119200 PERFORM PASS IX2094.2 119300 GO TO START-WRITE-GF-06. IX2094.2 119400 MOVE 65 TO RECNO. IX2094.2 119500 PERFORM DISPLAY-RECORD-KEYS. IX2094.2 119600 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 119700 START-FAIL-GF-06. IX2094.2 119800 MOVE "IX-36; 4.7.2 ETC.; SUBORDINATE D-I OF KEY" TO RE-MARK. IX2094.2 119900 PERFORM FAIL. IX2094.2 120000 MOVE 190 TO CORRECT-18V0. IX2094.2 120100 GO TO START-WRITE-GF-06. IX2094.2 120200 START-DELETE-GF-06. IX2094.2 120300 PERFORM DE-LETE. IX2094.2 120400 START-WRITE-GF-06. IX2094.2 120500 PERFORM PRINT-DETAIL. IX2094.2 120600 START-INIT-GF-07. IX2094.2 120700 MOVE "START-TEST-GF-07" TO PAR-NAME. IX2094.2 120800 PERFORM START-INITIALIZE-RECORD. IX2094.2 120900 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 121000 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 121100 MOVE "**" TO FILESTATUS (7) IX2094.2 121200 GO TO START-DELETE-GF-07. IX2094.2 121300 MOVE "CCCCCCD022 " TO FS1-RECKEY-1-13. IX2094.2 121400 MOVE "FFFFFFFFFG022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 121500 MOVE "VVVVVVVVVV380ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 121600 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 121700 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 121800 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 121900 START-TEST-GF-07. IX2094.2 122000* IX2094.2 122100* START-TEST-GF-07 - THE START STATEMENT USES AN OPERAND IN THE IX2094.2 122200* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 122300* A DATA ITEM SUBORDINATE TO THE RECORD KEY IX2094.2 122400* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 122500* (POSITIONS 1 THRU 10 OF THE RECORD KEY) IX2094.2 122600* IS LOADED WITH "CCCCCCD022". NO SUCH RECORD IX2094.2 122700* SHOULD BE IN THE FILE. IF IN THE COMPARSION,IX2094.2 122800* THE LONGER OPERAND IS TRUNCATED ON THE LEFT IX2094.2 122900* INSTEAD OF ON THE RIGHT THE CONTENTS OF IX2094.2 123000* THE DATA ITEM WILL MATCH A RECORD IN THE IX2094.2 123100* FILE. THIS TEST EXPECTS THE LONGER OPERAND IX2094.2 123200* TO BE TRUNCATED ON THE RIGHT CAUSING NO IX2094.2 123300* DATA ITEM MATCH AND RESULTING IN AN INVALID IX2094.2 123400* KEY CONDITION WHEN THE START IS EXECUTED. IX2094.2 123500* IX2094.2 123600 START IX-FS1 IX2094.2 123700 KEY IS EQUAL TO IX-FS1-KEY-1-10 IX2094.2 123800 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2094.2 123900 GO TO START-PASS-GF-07. IX2094.2 124000 MOVE FS1-STATUS TO FILESTATUS (7). IX2094.2 124100 READ IX-FS1 AT END IX2094.2 124200 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 124300 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 124400 MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2 124500 PERFORM FAIL. IX2094.2 124600 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 124700 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 124800 GO TO START-WRITE-GF-07. IX2094.2 124900 START-PASS-GF-07. IX2094.2 125000 PERFORM PASS. IX2094.2 125100 GO TO START-WRITE-GF-07. IX2094.2 125200 START-DELETE-GF-07. IX2094.2 125300 PERFORM DE-LETE. IX2094.2 125400 START-WRITE-GF-07. IX2094.2 125500 PERFORM PRINT-DETAIL. IX2094.2 125600 START-INIT-GF-08. IX2094.2 125700 MOVE "START-TEST-GF-08" TO PAR-NAME. IX2094.2 125800 PERFORM START-INITIALIZE-RECORD. IX2094.2 125900 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 126000 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 126100 MOVE "**" TO FILESTATUS (8) IX2094.2 126200 GO TO START-DELETE-GF-08. IX2094.2 126300 MOVE "ABBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2 126400 MOVE "EEEEEEEEEF002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 126500 MOVE "WWWWWWWWWW400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 126600 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 126700 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 126800 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 126900 START-TEST-GF-08. IX2094.2 127000* IX2094.2 127100* START-TEST-GF-08 - THIS TEST USES AN OPERAND IN THE IX2094.2 127200* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 127300* A DATA ITEM SUBORDINATE TO THE RECORD KEY IX2094.2 127400* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 127500* (POSITIONS 1 THRU 10 OF THE RECORD KEY) IS IX2094.2 127600* LOADED WITH "ABBBBBBBBC". THIS KEY VALUE IX2094.2 127700* IS LOWER THAN ANY RECORD KEY VALUE IN IX2094.2 127800* POSITION 1 THRU 10 EXISTING IN THE FILE IX2094.2 127900* THEREFORE AN INVALID KEY CONDITION IS IX2094.2 128000* EXPECTED WHEN THE START STATEMENT IS IX2094.2 128100* EXECUTED. IX2094.2 128200* IX2094.2 128300 START IX-FS1 IX2094.2 128400 KEY IS EQUAL TO IX-FS1-KEY-1-10 IX2094.2 128500 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2094.2 128600 GO TO START-PASS-GF-08. IX2094.2 128700 MOVE FS1-STATUS TO FILESTATUS (8). IX2094.2 128800 READ IX-FS1 AT END IX2094.2 128900 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 129000 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 129100 MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2 129200 PERFORM FAIL. IX2094.2 129300 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 129400 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 129500 GO TO START-WRITE-GF-08. IX2094.2 129600 START-PASS-GF-08. IX2094.2 129700 PERFORM PASS. IX2094.2 129800 GO TO START-WRITE-GF-08. IX2094.2 129900 START-DELETE-GF-08. IX2094.2 130000 PERFORM DE-LETE. IX2094.2 130100 START-WRITE-GF-08. IX2094.2 130200 PERFORM PRINT-DETAIL. IX2094.2 130300 START-INIT-GF-09. IX2094.2 130400 MOVE "START-TEST-GF-09" TO PAR-NAME. IX2094.2 130500 PERFORM START-INITIALIZE-RECORD. IX2094.2 130600 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 130700 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 130800 MOVE "**" TO FILESTATUS (9) IX2094.2 130900 GO TO START-DELETE-GF-09. IX2094.2 131000 MOVE "UUUUUUUUUV400" TO FS1-RECKEY-1-13. IX2094.2 131100 MOVE "EEEEEEEEEF002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 131200 MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 131300 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 131400 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 131500 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 131600 START-TEST-GF-09. IX2094.2 131700* IX2094.2 131800* START-TEST-GF-09 - THIS TEST USES AN OPERAND IN THE IX2094.2 131900* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 132000* A DATA ITEM SUBORDINATE TO THE RECORD KEY IX2094.2 132100* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 132200* (POSITIONS 1 THRU 10 OF THE RECORD KEY) IS IX2094.2 132300* LOADED WITH "UUUUUUUUUV". THIS KEY VALUE IX2094.2 132400* IS GREATER THAN ANY RECORD KEY VALUE IN IX2094.2 132500* POSITION 1 THRU 10 EXISTING IN THE FILE IX2094.2 132600* THEREFORE AN INVALID KEY CONDITION IS IX2094.2 132700* EXPECTED WHEN THE START STATEMENT IS IX2094.2 132800* EXECUTED. IX2094.2 132900* IX2094.2 133000 START IX-FS1 IX2094.2 133100 KEY IS EQUAL TO IX-FS1-KEY-1-10 IX2094.2 133200 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (9) IX2094.2 133300 GO TO START-PASS-GF-09. IX2094.2 133400 MOVE FS1-STATUS TO FILESTATUS (9). IX2094.2 133500 READ IX-FS1 AT END IX2094.2 133600 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 133700 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 133800 MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2 133900 PERFORM FAIL. IX2094.2 134000 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 134100 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 134200 GO TO START-WRITE-GF-09. IX2094.2 134300 START-PASS-GF-09. IX2094.2 134400 PERFORM PASS. IX2094.2 134500 GO TO START-WRITE-GF-09. IX2094.2 134600 START-DELETE-GF-09. IX2094.2 134700 PERFORM DE-LETE. IX2094.2 134800 START-WRITE-GF-09. IX2094.2 134900 PERFORM PRINT-DETAIL. IX2094.2 135000 CLOSE IX-FS1. IX2094.2 135100 START-INIT-GF-FILE-STATUS. IX2094.2 135200 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 135300 MOVE "START-TEST-GF-10" TO PAR-NAME. IX2094.2 135400* IX2094.2 135500* THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS IX2094.2 135600* IX2094.2 135700 START-TEST-GF-10. IX2094.2 135800 IF FILESTATUS (1) EQUAL TO "**" IX2094.2 135900 PERFORM DE-LETE IX2094.2 136000 GO TO START-WRITE-GF-10. IX2094.2 136100* IX2094.2 136200* START-TEST-GF-10 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 136300* RESULTING FROM START-TEST-GF-01. THE FILE IX2094.2 136400* STATUS CONTENTS IS EXPECTED TO BE "00". IX2094.2 136500* IX2094.2 136600 IF FILESTATUS (1) EQUAL TO "00" IX2094.2 136700 PERFORM PASS IX2094.2 136800 ELSE IX2094.2 136900 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-01 " TO RE-MARK IX2094.2 137000 PERFORM FAIL IX2094.2 137100 MOVE "00" TO CORRECT-A IX2094.2 137200 MOVE FILESTATUS (1) TO COMPUTED-A. IX2094.2 137300 START-WRITE-GF-10. IX2094.2 137400 PERFORM PRINT-DETAIL. IX2094.2 137500 START-TEST-GF-11. IX2094.2 137600 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 137700 MOVE "START-TEST-GF-11" TO PAR-NAME. IX2094.2 137800 IF FILESTATUS (2) EQUAL TO "**" IX2094.2 137900 PERFORM DE-LETE IX2094.2 138000 GO TO START-WRITE-GF-11. IX2094.2 138100* IX2094.2 138200* START-TEST-GF-11 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 138300* RESULTING FROM START-TEST-GF-02. THE FILE IX2094.2 138400* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 138500* IX2094.2 138600 IF FILESTATUS (2) EQUAL TO "23" IX2094.2 138700 PERFORM PASS IX2094.2 138800 ELSE PERFORM FAIL IX2094.2 138900 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-02 " TO RE-MARK IX2094.2 139000 MOVE "23" TO CORRECT-A IX2094.2 139100 MOVE FILESTATUS (2) TO COMPUTED-A. IX2094.2 139200 START-WRITE-GF-11. IX2094.2 139300 PERFORM PRINT-DETAIL. IX2094.2 139400 START-TEST-GF-12. IX2094.2 139500 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 139600 MOVE "START-TEST-GF-12" TO PAR-NAME. IX2094.2 139700 IF FILESTATUS (3) EQUAL TO "**" IX2094.2 139800 PERFORM DE-LETE IX2094.2 139900 GO TO START-WRITE-GF-12. IX2094.2 140000* IX2094.2 140100* START-TEST-GF-12 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 140200* RESULTING FROM START-TEST-GF-03. THE FILE IX2094.2 140300* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 140400* IX2094.2 140500 IF FILESTATUS (3) EQUAL TO "23" IX2094.2 140600 PERFORM PASS IX2094.2 140700 ELSE PERFORM FAIL IX2094.2 140800 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-03 " TO RE-MARK IX2094.2 140900 MOVE "23" TO CORRECT-A IX2094.2 141000 MOVE FILESTATUS (3) TO COMPUTED-A. IX2094.2 141100 START-WRITE-GF-12. IX2094.2 141200 PERFORM PRINT-DETAIL. IX2094.2 141300 START-TEST-GF-13. IX2094.2 141400 MOVE "START-TEST-GF-13" TO PAR-NAME. IX2094.2 141500 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 141600 IF FILESTATUS (4) EQUAL TO "**" IX2094.2 141700 PERFORM DE-LETE IX2094.2 141800 GO TO START-WRITE-GF-13. IX2094.2 141900* IX2094.2 142000* START-TEST-GF-13 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 142100* RESULTING FROM START-TEST-GF-04. THE FILE IX2094.2 142200* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 142300* IX2094.2 142400 IF FILESTATUS (4) EQUAL TO "23" IX2094.2 142500 PERFORM PASS IX2094.2 142600 ELSE PERFORM FAIL IX2094.2 142700 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-04 " TO RE-MARK IX2094.2 142800 MOVE "23" TO CORRECT-A IX2094.2 142900 MOVE FILESTATUS (4) TO COMPUTED-A. IX2094.2 143000 START-WRITE-GF-13. IX2094.2 143100 PERFORM PRINT-DETAIL. IX2094.2 143200 START-TEST-GF-14. IX2094.2 143300 MOVE "START-TEST-GF-14" TO PAR-NAME. IX2094.2 143400 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 143500 IF FILESTATUS (5) EQUAL TO "**" IX2094.2 143600 PERFORM DE-LETE IX2094.2 143700 GO TO START-WRITE-GF-14. IX2094.2 143800* IX2094.2 143900* START-TEST-GF-14 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 144000* RESULTING FROM START-TEST-GF-05. THE FILE IX2094.2 144100* STATUS CONTENTS IS EXPECTED TO BE "00" IX2094.2 144200* IX2094.2 144300 IF FILESTATUS (5) EQUAL TO "00" IX2094.2 144400 PERFORM PASS IX2094.2 144500 ELSE PERFORM FAIL IX2094.2 144600 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-05 " TO RE-MARKIX2094.2 144700 MOVE "00" TO CORRECT-A IX2094.2 144800 MOVE FILESTATUS (5) TO COMPUTED-A. IX2094.2 144900 START-WRITE-GF-14. IX2094.2 145000 PERFORM PRINT-DETAIL. IX2094.2 145100 START-TEST-GF-15. IX2094.2 145200 MOVE "START-TEST-GF-15" TO PAR-NAME. IX2094.2 145300 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 145400 IF FILESTATUS (6) EQUAL TO "**" IX2094.2 145500 PERFORM DE-LETE IX2094.2 145600 GO TO START-WRITE-GF-15. IX2094.2 145700* IX2094.2 145800* START-TEST-GF-15 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 145900* RESULTING FROM START-TEST-GF-06. THE FILE IX2094.2 146000* STATUS CONTENTS IS EXPECTED TO BE "00" IX2094.2 146100* IX2094.2 146200 IF FILESTATUS (6) EQUAL TO "00" IX2094.2 146300 PERFORM PASS IX2094.2 146400 ELSE PERFORM FAIL IX2094.2 146500 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-06 " TO RE-MARKIX2094.2 146600 MOVE "00" TO CORRECT-A IX2094.2 146700 MOVE FILESTATUS (6) TO COMPUTED-A. IX2094.2 146800 START-WRITE-GF-15. IX2094.2 146900 PERFORM PRINT-DETAIL. IX2094.2 147000 START-TEST-GGF-16. IX2094.2 147100 MOVE "START-TEST-GF-16" TO PAR-NAME. IX2094.2 147200 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 147300 IF FILESTATUS (7) EQUAL TO "**" IX2094.2 147400 PERFORM DE-LETE IX2094.2 147500 GO TO START-WRITE-GF-16. IX2094.2 147600* IX2094.2 147700* START-TEST-GF-16 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 147800* RESULTING FROM START-TEST-GF-07. THE FILE IX2094.2 147900* STATUS CONTENTS IS EXPECTED TO BE "23" IX2094.2 148000* IX2094.2 148100 IF FILESTATUS (7) EQUAL TO "23" IX2094.2 148200 PERFORM PASS IX2094.2 148300 ELSE PERFORM FAIL IX2094.2 148400 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-07 " TO RE-MARKIX2094.2 148500 MOVE "23" TO CORRECT-A IX2094.2 148600 MOVE FILESTATUS (7) TO COMPUTED-A. IX2094.2 148700 START-WRITE-GF-16. IX2094.2 148800 PERFORM PRINT-DETAIL. IX2094.2 148900 START-TEST-GF-17. IX2094.2 149000 MOVE "START-TEST-GF-17" TO PAR-NAME. IX2094.2 149100 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 149200 IF FILESTATUS (8) EQUAL TO "**" IX2094.2 149300 PERFORM DE-LETE IX2094.2 149400 GO TO START-WRITE-GF-17. IX2094.2 149500* IX2094.2 149600* START-TEST-GF-07 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 149700* RESULTING FROM START-TEST-GF-08. THE FILE IX2094.2 149800* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 149900* IX2094.2 150000 IF FILESTATUS (8) EQUAL TO "23" IX2094.2 150100 PERFORM PASS IX2094.2 150200 ELSE PERFORM FAIL IX2094.2 150300 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-08 " TO RE-MARKIX2094.2 150400 MOVE "23" TO CORRECT-A IX2094.2 150500 MOVE FILESTATUS (8) TO COMPUTED-A. IX2094.2 150600 START-WRITE-GF-17. IX2094.2 150700 PERFORM PRINT-DETAIL. IX2094.2 150800 START-TEST-GF-18. IX2094.2 150900 MOVE "START-TEST-GF-18" TO PAR-NAME. IX2094.2 151000 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 151100 IF FILESTATUS (9) EQUAL TO "**" IX2094.2 151200 PERFORM DE-LETE IX2094.2 151300 GO TO START-WRITE-GF-18. IX2094.2 151400* IX2094.2 151500* START-TEST-GF-18 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 151600* RESULTING FROM START-TEST-GF-09. THE FILE IX2094.2 151700* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 151800* IX2094.2 151900 IF FILESTATUS (9) EQUAL TO "23" IX2094.2 152000 PERFORM PASS IX2094.2 152100 ELSE PERFORM FAIL IX2094.2 152200 MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-09 " TO RE-MARKIX2094.2 152300 MOVE "23" TO CORRECT-A IX2094.2 152400 MOVE FILESTATUS (9) TO COMPUTED-A. IX2094.2 152500 START-WRITE-GF-18. IX2094.2 152600 PERFORM PRINT-DETAIL. IX2094.2 152700******************************************************************IX2094.2 152800 IX2094.2 152900 START-INIT-005. IX2094.2 153000 OPEN INPUT IX-FS1. IX2094.2 153100 MOVE "STR EQ ALTKY W/O DUP" TO FEATURE. IX2094.2 153200 MOVE "START-TEST-GF-19" TO PAR-NAME. IX2094.2 153300 MOVE "********************" TO HOLD-FILESTATUS-RECORD. IX2094.2 153400* IX2094.2 153500* THIS TEST TESTS THE "START -- EQUAL TO" FOR PROPER POSITIONING IX2094.2 153600* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT. IX2094.2 153700* START-TEST-GF-19/27 USES ONLY THE ALTERNATE RECORD KEY WITHOUT IX2094.2 153800* THE DUPLICATES OPTION FOR ESTABLISHING THE CURRENT RECORD IX2094.2 153900* POINTER FOR THE FILE. THE FOLLOWING IS A SUMMARY OF THE TEST IX2094.2 154000* CONDITIONS AND THE EXPECTED ACTION TO BE TAKEN FOR THE TESTS. IX2094.2 154100* IX2094.2 154200* CONDITIONS (CONTENTS OF KEY) / ACTION IX2094.2 154300* IX2094.2 154400* START-TEST-GF-19 - EQUAL A RECORD IN FILE / RECORD FOUND IX2094.2 154500* START-TEST-GF-20 - BETWEEN 2 EXISTING KEY VALUES / INVALID KEIX2094.2 154600* START-TEST-GF-21 - LESS THAN FIRST FILE RECORD / INVALID KEY IX2094.2 154700* START-TEST-GF-22 - GREATER THAN LAST FILE RECORD / INVALID KEIX2094.2 154800* START-TEST-GF-23 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUIX2094.2 154900* START-TEST-GF-24 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUIX2094.2 155000* START-TEST-GF-25 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEIX2094.2 155100* START-TEST-GF-26 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEIX2094.2 155200* START-TEST-GF-27 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEYIX2094.2 155300* IX2094.2 155400* BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2094.2 155500* THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2094.2 155600* IF AN INVALID KEY IS EXPECTED FROM THE TEST, THE KEYS IX2094.2 155700* ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE IX2094.2 155800* START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD IX2094.2 155900* MATCH RECORDS IN THE FILE. IF KEY MATCH IS EXPECTED FROM IX2094.2 156000* THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT IX2094.2 156100* PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH IX2094.2 156200* VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE. THE FILE IX2094.2 156300* STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2094.2 156400* IX2094.2 156500 START-INIT-GF-19. IX2094.2 156600 PERFORM START-INITIALIZE-RECORD. IX2094.2 156700 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 156800 MOVE "**" TO FILESTATUS (1) IX2094.2 156900 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 157000 GO TO START-DELETE-GF-19. IX2094.2 157100 MOVE "CCCCCDDDDD022" TO FS1-RECKEY-1-13. IX2094.2 157200 MOVE "XXXXXXXXXY382ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 157300 MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 157400 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 157500 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 157600 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 157700 START-TEST-GF-19. IX2094.2 157800* IX2094.2 157900* START-TEST-GF-19 - THE START SHOULD FIND A RECORD IN THE FILE IX2094.2 158000* WHICH HAS AN ALTERNATE KEY VALUE OF IX2094.2 158100* XXXXXXXXXY382ALTKEY1 (RECORD NUMBER 191). IX2094.2 158200* IX2094.2 158300 START IX-FS1 IX2094.2 158400 KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2 158500 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2094.2 158600 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 158700 GO TO START-FAIL-GF-19. IX2094.2 158800 MOVE FS1-STATUS TO FILESTATUS (1). IX2094.2 158900 READ IX-FS1 AT END IX2094.2 159000 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 159100 GO TO START-FAIL-GF-19. IX2094.2 159200 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 159300 IF XRECORD-NUMBER (1) EQUAL TO 191 IX2094.2 159400 PERFORM PASS IX2094.2 159500 MOVE SPACE TO RE-MARK IX2094.2 159600 GO TO START-WRITE-GF-19. IX2094.2 159700 MOVE 66 TO RECNO. IX2094.2 159800 PERFORM DISPLAY-ALTERNATE-KEY1. IX2094.2 159900 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 160000 START-FAIL-GF-19. IX2094.2 160100 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 160200 PERFORM FAIL. IX2094.2 160300 MOVE 191 TO CORRECT-18V0. IX2094.2 160400 GO TO START-WRITE-GF-19. IX2094.2 160500 START-DELETE-GF-19. IX2094.2 160600 PERFORM DE-LETE. IX2094.2 160700 START-WRITE-GF-19. IX2094.2 160800 PERFORM PRINT-DETAIL. IX2094.2 160900 START-INIT-GF-20. IX2094.2 161000 MOVE "START-TEST-GF-20" TO PAR-NAME. IX2094.2 161100 PERFORM START-INITIALIZE-RECORD. IX2094.2 161200 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 161300 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 161400 MOVE "**" TO FILESTATUS (2) IX2094.2 161500 GO TO START-DELETE-GF-20. IX2094.2 161600 MOVE "EEEEEEEFFF066" TO FS1-RECKEY-1-13. IX2094.2 161700 MOVE "HHHHHHHIII067ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 161800 MOVE "TTTTTTTSSS334ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 161900 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 162000 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 162100 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 162200 START-TEST-GF-20. IX2094.2 162300* IX2094.2 162400* START-TEST-GF.02 - THE START SHOULD NOT FIND A RECORD IN THE IX2094.2 162500* FILE WHICH HAS AN ALTERNATE KEY VALUE OF IX2094.2 162600* HHHHHHHIII067ALTKEY1. THIS KEY VALUE IS IX2094.2 162700* SEQUENTIALLY LOCATED BETWEEN TWO CURRENTLY IX2094.2 162800* EXISTING ALTERNATE KEYS IN THE FILE. IX2094.2 162900* IX2094.2 163000 START IX-FS1 IX2094.2 163100 KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2 163200 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2094.2 163300 GO TO START-PASS-GF-20. IX2094.2 163400 MOVE FS1-STATUS TO FILESTATUS (2). IX2094.2 163500 READ IX-FS1 AT END IX2094.2 163600 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 163700 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 163800 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 163900 PERFORM FAIL. IX2094.2 164000 MOVE ALTERNATE-KEY1 (1) TO COMPUTED-A. IX2094.2 164100 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 164200 GO TO START-WRITE-GF-20. IX2094.2 164300 START-PASS-GF-20. IX2094.2 164400 PERFORM PASS. IX2094.2 164500 MOVE "INVALID KEY" TO RE-MARK. IX2094.2 164600 GO TO START-WRITE-GF-20. IX2094.2 164700 START-DELETE-GF-20. IX2094.2 164800 PERFORM DE-LETE. IX2094.2 164900 START-WRITE-GF-20. IX2094.2 165000 PERFORM PRINT-DETAIL. IX2094.2 165100 START-INIT-GF-21. IX2094.2 165200 MOVE "START-TEST-GF-21" TO PAR-NAME. IX2094.2 165300 PERFORM START-INITIALIZE-RECORD. IX2094.2 165400 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 165500 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 165600 MOVE "**" TO FILESTATUS (3) IX2094.2 165700 GO TO START-DELETE-GF-21. IX2094.2 165800 MOVE "BBBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2 165900 MOVE "EEEEEEEEEF001ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 166000 MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 166100 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 166200 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 166300 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 166400 START-TEST-GF-21. IX2094.2 166500* IX2094.2 166600* START-TEST-GF-21 - THE START STATEMENT SHOULD NOT FIND A IX2094.2 166700* RECORD IN THE FILE WHICH HAS AN ALTERNATE IX2094.2 166800* KEY VALUE OF EEEEEEEEEF001ALTKEY1. THIS KEY IX2094.2 166900* VALUE IS SEQUENTIALLY LOWER THAN ANY IX2094.2 167000* CURRENTLY EXISTING KEY IN THE FILE. IX2094.2 167100* IX2094.2 167200 START IX-FS1 IX2094.2 167300 KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2 167400 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2094.2 167500 GO TO START-PASS-GF-21. IX2094.2 167600 MOVE FS1-STATUS TO FILESTATUS (3). IX2094.2 167700 READ IX-FS1 AT END IX2094.2 167800 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 167900 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 168000 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 168100 PERFORM FAIL. IX2094.2 168200 MOVE ALTERNATE-KEY1 (1) TO COMPUTED-A. IX2094.2 168300 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 168400 GO TO START-WRITE-GF-21. IX2094.2 168500 START-PASS-GF-21. IX2094.2 168600 PERFORM PASS. IX2094.2 168700 MOVE "INVALID KEY" TO RE-MARK. IX2094.2 168800 GO TO START-WRITE-GF-21. IX2094.2 168900 START-DELETE-GF-21. IX2094.2 169000 PERFORM DE-LETE. IX2094.2 169100 START-WRITE-GF-21. IX2094.2 169200 PERFORM PRINT-DETAIL. IX2094.2 169300 START-INIT-GF-22. IX2094.2 169400 MOVE "START-TEST-GF-22" TO PAR-NAME. IX2094.2 169500 PERFORM START-INITIALIZE-RECORD. IX2094.2 169600 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 169700 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 169800 MOVE "**" TO FILESTATUS (4) IX2094.2 169900 GO TO START-DELETE-GF-22. IX2094.2 170000 MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2 170100 MOVE "YYYYYYYYYY401ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 170200 MOVE "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 170300 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 170400 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 170500 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 170600 START-TEST-GF-22. IX2094.2 170700* IX2094.2 170800* START-TEST-GF-22 - THE START STATEMENT SHOULD NOT FIND A IX2094.2 170900* RECORD IN THE FILE WHICH HAS AN ALTERNATE IX2094.2 171000* KEY VALUE OF YYYYYYYYYY401ALTKEY1. THIS IX2094.2 171100* VALUE IS SEQUENTIALLY GREATER THAN IX2094.2 171200* ANY ALTERNATE KEY CURRENTLY EXISTING IN IX2094.2 171300* THE FILE. AN INVALID KEY CONDITION IX2094.2 171400* IS EXPECTED WHEN THE START IS EXECUTED. IX2094.2 171500* IX2094.2 171600 START IX-FS1 IX2094.2 171700 KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2 171800 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2094.2 171900 GO TO START-PASS-GF-22. IX2094.2 172000 MOVE FS1-STATUS TO FILESTATUS (4). IX2094.2 172100 READ IX-FS1 AT END IX2094.2 172200 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 172300 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 172400 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 172500 PERFORM FAIL. IX2094.2 172600 MOVE ALTERNATE-KEY1 (1) TO COMPUTED-A. IX2094.2 172700 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 172800 GO TO START-WRITE-GF-22. IX2094.2 172900 START-PASS-GF-22. IX2094.2 173000 PERFORM PASS. IX2094.2 173100 GO TO START-WRITE-GF-22. IX2094.2 173200 START-DELETE-GF-22. IX2094.2 173300 PERFORM DE-LETE. IX2094.2 173400 START-WRITE-GF-22. IX2094.2 173500 PERFORM PRINT-DETAIL. IX2094.2 173600 START-INIT-GF-23. IX2094.2 173700 MOVE "START-TEST-GF-23" TO PAR-NAME. IX2094.2 173800 PERFORM START-INITIALIZE-RECORD. IX2094.2 173900 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 174000 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 174100 MOVE "**" TO FILESTATUS (5) IX2094.2 174200 GO TO START-DELETE-GF-23. IX2094.2 174300 MOVE "CDDDDDDDDD039" TO FS1-RECKEY-1-13. IX2094.2 174400 MOVE "GGGGHCard0082ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 174500 MOVE "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 174600 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 174700 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 174800 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 174900 START-TEST-GF-23. IX2094.2 175000* START-TEST-GF-23 - THE START STATEMENT USES AN OPERAND IX2094.2 175100* IN THE KEY PHRASE WHICH IS NOT THE NAME IX2094.2 175200* OF AN ALTERNATE KEY BUT IS THE NAME OF A IX2094.2 175300* DATA ITEM WHICH IS SUBORDINATE TO THE IX2094.2 175400* ALTERNATE KEY. THE CONTENTS OF THE DATA ITEMIX2094.2 175500* (POSITIONS 1 THRU 5 OF THE ALTERNATE KEY) IX2094.2 175600* IS A UNIQUE KEY VALUE FOR THE FILE. THE IX2094.2 175700* BALANCE OF THE KEY (POSITIONS 6 THRU 13 OF IX2094.2 175800* THE ALTERNATE KEY IS NOT A VALID KEY VALUE IX2094.2 175900* FOR THE FILE. THE IX2094.2 176000* RECORD WITH THE ALTERNATE KEY "GGGGHHHHHH052 IX2094.2 176100* ALTKEY1 (RECORD NUMBER 26) IS EXPECTED TO IX2094.2 176200* BE FOUND. IX2094.2 176300* IX2094.2 176400 START IX-FS1 IX2094.2 176500 KEY IS EQUAL TO IX-FS1-ALTKEY1-1-5 IX2094.2 176600 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2094.2 176700 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 176800 GO TO START-FAIL-GF-23. IX2094.2 176900 MOVE FS1-STATUS TO FILESTATUS (5). IX2094.2 177000 READ IX-FS1 AT END IX2094.2 177100 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 177200 GO TO START-FAIL-GF-23. IX2094.2 177300 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 177400 IF XRECORD-NUMBER (1) EQUAL TO 26 IX2094.2 177500 PERFORM PASS IX2094.2 177600 GO TO START-WRITE-GF-23. IX2094.2 177700 MOVE 26 TO RECNO. IX2094.2 177800 PERFORM DISPLAY-ALTERNATE-KEY1. IX2094.2 177900 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 178000 START-FAIL-GF-23. IX2094.2 178100 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 178200 PERFORM FAIL. IX2094.2 178300 MOVE 26 TO CORRECT-18V0. IX2094.2 178400 GO TO START-WRITE-GF-23. IX2094.2 178500 START-DELETE-GF-23. IX2094.2 178600 PERFORM DE-LETE. IX2094.2 178700 START-WRITE-GF-23. IX2094.2 178800 PERFORM PRINT-DETAIL. IX2094.2 178900 START-INIT-GF-24. IX2094.2 179000 MOVE "START-TEST-GF-24" TO PAR-NAME. IX2094.2 179100 PERFORM START-INITIALIZE-RECORD. IX2094.2 179200 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 179300 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 179400 MOVE "**" TO FILESTATUS (6) IX2094.2 179500 GO TO START-DELETE-GF-24. IX2094.2 179600 MOVE "YYYYYUUUUU390" TO FS1-RECKEY-1-13. IX2094.2 179700 MOVE "XXXXXYYYYY390ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 179800 MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 179900 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 180000 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 180100 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 180200 START-TEST-GF-24. IX2094.2 180300* IX2094.2 180400* START-TEST-GF-24 - THE START STATEMENT USES AN OPERAND IN THE IX2094.2 180500* KEY PHRASE WHICH IS NOT THE NAME OF AN IX2094.2 180600* ALTERNATE KEY BUT IS THE NAME OF A DATA ITEM IX2094.2 180700* THAT IS SUBORDINATE TO THE KEY. THE CONTENTSIX2094.2 180800* OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE IX2094.2 180900* ALTERNATE KEY) IS A DUPLICATE OF THE FIRST IX2094.2 181000* 5 POSITIONS OF 5 OTHER RECORDS IN THE FILE. IX2094.2 181100* THIS TEST EXPECTS THE RECORD POINTER IX2094.2 181200* TO BE POSITIONED TO RECORD KEY XXXXXXXXXX380 IX2094.2 181300* ALTKEY1 (RECORD NUMBER 190) WHICH WAS THE IX2094.2 181400* FIRST RECORD WRITTEN TO THE FILE THAT IX2094.2 181500* CONTAINS XXXXX IN THE FIRST 5 POSITIONS OF IX2094.2 181600* THE KEY. THE ALTERNATE KEY WAS LOADED WITH THEIX2094.2 181700* VALUE XXXXXYYYYY390ALTKEY1 (KEY FOR RECORD IX2094.2 181800* NUMBER 195) BEFORE THE START WAS EXECUTED. IX2094.2 181900* IX2094.2 182000 START IX-FS1 IX2094.2 182100 KEY IS EQUAL TO IX-FS1-ALTKEY1-1-5 IX2094.2 182200 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (6) IX2094.2 182300 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 182400 GO TO START-FAIL-GF-24. IX2094.2 182500 MOVE FS1-STATUS TO FILESTATUS (6). IX2094.2 182600 READ IX-FS1 AT END IX2094.2 182700 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 182800 GO TO START-FAIL-GF-24. IX2094.2 182900 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 183000 IF XRECORD-NUMBER (1) EQUAL TO 190 IX2094.2 183100 PERFORM PASS IX2094.2 183200 GO TO START-WRITE-GF-24. IX2094.2 183300 MOVE 65 TO RECNO. IX2094.2 183400 PERFORM DISPLAY-ALTERNATE-KEY1. IX2094.2 183500 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 183600 START-FAIL-GF-24. IX2094.2 183700 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 183800 PERFORM FAIL. IX2094.2 183900 MOVE 190 TO CORRECT-18V0. IX2094.2 184000 GO TO START-WRITE-GF-24. IX2094.2 184100 START-DELETE-GF-24. IX2094.2 184200 PERFORM DE-LETE. IX2094.2 184300 START-WRITE-GF-24. IX2094.2 184400 PERFORM PRINT-DETAIL. IX2094.2 184500 START-INIT-GF-25. IX2094.2 184600 MOVE "START-TEST-GF-25" TO PAR-NAME. IX2094.2 184700 PERFORM START-INITIALIZE-RECORD. IX2094.2 184800 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 184900 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 185000 MOVE "**" TO FILESTATUS (7) IX2094.2 185100 GO TO START-DELETE-GF-25. IX2094.2 185200 MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2094.2 185300 MOVE "022ALTKEY1 " TO FS1-ALTKEY1-1-20. IX2094.2 185400 MOVE "VVVVVVVVVV380ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 185500 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 185600 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 185700 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 185800 START-TEST-GF-25. IX2094.2 185900* IX2094.2 186000* START-TEST-GF-25 - THE START STATEMENT USES AN OPERAND IN THE IX2094.2 186100* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 186200* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2094.2 186300* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 186400* POSITIONS 1 THRU 10 OF THE ALTERNATE KEY) IX2094.2 186500* IS LOADED WITH "022ALTKEY1". NO SUCH RECORD IX2094.2 186600* SHOULD BE IN THE FILE. IF IN THE COMPARSION,IX2094.2 186700* THE LONGER OPERAND IS TRUNCATED ON THE LEFT IX2094.2 186800* INSTEAD OF ON THE RIGHT THE CONTENTS OF IX2094.2 186900* THE DATA ITEM WILL MATCH A RECORD IN THE IX2094.2 187000* FILE. THIS TEST EXPECTS THE LONGER OPERAND IX2094.2 187100* TO BE TRUNCATED ON THE RIGHT CAUSING NO IX2094.2 187200* DATA ITEM MATCH AND RESULTING IN AN INVALID IX2094.2 187300* KEY CONDITION WHEN THE START IS EXECUTED. IX2094.2 187400* IX2094.2 187500 START IX-FS1 IX2094.2 187600 KEY IS EQUAL TO IX-FS1-ALTKEY1-1-10 IX2094.2 187700 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2094.2 187800 GO TO START-PASS-GF-25. IX2094.2 187900 MOVE FS1-STATUS TO FILESTATUS (7). IX2094.2 188000 READ IX-FS1 AT END IX2094.2 188100 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 188200 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 188300 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 188400 PERFORM FAIL. IX2094.2 188500 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 188600 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 188700 GO TO START-WRITE-GF-25. IX2094.2 188800 START-PASS-GF-25. IX2094.2 188900 PERFORM PASS. IX2094.2 189000 GO TO START-WRITE-GF-25. IX2094.2 189100 START-DELETE-GF-25. IX2094.2 189200 PERFORM DE-LETE. IX2094.2 189300 START-WRITE-GF-25. IX2094.2 189400 PERFORM PRINT-DETAIL. IX2094.2 189500 START-INIT-GF-26. IX2094.2 189600 MOVE "START-TEST-GF-26" TO PAR-NAME. IX2094.2 189700 PERFORM START-INITIALIZE-RECORD. IX2094.2 189800 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 189900 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 190000 MOVE "**" TO FILESTATUS (8) IX2094.2 190100 GO TO START-DELETE-GF-26. IX2094.2 190200 MOVE "BBBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2 190300 MOVE "EEEEEEEEEE002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 190400 MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 190500 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 190600 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 190700 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 190800 START-TEST-GF-26. IX2094.2 190900* IX2094.2 191000* START-TEST-GF-26 - THIS TEST USES AN OPERAND IN THE IX2094.2 191100* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 191200* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2094.2 191300* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 191400* (POSITIONS 1 THRU 10 OF THE RECORD KEY) IS IX2094.2 191500* LOADED WITH "EEEEEEEEEE". THIS KEY VALUE IX2094.2 191600* IS LOWER THAN ANY ALTERNATE KEY VALUE IN IX2094.2 191700* POSITION 1 THRU 10 EXISTING IN THE FILE IX2094.2 191800* THEREFORE AN INVALID KEY CONDITION IS IX2094.2 191900* EXPECTED WHEN THE START STATEMENT IS IX2094.2 192000* EXECUTED. IX2094.2 192100* IX2094.2 192200 START IX-FS1 IX2094.2 192300 KEY IS EQUAL TO IX-FS1-ALTKEY1-1-10 IX2094.2 192400 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2094.2 192500 GO TO START-PASS-GF-26. IX2094.2 192600 MOVE FS1-STATUS TO FILESTATUS (8). IX2094.2 192700 READ IX-FS1 AT END IX2094.2 192800 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 192900 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 193000 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 193100 PERFORM FAIL. IX2094.2 193200 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 193300 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 193400 GO TO START-WRITE-GF-26. IX2094.2 193500 START-PASS-GF-26. IX2094.2 193600 PERFORM PASS. IX2094.2 193700 GO TO START-WRITE-GF-26. IX2094.2 193800 START-DELETE-GF-26. IX2094.2 193900 PERFORM DE-LETE. IX2094.2 194000 START-WRITE-GF-26. IX2094.2 194100 PERFORM PRINT-DETAIL. IX2094.2 194200 START-INIT-GF-27. IX2094.2 194300 MOVE "START-TEST-GF-27" TO PAR-NAME. IX2094.2 194400 PERFORM START-INITIALIZE-RECORD. IX2094.2 194500 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 194600 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 194700 MOVE "**" TO FILESTATUS (9) IX2094.2 194800 GO TO START-DELETE-GF-27. IX2094.2 194900 MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2 195000 MOVE "YYYYYZYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 195100 MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 195200 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 195300 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 195400 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 195500 START-TEST-GF-27. IX2094.2 195600* IX2094.2 195700* START-TEST-GF-27 - THIS TEST USES AN OPERAND IN THE IX2094.2 195800* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 195900* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2094.2 196000* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 196100* (POSITIONS 1 THRU 10 OF THE RECORD KEY) IS IX2094.2 196200* LOADED WITH "YYYYYZYYYY". THIS KEY VALUE IX2094.2 196300* IS GREATER THAN ANY ALTERNATE KEY VALUE IN IX2094.2 196400* POSITION 1 THRU 10 EXISTING IN THE FILE IX2094.2 196500* THEREFORE AN INVALID KEY CONDITION IS IX2094.2 196600* EXPECTED WHEN THE START STATEMENT IS IX2094.2 196700* EXECUTED. IX2094.2 196800* IX2094.2 196900 START IX-FS1 IX2094.2 197000 KEY IS EQUAL TO IX-FS1-ALTKEY1-1-10 IX2094.2 197100 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (9) IX2094.2 197200 GO TO START-PASS-GF-27. IX2094.2 197300 MOVE FS1-STATUS TO FILESTATUS (9). IX2094.2 197400 READ IX-FS1 AT END IX2094.2 197500 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 197600 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 197700 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 197800 PERFORM FAIL. IX2094.2 197900 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 198000 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 198100 GO TO START-WRITE-GF-27. IX2094.2 198200 START-PASS-GF-27. IX2094.2 198300 PERFORM PASS. IX2094.2 198400 GO TO START-WRITE-GF-27. IX2094.2 198500 START-DELETE-GF-27. IX2094.2 198600 PERFORM DE-LETE. IX2094.2 198700 START-WRITE-GF-27. IX2094.2 198800 PERFORM PRINT-DETAIL. IX2094.2 198900 IX2094.2 199000 CLOSE IX-FS1. IX2094.2 199100 IX2094.2 199200 START-INIT-FILE-STATUS-2. IX2094.2 199300 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 199400 MOVE "START-TEST-GF-28" TO PAR-NAME. IX2094.2 199500* IX2094.2 199600* THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS IX2094.2 199700* CAPTURED FROM THE LAST NINE TSTS. IX2094.2 199800* IX2094.2 199900 START-TEST-GF-28. IX2094.2 200000 IF FILESTATUS (1) EQUAL TO "**" IX2094.2 200100 PERFORM DE-LETE IX2094.2 200200 GO TO START-WRITE-GF-28. IX2094.2 200300* IX2094.2 200400* START-TEST-GF-28 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 200500* RESULTING FROM START-TEST-GF-19. THE FILE IX2094.2 200600* STATUS CONTENTS IS EXPECTED TO BE "00". IX2094.2 200700* IX2094.2 200800 IF FILESTATUS (1) EQUAL TO "00" IX2094.2 200900 PERFORM PASS IX2094.2 201000 ELSE IX2094.2 201100 MOVE "IX-3; 1.3.4 (1) A FROM START-TEST-GF-19 " TO RE-MARKIX2094.2 201200 PERFORM FAIL IX2094.2 201300 MOVE "00" TO CORRECT-A IX2094.2 201400 MOVE FILESTATUS (1) TO COMPUTED-A. IX2094.2 201500 START-WRITE-GF-28. IX2094.2 201600 PERFORM PRINT-DETAIL. IX2094.2 201700 START-TEST-GF-29. IX2094.2 201800 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 201900 MOVE "START-TEST-GF-29" TO PAR-NAME. IX2094.2 202000 IF FILESTATUS (2) EQUAL TO "**" IX2094.2 202100 PERFORM DE-LETE IX2094.2 202200 GO TO START-WRITE-GF-29. IX2094.2 202300* IX2094.2 202400* START-TEST-GF-29 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 202500* RESULTING FROM START-TEST-GF-20. THE FILE IX2094.2 202600* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 202700* IX2094.2 202800 IF FILESTATUS (2) EQUAL TO "23" IX2094.2 202900 PERFORM PASS IX2094.2 203000 ELSE PERFORM FAIL IX2094.2 203100 MOVE "IX-4; 1.3.4 (3) C ; SEE START-TEST-GF-20 " TO RE-MARKIX2094.2 203200 MOVE "23" TO CORRECT-A IX2094.2 203300 MOVE FILESTATUS (2) TO COMPUTED-A. IX2094.2 203400 START-WRITE-GF-29. IX2094.2 203500 PERFORM PRINT-DETAIL. IX2094.2 203600 START-TEST-GF-30. IX2094.2 203700 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 203800 MOVE "START-TEST-GF-30" TO PAR-NAME. IX2094.2 203900 IF FILESTATUS (3) EQUAL TO "**" IX2094.2 204000 PERFORM DE-LETE IX2094.2 204100 GO TO START-WRITE-GF-30. IX2094.2 204200* IX2094.2 204300* START-TEST-GF-30 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 204400* RESULTING FROM START-TEST-GF-21. THE FILE IX2094.2 204500* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 204600* IX2094.2 204700 IF FILESTATUS (3) EQUAL TO "23" IX2094.2 204800 PERFORM PASS IX2094.2 204900 ELSE PERFORM FAIL IX2094.2 205000 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-21 " TO RE-MARKIX2094.2 205100 MOVE "23" TO CORRECT-A IX2094.2 205200 MOVE FILESTATUS (3) TO COMPUTED-A. IX2094.2 205300 START-WRITE-GF-30. IX2094.2 205400 PERFORM PRINT-DETAIL. IX2094.2 205500 START-TEST-GF-31. IX2094.2 205600 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 205700 MOVE "START-TEST-GF-31" TO PAR-NAME. IX2094.2 205800 IF FILESTATUS (4) EQUAL TO "**" IX2094.2 205900 PERFORM DE-LETE IX2094.2 206000 GO TO START-WRITE-GF-31. IX2094.2 206100* IX2094.2 206200* START-TEST-GF-31 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 206300* RESULTING FROM START-TEST-GF-22. THE FILE IX2094.2 206400* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 206500* IX2094.2 206600 IF FILESTATUS (4) EQUAL TO "23" IX2094.2 206700 PERFORM PASS IX2094.2 206800 ELSE PERFORM FAIL IX2094.2 206900 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-22 " TO RE-MARKIX2094.2 207000 MOVE "23" TO CORRECT-A IX2094.2 207100 MOVE FILESTATUS (4) TO COMPUTED-A. IX2094.2 207200 START-WRITE-GF-31. IX2094.2 207300 PERFORM PRINT-DETAIL. IX2094.2 207400 START-TEST-GF-32. IX2094.2 207500 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 207600 MOVE "START-TEST-GF-32" TO PAR-NAME. IX2094.2 207700 IF FILESTATUS (5) EQUAL TO "**" IX2094.2 207800 PERFORM DE-LETE IX2094.2 207900 GO TO START-WRITE-GF-32. IX2094.2 208000* IX2094.2 208100* START-TEST-GF.05 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 208200* RESULTING FROM START-TEST-GF-23. THE FILE IX2094.2 208300* STATUS CONTENTS IS EXPECTED TO BE "00" IX2094.2 208400* IX2094.2 208500 IF FILESTATUS (5) EQUAL TO "00" IX2094.2 208600 PERFORM PASS IX2094.2 208700 ELSE PERFORM FAIL IX2094.2 208800 MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-23 " TO RE-MARKIX2094.2 208900 MOVE "00" TO CORRECT-A IX2094.2 209000 MOVE FILESTATUS (5) TO COMPUTED-A. IX2094.2 209100 START-WRITE-GF-32. IX2094.2 209200 PERFORM PRINT-DETAIL. IX2094.2 209300 START-TEST-GF-33. IX2094.2 209400 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 209500 MOVE "START-TEST-GF-33" TO PAR-NAME. IX2094.2 209600 IF FILESTATUS (6) EQUAL TO "**" IX2094.2 209700 PERFORM DE-LETE IX2094.2 209800 GO TO START-WRITE-GF-33. IX2094.2 209900* IX2094.2 210000* START-TEST-GF-33 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 210100* RESULTING FROM START-TEST-GF-24. THE FILE IX2094.2 210200* STATUS CONTENTS IS EXPECTED TO BE "00" IX2094.2 210300* IX2094.2 210400 IF FILESTATUS (6) EQUAL TO "00" IX2094.2 210500 PERFORM PASS IX2094.2 210600 ELSE PERFORM FAIL IX2094.2 210700 MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-24 " TO RE-MARKIX2094.2 210800 MOVE "00" TO CORRECT-A IX2094.2 210900 MOVE FILESTATUS (6) TO COMPUTED-A. IX2094.2 211000 START-WRITE-GF-33. IX2094.2 211100 PERFORM PRINT-DETAIL. IX2094.2 211200 START-TEST-GF-34. IX2094.2 211300 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 211400 MOVE "START-TEST-GF-34" TO PAR-NAME. IX2094.2 211500 IF FILESTATUS (7) EQUAL TO "**" IX2094.2 211600 PERFORM DE-LETE IX2094.2 211700 GO TO START-WRITE-GF-34. IX2094.2 211800* IX2094.2 211900* START-TEST-GF-34 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 212000* RESULTING FROM START-TEST-GF-25. THE FILE IX2094.2 212100* STATUS CONTENTS IS EXPECTED TO BE "23" IX2094.2 212200* IX2094.2 212300 IF FILESTATUS (7) EQUAL TO "23" IX2094.2 212400 PERFORM PASS IX2094.2 212500 ELSE PERFORM FAIL IX2094.2 212600 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-25 " TO RE-MARKIX2094.2 212700 MOVE "23" TO CORRECT-A IX2094.2 212800 MOVE FILESTATUS (7) TO COMPUTED-A. IX2094.2 212900 START-WRITE-GF-34. IX2094.2 213000 PERFORM PRINT-DETAIL. IX2094.2 213100 START-TEST-GF-35. IX2094.2 213200 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 213300 MOVE "START-TEST-GF-35" TO PAR-NAME. IX2094.2 213400 IF FILESTATUS (8) EQUAL TO "**" IX2094.2 213500 PERFORM DE-LETE IX2094.2 213600 GO TO START-WRITE-GF-35. IX2094.2 213700* IX2094.2 213800* START-TEST-GF-35 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 213900* RESULTING FROM START-TEST-GF-26. THE FILE IX2094.2 214000* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 214100* IX2094.2 214200 IF FILESTATUS (8) EQUAL TO "23" IX2094.2 214300 PERFORM PASS IX2094.2 214400 ELSE PERFORM FAIL IX2094.2 214500 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-26 " TO RE-MARKIX2094.2 214600 MOVE "23" TO CORRECT-A IX2094.2 214700 MOVE FILESTATUS (8) TO COMPUTED-A. IX2094.2 214800 START-WRITE-GF-35. IX2094.2 214900 PERFORM PRINT-DETAIL. IX2094.2 215000 START-TEST-GF-36. IX2094.2 215100 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 215200 MOVE "START-TEST-GF-36" TO PAR-NAME. IX2094.2 215300 IF FILESTATUS (9) EQUAL TO "**" IX2094.2 215400 PERFORM DE-LETE IX2094.2 215500 GO TO START-WRITE-GF-36. IX2094.2 215600* IX2094.2 215700* START-TEST-GF-36 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 215800* RESULTING FROM START-TEST-GF-27. THE FILE IX2094.2 215900* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 216000* IX2094.2 216100 IF FILESTATUS (9) EQUAL TO "23" IX2094.2 216200 PERFORM PASS IX2094.2 216300 ELSE PERFORM FAIL IX2094.2 216400 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-27 " TO RE-MARKIX2094.2 216500 MOVE "23" TO CORRECT-A IX2094.2 216600 MOVE FILESTATUS (9) TO COMPUTED-A. IX2094.2 216700 START-WRITE-GF-36. IX2094.2 216800 PERFORM PRINT-DETAIL. IX2094.2 216900 IX2094.2 217000 IX2094.2 217100 START-INIT-GF-37-ETC. IX2094.2 217200 OPEN INPUT IX-FS1. IX2094.2 217300 MOVE "STRT EQ ALTKY W/DUP" TO FEATURE. IX2094.2 217400 MOVE "START-TEST-GF-37" TO PAR-NAME. IX2094.2 217500 MOVE "********************" TO HOLD-FILESTATUS-RECORD. IX2094.2 217600* IX2094.2 217700* THIS TEST TESTS THE "START -- EQUAL TO" FOR PROPER POSITIONING IX2094.2 217800* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT. IX2094.2 217900* START-TEST-007 USES ONLY THE ALTERNATE RECORD KEY WITH DUPLI- IX2094.2 218000* CATES OPTION (ALTERNATE-KEY2) FOR ESTABLISHING IX2094.2 218100* THE CURRENT RECORD POINTER FOR THE FILE. THE FOLLOWING IS A IX2094.2 218200* SUMMARY OF THE TEST CONDITIONS AND THE EXPECTED ACTION TO BE IX2094.2 218300* TAKEN FOR THE TESTS. IX2094.2 218400* IX2094.2 218500* CONDITIONS (CONTENTS OF KEY) / ACTION IX2094.2 218600* IX2094.2 218700* START-TEST-GF-37 - EQUAL A RECORD IN FILE / RECORD FOUND IX2094.2 218800* START-TEST-GF-38 - BETWEEN 2 EXISTING KEY VALUES / INVALID KEYIX2094.2 218900* START-TEST-GF-39 - LESS THAN FIRST FILE RECORD / INVALID KEY IX2094.2 219000* START-TEST-GF-40 - GREATER THAN LAST FILE RECORD / INVALID KEYIX2094.2 219100* START-TEST-GF-41 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2094.2 219200* START-TEST-GF-42 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2094.2 219300* START-TEST-GF-43 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2094.2 219400* START-TEST-GF-44 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2094.2 219500* START-TEST-GF-45 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEY IX2094.2 219600* IX2094.2 219700* BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2094.2 219800* THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2094.2 219900* IF AN INVALID KEY IS EXPECTED FROM THE TEST, THE KEYS IX2094.2 220000* ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE IX2094.2 220100* START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD MATCH IX2094.2 220200* RECORDS IN THE FILE. IF A KEY MATCH IS EXPECTED FROM IX2094.2 220300* THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT IX2094.2 220400* PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH IX2094.2 220500* VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE. THE FILE IX2094.2 220600* STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2094.2 220700* IX2094.2 220800 START-INIT-GF-37. IX2094.2 220900 MOVE "START-TEST-GF-37" TO PAR-NAME. IX2094.2 221000 PERFORM START-INITIALIZE-RECORD. IX2094.2 221100 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 221200 MOVE "**" TO FILESTATUS (1) IX2094.2 221300 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 221400 GO TO START-DELETE-GF-37. IX2094.2 221500 MOVE "CCCCCDDDDD022" TO FS1-RECKEY-1-13. IX2094.2 221600 MOVE "EEEEEFFFFF022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 221700 MOVE "VVVVVVVVUU376ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 221800 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 221900 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 222000 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 222100 START-TEST-GF-37. IX2094.2 222200* IX2094.2 222300* START-TEST-GF-37 - THE START SHOULD FIND A RECORD IN THE FILE IX2094.2 222400* WHICH HAS AN ALTERNATE RECORD KEY VALUE OF IX2094.2 222500* VVVVVVVVUU376ALTKEY2 (RECORD NUMBER 12). IX2094.2 222600* IX2094.2 222700 START IX-FS1 IX2094.2 222800 KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2 222900 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2094.2 223000 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 223100 GO TO START-FAIL-GF-37. IX2094.2 223200 MOVE FS1-STATUS TO FILESTATUS (1). IX2094.2 223300 READ IX-FS1 AT END IX2094.2 223400 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 223500 GO TO START-FAIL-GF-37. IX2094.2 223600 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 223700 IF XRECORD-NUMBER (1) EQUAL TO 12 IX2094.2 223800 PERFORM PASS IX2094.2 223900 MOVE SPACE TO RE-MARK IX2094.2 224000 GO TO START-WRITE-GF-37. IX2094.2 224100 MOVE 12 TO RECNO. IX2094.2 224200 PERFORM DISPLAY-ALTERNATE-KEY2. IX2094.2 224300 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 224400 START-FAIL-GF-37. IX2094.2 224500 PERFORM FAIL. IX2094.2 224600 MOVE 12 TO CORRECT-18V0. IX2094.2 224700 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 224800 GO TO START-WRITE-GF-37. IX2094.2 224900 START-DELETE-GF-37. IX2094.2 225000 PERFORM DE-LETE. IX2094.2 225100 START-WRITE-GF-37. IX2094.2 225200 PERFORM PRINT-DETAIL. IX2094.2 225300 START-INIT-GF-38. IX2094.2 225400 MOVE "START-TEST-GF-38" TO PAR-NAME. IX2094.2 225500 PERFORM START-INITIALIZE-RECORD. IX2094.2 225600 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 225700 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 225800 MOVE "**" TO FILESTATUS (2) IX2094.2 225900 GO TO START-DELETE-GF-38. IX2094.2 226000 MOVE "EEEEEEEEFF064" TO FS1-RECKEY-1-13. IX2094.2 226100 MOVE "HHHHHHHIII066ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 226200 MOVE "TTTTTTTSSS335ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 226300 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 226400 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 226500 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 226600 START-TEST-GF-38. IX2094.2 226700* IX2094.2 226800* START-TEST-GF-38- THE START SHOULD NOT FIND A RECORD IN THE IX2094.2 226900* FILE WHICH HAS AN ALTERNATE RECORD KEY VALUE IX2094.2 227000* OF TTTTTTTSSS335ALTKEY2. THIS KEY VALUE IS IX2094.2 227100* SEQUENTIALLY LOCATED BETWEEN TWO CURRENTLY IX2094.2 227200* EXISTING ALTERNATE KEYS IN THE FILE. IX2094.2 227300* IX2094.2 227400 START IX-FS1 IX2094.2 227500 KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2 227600 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2094.2 227700 GO TO START-PASS-GF-38. IX2094.2 227800 MOVE FS1-STATUS TO FILESTATUS (2). IX2094.2 227900 READ IX-FS1 AT END IX2094.2 228000 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 228100 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 228200 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 228300 PERFORM FAIL. IX2094.2 228400 MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2 228500 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 228600 GO TO START-WRITE-GF-38. IX2094.2 228700 START-PASS-GF-38. IX2094.2 228800 PERFORM PASS. IX2094.2 228900 GO TO START-WRITE-GF-38. IX2094.2 229000 START-DELETE-GF-38. IX2094.2 229100 PERFORM DE-LETE. IX2094.2 229200 START-WRITE-GF-38. IX2094.2 229300 PERFORM PRINT-DETAIL. IX2094.2 229400 START-INIT-GF-39. IX2094.2 229500 MOVE "START-TEST-GF-39" TO PAR-NAME. IX2094.2 229600 PERFORM START-INITIALIZE-RECORD. IX2094.2 229700 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 229800 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 229900 MOVE "**" TO FILESTATUS (3) IX2094.2 230000 GO TO START-DELETE-GF-39. IX2094.2 230100 MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2 230200 MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 230300 MOVE "DDDDDDDDDC000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 230400 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 230500 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 230600 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 230700 START-TEST-GF-39. IX2094.2 230800* IX2094.2 230900* START-TEST-GF-39 - THE START STATEMENT SHOULD NOT FIND A IX2094.2 231000* RECORD IN THE FILE WHICH HAS AN ALTERNATE IX2094.2 231100* KEY VALUE OF DDDDDDDDDC000ALTKEY2. THIS KEY IX2094.2 231200* VALUE IS SEQUENTIALLY LOWER THAN ANY IX2094.2 231300* CURRENTLY EXISTING KEY IN THE FILE. IX2094.2 231400* IX2094.2 231500 START IX-FS1 IX2094.2 231600 KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2 231700 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2094.2 231800 GO TO START-PASS-GF-39. IX2094.2 231900 MOVE FS1-STATUS TO FILESTATUS (3). IX2094.2 232000 READ IX-FS1 AT END IX2094.2 232100 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 232200 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 232300 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 232400 PERFORM FAIL. IX2094.2 232500 MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2 232600 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 232700 GO TO START-WRITE-GF-39. IX2094.2 232800 START-PASS-GF-39. IX2094.2 232900 PERFORM PASS. IX2094.2 233000 GO TO START-WRITE-GF-39. IX2094.2 233100 START-DELETE-GF-39. IX2094.2 233200 PERFORM DE-LETE. IX2094.2 233300 START-WRITE-GF-39. IX2094.2 233400 PERFORM PRINT-DETAIL. IX2094.2 233500 START-INIT-GF-40. IX2094.2 233600 MOVE "START-TEST-GF-40" TO PAR-NAME. IX2094.2 233700 PERFORM START-INITIALIZE-RECORD. IX2094.2 233800 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 233900 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 234000 MOVE "**" TO FILESTATUS (4) IX2094.2 234100 GO TO START-DELETE-GF-40. IX2094.2 234200 MOVE "BBBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2 234300 MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 234400 MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 234500 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 234600 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 234700 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 234800 START-TEST-GF-40. IX2094.2 234900* IX2094.2 235000* START-TEST-GF-40 - THE START STATEMENT SHOULD NOT FIND A IX2094.2 235100* RECORD IN THE FILE WHICH HAS AN ALTERNATE IX2094.2 235200* KEY VALUE OF WWWWWWWWWV399ALTKEY2. THIS IX2094.2 235300* VALUE IS SEQUENTIALLY ONE GREATER THAN IX2094.2 235400* ANY ALTERNATE KEY CURRENTLY EXISTING IN IX2094.2 235500* THE FILE. AN INVALID KEY CONDITION IX2094.2 235600* IS EXPECTED WHEN THE START IS EXECUTED. IX2094.2 235700* IX2094.2 235800 START IX-FS1 IX2094.2 235900 KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2 236000 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2094.2 236100 GO TO START-PASS-GF-40. IX2094.2 236200 MOVE FS1-STATUS TO FILESTATUS (4). IX2094.2 236300 READ IX-FS1 AT END IX2094.2 236400 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 236500 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 236600 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 236700 PERFORM FAIL. IX2094.2 236800 MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2 236900 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 237000 GO TO START-WRITE-GF-40. IX2094.2 237100 START-PASS-GF-40. IX2094.2 237200 PERFORM PASS. IX2094.2 237300 GO TO START-WRITE-GF-40. IX2094.2 237400 START-DELETE-GF-40. IX2094.2 237500 PERFORM DE-LETE. IX2094.2 237600 START-WRITE-GF-40. IX2094.2 237700 PERFORM PRINT-DETAIL. IX2094.2 237800 START-INIT-GF-41. IX2094.2 237900 MOVE "START-TEST-GF-41" TO PAR-NAME. IX2094.2 238000 PERFORM START-INITIALIZE-RECORD. IX2094.2 238100 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 238200 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 238300 MOVE "**" TO FILESTATUS (5) IX2094.2 238400 GO TO START-DELETE-GF-41. IX2094.2 238500 MOVE "CCCCCCCCCC038" TO FS1-RECKEY-1-13. IX2094.2 238600 MOVE "IIIIIIIIJJ083ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 238700 MOVE "VUUUUVVVVV362ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 238800 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 238900 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 239000 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 239100 START-TEST-GF-41. IX2094.2 239200* IX2094.2 239300* START-TEST-GF-41 - THE START STATEMENT USES AN OPERAND IX2094.2 239400* IN THE KEY PHRASE WHICH IS NOT THE NAME IX2094.2 239500* OF AN ALTERNATE KEY BUT IS THE NAME OF A IX2094.2 239600* DATA ITEM WHICH IS SUBORDINATE TO THE IX2094.2 239700* ALTERNATE KEY. THE CONTENTS OF THE DATA ITEMIX2094.2 239800* (POSITIONS 1 THRU 5 OF THE ALTERNATE KEY) IX2094.2 239900* IS A UNIQUE KEY VALUE FOR THE FILE. THE IX2094.2 240000* BALANCE OF THE ALTERNATE KEY (POSITIONS 6 IX2094.2 240100* THRU 20) IN NOT A VALID KEY VALUE FOR THE IX2094.2 240200* FILE. THE IX2094.2 240300* RECORD WITH THE ALTERNATE KEY IX2094.2 240400* VUUUUUUUUU362ALTKEY2 (RECORD NUMBER 19) IS IX2094.2 240500* EXPECTED TO BE FOUND. IX2094.2 240600* IX2094.2 240700 START IX-FS1 IX2094.2 240800 KEY IS EQUAL TO IX-FS1-ALTKEY2-1-5 IX2094.2 240900 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2094.2 241000 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 241100 GO TO START-FAIL-GF-41. IX2094.2 241200 MOVE FS1-STATUS TO FILESTATUS (5). IX2094.2 241300 READ IX-FS1 AT END IX2094.2 241400 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 241500 GO TO START-FAIL-GF-41. IX2094.2 241600 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 241700 IF XRECORD-NUMBER (1) EQUAL TO 19 IX2094.2 241800 PERFORM PASS IX2094.2 241900 GO TO START-WRITE-GF-41. IX2094.2 242000 MOVE 19 TO RECNO. IX2094.2 242100 PERFORM DISPLAY-ALTERNATE-KEY2. IX2094.2 242200 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 242300 START-FAIL-GF-41. IX2094.2 242400 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 242500 PERFORM FAIL. IX2094.2 242600 MOVE 19 TO CORRECT-18V0. IX2094.2 242700 GO TO START-WRITE-GF-41. IX2094.2 242800 START-DELETE-GF-41. IX2094.2 242900 PERFORM DE-LETE. IX2094.2 243000 START-WRITE-GF-41. IX2094.2 243100 PERFORM PRINT-DETAIL. IX2094.2 243200 START-INIT-GF-42. IX2094.2 243300 MOVE "START-TEST-GF-42" TO PAR-NAME. IX2094.2 243400 PERFORM START-INITIALIZE-RECORD. IX2094.2 243500 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 243600 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 243700 MOVE "**" TO FILESTATUS (6) IX2094.2 243800 GO TO START-DELETE-GF-42. IX2094.2 243900 MOVE "TTTTTTTTTT390" TO FS1-RECKEY-1-13. IX2094.2 244000 MOVE "XYYYYYYYYY399ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 244100 MOVE "EEEEEDDDDD010ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 244200 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 244300 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 244400 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 244500 START-TEST-GF-42. IX2094.2 244600* IX2094.2 244700* START-TEST-GF-42 - THE START STATEMENT USES AN OPERAND IN THE IX2094.2 244800* KEY PHRASE WHICH IS NOT THE NAME OF AN ALTER-IX2094.2 244900* NATE KEY BUT IS THE NAME OF A DATA ITEM THAT IX2094.2 245000* SUBORDINATE TO THE ALTERNATE KEY. THE CONTENTIX2094.2 245100* OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE IX2094.2 245200* ALTERNATE KEY) IS A DUPLICATE OF THE FIRST IX2094.2 245300* 5 POSITIONS OF 5 OTHER RECORDS IN THE FILE. IX2094.2 245400* THIS TEST EXPECTS THE RECORD POINTER IX2094.2 245500* TO BE POSITIONED TO ALTERNATE KEY IX2094.2 245600* EEEEEDDDDD020ALTKEY2 (RECORD NO 195) WHICH IX2094.2 245700* IS THE FIRST RECORD ALPHABETICALLY IN THE IX2094.2 245800* FILE THAT CONTAINS EEEEE IN THE FIRST 5 IX2094.2 245900* POSITIONS OF THE KEY. NOTE THIS IS ALSO IX2094.2 246000* A RECORD IN WHICH THE VALUE OF THE FULL IX2094.2 246100* 20 POSITION KEY IS A DUPLICATE OF ANOTHER IX2094.2 246200* RECORD (RECORD NUMBER 191). THE ALTERNATE IX2094.2 246300* KEY WAS LOADED WITH THE VALUE IX2094.2 246400* EEEEEDDDDD010ALTKEY2 (KEY FOR RECORD NUMBER IX2094.2 246500* 195) BEFORE THE START WAS EXECUTED. IX2094.2 246600* IX2094.2 246700 START IX-FS1 IX2094.2 246800 KEY IS EQUAL TO IX-FS1-ALTKEY2-1-5 IX2094.2 246900 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (6) IX2094.2 247000 MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2 247100 GO TO START-FAIL-GF-42. IX2094.2 247200 MOVE FS1-STATUS TO FILESTATUS (6). IX2094.2 247300 READ IX-FS1 AT END IX2094.2 247400 MOVE "AT END ON READ" TO COMPUTED-A IX2094.2 247500 GO TO START-FAIL-GF-42. IX2094.2 247600 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 247700 IF XRECORD-NUMBER (1) EQUAL TO 195 IX2094.2 247800 PERFORM PASS IX2094.2 247900 GO TO START-WRITE-GF-42. IX2094.2 248000 MOVE 65 TO RECNO. IX2094.2 248100 PERFORM DISPLAY-ALTERNATE-KEY2. IX2094.2 248200 MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2 248300 START-FAIL-GF-42. IX2094.2 248400 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 248500 PERFORM FAIL. IX2094.2 248600 MOVE 195 TO CORRECT-18V0. IX2094.2 248700 GO TO START-WRITE-GF-42. IX2094.2 248800 START-DELETE-GF-42. IX2094.2 248900 PERFORM DE-LETE. IX2094.2 249000 START-WRITE-GF-42. IX2094.2 249100 PERFORM PRINT-DETAIL. IX2094.2 249200 START-INIT-GF-43. IX2094.2 249300 MOVE "START-TEST-GF-43" TO PAR-NAME. IX2094.2 249400 PERFORM START-INITIALIZE-RECORD. IX2094.2 249500 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 249600 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 249700 MOVE "**" TO FILESTATUS (7) IX2094.2 249800 GO TO START-DELETE-GF-43. IX2094.2 249900 MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2094.2 250000 MOVE "FFFFFFFFFG022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 250100 MOVE "380ALTKEY2 " TO FS1-ALTKEY2-1-20. IX2094.2 250200 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 250300 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 250400 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 250500 START-TEST-GF-43. IX2094.2 250600* IX2094.2 250700* START-TEST-GF-43 - THE START STATEMENT USES AN OPERAND IN THE IX2094.2 250800* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 250900* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2094.2 251000* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 251100* (POSITIONS 1 THRU 10 OF THE RECORD KEY) IX2094.2 251200* IS LOADED WITH "380ALTKEY2". NO SUCH RECORD IX2094.2 251300* SHOULD BE IN THE FILE. IF IN THE COMPARSION,IX2094.2 251400* THE LONGER OPERAND IS TRUNCATED ON THE LEFT IX2094.2 251500* INSTEAD OF ON THE RIGHT THE CONTENTS OF IX2094.2 251600* THE DATA ITEM WILL MATCH A RECORD IN THE IX2094.2 251700* FILE. THIS TEST EXPECTS THE LONGER OPERAND IX2094.2 251800* TO BE TRUNCATED ON THE RIGHT CAUSING NO IX2094.2 251900* DATA ITEM MATCH AND RESULTING IN AN INVALID IX2094.2 252000* KEY CONDITION WHEN THE START IS EXECUTED. IX2094.2 252100* IX2094.2 252200 START IX-FS1 IX2094.2 252300 KEY IS EQUAL TO IX-FS1-ALTKEY2-1-10 IX2094.2 252400 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2094.2 252500 GO TO START-PASS-GF-43. IX2094.2 252600 MOVE FS1-STATUS TO FILESTATUS (7). IX2094.2 252700 READ IX-FS1 AT END IX2094.2 252800 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 252900 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 253000 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 253100 PERFORM FAIL. IX2094.2 253200 MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2 253300 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 253400 GO TO START-WRITE-GF-43. IX2094.2 253500 START-PASS-GF-43. IX2094.2 253600 PERFORM PASS. IX2094.2 253700 GO TO START-WRITE-GF-43. IX2094.2 253800 START-DELETE-GF-43. IX2094.2 253900 PERFORM DE-LETE. IX2094.2 254000 START-WRITE-GF-43. IX2094.2 254100 PERFORM PRINT-DETAIL. IX2094.2 254200 START-INIT-GF-44. IX2094.2 254300 MOVE "START-TEST-GF-44" TO PAR-NAME. IX2094.2 254400 PERFORM START-INITIALIZE-RECORD. IX2094.2 254500 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 254600 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 254700 MOVE "**" TO FILESTATUS (8) IX2094.2 254800 GO TO START-DELETE-GF-44. IX2094.2 254900 MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2 255000 MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 255100 MOVE "DDDDDDDDDC000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 255200 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 255300 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 255400 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 255500 START-TEST-GF-44. IX2094.2 255600* IX2094.2 255700* START-TEST-GF-44 - THIS TEST USES AN OPERAND IN THE IX2094.2 255800* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 255900* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2094.2 256000* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 256100* (POSITIONS 1 THRU 10 OF THE ALTERNATE KEY) ISIX2094.2 256200* LOADED WITH "DDDDDDDDDC". THIS KEY VALUE IX2094.2 256300* IS LOWER THAN ANY ALTERNATE KEY VALUE IN IX2094.2 256400* POSITION 1 THRU 10 EXISTING IN THE FILE IX2094.2 256500* THEREFORE AN INVALID KEY CONDITION IS IX2094.2 256600* EXPECTED WHEN THE START STATEMENT IS IX2094.2 256700* EXECUTED. IX2094.2 256800* IX2094.2 256900 START IX-FS1 IX2094.2 257000 KEY IS EQUAL TO IX-FS1-ALTKEY2-1-10 IX2094.2 257100 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2094.2 257200 GO TO START-PASS-GF-44. IX2094.2 257300 MOVE FS1-STATUS TO FILESTATUS (8). IX2094.2 257400 READ IX-FS1 AT END IX2094.2 257500 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 257600 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 257700 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 257800 PERFORM FAIL. IX2094.2 257900 MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2 258000 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 258100 GO TO START-WRITE-GF-44. IX2094.2 258200 START-PASS-GF-44. IX2094.2 258300 PERFORM PASS. IX2094.2 258400 GO TO START-WRITE-GF-44. IX2094.2 258500 START-DELETE-GF-44. IX2094.2 258600 PERFORM DE-LETE. IX2094.2 258700 START-WRITE-GF-44. IX2094.2 258800 PERFORM PRINT-DETAIL. IX2094.2 258900 START-INIT-GF-45. IX2094.2 259000 MOVE "START-TEST-GF-45" TO PAR-NAME. IX2094.2 259100 PERFORM START-INITIALIZE-RECORD. IX2094.2 259200 IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2 259300 MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2 259400 MOVE "**" TO FILESTATUS (9) IX2094.2 259500 GO TO START-DELETE-GF-45. IX2094.2 259600 MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2 259700 MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2 259800 MOVE "WWWWWWWWWW400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2 259900 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 260000 MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2 260100 MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2 260200 START-TEST-GF-45. IX2094.2 260300* IX2094.2 260400* START-TEST-GF-45 - THIS TEST USES AN OPERAND IN THE IX2094.2 260500* KEY PHRASE OF THE START STATEMENT WHICH IS IX2094.2 260600* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2094.2 260700* NAME. THE CONTENTS OF THE DATA ITEM IX2094.2 260800* (POSITIONS 1 THRU 10 OF THE ALTERNATE KEY) ISIX2094.2 260900* LOADED WITH "WWWWWWWWWW". THIS KEY VALUE IX2094.2 261000* IS GREATER THAN ANY ALTERNATE KEY VALUE IN IX2094.2 261100* POSITION 1 THRU 10 EXISTING IN THE FILE IX2094.2 261200* THEREFORE AN INVALID KEY CONDITION IS IX2094.2 261300* EXPECTED WHEN THE START STATEMENT IS IX2094.2 261400* EXECUTED. IX2094.2 261500* IX2094.2 261600 START IX-FS1 IX2094.2 261700 KEY IS EQUAL TO IX-FS1-ALTKEY2-1-10 IX2094.2 261800 INVALID KEY MOVE FS1-STATUS TO FILESTATUS (9) IX2094.2 261900 GO TO START-PASS-GF-45. IX2094.2 262000 MOVE FS1-STATUS TO FILESTATUS (9). IX2094.2 262100 READ IX-FS1 AT END IX2094.2 262200 MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2 262300 MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2 262400 MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2 262500 PERFORM FAIL. IX2094.2 262600 MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2 262700 MOVE "INVALID KEY" TO CORRECT-A. IX2094.2 262800 GO TO START-WRITE-GF-45. IX2094.2 262900 START-PASS-GF-45. IX2094.2 263000 PERFORM PASS. IX2094.2 263100 GO TO START-WRITE-GF-45. IX2094.2 263200 START-DELETE-GF-45. IX2094.2 263300 PERFORM DE-LETE. IX2094.2 263400 START-WRITE-GF-45. IX2094.2 263500 PERFORM PRINT-DETAIL. IX2094.2 263600 IX2094.2 263700 CLOSE IX-FS1. IX2094.2 263800 IX2094.2 263900 START-INIT-FILE-STATUS-03. IX2094.2 264000 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 264100 MOVE "START-TEST-GF-46" TO PAR-NAME. IX2094.2 264200* IX2094.2 264300* THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS IX2094.2 264400* CAPTURED FROM THE NINE TESTS BEFORE. IX2094.2 264500* IX2094.2 264600 START-TEST-GF-46. IX2094.2 264700 IF FILESTATUS (1) EQUAL TO "**" IX2094.2 264800 PERFORM DE-LETE IX2094.2 264900 GO TO START-WRITE-GF-46. IX2094.2 265000* IX2094.2 265100* START-TEST-GF-046 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 265200* RESULTING FROM START-TEST-GF-37. THE FILE IX2094.2 265300* STATUS CONTENTS IS EXPECTED TO BE "00". IX2094.2 265400* IX2094.2 265500 IF FILESTATUS (1) EQUAL TO "00" IX2094.2 265600 PERFORM PASS IX2094.2 265700 ELSE IX2094.2 265800 MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-37 " TO RE-MARKIX2094.2 265900 PERFORM FAIL IX2094.2 266000 MOVE "00" TO CORRECT-A IX2094.2 266100 MOVE FILESTATUS (1) TO COMPUTED-A. IX2094.2 266200 START-WRITE-GF-46. IX2094.2 266300 PERFORM PRINT-DETAIL. IX2094.2 266400 START-TEST-GF-47. IX2094.2 266500 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 266600 MOVE "START-TEST-GF-47" TO PAR-NAME. IX2094.2 266700 IF FILESTATUS (2) EQUAL TO "**" IX2094.2 266800 PERFORM DE-LETE IX2094.2 266900 GO TO START-WRITE-GF-47. IX2094.2 267000* IX2094.2 267100* START-TEST-GF-47 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 267200* RESULTING FROM START-TEST-GF-38. THE FILE IX2094.2 267300* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 267400* IX2094.2 267500 IF FILESTATUS (2) EQUAL TO "23" IX2094.2 267600 PERFORM PASS IX2094.2 267700 ELSE PERFORM FAIL IX2094.2 267800 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-38 " TO RE-MARKIX2094.2 267900 MOVE "23" TO CORRECT-A IX2094.2 268000 MOVE FILESTATUS (2) TO COMPUTED-A. IX2094.2 268100 START-WRITE-GF-47. IX2094.2 268200 PERFORM PRINT-DETAIL. IX2094.2 268300 START-TEST-GF-48. IX2094.2 268400 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 268500 MOVE "START-TEST-GF-48" TO PAR-NAME. IX2094.2 268600 IF FILESTATUS (3) EQUAL TO "**" IX2094.2 268700 PERFORM DE-LETE IX2094.2 268800 GO TO START-WRITE-GF-48. IX2094.2 268900* IX2094.2 269000* START-TEST-GF-48 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 269100* RESULTING FROM START-TEST-GF-39. THE FILE IX2094.2 269200* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 269300* IX2094.2 269400 IF FILESTATUS (3) EQUAL TO "23" IX2094.2 269500 PERFORM PASS IX2094.2 269600 ELSE PERFORM FAIL IX2094.2 269700 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-39 " TO RE-MARKIX2094.2 269800 MOVE "23" TO CORRECT-A IX2094.2 269900 MOVE FILESTATUS (3) TO COMPUTED-A. IX2094.2 270000 START-WRITE-GF-48. IX2094.2 270100 PERFORM PRINT-DETAIL. IX2094.2 270200 START-TEST-GF-49. IX2094.2 270300 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 270400 MOVE "START-TEST-GF-49" TO PAR-NAME. IX2094.2 270500 IF FILESTATUS (4) EQUAL TO "**" IX2094.2 270600 PERFORM DE-LETE IX2094.2 270700 GO TO START-WRITE-GF-49. IX2094.2 270800* IX2094.2 270900* START-TEST-GF-49 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 271000* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 271100* RESULTING FROM START-TEST-GF-40. THE FILE IX2094.2 271200* IX2094.2 271300 IF FILESTATUS (4) EQUAL TO "23" IX2094.2 271400 PERFORM PASS IX2094.2 271500 ELSE PERFORM FAIL IX2094.2 271600 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-40 " TO RE-MARKIX2094.2 271700 MOVE "23" TO CORRECT-A IX2094.2 271800 MOVE FILESTATUS (4) TO COMPUTED-A. IX2094.2 271900 START-WRITE-GF-49. IX2094.2 272000 PERFORM PRINT-DETAIL. IX2094.2 272100 START-TEST-GF-50. IX2094.2 272200 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 272300 MOVE "START-TEST-GF-50" TO PAR-NAME. IX2094.2 272400 IF FILESTATUS (5) EQUAL TO "**" IX2094.2 272500 PERFORM DE-LETE IX2094.2 272600 GO TO START-WRITE-GF-50. IX2094.2 272700* IX2094.2 272800* START-TEST-GF-50 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 272900* RESULTING FROM START-TEST-GF-41. THE FILE IX2094.2 273000* STATUS CONTENTS IS EXPECTED TO BE "00" IX2094.2 273100* IX2094.2 273200 IF FILESTATUS (5) EQUAL TO "00" IX2094.2 273300 PERFORM PASS IX2094.2 273400 MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-41 " TO RE-MARKIX2094.2 273500 ELSE PERFORM FAIL IX2094.2 273600 MOVE "00" TO CORRECT-A IX2094.2 273700 MOVE FILESTATUS (5) TO COMPUTED-A. IX2094.2 273800 START-WRITE-GF-50. IX2094.2 273900 MOVE "FROM START-TEST-007.05" TO RE-MARK. IX2094.2 274000 PERFORM PRINT-DETAIL. IX2094.2 274100 START-TEST-GF-51. IX2094.2 274200 MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2 274300 MOVE "START-TEST-GF-51" TO PAR-NAME. IX2094.2 274400 IF FILESTATUS (6) EQUAL TO "**" IX2094.2 274500 PERFORM DE-LETE IX2094.2 274600 GO TO START-WRITE-GF-51. IX2094.2 274700* IX2094.2 274800* START-TEST-GF-51 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 274900* RESULTING FROM START-TEST-GF-42. THE FILE IX2094.2 275000* STATUS CONTENTS IS EXPECTED TO BE "00" IX2094.2 275100* IX2094.2 275200 IF FILESTATUS (6) EQUAL TO "00" IX2094.2 275300 PERFORM PASS IX2094.2 275400 ELSE PERFORM FAIL IX2094.2 275500 MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-42 " TO RE-MARKIX2094.2 275600 MOVE "00" TO CORRECT-A IX2094.2 275700 MOVE FILESTATUS (6) TO COMPUTED-A. IX2094.2 275800 START-WRITE-GF-51. IX2094.2 275900 PERFORM PRINT-DETAIL. IX2094.2 276000 START-TEST-GF-52. IX2094.2 276100 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 276200 MOVE "START-TEST-GF-52" TO PAR-NAME. IX2094.2 276300 IF FILESTATUS (7) EQUAL TO "**" IX2094.2 276400 PERFORM DE-LETE IX2094.2 276500 GO TO START-WRITE-GF-52. IX2094.2 276600* IX2094.2 276700* START-TEST-GF-52 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 276800* RESULTING FROM START-TEST-GF-43. THE FILE IX2094.2 276900* STATUS CONTENTS IS EXPECTED TO BE "23" IX2094.2 277000* IX2094.2 277100 IF FILESTATUS (7) EQUAL TO "23" IX2094.2 277200 PERFORM PASS IX2094.2 277300 ELSE PERFORM FAIL IX2094.2 277400 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-43 " TO RE-MARKIX2094.2 277500 MOVE "23" TO CORRECT-A IX2094.2 277600 MOVE FILESTATUS (7) TO COMPUTED-A. IX2094.2 277700 START-WRITE-GF-52. IX2094.2 277800 PERFORM PRINT-DETAIL. IX2094.2 277900 START-TEST-GF-53. IX2094.2 278000 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 278100 MOVE "START-TEST-GF-53" TO PAR-NAME. IX2094.2 278200 IF FILESTATUS (8) EQUAL TO "**" IX2094.2 278300 PERFORM DE-LETE IX2094.2 278400 GO TO START-WRITE-GF-53. IX2094.2 278500* IX2094.2 278600* START-TEST-GF-53 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 278700* RESULTING FROM START-TEST-GF-44. THE FILE IX2094.2 278800* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 278900* IX2094.2 279000 IF FILESTATUS (8) EQUAL TO "23" IX2094.2 279100 PERFORM PASS IX2094.2 279200 ELSE PERFORM FAIL IX2094.2 279300 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-44 " TO RE-MARKIX2094.2 279400 MOVE "23" TO CORRECT-A IX2094.2 279500 MOVE FILESTATUS (8) TO COMPUTED-A. IX2094.2 279600 START-WRITE-GF-53. IX2094.2 279700 PERFORM PRINT-DETAIL. IX2094.2 279800 START-TEST-GF-54. IX2094.2 279900 MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2 280000 MOVE "START-TEST-GF-54" TO PAR-NAME. IX2094.2 280100 IF FILESTATUS (9) EQUAL TO "**" IX2094.2 280200 PERFORM DE-LETE IX2094.2 280300 GO TO START-WRITE-GF-54. IX2094.2 280400* IX2094.2 280500* START-TEST-GF-54 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2094.2 280600* RESULTING FROM START-TEST-GF-45. THE FILE IX2094.2 280700* STATUS CONTENTS IS EXPECTED TO BE "23". IX2094.2 280800* IX2094.2 280900 IF FILESTATUS (9) EQUAL TO "23" IX2094.2 281000 PERFORM PASS IX2094.2 281100 ELSE PERFORM FAIL IX2094.2 281200 MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-45 " TO RE-MARKIX2094.2 281300 MOVE "23" TO CORRECT-A IX2094.2 281400 MOVE FILESTATUS (9) TO COMPUTED-A. IX2094.2 281500 START-WRITE-GF-54. IX2094.2 281600 PERFORM PRINT-DETAIL. IX2094.2 281700*START-WRITE-008. IX2094.2 281800 GO TO START-TEST-COMPLETE. IX2094.2 281900*START-CLOSE-FILES. IX2094.2 282000* GO TO START-TEST-COMPLETE. IX2094.2 282100 START-INITIALIZE-RECORD. IX2094.2 282200 MOVE "GGGGGGGGGG200" TO FS1-RECKEY-1-13. IX2094.2 282300 MOVE ZERO TO INIT-FLAG. IX2094.2 282400 MOVE 9999 TO XRECORD-NUMBER (1). IX2094.2 282500 MOVE SPACE TO IX-FS1R1-F-G-240. IX2094.2 282600 MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2 282700 START IX-FS1 KEY IS EQUAL TO IX-FS1-KEY INVALID KEY IX2094.2 282800 MOVE 1 TO INIT-FLAG. IX2094.2 282900 READ IX-FS1 INTO FILE-RECORD-INFO (1) IX2094.2 283000 AT END MOVE 1 TO INIT-FLAG. IX2094.2 283100 IF XRECORD-NUMBER (1) NOT EQUAL TO 100 IX2094.2 283200 MOVE 1 TO INIT-FLAG. IX2094.2 283300 MOVE "**" TO FS1-STATUS. IX2094.2 283400 DISPLAY-RECORD-KEYS. IX2094.2 283500 MOVE XRECORD-KEY (1) TO WRK-FS1-RECKEY. IX2094.2 283600 MOVE FS1-RECKEY-1-13 TO COMPUTED-A. IX2094.2 283700 MOVE RECKEY-VALUE (RECNO) TO CORRECT-A. IX2094.2 283800 MOVE SPACE TO P-OR-F. IX2094.2 283900 MOVE "RECORD KEY VALUES" TO RE-MARK. IX2094.2 284000 PERFORM PRINT-DETAIL. IX2094.2 284100 DISPLAY-ALTERNATE-KEY1. IX2094.2 284200 MOVE ALTERNATE-KEY1 (1) TO WRK-FS1-ALTKEY1. IX2094.2 284300 MOVE FS1-ALTKEY1-1-20 TO COMPUTED-A. IX2094.2 284400 MOVE ALTKEY1-VALUE (RECNO) TO CORRECT-A. IX2094.2 284500 MOVE SPACE TO P-OR-F. IX2094.2 284600 MOVE "ALTERNATE RECORD KEY1 VALUES" TO RE-MARK. IX2094.2 284700 PERFORM PRINT-DETAIL. IX2094.2 284800 DISPLAY-ALTERNATE-KEY2. IX2094.2 284900 MOVE ALTERNATE-KEY2 (1) TO WRK-FS1-ALTKEY2. IX2094.2 285000 MOVE FS1-ALTKEY2-1-20 TO COMPUTED-A. IX2094.2 285100 MOVE ALTKEY2-VALUE (RECNO) TO CORRECT-A. IX2094.2 285200 MOVE SPACE TO P-OR-F. IX2094.2 285300 MOVE "ALTERNATE RECORD KEY2 VALUES" TO RE-MARK. IX2094.2 285400 PERFORM PRINT-DETAIL. IX2094.2 285500 START-TEST-COMPLETE. IX2094.2 285600 EXIT. IX2094.2 285700 CCVS-EXIT SECTION. IX2094.2 285800 CCVS-999999. IX2094.2 285900 GO TO CLOSE-FILES. IX2094.2
¤ 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.0.136Bemerkung: (vorverarbeitet am 2026-06-08) ¤*Bot Zugriff |
|
||||||||||||||
2026-06-09