Quelle ix210a.cob
Sprache: Cobol
000100 IDENTIFICATION DIVISION . IX2104.2PROGRAM-ID . IX2104.2000400**************************************************************** IX2104.2 000500* * IX2104.2 000600* VALIDATION FOR:- * IX2104.2 000700* * IX2104.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2104.2 000900* * IX2104.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2104.2 001100* * IX2104.2 001200**************************************************************** IX2104.2 001300* * IX2104.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * IX2104.2 001500* * IX2104.2 001600* X-55 - SYSTEM PRINTER NAME. * IX2104.2 001700* X-82 - SOURCE COMPUTER NAME. * IX2104.2 001800* X-83 - OBJECT COMPUTER NAME. * IX2104.2 001900* * IX2104.2 002000**************************************************************** IX2104.2 002100* THE PURPOSE OF THE PROGRAM IS TO TEST USE OF THE IX2104.2 002200* START --- GREATER THAN --- STATEMENT USING FIRST THE PRIME IX2104.2 002300* RECORD KEY AND THEN WITH AN ALTERNATE RECORD KEY IX2104.2 002400* AS THE KEY OF REFERENCE. THE START STATEMENT NAMES, IX2104.2 002500* IN ITS CONSTRUCT , EITHER THE DATA NAME SPECIFIED IN THE IX2104.2 002600* KEY CLAUSE OR A DATA ITEM THAT IS SUBORDINATE TO THE IX2104.2 002700* KEY NAME. DIFFERENT KEY VALUES ARE USED FOR TESTING. IX2104.2 002800* IF A KEY VALUE IS PROVIDED WHICH MATCHES A RECORD IN THE FILEIX2104.2 002900* WHEN THE START IS EXECUTED THEN THE RECORD IS EXPECTED TO IX2104.2 003000* MADE AVAILABLE BY THE SUBSEQUENT READ STATEMENT. IF A KEY IX2104.2 003100* VALUE IS PROVIDED WHICH DOES NOT MATCH ANY RECORD IN THE IX2104.2 003200* FILE THEN THE INVALID KEY PATH IS EXPECTED TO BE TAKEN. IX2104.2 003300* THE FILE STATUS CONTENTS RESULTING FROM EXECUTION OF THE IX2104.2 003400* START TESTS ARE SAVED AND CHECKED IN LATER TESTS. IX2104.2 003500* IX2104.2 003600* REFERENCE AMERICAN NATIONAL STANDARD IX2104.2 003700* PROGRAMMING LANGUAGE COBOL, X3.23-1985. IX2104.2 003800* SECTION IX, INDEX I-O, THE START IX2104.2 003900* STATEMENT. PARAGRAPHS 4.7.3 (3); IX2104.2 004000* 4.7.4 (1), (4), (4)IX2104.2 004100* AND IX2104.2 004200* THE FILE STATUS PARAGRAPH 1.3.4 IX2104.2 004300* IX2104.2 004400* BEFORE EXECUTION OF THE START IN EACH TEST, A RECORD IS MADE IX2104.2 004500* AVAILABLE FROM THE FILE THAT IS DIFFERENT THAN WILL RESULT IX2104.2 004600* FROM THE TEST, AND THE RECORD KEY IS LOADED WITH A KEY VALUE.IX2104.2 004700* DEPENDING ON THE NATURE OF THE TEST THE KEY VALUE MAY OR IX2104.2 004800* MAY NOT BE A VALID KEY FOR THE FILE. IX2104.2 004900* IX2104.2 005000* THIS PROGRAM FIRST CREATES AN INDEXED SEQUENTIAL FILE IX2104.2 005100* CONTAINING TWO ALTERNATE KEYS AND THE ONE REQUIRED RECORD IX2104.2 005200* KEY FOR THE FILE. IMMEDIATELY FOLLOWING FILE CREATION THE IX2104.2 005300* FILE IS READ AND THE RECORDS OF THE FILE VERIFIED FOR IX2104.2 005400* ACCURACY. NEXT THE TESTS ARE EXECUTED USING THE START --- IX2104.2 005500* GREATER THAN ---STATEMENT. IX2104.2 005600* THE RECORDS IN THE FILE ARE CREATED IN SEQUENTIAL ORDER BY IX2104.2 005700* RECORD KEY VALUE. FOLLOWING IS A SAMPLE OF THE DATA IX2104.2 005800* CONTENTS FOR THE RECORD KEY AND TWO ALTERNATE RECORD KEYS IN IX2104.2 005900* THE FILE. IX2104.2 006000* IX2104.2 006100* REC-NO RECORD-KEY ALTERNATE-KEY-1 ALTERNATE-KEY-2 IX2104.2 006200* ------ ---------- --------------- --------------- IX2104.2 006300* 001 BBBBBBBBBC002 EEEEEEEEEF000ALTKEY1 WWWWWWWWWV398ALTKEY2IX2104.2 006400* 002 BBBBBBBBCC004 EEEEEEEEFF004ALTKEY1 WWWWWWWWVV396ALTKEY2IX2104.2 006500* 003 BBBBBBBCCC006 EEEEEEEFFF006ALTKEY1 WWWWWWWVVV394ALTKEY2IX2104.2 006600* . . . . IX2104.2 006700* . . . . IX2104.2 006800* . . . . IX2104.2 006900* 010 CCCCCCCCCC020 FFFFFFFFFF020ALTKEY1 VVVVVVVVVV380ALTKEY2IX2104.2 007000* 011 CCCCCCCCCD022 FFFFFFFFFG022ALTKEY1 VVVVVVVVVV380ALTKEY2IX2104.2 007100* 012 CCCCCCCCDD024 FFFFFFFFGG024ALTKEY1 VVVVVVVVUU376ALTKEY2IX2104.2 007200* . . . . IX2104.2 007300* . . . . IX2104.2 007400* . . . . IX2104.2 007500* 200 UUUUUUUUUU400 YYYYYYYYYY400ALTKEY1 DDDDDDDDDD000ALTKEY2IX2104.2 007600* IX2104.2 007700* NOTE 1 - ALTERNATE KEY NUMBER 2 CONTAINS DUPLICATE KEYS IX2104.2 007800* EVERY 10TH AND 11TH RECORDS. IX2104.2 007900* IX2104.2 008000* NOTE 2 - THE FIRST 50 RECORDS AND LAST 25 RECORDS OF THE IX2104.2 008100* FILE FOLLOW THE ABOVE SEQUENTIAL KEY PATTERN. FOR THE MIDDLEIX2104.2 008200* 125 RECORDS ONLY THE NUMBER PART OF THE KEYS ARE VARIED IX2104.2 008300* AND VARIED IN THE SEQUENCE SHOWN ABOVE. THAT IS, RECORD-KEY IX2104.2 008400* AND ALTERNATE-KEY-1 ARE INCREMENTED BY 2 AND THE ALTERNATE- IX2104.2 008500* KEY-2 IS DECREMENTED BY 2 EACH TIME A RECORD IS WRITTEN TO IX2104.2 008600* THE FILE. THE FILE IS DESIGNED TO BE LARGE ENOUGH SO THAT IX2104.2 008700* AN I-O OPERATION IS REQUIRED FOR EACH RECORD ACCESSED FROM IX2104.2 008800* THE FILE. IX2104.2 008900* IX2104.2 009000* FILE CHARACTERISTICS ARE: FILE SIZE = 200 RECORDS IX2104.2 009100* RECORD SIZE = 240 CHARS. IX2104.2 009200* RECORD KEY SIZE = 13 CHARS. IX2104.2 009300* ALTERNATE KEY 1 SIZE = 20 CHARS. IX2104.2 009400* ALTERNATE KEY 2 SIZE = 20 CHARS. IX2104.2 009500* ACCESS MODE = SEQUENTIAL IX2104.2 009600* IX2104.2 009700* A LIST OF COBOL ELEMENTS WITH THE PARAGRAPH NAME IN PARENTH- IX2104.2 009800* ESIS THAT TESTS THE ELEMENT AND A SHORT DESCRIPTION OF THE IX2104.2 009900* TEST FOLLOWS. IX2104.2 010000* IX2104.2 010100* PROGRAM COLLATING SEQUENCE CLAUSE. (ALL START TESTS) - IX2104.2 010200* THE PROGRAM COLLATING SEQUENCE CLAUSE SHOULD HAVE NO IX2104.2 010300* EFFECT ON THE COMARAISIONS ASSOCIATED WITH THE START IX2104.2 010400* STATEMENT. THIS PROGRAM ASSUMES THAT THE PROGRAM IX2104.2 010500* COLLATING SEQUENCE CLAUSE ALSO DOES NOT IN ANY WAY IX2104.2 010600* EFFECT THE SEQUENTIAL ORDER OF RECORDS ACCESSED IX2104.2 010700* FROM OR WRITTEN TO THE FILE. IX2104.2 010800* WRITE --- INVALID KEY---. (INX-TEST-001) - THIS TEST CREATEIX2104.2 010900* A FILE OF 200 RECORDS CONTAINING ONE RECORD KEY AND IX2104.2 011000* TWO ALTERNATE KEYS. IX2104.2 011100* READ ---AT END ---. (INX-TEST-002) - THIS TEST READS THE IX2104.2 011200* FILE CREATED IN INX-TEST-001 AND VERIFIES THAT THE IX2104.2 011300* FILE WAS CREATED CORRECTLY. IX2104.2 011400* START ---KEY GREATER THAN RECORD-KEY INVALID KEY ---. (INX-IX2104.2 011500* TEST-003.01 THRU INX-TEST-003.04) - THE START IX2104.2 011600* STATEMENT IS EXECUTED USING THE RECORD-KEY FOR THE IX2104.2 011700* FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2 011800* RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY IX2104.2 011900* VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE IX2104.2 012000* (.03) AND GREATER THAN THAN THE LAST RECORD IN THE IX2104.2 012100* FILE (.04). IX2104.2 012200* START ---KEY GREATER THAN DATA-ITEM INVALID KEY ---. (INX-IX2104.2 012300* TEST-003.05 THRU INX-TEST-003.09) - THE START IX2104.2 012400* STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS IX2104.2 012500* SUBORDINATE TO THE RECORD-KEY NAME OF THE FILE IX2104.2 012600* AND CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2 012700* RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN IX2104.2 012800* IN MORE THAN ONE RECORD IN THE FILE (.06), IX2104.2 012900* NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN IX2104.2 013000* THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN IX2104.2 013100* THE LAST RECORD IN THE FILE (.09. IX2104.2 013200* IX2104.2 013300* NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2104.2 013400* IS AN ENTRY SUBORDINATE TO A REDEFINES IX2104.2 013500* ENTRY WHICH USES AS ITS OBJECT THE KEY IX2104.2 013600* NAMED BY THE RECORD KEY CLAUSE. IX2104.2 013700* IX2104.2 013800* FILE STATUS. (INX-TEST-004.01 THRU INX-TEST-004.09) - THESEIX2104.2 013900* TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2104.2 014000* FROM THE START IN INX-TEST-003.01 THRU IX2104.2 014100* INX-TEST-003.09. IX2104.2 014200* START ---KEY GREATER THAN ALTNATE-KEY INVALID KEY --. (INX-IX2104.2 014300* TEST-005.01 THRU INX-TEST-005.04) - THE START IX2104.2 014400* STATEMENT IS EXECUTED USING THE ALTERNATE-KEY FOR THEIX2104.2 014500* FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2 014600* RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY IX2104.2 014700* VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE IX2104.2 014800* (.03) AND GREATER THAN THAN THE LAST RECORD IN THE IX2104.2 014900* FILE (.04). IX2104.2 015000* START ---KEY GREATER THAN DATA-ITEM INVALID KEY --. (INX-IX2104.2 015100* TEST-005.05 THRU INX-TEST-005.09) - THE START IX2104.2 015200* STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS IX2104.2 015300* SUBORDINATE TO THE ALTERNATE-KEY NAME OF THE FILE IX2104.2 015400* AND CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2 015500* RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN IX2104.2 015600* IN MORE THAN ONE RECORD IN THE FILE (.06), IX2104.2 015700* NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN IX2104.2 015800* THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN IX2104.2 015900* THE LAST RECORD IN THE FILE (.09. IX2104.2 016000* IX2104.2 016100* NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2104.2 016200* IS AN ENTRY SUBORDINATE TO A REDEFINES IX2104.2 016300* ENTRY WHICH USES AS ITS OBJECT THE KEY IX2104.2 016400* NAMED BY THE RECORD KEY CLAUSE. IX2104.2 016500* IX2104.2 016600* FILE STATUS. (INX-TEST-006.01 THRU INX-TEST-006.09) - THESEIX2104.2 016700* TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2104.2 016800* FROM THE START IN INX-TEST-005.01 THRU IX2104.2 016900* INX-TEST-005.09. IX2104.2 017000* MULTIPLE STARTS. (INX-TEST-007) - THIS TEST EXECUTES IX2104.2 017100* SEVERAL START STATEMENTS FOLLOWED BY A READ STATEMENTIX2104.2 017200* AND EXPECTS THE RECORD DESIGNATED BY THE LAST IX2104.2 017300* START BE MADE AVAILABLE. IX2104.2 017400* IX2104.2 017500******************************************************************IX2104.2 017600* IX2104.2 ENVIRONMENT DIVISION . IX2104.2CONFIGURATION SECTION . IX2104.2SOURCE-COMPUTER . IX2104.2OBJECT-COMPUTER . IX2104.2PROGRAM COLLATING SEQUENCE IS FOR-INX-START-TEST. IX2104.2SPECIAL-NAMES . IX2104.2ALPHABET IX2104.2IS "WVUTSRJIHGFEDCB" . IX2104.2INPUT-OUTPUT SECTION . IX2104.2FILE-CONTROL . IX2104.2SELECT RAW-DATA ASSIGN TO IX2104.2"C0098" IX2104.2ORGANIZATION IS INDEXED IX2104.2ACCESS MODE IS RANDOM IX2104.2RECORD KEY IS RAW-DATA-KEY. IX2104.2SELECT PRINT-FILE ASSIGN TO IX2104.2"C0085" . IX2104.2SELECT IX-FS1 IX2104.2ASSIGN TO IX2104.2"C0036" IX2104.2"C0068" IX2104.2ACCESS MODE IS SEQUENTIAL IX2104.2ORGANIZATION IS INDEXED IX2104.2RECORD KEY IS IX-FS1-KEY IX2104.2ALTERNATE RECORD KEY IS IX-FS1-ALTKEY1 IX2104.2ALTERNATE RECORD KEY IS IX-FS1-ALTKEY2 WITH DUPLICATES IX2104.2FILE STATUS IS FS1-STATUS. IX2104.2DATA DIVISION . IX2104.2FILE SECTION . IX2104.2FD RAW-DATA. IX2104.2PIC X(6). IX2104.2PIC 9(6). IX2104.2PIC 9(8). IX2104.2PIC 99. IX2104.2PIC 999. IX2104.2PIC 999. IX2104.2PIC 999. IX2104.2PIC 999. IX2104.2PIC 999. IX2104.2PIC X(13). IX2104.2PIC X. IX2104.2PIC X(8). IX2104.2FD PRINT-FILE. IX2104.2PICTURE X(120). IX2104.2PICTURE X(120). IX2104.2FD IX-FS1 IX2104.2LABEL RECORDS ARE STANDARD IX2104.2DATA RECORD IS IX-FS1R1-F-G-240 IX2104.2RECORD CONTAINS 240 CHARACTERS. IX2104.2PICTURE X(120). IX2104.2FILLER PICTURE X(8). IX2104.2PICTURE X(5). IX2104.2PICTURE X(5). IX2104.2PICTURE X(3). IX2104.2REDEFINES IX-FS1-KEY. IX2104.2PICTURE X(7). IX2104.2PICTURE X(6). IX2104.2FILLER PICTURE X(16). IX2104.2FILLER PICTURE X(9). IX2104.2PICTURE X(5). IX2104.2PICTURE X(5). IX2104.2PICTURE X(3). IX2104.2PICTURE X(7). IX2104.2REDEFINES IX-FS1-ALTKEY1. IX2104.2PICTURE X(6). IX2104.2PICTURE X(4). IX2104.2PICTURE X(10). IX2104.2FILLER PICTURE X(9). IX2104.2FILLER PICTURE X(9). IX2104.2PICTURE X(5). IX2104.2PICTURE X(5). IX2104.2PICTURE X(3). IX2104.2PICTURE X(7). IX2104.2FILLER PICTURE X(9). IX2104.2FILLER PICTURE X(7). IX2104.2WORKING-STORAGE SECTION . IX2104.2PICTURE X(10). IX2104.2PICTURE 9(3). IX2104.2FILLER PICTURE X(16) VALUE SPACE . IX2104.2PICTURE X(5). IX2104.2PICTURE X(5). IX2104.2PICTURE 9(3). IX2104.2PICTURE X(7). IX2104.2FILLER PICTURE X(9) VALUE SPACE . IX2104.2PICTURE X(5). IX2104.2PICTURE X(5). IX2104.2PICTURE 9(3). IX2104.2PICTURE X(7). IX2104.2FILLER PICTURE X(9) VALUE SPACE . IX2104.2PICTURE 9(5) VALUE ZERO . IX2104.2PICTURE XX VALUE SPACE . IX2104.2PICTURE 9(6) VALUE ZERO . IX2104.2PICTURE 9(3) COMPUTATIONAL. IX2104.2PICTURE 9(3) COMPUTATIONAL. IX2104.2PICTURE 9(3). IX2104.2PICTURE 9(3). IX2104.2PICTURE 9(3). IX2104.2PICTURE 9(3). IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBBBBBBBBC002EEEEEEEEEF002ALTKEY1WWWWWWWWWV398ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBBBBBBBCC004EEEEEEEEFF004ALTKEY1WWWWWWWWVV396ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBBBBBBCCC006EEEEEEEFFF006ALTKEY1WWWWWWWVVV394ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBBBBBCCCC008EEEEEEFFFF008ALTKEY1WWWWWWVVVV392ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBBBBCCCCC010EEEEEFFFFF010ALTKEY1WWWWWVVVVV390ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBBBCCCCCC012EEEEFFFFFF012ALTKEY1WWWWVVVVVV388ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBBCCCCCCC014EEEFFFFFFF014ALTKEY1WWWVVVVVVV386ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BBCCCCCCCC016EEFFFFFFFF016ALTKEY1WWVVVVVVVV384ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"BCCCCCCCCC018EFFFFFFFFF018ALTKEY1WVVVVVVVVV382ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCCCCCCCC020FFFFFFFFFF020ALTKEY1VVVVVVVVVV380ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCCCCCCCD022FFFFFFFFFG022ALTKEY1VVVVVVVVVV380ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCCCCCCDD024FFFFFFFFGG024ALTKEY1VVVVVVVVUU376ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCCCCCDDD026FFFFFFFGGG026ALTKEY1VVVVVVVUUU374ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCCCCDDDD028FFFFFFGGGG028ALTKEY1VVVVVVUUUU372ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCCCDDDDD030FFFFFGGGGG030ALTKEY1VVVVVUUUUU370ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCCDDDDDD032FFFFGGGGGG032ALTKEY1VVVVUUUUUU368ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCCDDDDDDD034FFFGGGGGGG034ALTKEY1VVVUUUUUUU366ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CCDDDDDDDD036FFGGGGGGGG036ALTKEY1VVUUUUUUUU364ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"CDDDDDDDDD038FGGGGGGGGG038ALTKEY1VUUUUUUUUU362ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDDDDDDDD040GGGGGGGGGG040ALTKEY1UUUUUUUUUU360ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDDDDDDDE042GGGGGGGGGH042ALTKEY1UUUUUUUUUU360ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDDDDDDEE044GGGGGGGGHH044ALTKEY1UUUUUUUUTT356ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDDDDDEEE046GGGGGGGHHH046ALTKEY1UUUUUUUTTT354ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDDDDEEEE048GGGGGGHHHH048ALTKEY1UUUUUUTTTT352ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDDDEEEEE050GGGGGHHHHH050ALTKEY1UUUUUTTTTT350ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDDEEEEEE052GGGGHHHHHH052ALTKEY1UUUUTTTTTT348ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDDEEEEEEE054GGGHHHHHHH054ALTKEY1UUUTTTTTTT346ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DDEEEEEEEE056GGHHHHHHHH056ALTKEY1UUTTTTTTTT344ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"DEEEEEEEEE058GHHHHHHHHH058ALTKEY1UTTTTTTTTT342ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEEEEEEEE060HHHHHHHHHH060ALTKEY1TTTTTTTTTT340ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEEEEEEEF062HHHHHHHHHI062ALTKEY1TTTTTTTTTT340ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEEEEEEFF064HHHHHHHHII064ALTKEY1TTTTTTTTSS336ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEEEEEFFF066HHHHHHHIII066ALTKEY1TTTTTTTSSS334ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEEEEFFFF068HHHHHHIIII068ALTKEY1TTTTTTSSSS332ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEEEFFFFF070HHHHHIIIII070ALTKEY1TTTTTSSSSS330ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEEFFFFFF072HHHHIIIIII072ALTKEY1TTTTSSSSSS328ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEEFFFFFFF074HHHIIIIIII074ALTKEY1TTTSSSSSSS326ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EEFFFFFFFF076HHIIIIIIII076ALTKEY1TTSSSSSSSS324ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"EFFFFFFFFF078HIIIIIIIII078ALTKEY1TSSSSSSSSS322ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFFFFFFFF080IIIIIIIIII080ALTKEY1SSSSSSSSSS320ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFFFFFFFG082IIIIIIIIIJ082ALTKEY1SSSSSSSSSS320ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFFFFFFGG084IIIIIIIIJJ084ALTKEY1SSSSSSSSRR316ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFFFFFGGG086IIIIIIIJJJ086ALTKEY1SSSSSSSRRR314ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFFFFGGGG088IIIIIIJJJJ088ALTKEY1SSSSSSRRRR312ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFFFGGGGG090IIIIIJJJJJ090ALTKEY1SSSSSRRRRR310ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFFGGGGGG092IIIIJJJJJJ092ALTKEY1SSSSRRRRRR308ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFFGGGGGGG094IIIJJJJJJJ094ALTKEY1SSSRRRRRRR306ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FFGGGGGGGG096IIJJJJJJJJ096ALTKEY1SSRRRRRRRR304ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"FGGGGGGGGG098IJJJJJJJJJ098ALTKEY1SRRRRRRRRR302ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"GGGGGGGGGG100JJJJJJJJJJ100ALTKEY1RRRRRRRRRR300ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"RRRRSSSSSS352VVVVWWWWWW352ALTKEY1GGGGFFFFFF048ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"RRRSSSSSSS354VVVWWWWWWW354ALTKEY1GGGFFFFFFF046ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"RRSSSSSSSS356VVWWWWWWWW356ALTKEY1GGFFFFFFFF044ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"RSSSSSSSSS358VWWWWWWWWW358ALTKEY1GFFFFFFFFF042ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSSSSSSSS360WWWWWWWWWW360ALTKEY1FFFFFFFFFF040ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSSSSSSST362WWWWWWWWWX362ALTKEY1FFFFFFFFFF040ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSSSSSSTT364WWWWWWWWXX364ALTKEY1FFFFFFFFEE036ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSSSSSTTT366WWWWWWWXXX366ALTKEY1FFFFFFFEEE034ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSSSSTTTT368WWWWWWXXXX368ALTKEY1FFFFFFEEEE032ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSSSTTTTT370WWWWWCard0880ALTKEY1FFFFFEEEEE030ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSSTTTTTT372WWWWXXXXXX372ALTKEY1FFFFEEEEEE028ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSSTTTTTTT374WWWXXXXXXX374ALTKEY1FFFEEEEEEE026ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"SSTTTTTTTT376WWXXXXXXXX376ALTKEY1FFEEEEEEEE024ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"STTTTTTTTT378WXXXXXXXXX378ALTKEY1FEEEEEEEEE022ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTTTTTTTT380XXXXXXXXXX380ALTKEY1EEEEEEEEEE020ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTTTTTTTU382XXXXXXXXXY382ALTKEY1EEEEEEEEEE020ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTTTTTTUU384XXXXXXXXYY384ALTKEY1EEEEEEEEDD016ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTTTTTUUU386XXXXXXXYYY386ALTKEY1EEEEEEEDDD014ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTTTTUUUU388XXXXXXYYYY388ALTKEY1EEEEEEDDDD012ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTTTUUUUU390XXXXXYYYYY390ALTKEY1EEEEEDDDDD010ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTTUUUUUU392XXXXYYYYYY392ALTKEY1EEEEDDDDDD008ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTTUUUUUUU394XXXYYYYYYY394ALTKEY1EEEDDDDDDD006ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TTUUUUUUUU396XXYYYYYYYY396ALTKEY1EEDDDDDDDD004ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"TUUUUUUUUU398XYYYYYYYYY398ALTKEY1EDDDDDDDDD002ALTKEY2" .IX2104.2FILLER PIC X(53) VALUE IX2104.2"UUUUUUUUUU400YYYYYYYYYY400ALTKEY1DDDDDDDDDD000ALTKEY2" .IX2104.2REDEFINES RECORD-KEY-CONTENT. IX2104.2OCCURS 75 TIMES. IX2104.2PICTURE X(13). IX2104.2PICTURE X(20). IX2104.2PICTURE X(20). IX2104.2PICTURE 9. IX2104.2PICTURE XX OCCURS 10 TIMES. IX2104.2FILLER PICTURE X(48) VALUE IX2104.2"FILE= ,RECORD= /0,RECNO=000000,UPDT=00" . IX2104.2FILLER PICTURE X(46) VALUE IX2104.2",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000" . IX2104.2FILLER PICTURE X(26) VALUE IX2104.2",LFIL=000000,ORG= ,LBLR= " . IX2104.2FILLER PICTURE X(37) VALUE IX2104.2",RECKEY= " . IX2104.2FILLER PICTURE X(38) VALUE IX2104.2",ALTKEY1= " . IX2104.2FILLER PICTURE X(38) VALUE IX2104.2",ALTKEY2= " . IX2104.2FILLER PICTURE X(7) VALUE SPACE .IX2104.2OCCURS 10 TIMES. IX2104.2FILLER PIC X(5). IX2104.2PIC X(6). IX2104.2FILLER PIC X(8). IX2104.2PIC X(6). IX2104.2FILLER PIC X(1). IX2104.2PIC 9(1). IX2104.2FILLER PIC X(7). IX2104.2PIC 9(6). IX2104.2FILLER PIC X(6). IX2104.2PIC 9(2). IX2104.2FILLER PIC X(5). IX2104.2PIC 9(4). IX2104.2FILLER PIC X(5). IX2104.2PIC X(5). IX2104.2FILLER PIC X(7). IX2104.2PIC 9(6). IX2104.2FILLER PIC X(7). IX2104.2PIC X(2). IX2104.2FILLER PIC X(1). IX2104.2PIC 9(4). IX2104.2FILLER PIC X(6). IX2104.2PIC 9(6). IX2104.2FILLER PIC X(5). IX2104.2PIC X(2). IX2104.2FILLER PIC X(6). IX2104.2PIC X(1). IX2104.2FILLER PIC X(8). IX2104.2PIC X(29). IX2104.2FILLER PIC X(9). IX2104.2PIC X(29). IX2104.2FILLER PIC X(9). IX2104.2PIC X(29). IX2104.2FILLER PIC X(7). IX2104.2FILLER PIC X VALUE SPACE . IX2104.2PIC X(20) VALUE SPACE . IX2104.2FILLER PIC X VALUE SPACE . IX2104.2PIC X(5) VALUE SPACE . IX2104.2FILLER PIC X VALUE SPACE . IX2104.2FILLER PIC X(19) VALUE SPACE . IX2104.2PIC X VALUE SPACE . IX2104.2PIC 99 VALUE ZERO . IX2104.2FILLER PIC X(8) VALUE SPACE . IX2104.2PIC X(61). IX2104.2FILLER PIC X(30) VALUE SPACE . IX2104.2FILLER PIC X(17) VALUE IX2104.2" COMPUTED=" . IX2104.2PIC X(20) VALUE SPACE . IX2104.2REDEFINES COMPUTED-A IX2104.2PIC -9(9).9(9). IX2104.2REDEFINES COMPUTED-A PIC -.9(18). IX2104.2REDEFINES COMPUTED-A PIC -9(4).9(14). IX2104.2REDEFINES COMPUTED-A PIC -9(14).9(4). IX2104.2REDEFINES COMPUTED-A. IX2104.2PIC -9(18). IX2104.2FILLER PIC X. IX2104.2FILLER PIC X(50) VALUE SPACE . IX2104.2FILLER PIC X(30) VALUE SPACE . IX2104.2FILLER PIC X(17) VALUE " CORRECT =" . IX2104.2PIC X(20) VALUE SPACE . IX2104.2REDEFINES CORRECT-A PIC -9(9).9(9). IX2104.2REDEFINES CORRECT-A PIC -.9(18). IX2104.2REDEFINES CORRECT-A PIC -9(4).9(14). IX2104.2REDEFINES CORRECT-A PIC -9(14).9(4). IX2104.2REDEFINES CORRECT-A. IX2104.2PIC -9(18). IX2104.2FILLER PIC X. IX2104.2FILLER PIC X(2) VALUE SPACE . IX2104.2PIC X(48) VALUE SPACE . IX2104.2FILLER PIC IS X(99) VALUE IS " FEATURE PAIX2104.2 "SS PARAGRAPH-NAME IX2104.2 " REMARKS" . IX2104.2FILLER PIC X(20) VALUE SPACE . IX2104.2FILLER PIC X VALUE SPACE . IX2104.2FILLER PIC X(6) VALUE "TESTED" . IX2104.2FILLER PIC X(15) VALUE SPACE . IX2104.2FILLER PIC X(4) VALUE "FAIL" . IX2104.2FILLER PIC X(94) VALUE SPACE . IX2104.2PIC 9(2) VALUE ZERO . IX2104.2PIC 99 VALUE ZERO . IX2104.2PIC 999 VALUE ZERO . IX2104.2PIC 999 VALUE ZERO . IX2104.2PIC 999 VALUE ZERO . IX2104.2PIC 999 VALUE ZERO . IX2104.2PIC 999 VALUE ZERO . IX2104.2PIC 999 VALUE ZERO . IX2104.2PIC X(120) VALUE SPACE . IX2104.2PIC 9(5) VALUE ZERO . IX2104.2PIC X(48) VALUE SPACES . IX2104.2FILLER PIC X(39) VALUE SPACES . IX2104.2FILLER PIC X(42) VALUE IX2104.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . IX2104.2FILLER PIC X(39) VALUE SPACES . IX2104.2FILLER PIC X(40) VALUE SPACE . IX2104.2FILLER PIC X(7) VALUE "CCVS85 " . IX2104.2FILLER PIC XXXX VALUE IX2104.2"4.2 " . IX2104.2FILLER PIC X(28) VALUE IX2104.2" COPY - NOT FOR DISTRIBUTION" . IX2104.2FILLER PIC X(41) VALUE SPACE . IX2104.2FILLER PIC X(15) VALUE IX2104.2"TEST RESULT OF " . IX2104.2PIC X(9). IX2104.2FILLER PIC X(4) VALUE IX2104.2" IN " . IX2104.2FILLER PIC X(12) VALUE IX2104.2" HIGH " . IX2104.2FILLER PIC X(22) VALUE IX2104.2" LEVEL VALIDATION FOR " . IX2104.2FILLER PIC X(58) VALUE IX2104.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .IX2104.2FILLER PIC X(34) VALUE IX2104.2" FOR OFFICIAL USE ONLY " . IX2104.2FILLER PIC X(58) VALUE IX2104.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .IX2104.2FILLER PIC X(28) VALUE IX2104.2" COPYRIGHT 1985 " . IX2104.2FILLER PIC X(52) VALUE SPACE . IX2104.2FILLER PIC X(14) VALUE IS "END OF TEST- " . IX2104.2PIC X(9). IX2104.2FILLER PIC X(45) VALUE SPACES . IX2104.2FILLER PIC X(31) VALUE SPACE . IX2104.2FILLER PIC X(21) VALUE SPACE . IX2104.2PIC XXX VALUE SPACE . IX2104.2FILLER PIC X VALUE SPACE . IX2104.2PIC X(44) VALUE IX2104.2"ERRORS ENCOUNTERED" . IX2104.2FILLER PIC X(22) VALUE IX2104.2" FOR OFFICIAL USE ONLY" . IX2104.2FILLER PIC X(12) VALUE SPACE . IX2104.2FILLER PIC X(58) VALUE IX2104.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .IX2104.2FILLER PIC X(13) VALUE SPACE . IX2104.2FILLER PIC X(15) VALUE IX2104.2" COPYRIGHT 1985" . IX2104.2PIC XXX VALUE SPACE . IX2104.2FILLER PIC X(4) VALUE " OF " . IX2104.2PIC XXX VALUE SPACE . IX2104.2FILLER PIC X(40) VALUE IX2104.2" TESTS WERE EXECUTED SUCCESSFULLY" . IX2104.2FILLER PIC X(19) VALUE IX2104.2"*** INFORMATION ***" . IX2104.2FILLER PIC X(8) VALUE SPACE . IX2104.2PIC X(20). IX2104.2FILLER PIC X(5) VALUE SPACE . IX2104.2PIC X(20). IX2104.2PIC X(48). IX2104.2FILLER PIC IS X VALUE IS SPACE . IX2104.2FILLER PIC IS X(65) VALUE IS "************************IX2104.2 "*****************************************" . IX2104.2FILLER PIC IS X(54) VALUE IS "************************IX2104.2 "******************************" . IX2104.2PIC X(9) VALUE IX2104.2"IX210A" . IX2104.2PROCEDURE DIVISION . IX2104.2SECTION . IX2104.2OPEN I-O RAW-DATA. IX2104.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2104.2READ RAW-DATA INVALID KEY GO TO END-E-1. IX2104.2MOVE "ABORTED " TO C-ABORT. IX2104.2ADD 1 TO C-NO-OF-TESTS. IX2104.2ACCEPT C-DATE FROM DATE . IX2104.2ACCEPT C-TIME FROM TIME . IX2104.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1. IX2104.2CLOSE RAW-DATA. IX2104.2OPEN OUTPUT PRINT-FILE. IX2104.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IX2104.2MOVE SPACE TO TEST-RESULTS. IX2104.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IX2104.2MOVE ZERO TO REC-SKL-SUB. IX2104.2PERFORM CCVS-INIT-FILE 9 TIMES. IX2104.2ADD 1 TO REC-SKL-SUB. IX2104.2MOVE FILE-RECORD-INFO-SKELETON IX2104.2TO FILE-RECORD-INFO (REC-SKL-SUB). IX2104.2GO TO CCVS1-EXIT. IX2104.2OPEN I-O RAW-DATA. IX2104.2MOVE CCVS-PGM-ID TO RAW-DATA-KEY. IX2104.2READ RAW-DATA INVALID KEY GO TO END-E-2. IX2104.2MOVE "OK. " TO C-ABORT. IX2104.2MOVE PASS-COUNTER TO C-OK. IX2104.2MOVE ERROR-HOLD TO C-ALL. IX2104.2MOVE ERROR-COUNTER TO C-FAIL. IX2104.2MOVE DELETE-COUNTER TO C-DELETED. IX2104.2MOVE INSPECT-COUNTER TO C-INSPECT. IX2104.2REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2. IX2104.2CLOSE RAW-DATA. IX2104.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IX2104.2EXIT PROGRAM . IX2104.2STOP RUN . IX2104.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IX2104.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IX2104.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IX2104.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IX2104.2MOVE "****TEST DELETED****" TO RE-MARK. IX2104.2IF REC-CT NOT EQUAL TO ZERO IX2104.2MOVE "." TO PARDOT-X IX2104.2MOVE REC-CT TO DOTVALUE. IX2104.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IX2104.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IX2104.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IX2104.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IX2104.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IX2104.2MOVE SPACE TO CORRECT-X. IX2104.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IX2104.2MOVE SPACE TO RE-MARK. IX2104.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2104.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IX2104.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2104.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IX2104.2ADD DELETE-COUNTER TO ERROR-HOLD. IX2104.2ADD PASS-COUNTER TO ERROR-HOLD. IX2104.2072700* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. IX2104.2 MOVE PASS-COUNTER TO CCVS-E-4-1. IX2104.2MOVE ERROR-HOLD TO CCVS-E-4-2. IX2104.2MOVE CCVS-E-4 TO CCVS-E-2-2. IX2104.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IX2104.2MOVE "TEST(S) FAILED" TO ENDER-DESC. IX2104.2IF ERROR-COUNTER IS EQUAL TO ZERO IX2104.2MOVE "NO " TO ERROR-TOTAL IX2104.2ELSE IX2104.2MOVE ERROR-COUNTER TO ERROR-TOTAL. IX2104.2MOVE CCVS-E-2 TO DUMMY-RECORD. IX2104.2PERFORM WRITE-LINE. IX2104.2IF DELETE-COUNTER IS EQUAL TO ZERO IX2104.2MOVE "NO " TO ERROR-TOTAL ELSE IX2104.2MOVE DELETE-COUNTER TO ERROR-TOTAL. IX2104.2MOVE "TEST(S) DELETED " TO ENDER-DESC. IX2104.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2IF INSPECT-COUNTER EQUAL TO ZERO IX2104.2MOVE "NO " TO ERROR-TOTAL IX2104.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IX2104.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IX2104.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IX2104.2ADD 1 TO RECORD-COUNT. IX2104.2IF RECORD-COUNT GREATER 42 IX2104.2MOVE DUMMY-RECORD TO DUMMY-HOLD IX2104.2MOVE SPACE TO DUMMY-RECORD IX2104.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE IX2104.2MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2104.2MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IX2104.2MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2104.2MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IX2104.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IX2104.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IX2104.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IX2104.2MOVE DUMMY-HOLD TO DUMMY-RECORD IX2104.2MOVE ZERO TO RECORD-COUNT. IX2104.2PERFORM WRT-LN. IX2104.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IX2104.2MOVE SPACE TO DUMMY-RECORD. IX2104.2PERFORM WRT-LN. IX2104.2IF COMPUTED-X NOT EQUAL TO SPACE IX2104.2GO TO FAIL-ROUTINE-WRITE. IX2104.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2104.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2104.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IX2104.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2MOVE SPACES TO INF-ANSI-REFERENCE. IX2104.2GO TO FAIL-ROUTINE-EX. IX2104.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IX2104.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IX2104.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2104.2MOVE SPACES TO COR-ANSI-REFERENCE. IX2104.2EXIT . IX2104.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IX2104.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IX2104.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. IX2104.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IX2104.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IX2104.2MOVE SPACES TO INF-ANSI-REFERENCE. IX2104.2EXIT . IX2104.2EXIT . IX2104.2SECTION . IX2104.2OPEN OUTPUT IX-FS1. IX2104.2MOVE "IX-FS1" TO XFILE-NAME (1). IX2104.2MOVE "R1-F-G" TO XRECORD-NAME (1). IX2104.2MOVE ZERO TO XRECORD-NUMBER (1). IX2104.2MOVE "RC" TO CHARS-OR-RECORDS (1). IX2104.2MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1). IX2104.2MOVE 240 TO XRECORD-LENGTH (1). IX2104.2MOVE 001 TO XBLOCK-SIZE (1). IX2104.2MOVE "IX" TO XFILE-ORGANIZATION (1). IX2104.2MOVE "S" TO XLABEL-TYPE (1). IX2104.2MOVE 200 TO RECORDS-IN-FILE (1). IX2104.2MOVE "CREATE-FILE-FS1" TO FEATURE. IX2104.2MOVE "WRITE-TEST-GF-1" TO PAR-NAME. IX2104.2MOVE ZERO TO KEYSUB. IX2104.2MOVE ZERO TO INVKEY-COUNTER. IX2104.2PERFORM WRITE-TEST-GF-01 50 TIMES. IX2104.2PERFORM WRITE-TEST-GF-02 125 TIMES. IX2104.2PERFORM WRITE-TEST-GF-01 25 TIMES. IX2104.2GO TO WRITE-TEST-GF-1. IX2104.2ADD 001 TO XRECORD-NUMBER (1). IX2104.2ADD 001 TO KEYSUB. IX2104.2MOVE RECKEY-VALUE (KEYSUB) TO FS1-RECKEY-1-13. IX2104.2MOVE ALTKEY1-VALUE (KEYSUB) TO FS1-ALTKEY1-1-20. IX2104.2MOVE ALTKEY2-VALUE (KEYSUB) TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO XRECORD-KEY (1). IX2104.2MOVE WRK-FS1-ALTKEY1 TO ALTERNATE-KEY1 (1). IX2104.2MOVE WRK-FS1-ALTKEY2 TO ALTERNATE-KEY2 (1). IX2104.2MOVE FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240. IX2104.2WRITE IX-FS1R1-F-G-240 IX2104.2INVALID KEY ADD 001 TO INVKEY-COUNTER. IX2104.2ADD 001 TO EXCUT-COUNTER-06V00. IX2104.2ADD 002 TO FS1-RECKEY-11-13. IX2104.2ADD 002 TO FS1-ALTKEY1-11-13. IX2104.2SUBTRACT 002 FROM FS1-ALTKEY2-11-13. IX2104.2ADD 001 TO XRECORD-NUMBER (1). IX2104.2MOVE WRK-FS1-RECKEY TO XRECORD-KEY (1). IX2104.2MOVE WRK-FS1-ALTKEY1 TO ALTERNATE-KEY1 (1). IX2104.2MOVE WRK-FS1-ALTKEY2 TO ALTERNATE-KEY2 (1). IX2104.2MOVE FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240. IX2104.2WRITE IX-FS1R1-F-G-240 IX2104.2INVALID KEY ADD 001 TO INVKEY-COUNTER. IX2104.2ADD 001 TO EXCUT-COUNTER-06V00. IX2104.2SUBTRACT INVKEY-COUNTER FROM EXCUT-COUNTER-06V00 IX2104.2GIVING RECORDS-WRITTEN. IX2104.2MOVE 200 TO CORRECT-18V0. IX2104.2MOVE RECORDS-WRITTEN TO COMPUTED-18V0. IX2104.2IF RECORDS-WRITTEN EQUAL TO 200 IX2104.2PERFORM PASS IX2104.2ELSE IX2104.2PERFORM FAIL. IX2104.2MOVE "RECORDS IN FILE" TO RE-MARK. IX2104.2GO TO WRITE-TEST-GF-END. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2CLOSE IX-FS1. IX2104.2OPEN INPUT IX-FS1. IX2104.2MOVE "READ FILE IX-FS1" TO FEATURE. IX2104.2MOVE ZERO TO EXCUT-COUNTER-06V00. IX2104.2MOVE 02 TO RECKEY-NUM. IX2104.2MOVE 002 TO ALTKEY1-NUM. IX2104.2READ IX-FS1 AT END GO TO READ-TEST-F1. IX2104.2MOVE IX-REC-KEY-AREA TO WRK-FS1-RECKEY. IX2104.2MOVE IX-ALT-KEY1-AREA TO WRK-FS1-ALTKEY1. IX2104.2IF FS1-RECKEY-11-13 EQUAL TO RECKEY-NUM IX2104.2AND FS1-ALTKEY1-11-13 EQUAL TO ALTKEY1-NUM IX2104.2NEXT SENTENCE IX2104.2ELSE IX2104.2PERFORM READ-FAIL-F1. IX2104.2IF EXCUT-COUNTER-06V00 GREATER THAN 200 IX2104.2GO TO READ-TEST-F1. IX2104.2ADD 001 TO EXCUT-COUNTER-06V00. IX2104.2ADD 002 TO RECKEY-NUM IX2104.2ADD 002 TO ALTKEY1-NUM. IX2104.2GO TO READ-TEST-F1-R1. IX2104.2IF EXCUT-COUNTER-06V00 EQUAL TO 200 IX2104.2PERFORM PASS ELSE IX2104.2PERFORM FAIL. IX2104.2MOVE EXCUT-COUNTER-06V00 TO COMPUTED-18V0. IX2104.2MOVE 200 TO CORRECT-18V0. IX2104.2MOVE "RECORDS IN FILE" TO RE-MARK. IX2104.2GO TO READ-EXIT-F1. IX2104.2PERFORM FAIL. IX2104.2MOVE FS1-RECKEY-11-13 TO COMPUTED-18V0. IX2104.2MOVE RECKEY-NUM TO CORRECT-18V0. IX2104.2MOVE "NUM EMBEDDED IN RECKEY; IX-41 & IX-28" TO RE-MARK. IX2104.2PERFORM PRINT-DETAIL. IX2104.2CLOSE IX-FS1. IX2104.2OPEN INPUT IX-FS1. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-01" TO PAR-NAME. IX2104.2MOVE SPACE TO HOLD-FILESTATUS-RECORD. IX2104.2090400* IX2104.2 090500* THE "START -- GREATER THAN--" IS CHECKED FOR PROPER POSITIONING IX2104.2 090600* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT. IX2104.2 090700* START-TEST-GF USE ONLY THE PRIME RECORD KEY FOR ESTABLISHING IX2104.2 090800* THE CURRENT RECORD POINTER FOR THE FILE. THE FOLLOWING IS A IX2104.2 090900* SUMMARY OF THE TEST CONDITIONS AND THE EXPECTED ACTION TO BE IX2104.2 091000* TAKEN FOR THE TESTS. IX2104.2 091100* IX2104.2 091200* CONDITIONS (CONTENTS OF KEY) / ACTION IX2104.2 091300* IX2104.2 091400* START-TEST-GF-01 - EQUAL A RECORD IN FILE / RECORD FOUND IX2104.2 091500* START-TEST-GF-02 - BETWEEN 2 KEY VALUES / RECORD FOUND IX2104.2 091600* START-TEST-GF-03 - LESS THAN FIRST FILE REC. / REC. FOUND IX2104.2 091700* START-TEST-GF-04 - GREATER THAN LAST FILE RECORD / INVALID KEYIX2104.2 091800* START-TEST-GF-05 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2 091900* START-TEST-GF-06 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2 092000* START-TEST-GF-07 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2104.2 092100* START-TEST-GF-08 - UNEQUAL SIZE OPERANDS (UNEQUAL) / REC FOUNDIX2104.2 092200* START-TEST-GF-09 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEY IX2104.2 092300* IX2104.2 092400* BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2104.2 092500* THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2104.2 092600* IF AN INVALID KEY IS EXPECTED FROM THE TEST, THE KEYS IX2104.2 092700* ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE IX2104.2 092800* START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD IX2104.2 092900* MATCH RECORDS IN THE FILE. IF KEY MATCH IS EXPECTED FROM IX2104.2 093000* THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT IX2104.2 093100* PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH IX2104.2 093200* VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE. THE FILE IX2104.2 093300* STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2104.2 093400* IX2104.2 MOVE "START-TEST-GF-01" TO PAR-NAME. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "**" TO FILESTATUS (1) IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2GO TO START-DELETE-GF-01. IX2104.2MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2104.2MOVE "EEEEEFFFFF022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2094900* IX2104.2 095000* START-TEST-GF-01 - THE START SHOULD FIND A RECORD IN THE FILE IX2104.2 095100* WHICH HAS A RECORD KEY VALUE OF IX2104.2 095200* CCCCCCCCDD024 (RECORD NUMBER 12). IX2104.2 095300* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-KEY IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-01. IX2104.2MOVE FS1-STATUS TO FILESTATUS (1). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-01. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 12 IX2104.2PERFORM PASS IX2104.2MOVE SPACE TO RE-MARK IX2104.2GO TO START-EXIT-GF-01. IX2104.2MOVE 12 TO RECNO. IX2104.2PERFORM DISPLAY-RECORD-KEYS. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 12 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-01. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-02" TO PAR-NAME. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "**" TO FILESTATUS (2) IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2GO TO START-DELETE-GF-02. IX2104.2MOVE "EEEEEEEFFF067" TO FS1-RECKEY-1-13. IX2104.2MOVE "HHHHHHHHII064ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "TTTTTTTTSS336ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2099500* IX2104.2 099600* START-TEST-GF-02 - THE START SHOULD FIND A RECORD IN THE FILE IX2104.2 099700* WHICH HAS A RECORD KEY VALUE OF EEEEEEFFFF068IX2104.2 099800* (RECORD NUMBER 34). THIS KEY VALUE IS IX2104.2 099900* SEQUENTIALLY A LOGICAL RECORD HIGHER THAN IX2104.2 100000* THE RECORD CONTAINING THE KEY VALUE LOADED IX2104.2 100100* INTO THE RECORD KEY BEFORE THE START WAS IX2104.2 100200* EXECUTED. THE KEY VALUE INITIALLY LOADED IX2104.2 100300* WAS A VALUE BETWEEN TWO EXISTING KEY VALUES. IX2104.2 100400* IX2104.2 START IX-FS1 IX2104.2KEY GREATER THAN OR EQUAL TO IX-FS1-KEY IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-02. IX2104.2MOVE FS1-STATUS TO FILESTATUS (2). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-02. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 34 IX2104.2PERFORM PASS IX2104.2MOVE SPACE TO RE-MARK IX2104.2GO TO START-EXIT-GF-02. IX2104.2MOVE 34 TO RECNO. IX2104.2PERFORM DISPLAY-RECORD-KEYS. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 34 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-02. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-03" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "**" TO FILESTATUS (3) IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2GO TO START-DELETE-GF-03. IX2104.2MOVE "BBBBBBBBBC001" TO FS1-RECKEY-1-13. IX2104.2MOVE "EEEEEEEEEF003ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2104600* IX2104.2 104700* START-TEST-GF-03 - THE START STATEMENT SHOULD FIND A IX2104.2 104800* RECORD IN THE FILE WHICH HAS A RECORD KEY IX2104.2 104900* VALUE OF "BBBBBBBBBC002" (RECORD NUMBER 1). IX2104.2 105000* THE KEY WAS LOADED BEFORE THE START IS IX2104.2 105100* EXECUTED WITH THE VALUE THAT IS SEQUENTIALLY IX2104.2 105200* LOWER THAN ANY CURRENTLY EXISTING KEY IN IX2104.2 105300* THE FILE. IX2104.2 105400* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-KEY IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-03 IX2104.2END-START . IX2104.2MOVE FS1-STATUS TO FILESTATUS (3). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-03. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 01 IX2104.2PERFORM PASS IX2104.2MOVE SPACE TO RE-MARK IX2104.2GO TO START-EXIT-GF-03. IX2104.2MOVE 01 TO RECNO. IX2104.2PERFORM DISPLAY-RECORD-KEYS. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 01 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-03. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-04" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (4) IX2104.2GO TO START-DELETE-GF-04. IX2104.2MOVE "UUUUUUUUUU401" TO FS1-RECKEY-1-13. IX2104.2MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2109700* IX2104.2 109800* START-TEST-GF-04 - THE START STATEMENT SHOULD NOT FIND A IX2104.2 109900* RECORD IN THE FILE WHICH HAS A RECORD IX2104.2 110000* KEY VALUE GREATER THAN "UUUUUUUUUU401". THIS IX2104.2 110100* VALUE IS SEQUENTIALLY GREATER THAN IX2104.2 110200* ANY RECORD KEY CURRENTLY EXISTING IN IX2104.2 110300* THE FILE. AN INVALID KEY CONDITION IX2104.2 110400* IS EXPECTED WHEN THE START IS EXECUTED. IX2104.2 110500* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-KEY IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2104.2GO TO START-PASS-GF-04. IX2104.2MOVE FS1-STATUS TO FILESTATUS (4). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2PERFORM FAIL. IX2104.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2104.2MOVE "INVALID KEY" TO CORRECT-A. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-04. IX2104.2PERFORM PASS. IX2104.2MOVE "INVALID KEY OK." TO RE-MARK. IX2104.2GO TO START-EXIT-GF-04. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-05" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (5) IX2104.2GO TO START-DELETE-GF-05. IX2104.2MOVE "CDDDDDDDDD039" TO FS1-RECKEY-1-13. IX2104.2MOVE "IIIIIIIIJJ083ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2114200* START-TEST-GF-05 - THE START STATEMENT USES AN OPERAND IX2104.2 114300* IN THE KEY PHRASE WHICH IS NOT THE NAME IX2104.2 114400* OF A RECORD KEY BUT IS THE NAME OF A IX2104.2 114500* DATA ITEM WHICH IS SUBORDINATE TO THE IX2104.2 114600* RECORD KEY. THE CONTENTS OF THE DATA ITEM IX2104.2 114700* (POSITIONS 1 THRU 7 OF THE RECORD KEY) IX2104.2 114800* IS A UNIQUE KEY VALUE FOR THE FILE. THE IX2104.2 114900* BALANCE OF THE KEY (POSITIONS 8 THRU 13) IS IX2104.2 115000* NOT A VALID KEY VALUE FOR THE FILE. THE IX2104.2 115100* RECORD WITH THE RECORD KEY "DDDDDDDDDD040" IX2104.2 115200* (RECORD NUMBER 20) IS EXPECTED TO BE FOUND. IX2104.2 115300* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN R-RECKEY-1-7 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-05. IX2104.2MOVE FS1-STATUS TO FILESTATUS (5). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-05. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 20 IX2104.2PERFORM PASS IX2104.2MOVE "SUBORDINATE DATA ITEM OF KEY" TO RE-MARK IX2104.2GO TO START-EXIT-GF-05. IX2104.2MOVE 20 TO RECNO. IX2104.2PERFORM DISPLAY-RECORD-KEYS. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 20 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-05. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-06" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (6) IX2104.2GO TO START-DELETE-GF-06. IX2104.2MOVE "TTTTTTTTTT380" TO FS1-RECKEY-1-13. IX2104.2MOVE "XYYYYYYYYY399ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2119500* IX2104.2 119600* START-TEST-GF-06 - THE START STATEMENT USES AN OPERAND IN THE IX2104.2 119700* KEY PHRASE WHICH IS NOT THE NAME OF A RECORD IX2104.2 119800* KEY BUT IS THE NAME OF A DATA ITEM THAT IS IX2104.2 119900* SUBORDINATE TO THE RECORD KEY. THE CONTENTS IX2104.2 120000* OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE IX2104.2 120100* RECORD KEY) IS A DUPLICATE OF THE FIRST IX2104.2 120200* 5 POSITIONS OF 5 OTHER RECORDS IN THE FILE. IX2104.2 120300* THIS TEST EXPECTS THE RECORD POINTER IX2104.2 120400* TO BE POSITIONED TO RECORD KEY TTTTUUUUUU392 IX2104.2 120500* (RECORD NUMBER 196) WHICH WAS THE RECORD IX2104.2 120600* WRITTEN TO THE FILE AFTER THE LAST RECORD IX2104.2 120700* THAT CONTAINS TTTTT IN THE FIRST 5 POSITIONS IX2104.2 120800* OF THE KEY. THE RECORD KEY WAS LOADED WITH IX2104.2 120900* THE VALUE "TTTTTTTTTT380" (KEY FOR RECORD IX2104.2 121000* NUMBER 190) BEFORE THE START WAS EXECUTED. IX2104.2 121100* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-KEY-1-5 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (6) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-06. IX2104.2MOVE FS1-STATUS TO FILESTATUS (6). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-06. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 196 IX2104.2PERFORM PASS IX2104.2MOVE "SUBORDINATE DATA ITEM IN KEY" TO RE-MARK IX2104.2GO TO START-EXIT-GF-06. IX2104.2MOVE 71 TO RECNO. IX2104.2PERFORM DISPLAY-RECORD-KEYS. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 196 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-06. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-07" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (7) IX2104.2GO TO START-DELETE-GF-07. IX2104.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2104.2MOVE "FFFFFFFFFG022ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "VVVVVVVVVV380ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2125300* IX2104.2 125400* START-TEST-GF-07 - THE START STATEMENT USES AN OPERAND IN THE IX2104.2 125500* KEY PHRASE OF THE START STATEMENT WHICH IS IX2104.2 125600* A DATA ITEM SUBORDINATE TO THE RECORD KEY IX2104.2 125700* NAME. THE CONTENTS OF THE DATA ITEM IX2104.2 125800* (POSITIONS 1 THRU 7 OF THE RECORD KEY) IX2104.2 125900* IS LOADED WITH "UUUUUUU" WHICH IS THE IX2104.2 126000* KEY VALUE OF THE LAST RECORD IN THE FILE. IX2104.2 126100* THERE SHOULD BE NO RECORD IN THE FILE GREATERIX2104.2 126200* THAN THIS KEY VALUE THUS AND INVALID KEY IX2104.2 126300* IS EXPECTED WHEN THE START IS EXECUTED. IX2104.2 126400* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN R-RECKEY-1-7 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2104.2GO TO START-PASS-GF-07. IX2104.2MOVE FS1-STATUS TO FILESTATUS (7). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2PERFORM FAIL. IX2104.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2104.2MOVE "INVALID KEY" TO CORRECT-A. IX2104.2MOVE "AT END PATH TAKEN & IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-07. IX2104.2PERFORM PASS. IX2104.2MOVE "INVALID KEY OK." TO RE-MARK. IX2104.2GO TO START-EXIT-GF-07. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-08" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (8) IX2104.2GO TO START-DELETE-GF-08. IX2104.2MOVE "ABBBBBBBBC002" TO FS1-RECKEY-1-13. IX2104.2MOVE "XYYYYYYYYY399ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2130100* IX2104.2 130200* START-TEST-GF-08 - THIS TEST USES AN OPERAND IN THE KEY IX2104.2 130300* PHRASE OF THE START STATEMENT WHICH IS A DATAIX2104.2 130400* ITEM SUBORDINATE TO THE RECORD KEY NAME. THEIX2104.2 130500* CONTENTS OF THE DATA ITEM (POSITIONS 1 THRU IX2104.2 130600* 7 OF THE RECORD KEY) IS LOADED WITH "ABBBBBBBIX2104.2 130700* BC". THIS KEY VALUE IS LOWER THAN ANY RECORDIX2104.2 130800* KEY VALUE IN POSITIONS 1 THRU 7 EXISTING IX2104.2 130900* IN THE FILE. THE START STATEMENT WITH THE IX2104.2 131000* KEY IS GREATER THAN PHRASE IS EXECUTED AND IX2104.2 131100* SHOULD FIND THE RECORD WITH THE KEY VALUE IX2104.2 131200* "BBBBBBBBBC002" (RECORD NUMBER 01). IX2104.2 131300* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN R-RECKEY-1-7 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-08. IX2104.2MOVE FS1-STATUS TO FILESTATUS (8). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-08. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 001 IX2104.2PERFORM PASS IX2104.2MOVE "SUBORDINATE DATA ITEM IN KEY" TO RE-MARK IX2104.2GO TO START-EXIT-GF-08. IX2104.2MOVE 01 TO RECNO. IX2104.2PERFORM DISPLAY-RECORD-KEYS. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 001 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-08. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "START GT RECKEY " TO FEATURE. IX2104.2MOVE "START-TEST-GF-09" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (9) IX2104.2GO TO START-DELETE-GF-09. IX2104.2MOVE "UUUUUUVVVV400" TO FS1-RECKEY-1-13. IX2104.2MOVE "EEEEEEEEEF002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2135500* IX2104.2 135600* START-TEST-GF-09 - THIS TEST USES AN OPERAND IN THE IX2104.2 135700* KEY PHRASE OF THE START STATEMENT WHICH IS IX2104.2 135800* A DATA ITEM SUBORDINATE TO THE RECORD KEY IX2104.2 135900* NAME. THE CONTENTS OF THE DATA ITEM IX2104.2 136000* (POSITIONS 1 THRU 7 OF THE RECORD KEY) IS IX2104.2 136100* LOADED WITH "UUUUUUV". THIS KEY VALUE IX2104.2 136200* IS GREATER THAN ANY RECORD KEY VALUE IN IX2104.2 136300* POSITION 1 THRU 7 EXISTING IN THE FILE IX2104.2 136400* THEREFORE AN INVALID KEY CONDITION IS IX2104.2 136500* EXPECTED WHEN THE START STATEMENT IS IX2104.2 136600* EXECUTED. IX2104.2 136700* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN R-RECKEY-1-7 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (9) IX2104.2GO TO START-PASS-GF-09. IX2104.2MOVE FS1-STATUS TO FILESTATUS (9). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "IX-36 ETS & AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2PERFORM FAIL. IX2104.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2104.2MOVE "INVALID KEY" TO CORRECT-A. IX2104.2GO TO START-EXIT-GF-09. IX2104.2PERFORM PASS. IX2104.2MOVE "INVALID KEY OK." TO RE-MARK. IX2104.2GO TO START-EXIT-GF-09. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2CLOSE IX-FS1. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-10" TO PAR-NAME. IX2104.2139300* IX2104.2 139400* THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS IX2104.2 139500* CAPTURED FROM THE TESTS IN START-TEST-GF-01 TO -09 IX2104.2 139600* IX2104.2 IF FILESTATUS (1) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-10. IX2104.2140100* IX2104.2 140200* START-TEST-GF-10 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 140300* RESULTING FROM START-TEST-GF-01. THE FILE IX2104.2 140400* STATUS CONTENTS IS EXPECTED TO BE "00". IX2104.2 140500* IX2104.2 IF FILESTATUS (1) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE IX2104.2MOVE "FROM START-TEST-GF-01; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2PERFORM FAIL IX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (1) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-11" TO PAR-NAME. IX2104.2IF FILESTATUS (2) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-11. IX2104.2142100* IX2104.2 142200* START-TEST-GF-02 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 142300* RESULTING FROM START-TEST-003.02. THE FILE IX2104.2 142400* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 142500* IX2104.2 IF FILESTATUS (2) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-02; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (2) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-12" TO PAR-NAME. IX2104.2IF FILESTATUS (3) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-12. IX2104.2144000* IX2104.2 144100* START-TEST-GF-03 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 144200* RESULTING FROM START-TEST-003.03. THE FILE IX2104.2 144300* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 144400* IX2104.2 IF FILESTATUS (3) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-03; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (3) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:23" TO FEATURE. IX2104.2MOVE "START-TEST-GF-13" TO PAR-NAME. IX2104.2IF FILESTATUS (4) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-13. IX2104.2145900* IX2104.2 146000* START-TEST-GF-04 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 146100* RESULTING FROM START-TEST-003.04. THE FILE IX2104.2 146200* STATUS CONTENTS IS EXPECTED TO BE "23". IX2104.2 146300* IX2104.2 IF FILESTATUS (4) EQUAL TO "23" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-04; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2MOVE "23" TO CORRECT-A IX2104.2MOVE FILESTATUS (4) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-14" TO PAR-NAME. IX2104.2IF FILESTATUS (5) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-14. IX2104.2147800* IX2104.2 147900* START-TEST-GF-05 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 148000* RESULTING FROM START-TEST-GF-05. THE FILE IX2104.2 148100* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 148200* IX2104.2 IF FILESTATUS (5) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-05; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (5) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-15" TO PAR-NAME. IX2104.2IF FILESTATUS (6) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-15. IX2104.2149700* IX2104.2 149800* START-TEST-GF-15 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 149900* RESULTING FROM START-TEST-GF-06. THE FILE IX2104.2 150000* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 150100* IX2104.2 IF FILESTATUS (6) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-01; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (6) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:23" TO FEATURE. IX2104.2MOVE "START-TEST-GF-16" TO PAR-NAME. IX2104.2IF FILESTATUS (7) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-16. IX2104.2151600* IX2104.2 151700* START-TEST-GF-16 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 151800* RESULTING FROM START-TEST-GF-07. THE FILE IX2104.2 151900* STATUS CONTENTS IS EXPECTED TO BE "23" IX2104.2 152000* IX2104.2 IF FILESTATUS (7) EQUAL TO "23" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-07; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2MOVE "23" TO CORRECT-A IX2104.2MOVE FILESTATUS (7) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-17" TO PAR-NAME. IX2104.2IF FILESTATUS (8) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-17. IX2104.2153500* IX2104.2 153600* START-TEST-GF-17 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 153700* RESULTING FROM START-TEST-GF-08. THE FILE IX2104.2 153800* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 153900* IX2104.2 IF FILESTATUS (8) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-08; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (8) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:23" TO FEATURE. IX2104.2MOVE "START-TEST-GF-18" TO PAR-NAME. IX2104.2IF FILESTATUS (9) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-18. IX2104.2155400* IX2104.2 155500* START-WRITE-GF-18 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 155600* RESULTING FROM START-TEST-GF-09. THE FILE IX2104.2 155700* STATUS CONTENTS IS EXPECTED TO BE "23". IX2104.2 155800* IX2104.2 IF FILESTATUS (9) EQUAL TO "23" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-09; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2MOVE "23" TO CORRECT-A IX2104.2MOVE FILESTATUS (9) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2OPEN INPUT IX-FS1. IX2104.2MOVE SPACE TO HOLD-FILESTATUS-RECORD. IX2104.2157200* IX2104.2 157300* THE "START -- GREATER THAN--" IS CHECKED FOR PROPER POSITIONING IX2104.2 157400* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT. IX2104.2 157500* START-TEST-GF USES ONLY THE ALTERNATE RECORD KEY WITHOUT THE IX2104.2 157600* THE DUPLICATES OPTION FOR ESTABLISHING THE CURRENT RECORD IX2104.2 157700* POINTER FOR THE FILE. THE FOLLOWING IS A SUMMARY OF THE TEST IX2104.2 157800* CONDITIONS AND THE EXPECTED ACTION TO BE TAKEN FOR THE TESTS. IX2104.2 157900* IX2104.2 158000* CONDITIONS (CONTENTS OF KEY) / ACTION IX2104.2 158100* IX2104.2 158200* START-TEST-GF-01 - EQUAL A RECORD IN FILE / RECORD FOUND IX2104.2 158300* START-TEST-GF-02 - BETWEEN 2 KEY VALUES / RECORD FOUND IX2104.2 158400* START-TEST-GF-03 - LESS THAN FIRST FILE REC. / REC. FOUND IX2104.2 158500* START-TEST-GF-04 - GREATER THAN LAST FILE RECORD / INVALID KEIX2104.2 158600* START-TEST-GF-05 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2 158700* START-TEST-GF-06 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2 158800* START-TEST-GF-07 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2104.2 158900* START-TEST-GF-08 - UNEQUAL SIZE OPERANDS (UNEQUAL) / REC FOUNDIX2104.2 159000* START-TEST-GF-09 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEY IX2104.2 159100* IX2104.2 159200* BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2104.2 159300* THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2104.2 159400* IF AN INVALID KEY IS EXPECTED FROM THE TEST, THE KEYS IX2104.2 159500* ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE IX2104.2 159600* START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD IX2104.2 159700* MATCH RECORDS IN THE FILE. IF KEY MATCH IS EXPECTED FROM IX2104.2 159800* THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT IX2104.2 159900* PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH IX2104.2 160000* VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE. THE FILE IX2104.2 160100* STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2104.2 160200* IX2104.2 PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-19" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "**" TO FILESTATUS (1) IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2GO TO START-DELETE-GF-19. IX2104.2MOVE "CCCCCDDDDD022" TO FS1-RECKEY-1-13. IX2104.2MOVE "XXXXXXXXXY382ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2161800* IX2104.2 161900* START-TEST-GF-19 - THE START SHOULD FIND A RECORD IN THE FILE IX2104.2 162000* WHICH HAS AN ALTERNATE KEY VALUE OF IX2104.2 162100* XXXXXXXXYY384ALTKEY1 (RECORD NUMBER 192). IX2104.2 162200* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-ALTKEY1 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (1) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-19. IX2104.2MOVE FS1-STATUS TO FILESTATUS (1). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-19. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 192 IX2104.2PERFORM PASS IX2104.2MOVE SPACE TO RE-MARK IX2104.2GO TO START-EXIT-GF-19. IX2104.2MOVE 67 TO RECNO. IX2104.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 192 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-19. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-20" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "**" TO FILESTATUS (2) IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2GO TO START-DELETE-GF-20. IX2104.2MOVE "CCCCCDDDDD022" TO FS1-RECKEY-1-13. IX2104.2MOVE "HHHHHHHIII67ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2166400* IX2104.2 166500* START-TEST-GF-20 - THE START SHOULD FIND A RECORD IN THE FILE IX2104.2 166600* WHICH HAS AN ALTERNATE KEY VALUE OF IX2104.2 166700* HHHHHHIIII068ALTKEY1 (RECORD NUMBER 34). IX2104.2 166800* THE DATA ITEM WAS LOADED WITH A KEY VALUE IX2104.2 166900* SEQUENTIALLY LOCATED BETWEEN TWO CURRENTLY IX2104.2 167000* EXISTING ALTERNATE KEYS IN THE FILE. IX2104.2 167100* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-ALTKEY1 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (2) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-20. IX2104.2MOVE FS1-STATUS TO FILESTATUS (2). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-20. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 034 IX2104.2PERFORM PASS IX2104.2MOVE SPACE TO RE-MARK IX2104.2GO TO START-EXIT-GF-20. IX2104.2MOVE 34 TO RECNO. IX2104.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 034 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-20. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-21" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "**" TO FILESTATUS (3) IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2GO TO START-DELETE-GF-21. IX2104.2MOVE "CCCCCDDDDD022" TO FS1-RECKEY-1-13. IX2104.2MOVE "EEEEEEEEEF001ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2171300* IX2104.2 171400* START-TEST-GF-21 - THE START STATEMENT SHOULD FIND A IX2104.2 171500* RECORD IN THE FILE WHICH HAS AN ALTERNATE IX2104.2 171600* KEY VALUE OF EEEEEEEEEF002ALTKEY1 (RECORD IX2104.2 171700* NUMBER 01). THE ALTERNATE KEY WAS LOADED IX2104.2 171800* WITH A VALUE THAT IS SEQUENTIALLY LOWER IX2104.2 171900* THAN ANY CURRENTLY EXISTNNG KEY IN THE FILE IX2104.2 172000* BEFORE THE START WAS EXECUTED. IX2104.2 172100* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-ALTKEY1 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (3) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-21. IX2104.2MOVE FS1-STATUS TO FILESTATUS (3). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-21. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 001 IX2104.2PERFORM PASS IX2104.2MOVE SPACE TO RE-MARK IX2104.2GO TO START-EXIT-GF-21. IX2104.2MOVE 01 TO RECNO. IX2104.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 001 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-21. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-22" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (4) IX2104.2GO TO START-DELETE-GF-22. IX2104.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2104.2MOVE "YYYYYYYYYY401ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2176300* IX2104.2 176400* START-TEST-GF-04 - THE START STATEMENT SHOULD NOT FIND A IX2104.2 176500* RECORD IN THE FILE WHICH HAS AN ALTERNATE IX2104.2 176600* KEY VALUE OF YYYYYYYYYY401ALTKEY1. THIS IX2104.2 176700* VALUE IS SEQUENTIALLY GREATER THAN IX2104.2 176800* ANY ALTERNATE KEY CURRENTLY EXISTING IN IX2104.2 176900* THE FILE. AN INVALID KEY CONDITION IX2104.2 177000* IS EXPECTED WHEN THE START IS EXECUTED. IX2104.2 177100* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-ALTKEY1 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (4) IX2104.2GO TO START-PASS-GF-22. IX2104.2MOVE FS1-STATUS TO FILESTATUS (4). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2PERFORM FAIL. IX2104.2MOVE ALTERNATE-KEY1 (1) TO COMPUTED-A. IX2104.2MOVE "INVALID KEY" TO CORRECT-A. IX2104.2GO TO START-EXIT-GF-22. IX2104.2PERFORM PASS. IX2104.2MOVE "INVALID KEY OK." TO RE-MARK. IX2104.2GO TO START-EXIT-GF-22. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-23" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (5) IX2104.2GO TO START-DELETE-GF-23. IX2104.2MOVE "CDDDDDDDDD039" TO FS1-RECKEY-1-13. IX2104.2MOVE "GGGGHHHHHH100ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2180700* IX2104.2 180800* START-TEST-GF-23 - THE START STATEMENT USES AN OPERAND IX2104.2 180900* IN THE KEY PHRASE WHICH IS NOT THE NAME IX2104.2 181000* OF AN ALTERNATE KEY BUT IS THE NAME OF A IX2104.2 181100* DATA ITEM WHICH IS SUBORDINATE TO THE IX2104.2 181200* ALTERNATE KEY. THE CONTENTS OF THE DATA ITEMIX2104.2 181300* (POSITIONS 1 THRU 6 OF THE ALTERNATE KEY) IX2104.2 181400* IS A UNIQUE KEY VALUE FOR THE FILE. THE IX2104.2 181500* BALANCE OF THE KEY (POSITIONS 7 THRU 20 OF IX2104.2 181600* THE ALTERNATE KEY IS NOT A VALID KEY VALUE IX2104.2 181700* FOR THE FILE. THE IX2104.2 181800* RECORD WITH THE ALTERNATE KEY "GGGHHHHHHH054 IX2104.2 181900* ALTKEY1 (RECORD NUMBER 27) IS EXPECTED TO IX2104.2 182000* BE FOUND. IX2104.2 182100* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN R-ALTKEY1-1-6 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (5) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-23. IX2104.2MOVE FS1-STATUS TO FILESTATUS (5). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-23. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 27 IX2104.2PERFORM PASS IX2104.2MOVE "SUBORDINATE DATA ITEM OF KEY" TO RE-MARK IX2104.2GO TO START-EXIT-GF-23. IX2104.2MOVE 27 TO RECNO. IX2104.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 27 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-23. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-24" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (6) IX2104.2GO TO START-DELETE-GF-24. IX2104.2MOVE "YYYYYUUUUU390" TO FS1-RECKEY-1-13. IX2104.2MOVE "XXXXXXXXXX380ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2186300* IX2104.2 186400* START-TEST-GF-24 - THE START STATEMENT USES AN OPERAND IN THE IX2104.2 186500* KEY PHRASE WHICH IS NOT THE NAME OF AN IX2104.2 186600* ALTERNATE KEY BUT IS THE NAME OF A DATA ITEM IX2104.2 186700* THAT IS SUBORDINATE TO THE KEY. THE CONTENTSIX2104.2 186800* OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE IX2104.2 186900* ALTERNATE KEY) IS A DUPLICATE OF THE FIRST IX2104.2 187000* 5 POSITIONS OF 5 OTHER RECORDS IN THE FILE. IX2104.2 187100* THIS TEST EXPECTS THE RECORD POINTER IX2104.2 187200* TO BE POSITIONED TO RECORD KEY XXXXYYYYYY392 IX2104.2 187300* ALTKEY1 (RECORD NUMBER 196) WHICH WAS THE IX2104.2 187400* RECORD WRITTEN AFTER THE LAST RECORD THAT IX2104.2 187500* CONTAINS XXXXX IN THE FIRST 5 POSITIONS OF IX2104.2 187600* THE KEY. THE ALTERNATE KEY WAS LOADED WITH THEIX2104.2 187700* VALUE XXXXXXXXXX380ALTKEY1 (KEY FOR RECORD IX2104.2 187800* NUMBER 190) BEFORE THE START WAS EXECUTED. IX2104.2 187900* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-ALTKEY1-1-5 IX2104.2INVALID KEY IX2104.2MOVE FS1-STATUS TO FILESTATUS (6) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-24. IX2104.2MOVE FS1-STATUS TO FILESTATUS (6). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-24. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 196 IX2104.2PERFORM PASS IX2104.2MOVE "SUBORDINATE DATA ITEM IN KEY" TO RE-MARK IX2104.2GO TO START-EXIT-GF-24. IX2104.2MOVE 71 TO RECNO. IX2104.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 196 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-24. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-25" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (7) IX2104.2GO TO START-DELETE-GF-25. IX2104.2MOVE "CCCCCCCCCD022" TO FS1-RECKEY-1-13. IX2104.2MOVE "YYYYYYYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "VVVVVVVVVV380ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2192200* IX2104.2 192300* START-TEST-GF-25 - THE START STATEMENT USES AN OPERAND IN THE IX2104.2 192400* KEY PHRASE OF THE START STATEMENT WHICH IS IX2104.2 192500* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2104.2 192600* NAME. THE CONTENTS OF THE DATA ITEM IX2104.2 192700* POSITIONS 1 THRU 6 OF THE ALTERNATE KEY) IX2104.2 192800* IS LOADED WITH YYYYYY WHICH IS THE KEY VALUE IX2104.2 192900* OF THE LAST RECORD IN THE FILE. THERE SHOULDIX2104.2 193000* BE NO RECORD IN THE FILE WITH A KEY VALUE IX2104.2 193100* GREATER THUS AN INVALID KEY IS EXPECTED IX2104.2 193200* WHEN THE START IS EXECUTED. IX2104.2 193300* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN R-ALTKEY1-1-6 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (7) IX2104.2GO TO START-PASS-GF-25. IX2104.2MOVE FS1-STATUS TO FILESTATUS (7). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2PERFORM FAIL. IX2104.2MOVE "AT END PATH AND IX-36 ETC " TO RE-MARK. IX2104.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2104.2MOVE "INVALID KEY" TO CORRECT-A. IX2104.2GO TO START-EXIT-GF-25. IX2104.2PERFORM PASS. IX2104.2MOVE "INVALID KEY" TO RE-MARK. IX2104.2GO TO START-EXIT-GF-25. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-26" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (8) IX2104.2GO TO START-DELETE-GF-26. IX2104.2MOVE "YYYYYUUUUU390" TO FS1-RECKEY-1-13. IX2104.2MOVE "EEEEDEEEEE002ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2197000* IX2104.2 197100* START-TEST-GF-26 - THIS TEST USES AN OPERAND IN THE IX2104.2 197200* KEY PHRASE OF THE START STATEMENT WHICH IS IX2104.2 197300* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2104.2 197400* NAME. THE CONTENTS OF THE DATA ITEM IX2104.2 197500* (POSITIONS 1 THRU 6 OF THE ALTERNATE KEY) IS IX2104.2 197600* LOADED WITH "EEEEDE". THIS KEY VALUE IX2104.2 197700* IS LOWER THAN ANY ALTERNATE KEY VALUE IN IX2104.2 197800* POSITION 1 THRU 6 EXISTING IN THE FILE IX2104.2 197900* THE START STATEMENT WITH THE KEY IS GREATER IX2104.2 198000* THAN PHRASE IS EXECUTED AND SHOULD FIND A IX2104.2 198100* RECORD WITH THE KEY VALUE "EEEEEEEEEF002 IX2104.2 198200* ALTKEY1 (RECORD NUMBER 01). IX2104.2 198300* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN R-ALTKEY1-1-6 IX2104.2INVALID KEY MOVE FS1-STATUS TO FILESTATUS (8) IX2104.2MOVE "INVALID KEY ON START" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-26. IX2104.2MOVE FS1-STATUS TO FILESTATUS (8). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-26. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 001 IX2104.2PERFORM PASS IX2104.2MOVE "SUBORDINATE DATA ITEM IN KEY" TO RE-MARK IX2104.2GO TO START-EXIT-GF-26. IX2104.2MOVE 01 TO RECNO. IX2104.2PERFORM DISPLAY-ALTERNATE-KEY1. IX2104.2MOVE XRECORD-NUMBER (1) TO COMPUTED-18V0. IX2104.2PERFORM FAIL. IX2104.2MOVE 001 TO CORRECT-18V0. IX2104.2MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-26. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2PERFORM START-INITIALIZE-RECORD. IX2104.2MOVE "STR GT ALTKY W/O DUP" TO FEATURE. IX2104.2MOVE "START-TEST-GF-27" TO PAR-NAME. IX2104.2IF INIT-FLAG NOT EQUAL TO ZERO IX2104.2MOVE "TEST IMPROPERLY INITIALIZED" TO RE-MARK IX2104.2MOVE "**" TO FILESTATUS (9) IX2104.2GO TO START-DELETE-GF-27. IX2104.2MOVE "UUUUUUUUUU400" TO FS1-RECKEY-1-13. IX2104.2MOVE "YYYYYZYYYY400ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "WWWWWWWWWV398ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2202500* IX2104.2 202600* START-TEST-GF-27 - THIS TEST USES AN OPERAND IN THE IX2104.2 202700* KEY PHRASE OF THE START STATEMENT WHICH IS IX2104.2 202800* A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2104.2 202900* NAME. THE CONTENTS OF THE DATA ITEM IX2104.2 203000* (POSITIONS 1 THRU 10 OF THE RECORD KEY) IS IX2104.2 203100* LOADED WITH "YYYYYZYYYY". THIS KEY VALUE IX2104.2 203200* IS GREATER THAN ANY ALTERNATE KEY VALUE IN IX2104.2 203300* POSITION 1 THRU 10 EXISTING IN THE FILE IX2104.2 203400* THEREFORE AN INVALID KEY CONDITION IS IX2104.2 203500* EXPECTED WHEN THE START STATEMENT IS IX2104.2 203600* EXECUTED. IX2104.2 203700* IX2104.2 START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-ALTKEY1-1-10 IX2104.2INVALID KEY IX2104.2MOVE FS1-STATUS TO FILESTATUS (9) IX2104.2GO TO START-PASS-GF-27. IX2104.2MOVE FS1-STATUS TO FILESTATUS (9). IX2104.2READ IX-FS1 AT END IX2104.2MOVE "IX-36 ETC.; AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2PERFORM FAIL. IX2104.2MOVE XRECORD-KEY (1) TO COMPUTED-A. IX2104.2MOVE "INVALID KEY" TO CORRECT-A. IX2104.2GO TO START-EXIT-GF-27. IX2104.2PERFORM PASS. IX2104.2MOVE "INVALID KEY OK." TO RE-MARK. IX2104.2GO TO START-EXIT-GF-27. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2CLOSE IX-FS1. IX2104.2206200* IX2104.2 206300* THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS IX2104.2 206400* CAPTURED FROM THE TESTS IN START-TEST-005. IX2104.2 206500* IX2104.2 MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-28" TO PAR-NAME. IX2104.2IF FILESTATUS (1) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-28. IX2104.2207200* IX2104.2 207300* START-TEST-GF-28 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 207400* RESULTING FROM START-TEST-GF-19. THE FILE IX2104.2 207500* STATUS CONTENTS IS EXPECTED TO BE "00". IX2104.2 207600* IX2104.2 IF FILESTATUS (1) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE IX2104.2MOVE "FROM START-TEST-GF-19; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2PERFORM FAIL IX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (1) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-29" TO PAR-NAME. IX2104.2IF FILESTATUS (2) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-29. IX2104.2209200* IX2104.2 209300* START-TEST-GF-29 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 209400* RESULTING FROM START-TEST-GF-20. THE FILE IX2104.2 209500* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 209600* IX2104.2 IF FILESTATUS (2) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-20; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (2) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-30" TO PAR-NAME. IX2104.2IF FILESTATUS (3) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-30. IX2104.2211100* IX2104.2 211200* START-TEST-GF-30 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 211300* RESULTING FROM START-TEST-GF-21. THE FILE IX2104.2 211400* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 211500* IX2104.2 IF FILESTATUS (3) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-21; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (3) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:23" TO FEATURE. IX2104.2MOVE "START-TEST-GF-31" TO PAR-NAME. IX2104.2IF FILESTATUS (4) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-31. IX2104.2213000* IX2104.2 213100* START-TEST-GF-31 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 213200* RESULTING FROM START-TEST-GF-22. THE FILE IX2104.2 213300* STATUS CONTENTS IS EXPECTED TO BE "23". IX2104.2 213400* IX2104.2 IF FILESTATUS (4) EQUAL TO "23" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-22; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2MOVE "23" TO CORRECT-A IX2104.2MOVE FILESTATUS (4) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-32" TO PAR-NAME. IX2104.2IF FILESTATUS (5) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-32. IX2104.2214900* IX2104.2 215000* START-TEST-GF.05 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 215100* RESULTING FROM START-TEST-GF-23. THE FILE IX2104.2 215200* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 215300* IX2104.2 IF FILESTATUS (5) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-23; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (5) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-33" TO PAR-NAME. IX2104.2IF FILESTATUS (6) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-33. IX2104.2216800* IX2104.2 216900* START-TEST-GF-33 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 217000* RESULTING FROM START-TEST-GF-24. THE FILE IX2104.2 217100* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 217200* IX2104.2 IF FILESTATUS (6) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-24; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (6) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-34" TO PAR-NAME. IX2104.2IF FILESTATUS (7) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-34. IX2104.2218700* IX2104.2 218800* START-TEST-GF-34 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 218900* RESULTING FROM START-TEST-GF-25. THE FILE IX2104.2 219000* STATUS CONTENTS IS EXPECTED TO BE "23" IX2104.2 219100* IX2104.2 IF FILESTATUS (7) EQUAL TO "23" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-25; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2MOVE "23" TO CORRECT-A IX2104.2MOVE FILESTATUS (7) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:00" TO FEATURE. IX2104.2MOVE "START-TEST-GF-35" TO PAR-NAME. IX2104.2IF FILESTATUS (8) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-35. IX2104.2220600* IX2104.2 220700* START-TEST-GF-35 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 220800* RESULTING FROM START-TEST-GF-26. THE FILE IX2104.2 220900* STATUS CONTENTS IS EXPECTED TO BE "00" IX2104.2 221000* IX2104.2 IF FILESTATUS (8) EQUAL TO "00" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-26; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2MOVE "00" TO CORRECT-A IX2104.2MOVE FILESTATUS (8) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE "FILE STATUS START:23" TO FEATURE. IX2104.2MOVE "START-TEST-GF-36" TO PAR-NAME. IX2104.2IF FILESTATUS (9) EQUAL TO "**" IX2104.2PERFORM DE-LETE IX2104.2GO TO START-WRITE-GF-36. IX2104.2222500* IX2104.2 222600* START-TEST-GF-36 - THIS TEST CHECKS THE FILE STATUS CONTENTS IX2104.2 222700* RESULTING FROM START-TEST-GF-27. THE FILE IX2104.2 222800* STATUS CONTENTS IS EXPECTED TO BE "23". IX2104.2 222900* IX2104.2 IF FILESTATUS (9) EQUAL TO "23" IX2104.2PERFORM PASS IX2104.2ELSE PERFORM FAIL IX2104.2MOVE "FROM START-TEST-GF-27; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2MOVE "23" TO CORRECT-A IX2104.2MOVE FILESTATUS (9) TO COMPUTED-A. IX2104.2PERFORM PRINT-DETAIL. IX2104.2OPEN I-O IX-FS1. IX2104.2MOVE "START SERIES" TO FEATURE. IX2104.2MOVE "START-TEST-GF-37" TO PAR-NAME. IX2104.2MOVE ZERO TO INVKEY-COUNTER. IX2104.2224500* IX2104.2 224600* THIS TEST EXECUTES SEVERAL START STATEMENTS USING DIFFERENT IX2104.2 224700* KEY VALUES. FOLLOWING EXECUTION OF THE LAST START IX2104.2 224800* STATEMENT THE READ STATEMENT IS EXECUTED. THE START IX2104.2 224900* STATEMENT SHOULD HAVE POSITION THE RECORD POINTER IX2104.2 225000* SUCH THAT RECORD NUMBER 49 IS MADE AVAILABLE FOLLOWING IX2104.2 225100* EXECUTION OF THE READ STATEMENT. THE KEY OF REFERENCE IX2104.2 225200* SHOULD BE ALTERNATE-KEY-2. IX2104.2 225300* IX2104.2 MOVE "FGGGGGGGGG098" TO FS1-RECKEY-1-13. IX2104.2MOVE "WWWWWWWXXX366ALTKEY1" TO FS1-ALTKEY1-1-20. IX2104.2MOVE "RRRRRRRRRR300ALTKEY2" TO FS1-ALTKEY2-1-20. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2MOVE WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA. IX2104.2MOVE WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA. IX2104.2START IX-FS1 IX2104.2KEY IS EQUAL TO IX-FS1-ALTKEY2 IX2104.2INVALID KEY ADD 1 TO INVKEY-COUNTER. IX2104.2START IX-FS1 IX2104.2INVALID KEY ADD 01 TO INVKEY-COUNTER. IX2104.2START IX-FS1 IX2104.2KEY IS NOT LESS THAN R-ALTKEY1-1-6 IX2104.2INVALID KEY ADD 1 TO INVKEY-COUNTER. IX2104.2START IX-FS1 IX2104.2KEY IS GREATER THAN IX-FS1-ALTKEY2-1-5 IX2104.2INVALID KEY ADD 1 TO INVKEY-COUNTER. IX2104.2READ IX-FS1 AT END IX2104.2MOVE "AT END ON READ" TO COMPUTED-A IX2104.2GO TO START-FAIL-GF-37. IX2104.2MOVE IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1). IX2104.2IF XRECORD-NUMBER (1) EQUAL TO 49 IX2104.2PERFORM PASS IX2104.2MOVE "MULTIPLE STARTS BEFORE READ " TO RE-MARK IX2104.2GO TO START-EXIT-GF-37. IX2104.2MOVE 49 TO RECNO. IX2104.2PERFORM DISPLAY-ALTERNATE-KEY2. IX2104.2PERFORM FAIL. IX2104.2MOVE 49 TO CORRECT-18V0. IX2104.2MOVE "AFTER MULTIPLE STARTS; IX-36 ETC " TO RE-MARK. IX2104.2GO TO START-EXIT-GF-37. IX2104.2PERFORM DE-LETE. IX2104.2PERFORM PRINT-DETAIL. IX2104.2CLOSE IX-FS1. IX2104.2GO TO START-TEST-COMPLETE. IX2104.2MOVE "**" TO FS1-STATUS. IX2104.2MOVE "GGGGGGGGGG200" TO FS1-RECKEY-1-13. IX2104.2MOVE ZERO TO INIT-FLAG. IX2104.2MOVE 9999 TO XRECORD-NUMBER (1). IX2104.2MOVE SPACE TO IX-FS1R1-F-G-240. IX2104.2MOVE WRK-FS1-RECKEY TO IX-REC-KEY-AREA. IX2104.2START IX-FS1 IX2104.2KEY IS EQUAL TO IX-FS1-KEY IX2104.2INVALID KEY MOVE 1 TO INIT-FLAG. IX2104.2READ IX-FS1 INTO FILE-RECORD-INFO (1) IX2104.2AT END MOVE 1 TO INIT-FLAG. IX2104.2IF XRECORD-NUMBER (1) NOT EQUAL TO 100 IX2104.2MOVE 1 TO INIT-FLAG. IX2104.2MOVE XRECORD-KEY (1) TO WRK-FS1-RECKEY. IX2104.2MOVE FS1-RECKEY-1-13 TO COMPUTED-A. IX2104.2MOVE RECKEY-VALUE (RECNO) TO CORRECT-A. IX2104.2MOVE SPACE TO P-OR-F. IX2104.2MOVE "RECORD KEY VALUES" TO RE-MARK. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE ALTERNATE-KEY1 (1) TO WRK-FS1-ALTKEY1. IX2104.2MOVE FS1-ALTKEY1-1-20 TO COMPUTED-A. IX2104.2MOVE ALTKEY1-VALUE (RECNO) TO CORRECT-A. IX2104.2MOVE SPACE TO P-OR-F. IX2104.2MOVE "ALTERNATE RECORD KEY1 VALUES" TO RE-MARK. IX2104.2PERFORM PRINT-DETAIL. IX2104.2MOVE ALTERNATE-KEY2 (1) TO WRK-FS1-ALTKEY2. IX2104.2MOVE FS1-ALTKEY2-1-20 TO COMPUTED-A. IX2104.2MOVE ALTKEY2-VALUE (RECNO) TO CORRECT-A. IX2104.2MOVE SPACE TO P-OR-F. IX2104.2MOVE "ALTERNATE RECORD KEY2 VALUES" TO RE-MARK. IX2104.2PERFORM PRINT-DETAIL. IX2104.2EXIT . IX2104.2SECTION . IX2104.2GO TO CLOSE-FILES. IX2104.2
Messung V0.5 in Prozent C=77 H=93 G=85
¤ Dauer der Verarbeitung: 0.66 Sekunden
(vorverarbeitet am 2026-04-30)
¤ *© Formatika GbR, Deutschland
2026-05-26
