Quelle ix209a.cob
Sprache: Cobol
000100 IDENTIFICATION DIVISION . IX2094.2PROGRAM-ID . IX2094.2000400**************************************************************** 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 ENVIRONMENT DIVISION . IX2094.2CONFIGURATION SECTION . IX2094.2SOURCE-COMPUTER . IX2094.2OBJECT-COMPUTER . IX2094.2INPUT-OUTPUT SECTION . IX2094.2FILE-CONTROL . IX2094.2SELECT RAW-DATA ASSIGN TO IX2094.2"C0098" IX2094.2ORGANIZATION IS INDEXED IX2094.2ACCESS MODE IS RANDOM IX2094.2RECORD KEY IS RAW-DATA-KEY. IX2094.2SELECT PRINT-FILE ASSIGN TO IX2094.2"C0085" . IX2094.2SELECT IX-FS1 IX2094.2ASSIGN TO IX2094.2"C0036" IX2094.2"C0068" IX2094.2ACCESS MODE IS SEQUENTIAL IX2094.2ORGANIZATION IS INDEXED IX2094.2RECORD KEY IS IX-FS1-KEY IX2094.2ALTERNATE RECORD KEY IS IX-FS1-ALTKEY1 IX2094.2ALTERNATE RECORD KEY IS IX-FS1-ALTKEY2 WITH DUPLICATES IX2094.2FILE STATUS IS FS1-STATUS. IX2094.2DATA DIVISION . IX2094.2FILE SECTION . IX2094.2FD RAW-DATA. IX2094.2PIC X(6). IX2094.2PIC 9(6). IX2094.2PIC 9(8). IX2094.2PIC 99. IX2094.2PIC 999. IX2094.2PIC 999. IX2094.2PIC 999. IX2094.2PIC 999. IX2094.2PIC 999. IX2094.2PIC X(13). IX2094.2PIC X. IX2094.2PIC X(8). IX2094.2FD PRINT-FILE. IX2094.2PICTURE X(120). IX2094.2PICTURE X(120). IX2094.2FD IX-FS1 IX2094.2LABEL RECORDS ARE STANDARD IX2094.2DATA RECORD IS IX-FS1R1-F-G-240 IX2094.2RECORD CONTAINS 240 CHARACTERS. IX2094.2PICTURE X(120). IX2094.2FILLER PICTURE X(8). IX2094.2PICTURE X(5). IX2094.2PICTURE X(5). IX2094.2PICTURE X(3). IX2094.2FILLER PICTURE X(16). IX2094.2FILLER PICTURE X(9). IX2094.2PICTURE X(5). IX2094.2PICTURE X(5). IX2094.2PICTURE X(3). IX2094.2PICTURE X(7). IX2094.2FILLER PICTURE X(9). IX2094.2FILLER PICTURE X(9). IX2094.2PICTURE X(5). IX2094.2PICTURE X(5). IX2094.2PICTURE X(3). IX2094.2PICTURE X(7). IX2094.2FILLER PICTURE X(9). IX2094.2FILLER PICTURE X(7). IX2094.2WORKING-STORAGE SECTION . IX2094.2PICTURE X(10). IX2094.2PICTURE 9(3). IX2094.2FILLER PICTURE X(16) VALUE SPACE . IX2094.2PICTURE X(5). IX2094.2PICTURE X(5). IX2094.2PICTURE 9(3). IX2094.2PICTURE X(7). IX2094.2FILLER PICTURE X(9) VALUE SPACE . IX2094.2PICTURE X(5). IX2094.2PICTURE X(5). IX2094.2PICTURE 9(3). IX2094.2PICTURE X(7). IX2094.2FILLER PICTURE X(9) VALUE SPACE . IX2094.2PICTURE 9(5) VALUE ZERO . IX2094.2PICTURE XX VALUE SPACE . IX2094.2PICTURE 9(6) VALUE ZERO . IX2094.2PICTURE 9(3) COMPUTATIONAL. IX2094.2PICTURE 9(3) COMPUTATIONAL. IX2094.2PICTURE 9(3). IX2094.2PICTURE 9(3). IX2094.2PICTURE 9(3). IX2094.2PICTURE 9(3). IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBBBBBBBBC002EEEEEEEEEF002ALTKEY1WWWWWWWWWV398ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBBBBBBBCC004EEEEEEEEFF004ALTKEY1WWWWWWWWVV396ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBBBBBBCCC006EEEEEEEFFF006ALTKEY1WWWWWWWVVV394ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBBBBBCCCC008EEEEEEFFFF008ALTKEY1WWWWWWVVVV392ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBBBBCCCCC010EEEEEFFFFF010ALTKEY1WWWWWVVVVV390ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBBBCCCCCC012EEEEFFFFFF012ALTKEY1WWWWVVVVVV388ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBBCCCCCCC014EEEFFFFFFF014ALTKEY1WWWVVVVVVV386ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BBCCCCCCCC016EEFFFFFFFF016ALTKEY1WWVVVVVVVV384ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"BCCCCCCCCC018EFFFFFFFFF018ALTKEY1WVVVVVVVVV382ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCCCCCCCC020FFFFFFFFFF020ALTKEY1VVVVVVVVVV380ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCCCCCCCD022FFFFFFFFFG022ALTKEY1VVVVVVVVVV380ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCCCCCCDD024FFFFFFFFGG024ALTKEY1VVVVVVVVUU376ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCCCCCDDD026FFFFFFFGGG026ALTKEY1VVVVVVVUUU374ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCCCCDDDD028FFFFFFGGGG028ALTKEY1VVVVVVUUUU372ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCCCDDDDD030FFFFFGGGGG030ALTKEY1VVVVVUUUUU370ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCCDDDDDD032FFFFGGGGGG032ALTKEY1VVVVUUUUUU368ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCCDDDDDDD034FFFGGGGGGG034ALTKEY1VVVUUUUUUU366ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CCDDDDDDDD036FFGGGGGGGG036ALTKEY1VVUUUUUUUU364ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"CDDDDDDDDD038FGGGGGGGGG038ALTKEY1VUUUUUUUUU362ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDDDDDDDD040GGGGGGGGGG040ALTKEY1UUUUUUUUUU360ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDDDDDDDE042GGGGGGGGGH042ALTKEY1UUUUUUUUUU360ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDDDDDDEE044GGGGGGGGHH044ALTKEY1UUUUUUUUTT356ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDDDDDEEE046GGGGGGGHHH046ALTKEY1UUUUUUUTTT354ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDDDDEEEE048GGGGGGHHHH048ALTKEY1UUUUUUTTTT352ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDDDEEEEE050GGGGGHHHHH050ALTKEY1UUUUUTTTTT350ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDDEEEEEE052GGGGHHHHHH052ALTKEY1UUUUTTTTTT348ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDDEEEEEEE054GGGHHHHHHH054ALTKEY1UUUTTTTTTT346ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DDEEEEEEEE056GGHHHHHHHH056ALTKEY1UUTTTTTTTT344ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"DEEEEEEEEE058GHHHHHHHHH058ALTKEY1UTTTTTTTTT342ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEEEEEEEE060HHHHHHHHHH060ALTKEY1TTTTTTTTTT340ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEEEEEEEF062HHHHHHHHHI062ALTKEY1TTTTTTTTTT340ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEEEEEEFF064HHHHHHHHII064ALTKEY1TTTTTTTTSS336ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEEEEEFFF066HHHHHHHIII066ALTKEY1TTTTTTTSSS334ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEEEEFFFF068HHHHHHIIII068ALTKEY1TTTTTTSSSS332ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEEEFFFFF070HHHHHIIIII070ALTKEY1TTTTTSSSSS330ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEEFFFFFF072HHHHIIIIII072ALTKEY1TTTTSSSSSS328ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEEFFFFFFF074HHHIIIIIII074ALTKEY1TTTSSSSSSS326ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EEFFFFFFFF076HHIIIIIIII076ALTKEY1TTSSSSSSSS324ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"EFFFFFFFFF078HIIIIIIIII078ALTKEY1TSSSSSSSSS322ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFFFFFFFF080IIIIIIIIII080ALTKEY1SSSSSSSSSS320ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFFFFFFFG082IIIIIIIIIJ082ALTKEY1SSSSSSSSSS320ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFFFFFFGG084IIIIIIIIJJ084ALTKEY1SSSSSSSSRR316ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFFFFFGGG086IIIIIIIJJJ086ALTKEY1SSSSSSSRRR314ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFFFFGGGG088IIIIIIJJJJ088ALTKEY1SSSSSSRRRR312ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFFFGGGGG090IIIIIJJJJJ090ALTKEY1SSSSSRRRRR310ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFFGGGGGG092IIIIJJJJJJ092ALTKEY1SSSSRRRRRR308ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFFGGGGGGG094IIIJJJJJJJ094ALTKEY1SSSRRRRRRR306ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FFGGGGGGGG096IIJJJJJJJJ096ALTKEY1SSRRRRRRRR304ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"FGGGGGGGGG098IJJJJJJJJJ098ALTKEY1SRRRRRRRRR302ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"GGGGGGGGGG100JJJJJJJJJJ100ALTKEY1RRRRRRRRRR300ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"RRRRSSSSSS352VVVVWWWWWW352ALTKEY1GGGGFFFFFF048ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"RRRSSSSSSS354VVVWWWWWWW354ALTKEY1GGGFFFFFFF046ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"RRSSSSSSSS356VVWWWWWWWW356ALTKEY1GGFFFFFFFF044ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"RSSSSSSSSS358VWWWWWWWWW358ALTKEY1GFFFFFFFFF042ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSSSSSSSS360WWWWWWWWWW360ALTKEY1FFFFFFFFFF040ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSSSSSSST362WWWWWWWWWX362ALTKEY1FFFFFFFFFF040ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSSSSSSTT364WWWWWWWWXX364ALTKEY1FFFFFFFFEE036ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSSSSSTTT366WWWWWWWXXX366ALTKEY1FFFFFFFEEE034ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSSSSTTTT368WWWWWWXXXX368ALTKEY1FFFFFFEEEE032ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSSSTTTTT370WWWWWCard0880ALTKEY1FFFFFEEEEE030ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSSTTTTTT372WWWWXXXXXX372ALTKEY1FFFFEEEEEE028ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSSTTTTTTT374WWWXXXXXXX374ALTKEY1FFFEEEEEEE026ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"SSTTTTTTTT376WWXXXXXXXX376ALTKEY1FFEEEEEEEE024ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"STTTTTTTTT378WXXXXXXXXX378ALTKEY1FEEEEEEEEE022ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTTTTTTTT380XXXXXXXXXX380ALTKEY1EEEEEEEEEE020ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTTTTTTTU382XXXXXXXXXY382ALTKEY1EEEEEEEEEE020ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTTTTTTUU384XXXXXXXXYY384ALTKEY1EEEEEEEEDD016ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTTTTTUUU386XXXXXXXYYY386ALTKEY1EEEEEEEDDD014ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTTTTUUUU388XXXXXXYYYY388ALTKEY1EEEEEEDDDD012ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTTTUUUUU390XXXXXYYYYY390ALTKEY1EEEEEDDDDD010ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTTUUUUUU392XXXXYYYYYY392ALTKEY1EEEEDDDDDD008ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTTUUUUUUU394XXXYYYYYYY394ALTKEY1EEEDDDDDDD006ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TTUUUUUUUU396XXYYYYYYYY396ALTKEY1EEDDDDDDDD004ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"TUUUUUUUUU398XYYYYYYYYY398ALTKEY1EDDDDDDDDD002ALTKEY2" .IX2094.2FILLER PIC X(53) VALUE IX2094.2"UUUUUUUUUU400YYYYYYYYYY400ALTKEY1DDDDDDDDDD000ALTKEY2" .IX2094.2REDEFINES RECORD-KEY-CONTENT. IX2094.2OCCURS 75 TIMES. IX2094.2PICTURE X(13). IX2094.2PICTURE X(20). IX2094.2PICTURE X(20). IX2094.2PICTURE 9. IX2094.2PICTURE XX OCCURS 10 TIMES. IX2094.2FILLER PICTURE X(48) VALUE IX2094.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . IX2094.2FILLER PICTURE X(46) VALUE IX2094.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . IX2094.2FILLER PICTURE X(26) VALUE IX2094.2",LFIL=000000,ORG= ,LBLR= " . IX2094.2FILLER PICTURE X(37) VALUE IX2094.2",RECKEY= " . IX2094.2FILLER PICTURE X(38) VALUE IX2094.2",ALTKEY1= " . IX2094.2FILLER PICTURE X(38) VALUE IX2094.2",ALTKEY2= " . IX2094.2FILLER PICTURE X(7) VALUE SPACE .IX2094.2OCCURS 10 TIMES. IX2094.2FILLER PIC X(5). IX2094.2PIC X(6). IX2094.2FILLER PIC X(8). IX2094.2PIC X(6). IX2094.2FILLER PIC X(1). IX2094.2PIC 9(1). IX2094.2FILLER PIC X(7). IX2094.2PIC 9(6). IX2094.2FILLER PIC X(6). IX2094.2PIC 9(2). IX2094.2FILLER PIC X(5). IX2094.2PIC 9(4). IX2094.2FILLER PIC X(5). IX2094.2PIC X(5). IX2094.2FILLER PIC X(7). IX2094.2PIC 9(6). IX2094.2FILLER PIC X(7). IX2094.2PIC X(2). IX2094.2FILLER PIC X(1). IX2094.2PIC 9(4). IX2094.2FILLER PIC X(6). IX2094.2PIC 9(6). IX2094.2FILLER PIC X(5). IX2094.2PIC X(2). IX2094.2FILLER PIC X(6). IX2094.2PIC X(1). IX2094.2FILLER PIC X(8). IX2094.2PIC X(29). IX2094.2FILLER PIC X(9). IX2094.2PIC X(29). IX2094.2FILLER PIC X(9). IX2094.2PIC X(29). IX2094.2FILLER PIC X(7). IX2094.2FILLER PIC X VALUE SPACE . IX2094.2PIC X(20) VALUE SPACE . IX2094.2FILLER PIC X VALUE SPACE . IX2094.2PIC X(5) VALUE SPACE . IX2094.2FILLER PIC X VALUE SPACE . IX2094.2FILLER PIC X(19) VALUE SPACE . IX2094.2PIC X VALUE SPACE . IX2094.2PIC 99 VALUE ZERO . IX2094.2FILLER PIC X(8) VALUE SPACE . IX2094.2PIC X(61). IX2094.2FILLER PIC X(30) VALUE SPACE . IX2094.2FILLER PIC X(17) VALUE IX2094.2" COMPUTED=" . IX2094.2PIC X(20) VALUE SPACE . IX2094.2REDEFINES COMPUTED-A IX2094.2PIC -9(9).9(9). IX2094.2REDEFINES COMPUTED-A PIC -.9(18). IX2094.2REDEFINES COMPUTED-A PIC -9(4).9(14). IX2094.2REDEFINES COMPUTED-A PIC -9(14).9(4). IX2094.2REDEFINES COMPUTED-A. IX2094.2PIC -9(18). IX2094.2FILLER PIC X. IX2094.2FILLER PIC X(50) VALUE SPACE . IX2094.2FILLER PIC X(30) VALUE SPACE . IX2094.2FILLER PIC X(17) VALUE " CORRECT =" . IX2094.2PIC X(20) VALUE SPACE . IX2094.2REDEFINES CORRECT-A PIC -9(9).9(9). IX2094.2REDEFINES CORRECT-A PIC -.9(18). IX2094.2REDEFINES CORRECT-A PIC -9(4).9(14). IX2094.2REDEFINES CORRECT-A PIC -9(14).9(4). IX2094.2REDEFINES CORRECT-A. IX2094.2PIC -9(18). IX2094.2FILLER PIC X. IX2094.2FILLER PIC X(2) VALUE SPACE . IX2094.2PIC X(48) VALUE SPACE . IX2094.2FILLER PIC IS X(99) VALUE IS " FEATURE PAIX2094.2 "SS PARAGRAPH-NAME IX2094.2 " REMARKS" . IX2094.2FILLER PIC X(20) VALUE SPACE . IX2094.2FILLER PIC X VALUE SPACE . IX2094.2FILLER PIC X(6) VALUE "TESTED" . IX2094.2FILLER PIC X(15) VALUE SPACE . IX2094.2FILLER PIC X(4) VALUE "FAIL" . IX2094.2FILLER PIC X(94) VALUE SPACE . IX2094.2PIC 9(2) VALUE ZERO . IX2094.2PIC 99 VALUE ZERO . IX2094.2PIC 999 VALUE ZERO . IX2094.2PIC 999 VALUE ZERO . IX2094.2PIC 999 VALUE ZERO . IX2094.2PIC 999 VALUE ZERO . IX2094.2PIC 999 VALUE ZERO . IX2094.2PIC 999 VALUE ZERO . IX2094.2PIC X(120) VALUE SPACE . IX2094.2PIC 9(5) VALUE ZERO . IX2094.2PIC X(48) VALUE SPACES . IX2094.2FILLER PIC X(39) VALUE SPACES . IX2094.2FILLER PIC X(42) VALUE IX2094.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . IX2094.2FILLER PIC X(39) VALUE SPACES . IX2094.2FILLER PIC X(40) VALUE SPACE . IX2094.2FILLER PIC X(7) VALUE "CCVS85 " . IX2094.2FILLER PIC XXXX VALUE IX2094.2"4.2 " . IX2094.2FILLER PIC X(28) VALUE IX2094.2" COPY - NOT FOR DISTRIBUTION" . IX2094.2FILLER PIC X(41) VALUE SPACE . IX2094.2FILLER PIC X(15) VALUE IX2094.2"TEST RESULT OF " . IX2094.2PIC X(9). IX2094.2FILLER PIC X(4) VALUE IX2094.2" IN " . IX2094.2FILLER PIC X(12) VALUE IX2094.2" HIGH " . IX2094.2FILLER PIC X(22) VALUE IX2094.2" LEVEL VALIDATION FOR " . IX2094.2FILLER PIC X(58) VALUE IX2094.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .IX2094.2FILLER PIC X(34) VALUE IX2094.2" FOR OFFICIAL USE ONLY " . IX2094.2FILLER PIC X(58) VALUE IX2094.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .IX2094.2FILLER PIC X(28) VALUE IX2094.2" COPYRIGHT 1985 " . IX2094.2FILLER PIC X(52) VALUE SPACE . IX2094.2FILLER PIC X(14) VALUE IS "END OF TEST- " . IX2094.2PIC X(9). IX2094.2FILLER PIC X(45) VALUE SPACES . IX2094.2FILLER PIC X(31) VALUE SPACE . IX2094.2FILLER PIC X(21) VALUE SPACE . IX2094.2PIC XXX VALUE SPACE . IX2094.2FILLER PIC X VALUE SPACE . IX2094.2PIC X(44) VALUE IX2094.2"ERRORS ENCOUNTERED" . IX2094.2FILLER PIC X(22) VALUE IX2094.2" FOR OFFICIAL USE ONLY" . IX2094.2FILLER PIC X(12) VALUE SPACE . IX2094.2FILLER PIC X(58) VALUE IX2094.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .IX2094.2FILLER PIC X(13) VALUE SPACE . IX2094.2FILLER PIC X(15) VALUE IX2094.2" COPYRIGHT 1985" . IX2094.2PIC XXX VALUE SPACE . IX2094.2FILLER PIC X(4) VALUE " OF " . IX2094.2PIC XXX VALUE SPACE . IX2094.2FILLER PIC X(40) VALUE IX2094.2" TESTS WERE EXECUTED SUCCESSFULLY" . IX2094.2FILLER PIC X(19) VALUE IX2094.2"*** INFORMATION ***" . IX2094.2FILLER PIC X(8) VALUE SPACE . IX2094.2PIC X(20). IX2094.2FILLER PIC X(5) VALUE SPACE . IX2094.2PIC X(20). IX2094.2PIC X(48). IX2094.2FILLER PIC IS X VALUE IS SPACE . IX2094.2FILLER PIC IS X(65) VALUE IS "************************IX2094.2 "*****************************************" . IX2094.2FILLER PIC IS X(54) VALUE IS "************************IX2094.2 "******************************" . IX2094.2PIC X(9) VALUE IX2094.2"IX209A" . IX2094.2PROCEDURE DIVISION . IX2094.2SECTION . IX2094.2OPEN I-O RAW-DATA. IX2094.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2094.2READ RAW-DATA INVALID KEY GO TO END-E-1. IX2094.2MOVE "ABORTED " TO C-ABORT. IX2094.2ADD 1 TO C-NO-OF-TESTS. IX2094.2ACCEPT C-DATE FROM DATE . IX2094.2ACCEPT C-TIME FROM TIME . IX2094.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX2094.2CLOSE RAW-DATA. IX2094.2OPEN OUTPUT PRINT-FILE. IX2094.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IX2094.2MOVE SPACE TO TEST-RESULTS. IX2094.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX2094.2MOVE ZERO TO REC-SKL-SUB. IX2094.2PERFORM CCVS-INIT-FILE 9 TIMES. IX2094.2ADD 1 TO REC-SKL-SUB. IX2094.2MOVE FILE-RECORD-INFO-SKELETON IX2094.2TO FILE-RECORD-INFO (REC-SKL-SUB). IX2094.2GO TO CCVS1-EXIT. IX2094.2OPEN I-O RAW-DATA. IX2094.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2094.2READ RAW-DATA INVALID KEY GO TO END-E-2. IX2094.2MOVE "OK. " TO C-ABORT. IX2094.2MOVE PASS-COUNTER TO C-OK. IX2094.2MOVE ERROR-HOLD TO C-ALL. IX2094.2MOVE ERROR-COUNTER TO C-FAIL. IX2094.2MOVE DELETE-COUNTER TO C-DELETED. IX2094.2MOVE INSPECT-COUNTER TO C-INSPECT. IX2094.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. IX2094.2CLOSE RAW-DATA. IX2094.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IX2094.2EXIT PROGRAM . IX2094.2STOP RUN . IX2094.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IX2094.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IX2094.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IX2094.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IX2094.2MOVE "****TEST DELETED****" TO RE-MARK. IX2094.2IF REC-CT NOT EQUAL TO ZERO IX2094.2MOVE "." TO PARDOT-X IX2094.2MOVE REC-CT TO DOTVALUE. IX2094.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IX2094.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IX2094.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IX2094.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IX2094.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IX2094.2MOVE SPACE TO CORRECT-X. IX2094.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX2094.2MOVE SPACE TO RE-MARK. IX2094.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2094.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2094.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2094.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2094.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2094.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2094.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2094.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2094.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2094.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IX2094.2ADD DELETE-COUNTER TO ERROR-HOLD. IX2094.2ADD PASS-COUNTER TO ERROR-HOLD. IX2094.2071700* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. IX2094.2 MOVE PASS-COUNTER TO CCVS-E-4-1. IX2094.2MOVE ERROR-HOLD TO CCVS-E-4-2. IX2094.2MOVE CCVS-E-4 TO CCVS-E-2-2. IX2094.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IX2094.2MOVE "TEST(S) FAILED" TO ENDER-DESC. IX2094.2IF ERROR-COUNTER IS EQUAL TO ZERO IX2094.2MOVE "NO " TO ERROR-TOTAL IX2094.2ELSE IX2094.2MOVE ERROR-COUNTER TO ERROR-TOTAL. IX2094.2MOVE CCVS-E-2 TO DUMMY-RECORD. IX2094.2PERFORM WRITE-LINE. IX2094.2IF DELETE-COUNTER IS EQUAL TO ZERO IX2094.2MOVE "NO " TO ERROR-TOTAL ELSE IX2094.2MOVE DELETE-COUNTER TO ERROR-TOTAL. IX2094.2MOVE "TEST(S) DELETED " TO ENDER-DESC. IX2094.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2094.2IF INSPECT-COUNTER EQUAL TO ZERO IX2094.2MOVE "NO " TO ERROR-TOTAL IX2094.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX2094.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX2094.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2094.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2094.2ADD 1 TO RECORD-COUNT. IX2094.2IF RECORD-COUNT GREATER 42 IX2094.2MOVE DUMMY-RECORD TO DUMMY-HOLD IX2094.2MOVE SPACE TO DUMMY-RECORD IX2094.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX2094.2MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2094.2MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2094.2MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2094.2MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2094.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IX2094.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX2094.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IX2094.2MOVE DUMMY-HOLD TO DUMMY-RECORD IX2094.2MOVE ZERO TO RECORD-COUNT. IX2094.2PERFORM WRT-LN. IX2094.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IX2094.2MOVE SPACE TO DUMMY-RECORD. IX2094.2PERFORM WRT-LN. IX2094.2IF COMPUTED-X NOT EQUAL TO SPACE IX2094.2GO TO FAIL-ROUTINE-WRITE. IX2094.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2094.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2094.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX2094.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2094.2MOVE SPACES TO INF-ANSI-REFERENCE. IX2094.2GO TO FAIL-ROUTINE-EX. IX2094.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX2094.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX2094.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2094.2MOVE SPACES TO COR-ANSI-REFERENCE. IX2094.2EXIT . IX2094.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IX2094.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IX2094.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. IX2094.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2094.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2094.2MOVE SPACES TO INF-ANSI-REFERENCE. IX2094.2EXIT . IX2094.2EXIT . IX2094.2SECTION . IX2094.2OPEN OUTPUT IX-FS1. IX2094.2MOVE "IX-FS1" TO XFILE-NAME (1). IX2094.2MOVE "R1-F-G" TO XRECORD-NAME (1). IX2094.2MOVE ZERO TO XRECORD-NUMBER (1). IX2094.2MOVE "RC" TO CHARS-OR-RECORDS (1). IX2094.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). IX2094.2MOVE 240 TO XRECORD-LENGTH (1). IX2094.2MOVE 001 TO XBLOCK-SIZE (1). IX2094.2MOVE "IX" TO XFILE-ORGANIZATION (1). IX2094.2MOVE "S" TO XLABEL-TYPE (1). IX2094.2MOVE 200 TO RECORDS-IN-FILE (1). IX2094.2MOVE "CREATE-FILE-FS1" TO FEATURE. IX2094.2MOVE "WRITE-TEST-GF-01" TO PAR-NAME. IX2094.2MOVE ZERO TO KEYSUB. IX2094.2MOVE ZERO TO INVKEY-COUNTER. IX2094.2PERFORM WRITE-TEST-GF-01-1 50 TIMES. IX2094.2PERFORM WRITE-TEST-GF-01-2 125 TIMES. IX2094.2PERFORM WRITE-TEST-GF-01-1 25 TIMES. IX2094.2GO TO WRITE-TEST-GF-01. IX2094.2ADD 001 TO XRECORD-NUMBER (1). IX2094.2ADD 001 TO KEYSUB. IX2094.2MOVE RECKEY-VALUE (KEYSUB) TO FS1-RECKEY-1-13. IX2094.2MOVE ALTKEY1-VALUE (KEYSUB) TO FS1-ALTKEY1-1-20. IX2094.2MOVE ALTKEY2-VALUE (KEYSUB) TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO XRECORD-KEY (1). IX2094.2MOVE WRK-FS1-ALTKEY1 TO ALTERNATE-KEY1 (1). IX2094.2MOVE WRK-FS1-ALTKEY2 TO ALTERNATE-KEY2 (1). IX2094.2MOVE FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240. IX2094.2WRITE IX-FS1R1-F-G-240 IX2094.2INVALID KEY ADD 001 TO INVKEY-COUNTER. IX2094.2ADD 001 TO EXCUT-COUNTER-06V00. IX2094.2ADD 002 TO FS1-RECKEY-11-13. IX2094.2ADD 002 TO FS1-ALTKEY1-11-13. IX2094.2SUBTRACT 002 FROM FS1-ALTKEY2-11-13. IX2094.2ADD 001 TO XRECORD-NUMBER (1). IX2094.2MOVE WRK-FS1-RECKEY TO XRECORD-KEY (1). IX2094.2MOVE WRK-FS1-ALTKEY1 TO ALTERNATE-KEY1 (1). IX2094.2MOVE WRK-FS1-ALTKEY2 TO ALTERNATE-KEY2 (1). IX2094.2MOVE FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240. IX2094.2WRITE IX-FS1R1-F-G-240 IX2094.2INVALID KEY ADD 001 TO INVKEY-COUNTER. IX2094.2ADD 001 TO EXCUT-COUNTER-06V00. IX2094.2SUBTRACT INVKEY-COUNTER FROM EXCUT-COUNTER-06V00 IX2094.2GIVING RECORDS-WRITTEN. IX2094.2MOVE 200 TO CORRECT-18V0. IX2094.2MOVE RECORDS-WRITTEN TO COMPUTED-18V0. IX2094.2IF RECORDS-WRITTEN EQUAL TO 200 IX2094.2PERFORM PASS IX2094.2ELSE IX2094.2PERFORM FAIL. IX2094.2MOVE "RECORDS IN FILE" TO RE-MARK. IX2094.2PERFORM PRINT-DETAIL. IX2094.2GO TO WRITE-TEST-GF-01-END. IX2094.2MOVE "WRITE-TEST-GF-01" TO PAR-NAME. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2CLOSE IX-FS1. IX2094.2OPEN INPUT IX-FS1. IX2094.2MOVE "READ-TEST-F1-01" TO PAR-NAME. IX2094.2MOVE "READ FILE IX-FS1" TO FEATURE. IX2094.2MOVE ZERO TO EXCUT-COUNTER-06V00. IX2094.2MOVE 02 TO RECKEY-NUM. IX2094.2MOVE 002 TO ALTKEY1-NUM. IX2094.2READ IX-FS1 AT END GO TO READ-TEST-F1-01. IX2094.2MOVE IX-REC-KEY-AREA TO WRK-FS1-RECKEY. IX2094.2MOVE IX-ALT-KEY1-AREA TO WRK-FS1-ALTKEY1. IX2094.2IF FS1-RECKEY-11-13 EQUAL TO RECKEY-NUM IX2094.2AND FS1-ALTKEY1-11-13 EQUAL TO ALTKEY1-NUM IX2094.2NEXT SENTENCE IX2094.2ELSE IX2094.2PERFORM READ-FAIL-F1-01. IX2094.2ADD 001 TO EXCUT-COUNTER-06V00. IX2094.2ADD 002 TO RECKEY-NUM IX2094.2ADD 002 TO ALTKEY1-NUM. IX2094.2GO TO READ-TEST-F1-01-R1. IX2094.2IF EXCUT-COUNTER-06V00 EQUAL TO 200 IX2094.2PERFORM PASS ELSE IX2094.2MOVE "IX-28; 4.5.2 OR IX-41; 4.9.2 NOT COORECTLY EXECUTED" IX2094.2TO RE-MARK IX2094.2PERFORM FAIL. IX2094.2MOVE EXCUT-COUNTER-06V00 TO COMPUTED-18V0. IX2094.2MOVE 200 TO CORRECT-18V0. IX2094.2MOVE "RECORDS IN FILE" TO RE-MARK. IX2094.2PERFORM PRINT-DETAIL. IX2094.2GO TO READ-EXIT-F1-01. IX2094.2PERFORM FAIL. IX2094.2MOVE FS1-RECKEY-11-13 TO COMPUTED-18V0. IX2094.2MOVE RECKEY-NUM TO CORRECT-18V0. IX2094.2MOVE "NUM EMBEDDED IN RECKEY" TO RE-MARK. IX2094.2PERFORM PRINT-DETAIL. IX2094.2CLOSE IX-FS1. IX2094.2OPEN INPUT IX-FS1. IX2094.2MOVE "START EQ TO RECKEY" TO FEATURE. IX2094.2MOVE "START-TEST-GF-01" TO PAR-NAME. IX2094.2MOVE "********************" TO HOLD-FILESTATUS-RECORD. IX2094.2089800* 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 PERFORM START-INITIALIZE-RECORD. IX2094.2MOVE "START-TEST-GF-01" TO PAR-NAME. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "**" TO FILESTATUS (1) IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2GO TO START-DELETE-GF-01. IX2094.2MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2094.2MOVE "EEEEEFFFFF022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2094300* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-01. IX2094.2MOVE FS1-STATUS TO FILESTATUS (1). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-01. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 11 IX2094.2PERFORM PASS IX2094.2MOVE SPACE TO RE-MARK IX2094.2GO TO START-WRITE-GF-01. IX2094.2MOVE 11 TO RECNO. IX2094.2PERFORM DISPLAY-RECORD-KEYS. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2PERFORM FAIL. IX2094.2MOVE 11 TO CORRECT-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2GO TO START-WRITE-GF-01. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-02" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (2) IX2094.2GO TO START-DELETE-GF-02. IX2094.2MOVE "EEEEEEEFFF067" TO FS1-RECKEY-1-13. IX2094.2MOVE "HHHHHHHIII066ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "TTTTTTTSSS334ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2098800* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2094.2GO TO START-PASS-GF-02. IX2094.2MOVE FS1-STATUS TO FILESTATUS (2). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2PERFORM FAIL. IX2094.2MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-02. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-02. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2MOVE "START-TEST-GF-03" TO PAR-NAME. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (3) IX2094.2GO TO START-DELETE-GF-03. IX2094.2MOVE "BBBBBBBBBC001" TO FS1-RECKEY-1-13. IX2094.2MOVE "EEEEEEEEEF002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2102900* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2094.2GO TO START-PASS-GF-03. IX2094.2MOVE FS1-STATUS TO FILESTATUS (3). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-03. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-03. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-04" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (4) IX2094.2GO TO START-DELETE-GF-04. IX2094.2MOVE "UUUUUUUUUU401" TO FS1-RECKEY-1-13. IX2094.2MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2107000* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2094.2GO TO START-PASS-GF-04. IX2094.2MOVE FS1-STATUS TO FILESTATUS (4). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-04. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-04. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-05" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (5) IX2094.2GO TO START-DELETE-GF-05. IX2094.2MOVE "CDDDDDDDDD039" TO FS1-RECKEY-1-13. IX2094.2MOVE "IIIIIIIIJJ083ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2111300* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY-1-5 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-05. IX2094.2MOVE FS1-STATUS TO FILESTATUS (5). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-05. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 19 IX2094.2PERFORM PASS IX2094.2GO TO START-WRITE-GF-05. IX2094.2MOVE 19 TO RECNO. IX2094.2PERFORM DISPLAY-RECORD-KEYS. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2PERFORM FAIL. IX2094.2MOVE 19 TO CORRECT-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC.; SUBORDINATE D-I OF KEY" TO RE-MARK. IX2094.2GO TO START-WRITE-GF-05. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-06" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (6) IX2094.2GO TO START-DELETE-GF-06. IX2094.2MOVE "TTTTTUUUUU390" TO FS1-RECKEY-1-13. IX2094.2MOVE "XYYYYYYYYY399ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2116400* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY-1-5 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (6) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-06. IX2094.2MOVE FS1-STATUS TO FILESTATUS (6). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-06. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 190 IX2094.2PERFORM PASS IX2094.2GO TO START-WRITE-GF-06. IX2094.2MOVE 65 TO RECNO. IX2094.2PERFORM DISPLAY-RECORD-KEYS. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC.; SUBORDINATE D-I OF KEY" TO RE-MARK. IX2094.2PERFORM FAIL. IX2094.2MOVE 190 TO CORRECT-18V0. IX2094.2GO TO START-WRITE-GF-06. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-07" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (7) IX2094.2GO TO START-DELETE-GF-07. IX2094.2MOVE "CCCCCCD022 " TO FS1-RECKEY-1-13. IX2094.2MOVE "FFFFFFFFFG022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "VVVVVVVVVV380ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2122000* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2094.2GO TO START-PASS-GF-07. IX2094.2MOVE FS1-STATUS TO FILESTATUS (7). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-07. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-07. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-08" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (8) IX2094.2GO TO START-DELETE-GF-08. IX2094.2MOVE "ABBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2MOVE "EEEEEEEEEF002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWW400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2127000* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2094.2GO TO START-PASS-GF-08. IX2094.2MOVE FS1-STATUS TO FILESTATUS (8). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-08. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-08. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-09" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (9) IX2094.2GO TO START-DELETE-GF-09. IX2094.2MOVE "UUUUUUUUUV400" TO FS1-RECKEY-1-13. IX2094.2MOVE "EEEEEEEEEF002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2131700* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-KEY-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (9) IX2094.2GO TO START-PASS-GF-09. IX2094.2MOVE FS1-STATUS TO FILESTATUS (9). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC." TO RE-MARK. IX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-09. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-09. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2CLOSE IX-FS1. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2MOVE "START-TEST-GF-10" TO PAR-NAME. IX2094.2135400* IX2094.2 135500* THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS IX2094.2 135600* IX2094.2 IF FILESTATUS (1) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-10. IX2094.2136100* 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 IF FILESTATUS (1) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-01 " TO RE-MARK IX2094.2PERFORM FAIL IX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (1) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-11" TO PAR-NAME. IX2094.2IF FILESTATUS (2) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-11. IX2094.2138100* 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 IF FILESTATUS (2) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-02 " TO RE-MARK IX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (2) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-12" TO PAR-NAME. IX2094.2IF FILESTATUS (3) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-12. IX2094.2140000* 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 IF FILESTATUS (3) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-03 " TO RE-MARK IX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (3) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-13" TO PAR-NAME. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2IF FILESTATUS (4) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-13. IX2094.2141900* 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 IF FILESTATUS (4) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-04 " TO RE-MARK IX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (4) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-14" TO PAR-NAME. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2IF FILESTATUS (5) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-14. IX2094.2143800* 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 IF FILESTATUS (5) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-05 " TO RE-MARKIX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (5) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-15" TO PAR-NAME. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2IF FILESTATUS (6) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-15. IX2094.2145700* 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 IF FILESTATUS (6) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-06 " TO RE-MARKIX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (6) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-16" TO PAR-NAME. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2IF FILESTATUS (7) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-16. IX2094.2147600* 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 IF FILESTATUS (7) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-07 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (7) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-17" TO PAR-NAME. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2IF FILESTATUS (8) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-17. IX2094.2149500* 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 IF FILESTATUS (8) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-08 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (8) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-18" TO PAR-NAME. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2IF FILESTATUS (9) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-18. IX2094.2151400* 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 IF FILESTATUS (9) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; FROM START-TEST-GF-09 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (9) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2152700******************************************************************IX2094.2 OPEN INPUT IX-FS1. IX2094.2MOVE "STR EQ ALTKY W/O DUP" TO FEATURE. IX2094.2MOVE "START-TEST-GF-19" TO PAR-NAME. IX2094.2MOVE "********************" TO HOLD-FILESTATUS-RECORD. IX2094.2153400* 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 PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "**" TO FILESTATUS (1) IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2GO TO START-DELETE-GF-19. IX2094.2MOVE "CCCCCDDDDD022" TO FS1-RECKEY-1-13. IX2094.2MOVE "XXXXXXXXXY382ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2157800* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-19. IX2094.2MOVE FS1-STATUS TO FILESTATUS (1). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-19. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 191 IX2094.2PERFORM PASS IX2094.2MOVE SPACE TO RE-MARK IX2094.2GO TO START-WRITE-GF-19. IX2094.2MOVE 66 TO RECNO. IX2094.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE 191 TO CORRECT-18V0. IX2094.2GO TO START-WRITE-GF-19. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-20" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (2) IX2094.2GO TO START-DELETE-GF-20. IX2094.2MOVE "EEEEEEEFFF066" TO FS1-RECKEY-1-13. IX2094.2MOVE "HHHHHHHIII067ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "TTTTTTTSSS334ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2162300* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2094.2GO TO START-PASS-GF-20. IX2094.2MOVE FS1-STATUS TO FILESTATUS (2). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY1 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-20. IX2094.2PERFORM PASS. IX2094.2MOVE "INVALID KEY" TO RE-MARK. IX2094.2GO TO START-WRITE-GF-20. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-21" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (3) IX2094.2GO TO START-DELETE-GF-21. IX2094.2MOVE "BBBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2MOVE "EEEEEEEEEF001ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2166500* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2094.2GO TO START-PASS-GF-21. IX2094.2MOVE FS1-STATUS TO FILESTATUS (3). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY1 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-21. IX2094.2PERFORM PASS. IX2094.2MOVE "INVALID KEY" TO RE-MARK. IX2094.2GO TO START-WRITE-GF-21. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-22" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (4) IX2094.2GO TO START-DELETE-GF-22. IX2094.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2MOVE "YYYYYYYYYY401ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2170700* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2094.2GO TO START-PASS-GF-22. IX2094.2MOVE FS1-STATUS TO FILESTATUS (4). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY1 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-22. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-22. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-23" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (5) IX2094.2GO TO START-DELETE-GF-23. IX2094.2MOVE "CDDDDDDDDD039" TO FS1-RECKEY-1-13. IX2094.2MOVE "GGGGHCard0082ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2175000* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1-1-5 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-23. IX2094.2MOVE FS1-STATUS TO FILESTATUS (5). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-23. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 26 IX2094.2PERFORM PASS IX2094.2GO TO START-WRITE-GF-23. IX2094.2MOVE 26 TO RECNO. IX2094.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE 26 TO CORRECT-18V0. IX2094.2GO TO START-WRITE-GF-23. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-24" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (6) IX2094.2GO TO START-DELETE-GF-24. IX2094.2MOVE "YYYYYUUUUU390" TO FS1-RECKEY-1-13. IX2094.2MOVE "XXXXXYYYYY390ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2180300* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1-1-5 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (6) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-24. IX2094.2MOVE FS1-STATUS TO FILESTATUS (6). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-24. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 190 IX2094.2PERFORM PASS IX2094.2GO TO START-WRITE-GF-24. IX2094.2MOVE 65 TO RECNO. IX2094.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE 190 TO CORRECT-18V0. IX2094.2GO TO START-WRITE-GF-24. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-25" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (7) IX2094.2GO TO START-DELETE-GF-25. IX2094.2MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2094.2MOVE "022ALTKEY1 " TO FS1-ALTKEY1-1-20. IX2094.2MOVE "VVVVVVVVVV380ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2185900* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2094.2GO TO START-PASS-GF-25. IX2094.2MOVE FS1-STATUS TO FILESTATUS (7). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-25. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-25. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-26" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (8) IX2094.2GO TO START-DELETE-GF-26. IX2094.2MOVE "BBBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2MOVE "EEEEEEEEEE002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2190900* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2094.2GO TO START-PASS-GF-26. IX2094.2MOVE FS1-STATUS TO FILESTATUS (8). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-26. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-26. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-27" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (9) IX2094.2GO TO START-DELETE-GF-27. IX2094.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2MOVE "YYYYYZYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2195600* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY1-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (9) IX2094.2GO TO START-PASS-GF-27. IX2094.2MOVE FS1-STATUS TO FILESTATUS (9). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-27. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-27. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2CLOSE IX-FS1. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2MOVE "START-TEST-GF-28" TO PAR-NAME. IX2094.2199500* 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 IF FILESTATUS (1) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-28. IX2094.2200300* 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 IF FILESTATUS (1) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE IX2094.2MOVE "IX-3; 1.3.4 (1) A FROM START-TEST-GF-19 " TO RE-MARKIX2094.2PERFORM FAIL IX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (1) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-29" TO PAR-NAME. IX2094.2IF FILESTATUS (2) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-29. IX2094.2202300* 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 IF FILESTATUS (2) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C ; SEE START-TEST-GF-20 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (2) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-30" TO PAR-NAME. IX2094.2IF FILESTATUS (3) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-30. IX2094.2204200* 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 IF FILESTATUS (3) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-21 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (3) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-31" TO PAR-NAME. IX2094.2IF FILESTATUS (4) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-31. IX2094.2206100* 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 IF FILESTATUS (4) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-22 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (4) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2MOVE "START-TEST-GF-32" TO PAR-NAME. IX2094.2IF FILESTATUS (5) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-32. IX2094.2208000* 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 IF FILESTATUS (5) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-23 " TO RE-MARKIX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (5) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2MOVE "START-TEST-GF-33" TO PAR-NAME. IX2094.2IF FILESTATUS (6) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-33. IX2094.2209900* 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 IF FILESTATUS (6) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-24 " TO RE-MARKIX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (6) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-34" TO PAR-NAME. IX2094.2IF FILESTATUS (7) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-34. IX2094.2211800* 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 IF FILESTATUS (7) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-25 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (7) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-35" TO PAR-NAME. IX2094.2IF FILESTATUS (8) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-35. IX2094.2213700* 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 IF FILESTATUS (8) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-26 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (8) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-36" TO PAR-NAME. IX2094.2IF FILESTATUS (9) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-36. IX2094.2215600* 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 IF FILESTATUS (9) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-27 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (9) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2OPEN INPUT IX-FS1. IX2094.2MOVE "STRT EQ ALTKY W/DUP" TO FEATURE. IX2094.2MOVE "START-TEST-GF-37" TO PAR-NAME. IX2094.2MOVE "********************" TO HOLD-FILESTATUS-RECORD. IX2094.2217600* 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 MOVE "START-TEST-GF-37" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "**" TO FILESTATUS (1) IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2GO TO START-DELETE-GF-37. IX2094.2MOVE "CCCCCDDDDD022" TO FS1-RECKEY-1-13. IX2094.2MOVE "EEEEEFFFFF022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "VVVVVVVVUU376ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2222200* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-37. IX2094.2MOVE FS1-STATUS TO FILESTATUS (1). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-37. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 12 IX2094.2PERFORM PASS IX2094.2MOVE SPACE TO RE-MARK IX2094.2GO TO START-WRITE-GF-37. IX2094.2MOVE 12 TO RECNO. IX2094.2PERFORM DISPLAY-ALTERNATE-KEY2. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2PERFORM FAIL. IX2094.2MOVE 12 TO CORRECT-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2GO TO START-WRITE-GF-37. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-38" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (2) IX2094.2GO TO START-DELETE-GF-38. IX2094.2MOVE "EEEEEEEEFF064" TO FS1-RECKEY-1-13. IX2094.2MOVE "HHHHHHHIII066ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "TTTTTTTSSS335ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2226700* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2094.2GO TO START-PASS-GF-38. IX2094.2MOVE FS1-STATUS TO FILESTATUS (2). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-38. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-38. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-39" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (3) IX2094.2GO TO START-DELETE-GF-39. IX2094.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "DDDDDDDDDC000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2230800* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2094.2GO TO START-PASS-GF-39. IX2094.2MOVE FS1-STATUS TO FILESTATUS (3). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-39. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-39. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-40" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (4) IX2094.2GO TO START-DELETE-GF-40. IX2094.2MOVE "BBBBBBBBBC002" TO FS1-RECKEY-1-13. IX2094.2MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2234900* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2094.2GO TO START-PASS-GF-40. IX2094.2MOVE FS1-STATUS TO FILESTATUS (4). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-40. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-40. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-41" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (5) IX2094.2GO TO START-DELETE-GF-41. IX2094.2MOVE "CCCCCCCCCC038" TO FS1-RECKEY-1-13. IX2094.2MOVE "IIIIIIIIJJ083ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "VUUUUVVVVV362ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2239200* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2-1-5 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-41. IX2094.2MOVE FS1-STATUS TO FILESTATUS (5). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-41. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 19 IX2094.2PERFORM PASS IX2094.2GO TO START-WRITE-GF-41. IX2094.2MOVE 19 TO RECNO. IX2094.2PERFORM DISPLAY-ALTERNATE-KEY2. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE 19 TO CORRECT-18V0. IX2094.2GO TO START-WRITE-GF-41. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-42" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (6) IX2094.2GO TO START-DELETE-GF-42. IX2094.2MOVE "TTTTTTTTTT390" TO FS1-RECKEY-1-13. IX2094.2MOVE "XYYYYYYYYY399ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "EEEEEDDDDD010ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2244600* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2-1-5 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (6) IX2094.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-42. IX2094.2MOVE FS1-STATUS TO FILESTATUS (6). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END ON READ" TO COMPUTED-A IX2094.2GO TO START-FAIL-GF-42. IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2IF XRECORD-NUMBER (1) EQUAL TO 195 IX2094.2PERFORM PASS IX2094.2GO TO START-WRITE-GF-42. IX2094.2MOVE 65 TO RECNO. IX2094.2PERFORM DISPLAY-ALTERNATE-KEY2. IX2094.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE 195 TO CORRECT-18V0. IX2094.2GO TO START-WRITE-GF-42. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-43" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (7) IX2094.2GO TO START-DELETE-GF-43. IX2094.2MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2094.2MOVE "FFFFFFFFFG022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "380ALTKEY2 " TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2250600* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2094.2GO TO START-PASS-GF-43. IX2094.2MOVE FS1-STATUS TO FILESTATUS (7). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-43. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-43. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-44" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (8) IX2094.2GO TO START-DELETE-GF-44. IX2094.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "DDDDDDDDDC000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2255600* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2094.2GO TO START-PASS-GF-44. IX2094.2MOVE FS1-STATUS TO FILESTATUS (8). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE ALTERNATE-KEY2 (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-44. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-44. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "START-TEST-GF-45" TO PAR-NAME. IX2094.2PERFORM START-INITIALIZE-RECORD. IX2094.2IF INIT-FLAG NOT EQUAL TO ZERO IX2094.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2094.2MOVE "**" TO FILESTATUS (9) IX2094.2GO TO START-DELETE-GF-45. IX2094.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2094.2MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2094.2MOVE "WWWWWWWWWW400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2094.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2094.2260300* 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 START IX-FS1 IX2094.2KEY IS EQUAL TO IX-FS1-ALTKEY2-1-10 IX2094.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (9) IX2094.2GO TO START-PASS-GF-45. IX2094.2MOVE FS1-STATUS TO FILESTATUS (9). IX2094.2READ IX-FS1 AT END IX2094.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2094.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2094.2MOVE "IX-36; 4.7.2 ETC. " TO RE-MARKIX2094.2PERFORM FAIL. IX2094.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2094.2MOVE "INVALID KEY" TO CORRECT-A. IX2094.2GO TO START-WRITE-GF-45. IX2094.2PERFORM PASS. IX2094.2GO TO START-WRITE-GF-45. IX2094.2PERFORM DE-LETE. IX2094.2PERFORM PRINT-DETAIL. IX2094.2CLOSE IX-FS1. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2MOVE "START-TEST-GF-46" TO PAR-NAME. IX2094.2264200* 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 IF FILESTATUS (1) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-46. IX2094.2265000* 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 IF FILESTATUS (1) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE IX2094.2MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-37 " TO RE-MARKIX2094.2PERFORM FAIL IX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (1) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-47" TO PAR-NAME. IX2094.2IF FILESTATUS (2) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-47. IX2094.2267000* 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 IF FILESTATUS (2) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-38 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (2) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-48" TO PAR-NAME. IX2094.2IF FILESTATUS (3) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-48. IX2094.2268900* 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 IF FILESTATUS (3) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-39 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (3) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-49" TO PAR-NAME. IX2094.2IF FILESTATUS (4) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-49. IX2094.2270800* 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 IF FILESTATUS (4) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-40 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (4) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2MOVE "START-TEST-GF-50" TO PAR-NAME. IX2094.2IF FILESTATUS (5) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-50. IX2094.2272700* 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 IF FILESTATUS (5) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-41 " TO RE-MARKIX2094.2ELSE PERFORM FAIL IX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (5) TO COMPUTED-A. IX2094.2MOVE "FROM START-TEST-007.05" TO RE-MARK. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:00" TO FEATURE. IX2094.2MOVE "START-TEST-GF-51" TO PAR-NAME. IX2094.2IF FILESTATUS (6) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-51. IX2094.2274700* 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 IF FILESTATUS (6) EQUAL TO "00" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-3; 1.3.4 (1) A; SEE START-TEST-GF-42 " TO RE-MARKIX2094.2MOVE "00" TO CORRECT-A IX2094.2MOVE FILESTATUS (6) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-52" TO PAR-NAME. IX2094.2IF FILESTATUS (7) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-52. IX2094.2276600* 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 IF FILESTATUS (7) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-43 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (7) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-53" TO PAR-NAME. IX2094.2IF FILESTATUS (8) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-53. IX2094.2278500* 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 IF FILESTATUS (8) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-44 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (8) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE "FILE STATUS START:23" TO FEATURE. IX2094.2MOVE "START-TEST-GF-54" TO PAR-NAME. IX2094.2IF FILESTATUS (9) EQUAL TO "**" IX2094.2PERFORM DE-LETE IX2094.2GO TO START-WRITE-GF-54. IX2094.2280400* 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 IF FILESTATUS (9) EQUAL TO "23" IX2094.2PERFORM PASS IX2094.2ELSE PERFORM FAIL IX2094.2MOVE "IX-4; 1.3.4 (3) C; SEE START-TEST-GF-45 " TO RE-MARKIX2094.2MOVE "23" TO CORRECT-A IX2094.2MOVE FILESTATUS (9) TO COMPUTED-A. IX2094.2PERFORM PRINT-DETAIL. IX2094.2281700*START-WRITE-008. IX2094.2 GO TO START-TEST-COMPLETE. IX2094.2281900*START-CLOSE-FILES. IX2094.2 282000* GO TO START-TEST-COMPLETE. IX2094.2 MOVE "GGGGGGGGGG200" TO FS1-RECKEY-1-13. IX2094.2MOVE ZERO TO INIT-FLAG. IX2094.2MOVE 9999 TO XRECORD-NUMBER (1). IX2094.2MOVE SPACE TO IX-FS1R1-F-G-240. IX2094.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2094.2START IX-FS1 KEY IS EQUAL TO IX-FS1-KEY INVALID KEY IX2094.2MOVE 1 TO INIT-FLAG. IX2094.2READ IX-FS1 INTO FILE-RECORD-INFO (1) IX2094.2AT END MOVE 1 TO INIT-FLAG. IX2094.2IF XRECORD-NUMBER (1) NOT EQUAL TO 100 IX2094.2MOVE 1 TO INIT-FLAG. IX2094.2MOVE "**" TO FS1-STATUS. IX2094.2MOVE XRECORD-KEY (1) TO WRK-FS1-RECKEY. IX2094.2MOVE FS1-RECKEY-1-13 TO COMPUTED-A. IX2094.2MOVE RECKEY-VALUE (RECNO) TO CORRECT-A. IX2094.2MOVE SPACE TO P-OR-F. IX2094.2MOVE "RECORD KEY VALUES" TO RE-MARK. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE ALTERNATE-KEY1 (1) TO WRK-FS1-ALTKEY1. IX2094.2MOVE FS1-ALTKEY1-1-20 TO COMPUTED-A. IX2094.2MOVE ALTKEY1-VALUE (RECNO) TO CORRECT-A. IX2094.2MOVE SPACE TO P-OR-F. IX2094.2MOVE "ALTERNATE RECORD KEY1 VALUES" TO RE-MARK. IX2094.2PERFORM PRINT-DETAIL. IX2094.2MOVE ALTERNATE-KEY2 (1) TO WRK-FS1-ALTKEY2. IX2094.2MOVE FS1-ALTKEY2-1-20 TO COMPUTED-A. IX2094.2MOVE ALTKEY2-VALUE (RECNO) TO CORRECT-A. IX2094.2MOVE SPACE TO P-OR-F. IX2094.2MOVE "ALTERNATE RECORD KEY2 VALUES" TO RE-MARK. IX2094.2PERFORM PRINT-DETAIL. IX2094.2EXIT . IX2094.2SECTION . IX2094.2GO TO CLOSE-FILES. IX2094.2
Messung V0.5 in Prozent C=75 H=92 G=83
¤ Dauer der Verarbeitung: 0.128 Sekunden
(vorverarbeitet am 2026-04-28)
¤ *© Formatika GbR, Deutschland
2026-05-26
