000100 IDENTIFICATIONDIVISION. RL2054.2
000200 PROGRAM-ID. RL2054.2
000300 RL205A. RL2054.2 000400**************************************************************** RL2054.2 000500* * RL2054.2 000600* VALIDATION FOR:- * RL2054.2 000700* * RL2054.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2054.2 000900* * RL2054.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL2054.2 001100* * RL2054.2 001200**************************************************************** RL2054.2 001300* THE FUNCTION OF THIS PROGRAM IS TO TEST THE PERMISSIBLE SYN- RL2054.2 001400* TACTICAL CONSTRUCTS OF COBOL ELEMENTS ASSOCIATED WITH LEVEL 2RL2054.2 001500* OF THE RELATIVE I-O MODULE. THE ELEMENTS TESTED IN THIS RL2054.2 001600* ROUTINE ARE: RL2054.2 001700* RL2054.2 001800* USE AFTER ERROR PROCEDURE FILE-NAME-1 FILE-NAME-2 RL2054.2 001900* READ ..... NEXT RL2054.2 002000* READ ..... NEXT RECORD INTO .... RL2054.2 002100* READ ..... NEXT INTO ..... RL2054.2 002200* READ ..... NEXT INTO ..... AT END .... RL2054.2 002300* READ ..... RL2054.2 002400* READ ..... INTO ..... RL2054.2 002500* READ ..... RECORD RL2054.2 002600* READ ..... RECORD INVALID ..... RL2054.2 002700* READ ..... RECORD INVALID KEY .... RL2054.2 002800* START FILE-NAME-2 RL2054.2 002900* START FILE-NAME-2 KEY EQUAL TO .... RL2054.2 003000* START FILE-NAME-2 KEY IS EQUAL TO .... RL2054.2 003100* START FILE-NAME-2 KEY IS EQUAL ..... RL2054.2 003200* START FILE-NAME-2 KEY IS = ...... RL2054.2 003300* START FILE-NAME-2 KEY IS GREATER ..... RL2054.2 003400* START FILE-NAME-2 KEY GREATER THAN .... RL2054.2 003500* START FILE-NAME-2 KEY IS GREATER ..... RL2054.2 003600* START FILE-NAME-2 KEY IS > .... RL2054.2 003700* START FILE-NAME-2 KEY > .... RL2054.2 003800* START FILE-NAME-2 KEY IS NOT LESS THAN .... RL2054.2 003900* START FILE-NAME-2 KEY IS NOT LESS .... RL2054.2 004000* START FILE-NAME-2 KEY NOT LESS .... RL2054.2 004100* START FILE-NAME-2 KEY IS NOT < ..... RL2054.2 004200* START FILE-NAME-1 KEY IS EQUAL TO INVALID KEY ..... RL2054.2 004300* START FILE-NAME-1 KEY IS EQUAL TO INVALID .... RL2054.2 004400* START FILE-NAME-1 INVALID KEY .... RL2054.2 004500* START FILE-NAME-1 ; INVALID KEY .... RL2054.2 004600* START FILE-NAME-1 KEY EQUAL TO ..... RL2054.2 004700* FILE POSITION INDICATOR RL2054.2 004800* RL2054.2 004900* EACH ELEMENT TESTED WILL BE EXERCISED SEMANTICALLY BY THIS RL2054.2 005000* ROUTINE. RL2054.2 005100* FOR A RELATIVE OR INDEXED FILE IN THE DYNAMIC ACCESS MODE, RL2054.2 005200* EXECUTION OF AN "OPEN I-O" STATEMENT FOLLOWED BYONE OR RL2054.2 005300* MORE "WRITE" STATEMENTS AND THEN A "READ NEXT" STATEMENT RL2054.2 005400* WILL CAUSE THE "READ" STATEMENT TO ACCESS THE FIRST RECORD RL2054.2 005500* IN THE FILE AT THE TIME OF EXECUTION OF THE "READ" RL2054.2 005600* STATEMENT. SYNTAX TESTS FOR THE "START" STATEMENT ARE RL2054.2 005700* ALSO INCLUDED. RL2054.2 005800* RL2054.2 005900* RL2054.2 006000* X-CARDS WHICH MUST BE REPLACED FOR THIS PROGRAM ARE RL2054.2 006100* RL2054.2 006200* X-21 RELATIVE FILE IMPLEMENTOR-NAME IN ASSGN TO RL2054.2 006300* CLAUSE FOR DATA FILE RL-FS1 RL2054.2 006400* X-22 RELATIVE FILE IMPLEMENTOR-NAME IN ASSIGN TO RL2054.2 006500* CLAUSE FOR DATA FILE RL-FD2 RL2054.2 006600* X-55 IMPLEMENTOR-NAME FOR SYSTEM PRINTER RL2054.2 006700* X-69 ADDITIONAL VALUE OF PHRASES RL2054.2 006800* X-74 VALUE OF IMPLEMENTOR-NAME RL2054.2 006900* X-75 OBJECT OF VALUE OF CLAUSE FOR FILE RL-FS1 RL2054.2 007000* X-76 OBJECT OF VALUE OF CLAUSE FOR FILE RL-FD2 RL2054.2 007100* X-82 IMPLEMENTOR-NAME FOR SOURCE-COMPUTER RL2054.2 007200* X-83 IMPLEMENTOR-NAME FOR OBJECT-COMPUTER RL2054.2 007300* RL2054.2 007400* NOTE: X-CARDS 69,74,75 AND 76 ARE OPTIONAL RL2054.2 007500* AND NEED ONLY TO BE PRESENT IF THE COMPILER RE- RL2054.2 007600* QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM RL2054.2 007700* COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS RL2054.2 007800* USED THE X-CARDS MAY BE AUTOMATICALLY SELECTED RL2054.2 007900* FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE RL2054.2 008000* APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE RL2054.2 008100* CONTROL CARD. THE LETTER CORRESPONDS TO A RL2054.2 008200* CHARACTER IN POSITION 7 OF THE SOURCE LINE AND RL2054.2 008300* THEY ARE AS FOLLOWS RL2054.2 008400* RL2054.2 008500* C SELECTS X-CARDS 74,75 AND 76 RL2054.2 008600* G SELECTS X-CARDS 69 RL2054.2 008700* RL2054.2 008800* NOTE: THERE IS OPTIONAL SOURCE CODE IN THIS PROGRAM RL2054.2 008900* FOR THE CONVENIENCE OF THE USER. THIS OPTIONAL RL2054.2 009000* CODE IS IDENTIFIED BY THE LETTER X IN RL2054.2 009100* POSITION 7 OF THE SOURCE LINE. USE OF RL2054.2 009200* SOURCE CODE WITH LETTER X WILL PRINT THE CONTENTS RL2054.2 009300* OF THE FILES AFTER THE TEST REPORT. RL2054.2 009400* IF THE VP-ROUTINE IS USED THE APPROPRIATE RL2054.2 009500* SOURCE CODE MAY BE SELECTED BY SPECIFYING THE RL2054.2 009600* RESPECTIVE LETTER IN THE "*OPT" VP-ROUTINE CONTROLRL2054.2 009700* CARD. RL2054.2 009800* RL2054.2 009900****************************************************** RL2054.2
010000 ENVIRONMENTDIVISION. RL2054.2
010100 CONFIGURATIONSECTION. RL2054.2
010200 SOURCE-COMPUTER. RL2054.2
010300 Card0130. RL2054.2
010400 OBJECT-COMPUTER. RL2054.2
010500 Card0131. RL2054.2
010600 INPUT-OUTPUTSECTION. RL2054.2
010700 FILE-CONTROL. RL2054.2
010800 SELECT PRINT-FILE ASSIGNTO RL2054.2
010900 "C0085" . RL2054.2
011000 SELECT RL-FD1 RL2054.2
011100 ASSIGNTO RL2054.2
011200 "C0033" RL2054.2
011300 ORGANIZATIONISRELATIVE RL2054.2
011400 ACCESSMODEISDYNAMIC RL2054.2
011500 RELATIVEKEYIS RL-FD1-KEY. RL2054.2
011600 SELECT RL-FS2 RL2054.2
011700 ASSIGNTO RL2054.2
011800 "C0034" RL2054.2
011900 ACCESSMODEISSEQUENTIAL RL2054.2
012000 RELATIVEKEYIS RL-FS2-KEY RL2054.2
012100 ORGANIZATIONISRELATIVE. RL2054.2
012200 DATADIVISION. RL2054.2
012300 FILESECTION. RL2054.2
012400 FD PRINT-FILE. RL2054.2
012500 01 PRINT-REC PICTURE X(120). RL2054.2
012600 01 DUMMY-RECORD PICTURE X(120). RL2054.2
012700 FD RL-FD1 RL2054.2
012800 RECORDCONTAINS 240 CHARACTERS RL2054.2
012900 VALUEOF RL2054.2
013000 Impl1 RL2054.2
013100 IS RL2054.2
013200 4711 RL2054.2
013300 RL2054.2
013400 . RL2054.2
013500 01 RL-FD1R1-F-G-240. RL2054.2
013600 05 RL-FD1-REC-001-120 PICTURE X(120). RL2054.2
013700 05 RL-FD1-REC-121-240. RL2054.2
013800 10 FILLERPICTURE X(8). RL2054.2
013900 10 RL-FD1-FILLER. RL2054.2
014000 15 RL-FS1-KEYNUM PICTURE 9(5). RL2054.2
014100 10 FILLERPICTURE X(5). RL2054.2
014200 10 FILLERPICTURE X(19). RL2054.2
014300 10 FILLERPICTURE X(9). RL2054.2
014400 10 RL-FD1-FILLER1. RL2054.2
014500 15 RL-FD1-FILLER1NUM PICTURE 9(5). RL2054.2
014600 10 FILLERPICTURE 9(5). RL2054.2
014700 10 FILLERPICTURE X(19). RL2054.2
014800 10 FILLERPICTURE X(45). RL2054.2
014900 FD RL-FS2 RL2054.2
015000 VALUEOF RL2054.2
015100 Impl1 RL2054.2
015200 IS RL2054.2
015300 4711 RL2054.2
015400 RL2054.2
015500 . RL2054.2
015600 01 RL-FS2R1-F-G-240. RL2054.2
015700 05 RL-FS2-REC-001-120 PICTURE X(120). RL2054.2
015800 05 RL-FS2-REC-121-240. RL2054.2
015900 10 FILLERPICTURE X(8). RL2054.2
016000 10 RL-FS2-FILLER. RL2054.2
016100 15 RL-FS2-KEYNUM PICTURE 9(5). RL2054.2
016200 10 FILLERPICTURE 9(5). RL2054.2
016300 10 FILLERPICTURE X(19). RL2054.2
016400 10 FILLERPICTURE X(9). RL2054.2
016500 10 RL-FS2-FILLER1. RL2054.2
016600 15 RL-FS2-FILLER1NUM PICTURE 9(5). RL2054.2
016700 10 FILLERPICTURE 9(5). RL2054.2
016800 10 FILLERPICTURE X(19). RL2054.2
016900 10 FILLERPICTURE X(45). RL2054.2
017000 WORKING-STORAGESECTION. RL2054.2
017100 01 WRK-XN-00001 PIC X. RL2054.2
017200 01 WRK-XN-00002 PIC X. RL2054.2
017300 01 RL-FD1-KEY PICTURE 9(5) VALUEZERO. RL2054.2
017400 01 RL-FS2-KEY PICTURE 9(5) VALUEZERO. RL2054.2
017500 01 RL-FD1-FILESIZE PICTURE 9(6) VALUE 300. RL2054.2
017600 01 RL-FS2-FILESIZE PICTURE 9(6) VALUE 300. RL2054.2
017700 01 WRK-RL-FD1-RECKEY-CHAR. RL2054.2
017800 03 WRK-RL-FD1-RECKEY PIC 9(5) VALUEZERO. RL2054.2
017900 01 WRK-RL-FS2-RECKEY PIC 9(5) VALUEZERO. RL2054.2
018000 01 WRK-RL-FD1-FILLER. RL2054.2
018100 03 WRK-DU-05V00-002 PICTURE 9(5) VALUEZERO. RL2054.2
018200 01 WRK-RL-FS2-FILLER. RL2054.2
018300 03 WRK-DU-05V00-004 PICTURE 9(5) VALUEZERO. RL2054.2
018400 01 EXCUT-COUNTER-06V00 PICTURE S9(6) VALUEZERO. RL2054.2
018500 01 INV-KEY-COUNTER PICTURE S9(6) VALUEZERO. RL2054.2
018600 01 LOGICAL-FILE-REC PICTURE S9(6) VALUEZERO. RL2054.2
018700 01 ERROR-COUNTER-06V00 PICTURE S9(6) VALUEZERO. RL2054.2
018800 01 ASCEND-DESEND-SWITCH PICTURE XX VALUE"UP". RL2054.2
018900 88 ASCEND VALUE"UP". RL2054.2
019000 88 DSCEND VALUE"DN". RL2054.2
019100 01 FILE-RECORD-INFORMATION-REC. RL2054.2
019200 03 FILE-RECORD-INFO-SKELETON. RL2054.2
019300 05 FILLERPICTURE X(48) VALUE RL2054.2
019400 "FILE= ,RECORD= /0,RECNO=000000,UPDT=00". RL2054.2
019500 05 FILLERPICTURE X(46) VALUE RL2054.2
019600 ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000". RL2054.2
019700 05 FILLERPICTURE X(26) VALUE RL2054.2
019800 ",LFIL=000000,ORG= ,LBLR= ". RL2054.2
019900 05 FILLERPICTURE X(37) VALUE RL2054.2
020000 ",RECKEY= ". RL2054.2
020100 05 FILLERPICTURE X(38) VALUE RL2054.2
020200 ",ALTKEY1= ". RL2054.2
020300 05 FILLERPICTURE X(38) VALUE RL2054.2
020400 ",ALTKEY2= ". RL2054.2
020500 05 FILLERPICTURE X(7) VALUESPACE.RL2054.2
020600 03 FILE-RECORD-INFO OCCURS 10 TIMES. RL2054.2
020700 05 FILE-RECORD-INFO-P1-120. RL2054.2
020800 07 FILLERPIC X(5). RL2054.2
020900 07 XFILE-NAME PIC X(6). RL2054.2
021000 07 FILLERPIC X(8). RL2054.2
021100 07 XRECORD-NAME PIC X(6). RL2054.2
021200 07 FILLERPIC X(1). RL2054.2
021300 07 REELUNIT-NUMBER PIC 9(1). RL2054.2
021400 07 FILLERPIC X(7). RL2054.2
021500 07 XRECORD-NUMBER PIC 9(6). RL2054.2
021600 07 FILLERPIC X(6). RL2054.2
021700 07 UPDATE-NUMBER PIC 9(2). RL2054.2
021800 07 FILLERPIC X(5). RL2054.2
021900 07 ODO-NUMBER PIC 9(4). RL2054.2
022000 07 FILLERPIC X(5). RL2054.2
022100 07 XPROGRAM-NAME PIC X(5). RL2054.2
022200 07 FILLERPIC X(7). RL2054.2
022300 07 XRECORD-LENGTH PIC 9(6). RL2054.2
022400 07 FILLERPIC X(7). RL2054.2
022500 07 CHARS-OR-RECORDS PIC X(2). RL2054.2
022600 07 FILLERPIC X(1). RL2054.2
022700 07 XBLOCK-SIZE PIC 9(4). RL2054.2
022800 07 FILLERPIC X(6). RL2054.2
022900 07 RECORDS-IN-FILE PIC 9(6). RL2054.2
023000 07 FILLERPIC X(5). RL2054.2
023100 07 XFILE-ORGANIZATION PIC X(2). RL2054.2
023200 07 FILLERPIC X(6). RL2054.2
023300 07 XLABEL-TYPE PIC X(1). RL2054.2
023400 05 FILE-RECORD-INFO-P121-240. RL2054.2
023500 07 FILLERPIC X(8). RL2054.2
023600 07 XRECORD-KEY PIC X(29). RL2054.2
023700 07 FILLERPIC X(9). RL2054.2
023800 07 ALTERNATE-KEY1 PIC X(29). RL2054.2
023900 07 FILLERPIC X(9). RL2054.2
024000 07 ALTERNATE-KEY2 PIC X(29). RL2054.2
024100 07 FILLERPIC X(7). RL2054.2
024200 01 TEST-RESULTS. RL2054.2
024300 02 FILLERPIC X VALUESPACE. RL2054.2
024400 02 FEATURE PIC X(20) VALUESPACE. RL2054.2
024500 02 FILLERPIC X VALUESPACE. RL2054.2
024600 02 P-OR-F PIC X(5) VALUESPACE. RL2054.2
024700 02 FILLERPIC X VALUESPACE. RL2054.2
024800 02 PAR-NAME. RL2054.2
024900 03 FILLERPIC X(19) VALUESPACE. RL2054.2
025000 03 PARDOT-X PIC X VALUESPACE. RL2054.2
025100 03 DOTVALUE PIC 99 VALUEZERO. RL2054.2
025200 02 FILLERPIC X(8) VALUESPACE. RL2054.2
025300 02 RE-MARK PIC X(61). RL2054.2
025400 01 TEST-COMPUTED. RL2054.2
025500 02 FILLERPIC X(30) VALUESPACE. RL2054.2
025600 02 FILLERPIC X(17) VALUE RL2054.2
025700 " COMPUTED=". RL2054.2
025800 02 COMPUTED-X. RL2054.2
025900 03 COMPUTED-A PIC X(20) VALUESPACE. RL2054.2
026000 03 COMPUTED-N REDEFINES COMPUTED-A RL2054.2
026100 PIC -9(9).9(9). RL2054.2
026200 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). RL2054.2
026300 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). RL2054.2
026400 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). RL2054.2
026500 03 CM-18V0 REDEFINES COMPUTED-A. RL2054.2
026600 04 COMPUTED-18V0 PIC -9(18). RL2054.2
026700 04 FILLERPIC X. RL2054.2
026800 03 FILLERPIC X(50) VALUESPACE. RL2054.2
026900 01 TEST-CORRECT. RL2054.2
027000 02 FILLERPIC X(30) VALUESPACE. RL2054.2
027100 02 FILLERPIC X(17) VALUE" CORRECT =". RL2054.2
027200 02 CORRECT-X. RL2054.2
027300 03 CORRECT-A PIC X(20) VALUESPACE. RL2054.2
027400 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). RL2054.2
027500 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). RL2054.2
027600 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). RL2054.2
027700 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). RL2054.2
027800 03 CR-18V0 REDEFINES CORRECT-A. RL2054.2
027900 04 CORRECT-18V0 PIC -9(18). RL2054.2
028000 04 FILLERPIC X. RL2054.2
028100 03 FILLERPIC X(2) VALUESPACE. RL2054.2
028200 03 COR-ANSI-REFERENCE PIC X(48) VALUESPACE. RL2054.2
028300 01 CCVS-C-1. RL2054.2
028400 02 FILLERPICIS X(99) VALUEIS" FEATURE PARL2054.2
028500- "SS PARAGRAPH-NAME RL2054.2
028600- " REMARKS". RL2054.2
028700 02 FILLERPIC X(20) VALUESPACE. RL2054.2
028800 01 CCVS-C-2. RL2054.2
028900 02 FILLERPIC X VALUESPACE. RL2054.2
029000 02 FILLERPIC X(6) VALUE"TESTED". RL2054.2
029100 02 FILLERPIC X(15) VALUESPACE. RL2054.2
029200 02 FILLERPIC X(4) VALUE"FAIL". RL2054.2
029300 02 FILLERPIC X(94) VALUESPACE. RL2054.2
029400 01 REC-SKL-SUB PIC 9(2) VALUEZERO. RL2054.2
029500 01 REC-CT PIC 99 VALUEZERO. RL2054.2
029600 01 DELETE-COUNTER PIC 999 VALUEZERO. RL2054.2
029700 01 ERROR-COUNTER PIC 999 VALUEZERO. RL2054.2
029800 01 INSPECT-COUNTER PIC 999 VALUEZERO. RL2054.2
029900 01 PASS-COUNTER PIC 999 VALUEZERO. RL2054.2
030000 01 TOTAL-ERROR PIC 999 VALUEZERO. RL2054.2
030100 01 ERROR-HOLD PIC 999 VALUEZERO. RL2054.2
030200 01 DUMMY-HOLD PIC X(120) VALUESPACE. RL2054.2
030300 01 RECORD-COUNT PIC 9(5) VALUEZERO. RL2054.2
030400 01 ANSI-REFERENCE PIC X(48) VALUESPACES. RL2054.2
030500 01 CCVS-H-1. RL2054.2
030600 02 FILLERPIC X(39) VALUESPACES. RL2054.2
030700 02 FILLERPIC X(42) VALUE RL2054.2
030800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". RL2054.2
030900 02 FILLERPIC X(39) VALUESPACES. RL2054.2
031000 01 CCVS-H-2A. RL2054.2
031100 02 FILLERPIC X(40) VALUESPACE. RL2054.2
031200 02 FILLERPIC X(7) VALUE"CCVS85 ". RL2054.2
031300 02 FILLERPIC XXXX VALUE RL2054.2
031400 "4.2 ". RL2054.2
031500 02 FILLERPIC X(28) VALUE RL2054.2
031600 " COPY - NOT FOR DISTRIBUTION". RL2054.2
031700 02 FILLERPIC X(41) VALUESPACE. RL2054.2
031800 RL2054.2
031900 01 CCVS-H-2B. RL2054.2
032000 02 FILLERPIC X(15) VALUE RL2054.2
032100 "TEST RESULT OF ". RL2054.2
032200 02 TEST-ID PIC X(9). RL2054.2
032300 02 FILLERPIC X(4) VALUE RL2054.2
032400 " IN ". RL2054.2
032500 02 FILLERPIC X(12) VALUE RL2054.2
032600 " HIGH ". RL2054.2
032700 02 FILLERPIC X(22) VALUE RL2054.2
032800 " LEVEL VALIDATION FOR ". RL2054.2
032900 02 FILLERPIC X(58) VALUE RL2054.2
033000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2054.2
033100 01 CCVS-H-3. RL2054.2
033200 02 FILLERPIC X(34) VALUE RL2054.2
033300 " FOR OFFICIAL USE ONLY ". RL2054.2
033400 02 FILLERPIC X(58) VALUE RL2054.2
033500 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL2054.2
033600 02 FILLERPIC X(28) VALUE RL2054.2
033700 " COPYRIGHT 1985 ". RL2054.2
033800 01 CCVS-E-1. RL2054.2
033900 02 FILLERPIC X(52) VALUESPACE. RL2054.2
034000 02 FILLERPIC X(14) VALUEIS"END OF TEST- ". RL2054.2
034100 02 ID-AGAIN PIC X(9). RL2054.2
034200 02 FILLERPIC X(45) VALUESPACES. RL2054.2
034300 01 CCVS-E-2. RL2054.2
034400 02 FILLERPIC X(31) VALUESPACE. RL2054.2
034500 02 FILLERPIC X(21) VALUESPACE. RL2054.2
034600 02 CCVS-E-2-2. RL2054.2
034700 03 ERROR-TOTAL PIC XXX VALUESPACE. RL2054.2
034800 03 FILLERPIC X VALUESPACE. RL2054.2
034900 03 ENDER-DESC PIC X(44) VALUE RL2054.2
035000 "ERRORS ENCOUNTERED". RL2054.2
035100 01 CCVS-E-3. RL2054.2
035200 02 FILLERPIC X(22) VALUE RL2054.2
035300 " FOR OFFICIAL USE ONLY". RL2054.2
035400 02 FILLERPIC X(12) VALUESPACE. RL2054.2
035500 02 FILLERPIC X(58) VALUE RL2054.2
035600 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2054.2
035700 02 FILLERPIC X(13) VALUESPACE. RL2054.2
035800 02 FILLERPIC X(15) VALUE RL2054.2
035900 " COPYRIGHT 1985". RL2054.2
036000 01 CCVS-E-4. RL2054.2
036100 02 CCVS-E-4-1 PIC XXX VALUESPACE. RL2054.2
036200 02 FILLERPIC X(4) VALUE" OF ". RL2054.2
036300 02 CCVS-E-4-2 PIC XXX VALUESPACE. RL2054.2
036400 02 FILLERPIC X(40) VALUE RL2054.2
036500 " TESTS WERE EXECUTED SUCCESSFULLY". RL2054.2
036600 01 XXINFO. RL2054.2
036700 02 FILLERPIC X(19) VALUE RL2054.2
036800 "*** INFORMATION ***". RL2054.2
036900 02 INFO-TEXT. RL2054.2
037000 04 FILLERPIC X(8) VALUESPACE. RL2054.2
037100 04 XXCOMPUTED PIC X(20). RL2054.2
037200 04 FILLERPIC X(5) VALUESPACE. RL2054.2
037300 04 XXCORRECT PIC X(20). RL2054.2
037400 02 INF-ANSI-REFERENCE PIC X(48). RL2054.2
037500 01 HYPHEN-LINE. RL2054.2
037600 02 FILLERPICIS X VALUEISSPACE. RL2054.2
037700 02 FILLERPICIS X(65) VALUEIS"************************RL2054.2
037800- "*****************************************". RL2054.2
037900 02 FILLERPICIS X(54) VALUEIS"************************RL2054.2
038000- "******************************". RL2054.2
038100 01 CCVS-PGM-ID PIC X(9) VALUE RL2054.2
038200 "RL205A". RL2054.2
038300 PROCEDUREDIVISION. RL2054.2
038400 DECLARATIVES. RL2054.2
038500 USE-RL205-TEST SECTION. RL2054.2
038600 USEAFTERERRORPROCEDURE RL-FD1 RL-FS2. RL2054.2
038700 USE-PAR-001. RL2054.2
038800 ADD 010000 TO ERROR-COUNTER-06V00. RL2054.2
038900 USE-PAR-EXIT. RL2054.2
039000 EXIT. RL2054.2
039100 ENDDECLARATIVES. RL2054.2
039200 CCVS1 SECTION. RL2054.2
039300 OPEN-FILES. RL2054.2
039400 OPENOUTPUT PRINT-FILE. RL2054.2
039500 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL2054.2
039600 MOVESPACETO TEST-RESULTS. RL2054.2
039700 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. RL2054.2
039800 MOVEZEROTO REC-SKL-SUB. RL2054.2
039900 PERFORM CCVS-INIT-FILE 9 TIMES. RL2054.2
040000 CCVS-INIT-FILE. RL2054.2
040100 ADD 1 TO REC-SKL-SUB. RL2054.2
040200 MOVE FILE-RECORD-INFO-SKELETON RL2054.2
040300 TO FILE-RECORD-INFO (REC-SKL-SUB). RL2054.2
040400 CCVS-INIT-EXIT. RL2054.2
040500 GOTO CCVS1-EXIT. RL2054.2
040600 CLOSE-FILES. RL2054.2
040700 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. RL2054.2
040800 TERMINATE-CCVS. RL2054.2
040900 EXITPROGRAM. RL2054.2
041000 TERMINATE-CALL. RL2054.2
041100 STOPRUN. RL2054.2
041200 INSPT. MOVE"INSPT"TO P-OR-F. ADD 1 TO INSPECT-COUNTER. RL2054.2
041300 PASS. MOVE"PASS "TO P-OR-F. ADD 1 TO PASS-COUNTER. RL2054.2
041400 FAIL. MOVE"FAIL*"TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL2054.2
041500 DE-LETE. MOVE"*****"TO P-OR-F. ADD 1 TO DELETE-COUNTER. RL2054.2
041600 MOVE"****TEST DELETED****"TO RE-MARK. RL2054.2
041700 PRINT-DETAIL. RL2054.2
041800 IF REC-CT NOTEQUALTOZERO RL2054.2
041900 MOVE"."TO PARDOT-X RL2054.2
042000 MOVE REC-CT TO DOTVALUE. RL2054.2
042100 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. RL2054.2
042200 IF P-OR-F EQUALTO"FAIL*"PERFORM WRITE-LINE RL2054.2
042300 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX RL2054.2
042400 ELSEPERFORM BAIL-OUT THRU BAIL-OUT-EX. RL2054.2
042500 MOVESPACETO P-OR-F. MOVESPACETO COMPUTED-X. RL2054.2
042600 MOVESPACETO CORRECT-X. RL2054.2
042700 IF REC-CT EQUALTOZEROMOVESPACETO PAR-NAME. RL2054.2
042800 MOVESPACETO RE-MARK. RL2054.2
042900 HEAD-ROUTINE. RL2054.2
043000 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2
043100 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2
043200 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2054.2
043300 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL2054.2
043400 COLUMN-NAMES-ROUTINE. RL2054.2
043500 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2
043600 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2
043700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2
043800 END-ROUTINE. RL2054.2
043900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL2054.2
044000 END-RTN-EXIT. RL2054.2
044100 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2
044200 END-ROUTINE-1. RL2054.2
044300 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL2054.2
044400 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. RL2054.2
044500 ADD PASS-COUNTER TO ERROR-HOLD. RL2054.2 044600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL2054.2
044700 MOVE PASS-COUNTER TO CCVS-E-4-1. RL2054.2
044800 MOVE ERROR-HOLD TO CCVS-E-4-2. RL2054.2
044900 MOVE CCVS-E-4 TO CCVS-E-2-2. RL2054.2
045000 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL2054.2
045100 END-ROUTINE-12. RL2054.2
045200 MOVE"TEST(S) FAILED"TO ENDER-DESC. RL2054.2
045300 IF ERROR-COUNTER ISEQUALTOZERO RL2054.2
045400 MOVE"NO "TO ERROR-TOTAL RL2054.2
045500 ELSE RL2054.2
045600 MOVE ERROR-COUNTER TO ERROR-TOTAL. RL2054.2
045700 MOVE CCVS-E-2 TO DUMMY-RECORD. RL2054.2
045800 PERFORM WRITE-LINE. RL2054.2
045900 END-ROUTINE-13. RL2054.2
046000 IF DELETE-COUNTER ISEQUALTOZERO RL2054.2
046100 MOVE"NO "TO ERROR-TOTAL ELSE RL2054.2
046200 MOVE DELETE-COUNTER TO ERROR-TOTAL. RL2054.2
046300 MOVE"TEST(S) DELETED "TO ENDER-DESC. RL2054.2
046400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2
046500 IF INSPECT-COUNTER EQUALTOZERO RL2054.2
046600 MOVE"NO "TO ERROR-TOTAL RL2054.2
046700 ELSEMOVE INSPECT-COUNTER TO ERROR-TOTAL. RL2054.2
046800 MOVE"TEST(S) REQUIRE INSPECTION"TO ENDER-DESC. RL2054.2
046900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2
047000 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2
047100 WRITE-LINE. RL2054.2
047200 ADD 1 TO RECORD-COUNT. RL2054.2
047300 IF RECORD-COUNT GREATER 50 RL2054.2
047400 MOVE DUMMY-RECORD TO DUMMY-HOLD RL2054.2
047500 MOVESPACETO DUMMY-RECORD RL2054.2
047600 WRITE DUMMY-RECORD AFTERADVANCINGPAGE RL2054.2
047700 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL2054.2
047800 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL2054.2
047900 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL2054.2
048000 MOVE DUMMY-HOLD TO DUMMY-RECORD RL2054.2
048100 MOVEZEROTO RECORD-COUNT. RL2054.2
048200 PERFORM WRT-LN. RL2054.2
048300 WRT-LN. RL2054.2
048400 WRITE DUMMY-RECORD AFTERADVANCING 1 LINES. RL2054.2
048500 MOVESPACETO DUMMY-RECORD. RL2054.2
048600 BLANK-LINE-PRINT. RL2054.2
048700 PERFORM WRT-LN. RL2054.2
048800 FAIL-ROUTINE. RL2054.2
048900 IF COMPUTED-X NOTEQUALTOSPACE RL2054.2
049000 GOTO FAIL-ROUTINE-WRITE. RL2054.2
049100 IF CORRECT-X NOTEQUALTOSPACEGOTO FAIL-ROUTINE-WRITE.RL2054.2
049200 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2054.2
049300 MOVE"NO FURTHER INFORMATION, SEE PROGRAM."TO INFO-TEXT. RL2054.2
049400 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2
049500 MOVESPACESTO INF-ANSI-REFERENCE. RL2054.2
049600 GOTO FAIL-ROUTINE-EX. RL2054.2
049700 FAIL-ROUTINE-WRITE. RL2054.2
049800 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL2054.2
049900 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL2054.2
050000 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL2054.2
050100 MOVESPACESTO COR-ANSI-REFERENCE. RL2054.2
050200 FAIL-ROUTINE-EX. EXIT. RL2054.2
050300 BAIL-OUT. RL2054.2
050400 IF COMPUTED-A NOTEQUALTOSPACEGOTO BAIL-OUT-WRITE. RL2054.2
050500 IF CORRECT-A EQUALTOSPACEGOTO BAIL-OUT-EX. RL2054.2
050600 BAIL-OUT-WRITE. RL2054.2
050700 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL2054.2
050800 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2054.2
050900 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2
051000 MOVESPACESTO INF-ANSI-REFERENCE. RL2054.2
051100 BAIL-OUT-EX. EXIT. RL2054.2
051200 CCVS1-EXIT. RL2054.2
051300 EXIT. RL2054.2
051400 SECT-RL205-0001 SECTION. RL2054.2
051500 REL-INIT-001. RL2054.2
051600 OPENOUTPUT RL-FD1. RL2054.2
051700 OPENOUTPUT RL-FS2. RL2054.2
051800 MOVE"RL-FD1"TO XFILE-NAME (1). RL2054.2
051900 MOVE"R1-F-G"TO XRECORD-NAME (1). RL2054.2
052000 MOVEZEROTO XRECORD-NUMBER (1). RL2054.2
052100 MOVE".XXX."TO XPROGRAM-NAME (1). RL2054.2
052200 MOVE 000240 TO XRECORD-LENGTH (1). RL2054.2
052300 MOVE 0001 TO XBLOCK-SIZE (1). RL2054.2
052400 MOVE"RC"TO CHARS-OR-RECORDS (1). RL2054.2
052500 MOVE"RL"TO XFILE-ORGANIZATION (1). RL2054.2
052600 MOVE"S"TO XLABEL-TYPE (1). RL2054.2
052700 MOVE 000300 TO RL-FD1-FILESIZE. RL2054.2
052800 MOVE 000300 TO RECORDS-IN-FILE (1). RL2054.2
052900 MOVE 00001 TO WRK-RL-FD1-RECKEY. RL2054.2
053000 MOVE 00300 TO WRK-DU-05V00-002. RL2054.2
053100 MOVEZEROTO EXCUT-COUNTER-06V00. RL2054.2
053200 MOVEZEROTO INV-KEY-COUNTER. RL2054.2
053300 MOVE"REL-TEST-001"TO PAR-NAME. RL2054.2
053400 MOVEZEROTO REC-CT. RL2054.2
053500 MOVE"RL-FS2"TO XFILE-NAME (2). RL2054.2
053600 MOVE"R1-F-G"TO XRECORD-NAME (2). RL2054.2
053700 MOVEZEROTO XRECORD-NUMBER (2). RL2054.2
053800 MOVE".XXX."TO XPROGRAM-NAME (2). RL2054.2
053900 MOVE 000240 TO XRECORD-LENGTH (2). RL2054.2
054000 MOVE 0001 TO XBLOCK-SIZE (2). RL2054.2
054100 MOVE"RC"TO CHARS-OR-RECORDS (2). RL2054.2
054200 MOVE"RL"TO XFILE-ORGANIZATION (2). RL2054.2
054300 MOVE"S"TO XLABEL-TYPE (2). RL2054.2
054400 MOVE 00300 TO RL-FS2-FILESIZE. RL2054.2
054500 MOVE 00300 TO RECORDS-IN-FILE (2). RL2054.2
054600 MOVE 00001 TO WRK-RL-FS2-RECKEY. RL2054.2
054700 MOVE 00300 TO WRK-DU-05V00-004. RL2054.2
054800 REL-TEST-001-R1. RL2054.2
054900 ADD 0001 TO XRECORD-NUMBER (1). RL2054.2
055000 MOVE WRK-RL-FD1-RECKEY TO XRECORD-KEY (1). RL2054.2
055100 MOVE WRK-RL-FD1-FILLER TO ALTERNATE-KEY1 (1). RL2054.2
055200 MOVE FILE-RECORD-INFO (1) TO RL-FD1R1-F-G-240. RL2054.2
055300 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
055400 WRITE RL-FD1R1-F-G-240 RL2054.2
055500 INVALIDKEY RL2054.2
055600 ADD 000001 TO INV-KEY-COUNTER. RL2054.2
055700 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
055800 ADD 00001 TO WRK-RL-FD1-RECKEY. RL2054.2
055900 SUBTRACT 00001 FROM WRK-DU-05V00-002. RL2054.2
056000 IF XRECORD-NUMBER (1) LESSTHAN RL-FD1-FILESIZE RL2054.2
056100 GOTO REL-TEST-001-R1. RL2054.2
056200 CLOSE RL-FD1. RL2054.2
056300 REL-TEST-001-01. RL2054.2
056400 MOVE"CREATE FILE RL-FD1"TO FEATURE. RL2054.2
056500 MOVE 01 TO REC-CT. RL2054.2
056600 IF EXCUT-COUNTER-06V00 NOTEQUALTO RL-FD1-FILESIZE RL2054.2
056700 PERFORM FAIL RL2054.2
056800 MOVE RL-FD1-FILESIZE TO CORRECT-N RL2054.2
056900 MOVE EXCUT-COUNTER-06V00 TO COMPUTED-N RL2054.2
057000 MOVE"INCORRECT NUMBER OF WRITES"TO RE-MARK RL2054.2
057100 PERFORM PRINT-DETAIL RL2054.2
057200 GOTO REL-INIT-001-R2. RL2054.2
057300 IF INV-KEY-COUNTER NOTEQUALTOZERO RL2054.2
057400 PERFORM FAIL RL2054.2
057500 MOVE INV-KEY-COUNTER TO COMPUTED-N RL2054.2
057600 MOVEZEROTO CORRECT-N RL2054.2
057700 MOVE"INVALID KEY ON WRITE"TO RE-MARK RL2054.2
057800 PERFORM PRINT-DETAIL RL2054.2
057900 GOTO REL-INIT-001-R2. RL2054.2 058000* RL2054.2 058100* 01 RL2054.2 058200* RL2054.2
058300 PERFORM PASS. RL2054.2
058400 PERFORM REL-WRITE-001. RL2054.2
058500 REL-INIT-001-R2. RL2054.2
058600 MOVEZEROTO INV-KEY-COUNTER. RL2054.2
058700 MOVEZEROTO EXCUT-COUNTER-06V00. RL2054.2
058800 REL-TEST-001-R2. RL2054.2
058900 ADD 0001 TO XRECORD-NUMBER (2). RL2054.2
059000 MOVE WRK-RL-FS2-RECKEY TO XRECORD-KEY (2). RL2054.2
059100 MOVE WRK-RL-FS2-FILLER TO ALTERNATE-KEY1 (2). RL2054.2
059200 MOVE FILE-RECORD-INFO (2) TO RL-FS2R1-F-G-240. RL2054.2
059300 WRITE RL-FS2R1-F-G-240 RL2054.2
059400 INVALIDKEY RL2054.2
059500 ADD 000001 TO INV-KEY-COUNTER. RL2054.2
059600 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
059700 ADD 00001 TO WRK-RL-FS2-RECKEY. RL2054.2
059800 SUBTRACT 00001 FROM WRK-DU-05V00-004. RL2054.2
059900 IF XRECORD-NUMBER (2) LESSTHAN RL-FS2-FILESIZE RL2054.2
060000 GOTO REL-TEST-001-R2. RL2054.2
060100 CLOSE RL-FS2. RL2054.2
060200 REL-TEST-001-02. RL2054.2
060300 MOVE"CREATE FILE RL-FS2"TO FEATURE. RL2054.2
060400 MOVE 02 TO REC-CT. RL2054.2
060500 IF EXCUT-COUNTER-06V00 NOTEQUALTO RL-FS2-FILESIZE RL2054.2
060600 PERFORM FAIL RL2054.2
060700 MOVE RL-FS2-FILESIZE TO CORRECT-N RL2054.2
060800 MOVE EXCUT-COUNTER-06V00 TO COMPUTED-N RL2054.2
060900 MOVE"INCORRECT NUMBER OF WRITES"TO RE-MARK RL2054.2
061000 PERFORM PRINT-DETAIL RL2054.2
061100 GOTO REL-EXIT-001. RL2054.2 061200* RL2054.2 061300* 02 RL2054.2 061400* RL2054.2
061500 IF INV-KEY-COUNTER NOTEQUALTOZERO RL2054.2
061600 PERFORM FAIL RL2054.2
061700 MOVE INV-KEY-COUNTER TO COMPUTED-N RL2054.2
061800 MOVEZEROTO CORRECT-N RL2054.2
061900 MOVE"INVALID KEY ON WRITE"TO RE-MARK RL2054.2
062000 PERFORM PRINT-DETAIL RL2054.2
062100 GOTO REL-EXIT-001. RL2054.2
062200 PERFORM PASS. RL2054.2
062300 PERFORM REL-WRITE-001. RL2054.2
062400 GOTO REL-EXIT-001. RL2054.2
062500 REL-WRITE-001. RL2054.2
062600 PERFORM PRINT-DETAIL. RL2054.2
062700 REL-DELETE-001. RL2054.2
062800 PERFORM DE-LETE. RL2054.2
062900 PERFORM PRINT-DETAIL. RL2054.2
063000 REL-EXIT-001. RL2054.2
063100 EXIT. RL2054.2
063200 REL-INIT-002. RL2054.2
063300 PERFORM BLANK-LINE-PRINT. RL2054.2
063400 MOVE"THE FOLLOWING TESTS ACCESS A FILE DEFINED AS RL2054.2
063500- "ACCESS MODE IS DYNAMIC."TO PRINT-REC. RL2054.2
063600 PERFORM WRITE-LINE. RL2054.2
063700 PERFORM BLANK-LINE-PRINT. RL2054.2
063800 MOVE"READ NEXT"TO FEATURE. RL2054.2
063900 MOVEZEROTO REC-CT. RL2054.2
064000 MOVE"REL-TEST-002"TO PAR-NAME. RL2054.2
064100 REL-INIT-002-R1. RL2054.2
064200 OPENINPUT RL-FD1. RL2054.2
064300 PERFORM REL-INIT-002-R. RL2054.2
064400 REL-TEST-002-R1. RL2054.2
064500 READ RL-FD1 NEXT. RL2054.2
064600 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
064700 PERFORM REL-VERIFY-002 RL2054.2
064800 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
064900 GOTO REL-TEST-002-R1. RL2054.2
065000 CLOSE RL-FD1. RL2054.2
065100 REL-TEST-002-01. RL2054.2
065200 MOVE 01 TO REC-CT. RL2054.2
065300 PERFORM REL-TEST-002. RL2054.2
065400 GOTO REL-EXIT-002-01. RL2054.2 065500* RL2054.2 065600* 01 RL2054.2 065700* RL2054.2
065800 REL-DELETE-002-01. RL2054.2
065900 MOVE 01 TO REC-CT. RL2054.2
066000 PERFORM DE-LETE. RL2054.2
066100 PERFORM REL-WRITE-002. RL2054.2
066200 REL-EXIT-002-01. RL2054.2
066300 EXIT. RL2054.2
066400 REL-INIT-002-R2. RL2054.2
066500 PERFORM REL-INIT-002-R. RL2054.2
066600 OPENINPUT RL-FD1. RL2054.2
066700 REL-TEST-002-R2. RL2054.2
066800 MOVESPACETO FILE-RECORD-INFO (9). RL2054.2
066900 MOVESPACETO FILE-RECORD-INFO (1). RL2054.2
067000 READ RL-FD1 NEXTRECORD RL2054.2
067100 INTO FILE-RECORD-INFO (9). RL2054.2
067200 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
067300 PERFORM REL-VERIFY-002. RL2054.2
067400 IF XRECORD-NUMBER (9) NOTEQUALTO LOGICAL-FILE-REC RL2054.2
067500 ADD 000100 TO ERROR-COUNTER-06V00. RL2054.2
067600 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
067700 GOTO REL-TEST-002-R2. RL2054.2
067800 CLOSE RL-FD1. RL2054.2
067900 REL-TEST-002-02. RL2054.2
068000 MOVE 02 TO REC-CT. RL2054.2
068100 PERFORM REL-TEST-002. RL2054.2 068200* RL2054.2 068300* 02 RL2054.2 068400* RL2054.2
068500 GOTO REL-EXIT-002-02. RL2054.2
068600 REL-DELETE-002-02. RL2054.2
068700 MOVE 02 TO REC-CT. RL2054.2
068800 PERFORM DE-LETE. RL2054.2
068900 PERFORM REL-WRITE-002. RL2054.2
069000 REL-EXIT-002-02. RL2054.2
069100 EXIT. RL2054.2
069200 REL-INIT-002-R3. RL2054.2
069300 OPENINPUT RL-FD1. RL2054.2
069400 PERFORM REL-INIT-002-R. RL2054.2
069500 REL-TEST-002-R3. RL2054.2
069600 MOVESPACETO FILE-RECORD-INFO (9). RL2054.2
069700 MOVESPACETO FILE-RECORD-INFO (1). RL2054.2
069800 READ RL-FD1 NEXT RL2054.2
069900 INTO FILE-RECORD-INFO (9). RL2054.2
070000 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
070100 PERFORM REL-VERIFY-002. RL2054.2
070200 IF XRECORD-NUMBER (9) NOTEQUALTO LOGICAL-FILE-REC RL2054.2
070300 ADD 000100 TO ERROR-COUNTER-06V00. RL2054.2
070400 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
070500 GOTO REL-TEST-002-R3. RL2054.2
070600 CLOSE RL-FD1. RL2054.2
070700 REL-TEST-002-03. RL2054.2
070800 MOVE 03 TO REC-CT. RL2054.2
070900 PERFORM REL-TEST-002. RL2054.2 071000* RL2054.2 071100* 03 RL2054.2 071200* RL2054.2
071300 GOTO REL-EXIT-002-03. RL2054.2
071400 REL-DELETE-002-03. RL2054.2
071500 MOVE 03 TO REC-CT. RL2054.2
071600 PERFORM DE-LETE. RL2054.2
071700 PERFORM REL-WRITE-002. RL2054.2
071800 REL-EXIT-002-03. RL2054.2
071900 EXIT. RL2054.2
072000 REL-INIT-002-R4. RL2054.2
072100 OPENINPUT RL-FD1. RL2054.2
072200 PERFORM REL-INIT-002-R. RL2054.2
072300 MOVE RL-FD1-FILESIZE TO ERROR-COUNTER-06V00. RL2054.2
072400 ADD 000001 TO ERROR-COUNTER-06V00. RL2054.2
072500 REL-TEST-002-R4. RL2054.2
072600 MOVESPACETO FILE-RECORD-INFO (9). RL2054.2
072700 MOVESPACETO FILE-RECORD-INFO (1). RL2054.2
072800 READ RL-FD1 NEXTINTO FILE-RECORD-INFO (9) ATEND RL2054.2
072900 SUBTRACT 000001 FROM ERROR-COUNTER-06V00 RL2054.2
073000 GOTO REL-TEST-002-04. RL2054.2
073100 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
073200 PERFORM REL-VERIFY-002. RL2054.2
073300 IF XRECORD-NUMBER (9) NOTEQUALTO LOGICAL-FILE-REC RL2054.2
073400 ADD 00100 TO ERROR-COUNTER-06V00. RL2054.2
073500 IF EXCUT-COUNTER-06V00 GREATERTHAN RL-FD1-FILESIZE RL2054.2
073600 NEXTSENTENCE RL2054.2
073700 ELSE RL2054.2
073800 GOTO REL-TEST-002-R4. RL2054.2 073900* RL2054.2 074000* TEST REL-002-04 TESTS THE COBOL CONSTRUCT "READ FILE- RL2054.2 074100* NAME NEXT INTO IDENTIFIER AT END". THE TEST READS THE FILE RL2054.2 074200* SEQUENTIALY VIA THE RELATIVE KEY (RECORD KEY IS THE KEY OF RL2054.2 074300* REFERENCE) UNTIL AN END-OF-FILE CONDITION OCCURS. A CHECK RL2054.2 074400* IS MADE TO VERIFY THAT THE PROPER RECORDS WERE RETRIVED AND RL2054.2 074500* THE AT END PATH WAS TAKEN ON THE 301 ST READ. RL2054.2 074600* RL2054.2
074700 REL-TEST-002-04. RL2054.2
074800 CLOSE RL-FD1. RL2054.2
074900 MOVE 04 TO REC-CT. RL2054.2
075000 PERFORM REL-TEST-002. RL2054.2 075100* .04 RL2054.2
075200 GOTO REL-EXIT-002-04. RL2054.2
075300 REL-DELETE-002-04. RL2054.2
075400 MOVE 04 TO REC-CT. RL2054.2
075500 PERFORM DE-LETE. RL2054.2
075600 PERFORM REL-WRITE-002. RL2054.2
075700 REL-EXIT-002-04. RL2054.2
075800 EXIT. RL2054.2
075900 REL-INIT-002-R5. RL2054.2
076000 OPENINPUT RL-FD1. RL2054.2
076100 PERFORM REL-INIT-002-R. RL2054.2
076200 MOVE"READ"TO FEATURE. RL2054.2
076300 MOVEZEROTO WRK-RL-FD1-RECKEY. RL2054.2
076400 REL-TEST-002-R5. RL2054.2
076500 ADD 00005 TO WRK-RL-FD1-RECKEY. RL2054.2
076600 ADD 000004 TO LOGICAL-FILE-REC. RL2054.2
076700 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
076800 READ RL-FD1. RL2054.2
076900 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
077000 PERFORM REL-VERIFY-002. RL2054.2
077100 MOVESPACETO FILE-RECORD-INFO (1). RL2054.2
077200 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
077300 GOTO REL-TEST-002-R5. RL2054.2
077400 CLOSE RL-FD1. RL2054.2
077500 REL-TEST-002-05. RL2054.2
077600 MOVE 05 TO REC-CT. RL2054.2
077700 PERFORM REL-TEST-002. RL2054.2 077800* .05 RL2054.2
077900 GOTO REL-EXIT-002-05. RL2054.2
078000 REL-DELETE-002-05. RL2054.2
078100 MOVE 05 TO REC-CT. RL2054.2
078200 PERFORM DE-LETE. RL2054.2
078300 PERFORM REL-WRITE-002. RL2054.2
078400 REL-EXIT-002-05. RL2054.2
078500 EXIT. RL2054.2
078600 REL-INIT-002-R6. RL2054.2
078700 OPENINPUT RL-FD1. RL2054.2
078800 PERFORM REL-INIT-002-R. RL2054.2
078900 MOVEZEROTO WRK-RL-FD1-RECKEY. RL2054.2
079000 REL-TEST-002-R6. RL2054.2
079100 MOVESPACETO FILE-RECORD-INFO (9). RL2054.2
079200 MOVESPACETO FILE-RECORD-INFO (1). RL2054.2
079300 ADD 00005 TO WRK-RL-FD1-RECKEY. RL2054.2
079400 ADD 000004 TO LOGICAL-FILE-REC. RL2054.2
079500 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
079600 READ RL-FD1 INTO FILE-RECORD-INFO (9). RL2054.2
079700 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
079800 PERFORM REL-VERIFY-002. RL2054.2
079900 IF XRECORD-NUMBER (9) NOTEQUALTO LOGICAL-FILE-RECRL2054.2
080000 ADD 000100 TO ERROR-COUNTER-06V00. RL2054.2
080100 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
080200 GOTO REL-TEST-002-R6. RL2054.2
080300 CLOSE RL-FD1. RL2054.2
080400 REL-TEST-002-06. RL2054.2
080500 MOVE 06 TO REC-CT. RL2054.2
080600 PERFORM REL-TEST-002. RL2054.2 080700* .06 RL2054.2
080800 GOTO REL-EXIT-002-06. RL2054.2
080900 REL-DELETE-002-06. RL2054.2
081000 MOVE 06 TO REC-CT. RL2054.2
081100 PERFORM DE-LETE. RL2054.2
081200 PERFORM REL-WRITE-002. RL2054.2
081300 REL-EXIT-002-06. RL2054.2
081400 EXIT. RL2054.2
081500 REL-INIT-002-R7. RL2054.2
081600 OPENINPUT RL-FD1. RL2054.2
081700 PERFORM REL-INIT-002-R. RL2054.2
081800 MOVEZEROTO WRK-RL-FD1-RECKEY. RL2054.2
081900 MOVEZEROTO LOGICAL-FILE-REC. RL2054.2
082000 REL-TEST-002-R7. RL2054.2
082100 MOVESPACETO FILE-RECORD-INFO (1). RL2054.2
082200 ADD 00005 TO WRK-RL-FD1-RECKEY. RL2054.2
082300 ADD 0004 TO LOGICAL-FILE-REC. RL2054.2
082400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
082500 READ RL-FD1 RECORD. RL2054.2
082600 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
082700 PERFORM REL-VERIFY-002. RL2054.2
082800 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
082900 GOTO REL-TEST-002-R7. RL2054.2
083000 CLOSE RL-FD1. RL2054.2
083100 REL-TEST-002-07. RL2054.2
083200 MOVE 07 TO REC-CT. RL2054.2
083300 PERFORM REL-TEST-002. RL2054.2 083400* .07 RL2054.2
083500 GOTO REL-EXIT-002-07. RL2054.2
083600 REL-DELETE-002-07. RL2054.2
083700 MOVE 07 TO REC-CT. RL2054.2
083800 PERFORM DE-LETE. RL2054.2
083900 PERFORM REL-WRITE-002. RL2054.2
084000 REL-EXIT-002-07. RL2054.2
084100 EXIT. RL2054.2
084200 REL-INIT-002-R8. RL2054.2
084300 OPENINPUT RL-FD1. RL2054.2
084400 PERFORM REL-INIT-002-R. RL2054.2
084500 MOVE 00301 TO WRK-RL-FD1-RECKEY. RL2054.2
084600 MOVESPACETO RL-FD1R1-F-G-240. RL2054.2
084700 REL-TEST-002-R8. RL2054.2
084800 ADD 00005 TO WRK-RL-FD1-RECKEY. RL2054.2
084900 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
085000 READ RL-FD1 RECORDINVALID RL2054.2
085100 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
085200 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
085300 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
085400 GOTO REL-TEST-002-R8. RL2054.2
085500 CLOSE RL-FD1. RL2054.2
085600 REL-TEST-002-08. RL2054.2
085700 MOVE 08 TO REC-CT. RL2054.2
085800 PERFORM REL-TEST-002. RL2054.2 085900* .08 RL2054.2
086000 GOTO REL-EXIT-002-08. RL2054.2
086100 REL-DELETE-002-08. RL2054.2
086200 MOVE 08 TO REC-CT. RL2054.2
086300 PERFORM DE-LETE. RL2054.2
086400 PERFORM REL-WRITE-002. RL2054.2
086500 REL-EXIT-002-08. RL2054.2
086600 EXIT. RL2054.2
086700 REL-INIT-002-R9. RL2054.2
086800 OPENINPUT RL-FD1. RL2054.2
086900 PERFORM REL-INIT-002-R. RL2054.2
087000 MOVE 00301 TO WRK-RL-FD1-RECKEY. RL2054.2
087100 MOVESPACETO RL-FD1R1-F-G-240. RL2054.2
087200 REL-TEST-002-R9. RL2054.2
087300 ADD 00004 TO WRK-RL-FD1-RECKEY. RL2054.2
087400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
087500 MOVESPACETO FILE-RECORD-INFO (1). RL2054.2
087600 READ RL-FD1 RECORDINVALIDKEY RL2054.2
087700 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
087800 ADD 00001 TO EXCUT-COUNTER-06V00. RL2054.2
087900 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
088000 GOTO REL-TEST-002-R9. RL2054.2
088100 CLOSE RL-FD1. RL2054.2
088200 REL-TEST-002-09. RL2054.2
088300 MOVE 09 TO REC-CT. RL2054.2
088400 PERFORM REL-TEST-002. RL2054.2 088500* .09 RL2054.2
088600 GOTO REL-EXIT-002-09. RL2054.2
088700 REL-DELETE-002-09. RL2054.2
088800 MOVE 09 TO REC-CT. RL2054.2
088900 PERFORM DE-LETE. RL2054.2
089000 PERFORM REL-WRITE-002. RL2054.2
089100 REL-EXIT-002-09. RL2054.2
089200 GOTO REL-EXIT-002. RL2054.2
089300 REL-INIT-002-R. RL2054.2
089400 MOVE 00010 TO ERROR-COUNTER-06V00. RL2054.2
089500 MOVEZEROTO EXCUT-COUNTER-06V00. RL2054.2
089600 MOVEZEROTO INV-KEY-COUNTER. RL2054.2
089700 MOVEZEROTO LOGICAL-FILE-REC. RL2054.2
089800 REL-VERIFY-002. RL2054.2
089900 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
090000 ADD 000001 TO LOGICAL-FILE-REC. RL2054.2
090100 IF XRECORD-NUMBER (1) EQUALTO LOGICAL-FILE-REC RL2054.2
090200 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
090300 REL-TEST-002. RL2054.2
090400 IF ERROR-COUNTER-06V00 EQUALTOZERO RL2054.2
090500 PERFORM PASS RL2054.2
090600 ELSE RL2054.2
090700 PERFORM FAIL RL2054.2
090800 MOVEZEROTO CORRECT-N RL2054.2
090900 MOVE ERROR-COUNTER-06V00 TO COMPUTED-N RL2054.2
091000 MOVE"SEE PARA. - REL-TEST-002"TO RE-MARK. RL2054.2
091100 PERFORM REL-WRITE-002. RL2054.2 091200* RL2054.2 091300* EACH TEST IS EXECUTED 10 TIMES EXCEPT FOR REL-TEST-002-04RL2054.2 091400* WHICH IS EXECUTED 300 TIMES. FOLLOWING THE LAST RL2054.2 091500* EXECUTION A TEST IS MADE ON ERROR-COUNTER-06V00 WHICH IS RL2054.2 091600* EXPECTED TO BE ZERO. IF ERROR-COUNTER-06V00 IS NOT ZERO RL2054.2 091700* THE VALUE IN THE COUNTER INDICATES HOW THE EXECUTION FAILED RL2054.2 091800* AND THE NUMBER OF TIMES THE UNEXPECTED ACTION OCCURRED RL2054.2 091900* DURING THE TEST. BEFORE THE TEST BEGINS ERROR-COUNTER-06V00 RL2054.2 092000* IS INITIALIZED WITH A VALUE. EACH TIME THE CORRECT RECORD RL2054.2 092100* WAS MADE AVAILABLE FOLLOWING THE READ, OR AN INVALID KEY RL2054.2 092200* CONDITION OCCURRED THAT WAS EXPECTED FOLLOWING A READ OR RL2054.2 092300* START, ERROR-COUNTER-06V00 IS DECREMENTED BY 1. RL2054.2 092400* FOR EACH EXECUTION THAT DID NOT PRODUCE THE EXPECTED RL2054.2 092500* RESULTS THE ERROR-COUNTER-06V00 IS INCREMENTED BY THE VALUE RL2054.2 092600* FOR THE ACTION LISTED BELOW, E.G., VALUE 20003 WOULD INDICATERL2054.2 092700* THAT OF THE 10 EXECUTIONS DURING THE TEST (READING LEFT TO RL2054.2 092800* RIGHT) 2 INVALID KEY CONDITIONS AND 3 RECORDS RETRIEVED RL2054.2 092900* AS A RESULT OF THE READ OR START WAS NOT-AS EXPECTED. RL2054.2 093000* RL2054.2 093100* RL2054.2 093200* RL2054.2 093300* COMPUTED RESULT INDICATED RL2054.2 093400* INCREMENTS ACTION RL2054.2 093500* RL2054.2 093600* 000100 THE RECORD FOUND IN THE IDENTIFIER RL2054.2 093700* SPECIFIED IN THE INTO PHRASE OF THE RL2054.2 093800* READ STATEMENT WAS NOT THE RECORD RL2054.2 093900* EXPECTED FOLLOWING EXECUTION OF THE RL2054.2 094000* READ. RL2054.2 094100* RL2054.2 094200* 000001 THE RECORD RETREIVED FROM THE FILE RL2054.2 094300* FOLLOWING THE READ WAS NOT THE ONE RL2054.2 094400* EXPECTED. RL2054.2 094500* RL2054.2 094600* 010000 AN UNEXPECTED INVALID KEY OR AT END RL2054.2 094700* CONDITION OCCURRED. NOTE - ASSUMPTION RL2054.2 094800* IS THAT THE "USE" STATEMENT IS ONLY RL2054.2 094900* EXECUTED WHEN AN INVALID KEY OR AT END RL2054.2 095000* CONDITION OCCURS AND THE INVALID KEY OR RL2054.2 095100* AT END PHRASE HAS NOT BEEN SPECIFIED. RL2054.2 095200* RL2054.2
095300 REL-WRITE-002. RL2054.2
095400 PERFORM PRINT-DETAIL. RL2054.2
095500 REL-EXIT-002. RL2054.2
095600 EXIT. RL2054.2
095700 REL-INIT-003. RL2054.2
095800 OPENINPUT RL-FD1. RL2054.2
095900 OPENINPUT RL-FS2. RL2054.2
096000 PERFORM BLANK-LINE-PRINT. RL2054.2
096100 MOVE"THE FOLLOWING TESTS ACCESS A FILE DEFINE AS RL2054.2
096200- "ACCESS MODE IS SEQUENTIAL"TO PRINT-REC. RL2054.2
096300 PERFORM WRITE-LINE. RL2054.2
096400 PERFORM BLANK-LINE-PRINT. RL2054.2
096500 MOVE"START EQUAL TO"TO FEATURE. RL2054.2
096600 MOVE"REL-TEST-003"TO PAR-NAME. RL2054.2
096700 MOVEZEROTO REC-CT. RL2054.2
096800 PERFORM REL-INIT-003-R. RL2054.2
096900 REL-TEST-003-R1. RL2054.2
097000 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
097100 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
097200 START RL-FS2. RL2054.2
097300 READ RL-FS2 RECORDATEND RL2054.2
097400 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
097500 GOTO REL-TEST-003-01. RL2054.2
097600 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
097700 PERFORM REL-VERIFY-003A. RL2054.2
097800 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
097900 GOTO REL-TEST-003-R1. RL2054.2
098000 REL-TEST-003-01. RL2054.2
098100 MOVE 01 TO REC-CT. RL2054.2
098200 PERFORM REL-TEST-003. RL2054.2 098300* .01 RL2054.2
098400 GOTO REL-EXIT-003-01. RL2054.2
098500 REL-DELETE-003-01. RL2054.2
098600 PERFORM DE-LETE. RL2054.2
098700 PERFORM REL-WRITE-003. RL2054.2
098800 REL-EXIT-003-01. RL2054.2
098900 EXIT. RL2054.2
099000 REL-INIT-003-R2. RL2054.2
099100 PERFORM REL-INIT-003-R. RL2054.2
099200 REL-TEST-003-R2. RL2054.2
099300 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
099400 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
099500 START RL-FS2 KEYEQUALTO RL-FS2-KEY. RL2054.2
099600 READ RL-FS2 RECORDATEND RL2054.2
099700 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
099800 GOTO REL-TEST-003-02. RL2054.2
099900 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
100000 PERFORM REL-VERIFY-003A. RL2054.2
100100 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
100200 GOTO REL-TEST-003-R2. RL2054.2
100300 REL-TEST-003-02. RL2054.2
100400 MOVE 02 TO REC-CT. RL2054.2
100500 PERFORM REL-TEST-003. RL2054.2 100600* .02 RL2054.2
100700 GOTO REL-EXIT-003-02. RL2054.2
100800 REL-DELETE-003-02. RL2054.2
100900 MOVE 02 TO REC-CT. RL2054.2
101000 PERFORM DE-LETE. RL2054.2
101100 PERFORM REL-WRITE-003. RL2054.2
101200 REL-EXIT-003-02. RL2054.2
101300 EXIT. RL2054.2
101400 REL-INIT-003-R3. RL2054.2
101500 PERFORM REL-INIT-003-R. RL2054.2
101600 REL-TEST-003-R3. RL2054.2
101700 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
101800 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
101900 START RL-FS2 KEYISEQUALTO RL-FS2-KEY. RL2054.2
102000 READ RL-FS2 RECORDATEND RL2054.2
102100 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
102200 GOTO REL-TEST-003-03. RL2054.2
102300 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
102400 PERFORM REL-VERIFY-003A. RL2054.2
102500 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
102600 GOTO REL-TEST-003-R3. RL2054.2
102700 REL-TEST-003-03. RL2054.2
102800 MOVE 03 TO REC-CT. RL2054.2
102900 PERFORM REL-TEST-003. RL2054.2 103000* .03 RL2054.2
103100 GOTO REL-EXIT-003-03. RL2054.2
103200 REL-DELETE-003-03. RL2054.2
103300 MOVE 03 TO REC-CT. RL2054.2
103400 PERFORM DE-LETE. RL2054.2
103500 PERFORM REL-WRITE-003. RL2054.2
103600 REL-EXIT-003-03. RL2054.2
103700 EXIT. RL2054.2
103800 REL-INIT-003-R4. RL2054.2
103900 PERFORM REL-INIT-003-R. RL2054.2
104000 REL-TEST-003-R4. RL2054.2
104100 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
104200 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
104300 START RL-FS2 KEYISEQUAL RL-FS2-KEY. RL2054.2
104400 READ RL-FS2 RECORDATEND RL2054.2
104500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
104600 GOTO REL-TEST-003-04. RL2054.2
104700 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
104800 PERFORM REL-VERIFY-003A. RL2054.2
104900 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
105000 GOTO REL-TEST-003-R4. RL2054.2
105100 REL-TEST-003-04. RL2054.2
105200 MOVE 04 TO REC-CT. RL2054.2
105300 PERFORM REL-TEST-003. RL2054.2 105400* .04 RL2054.2
105500 GOTO REL-EXIT-003-04. RL2054.2
105600 REL-DELETE-003-04. RL2054.2
105700 MOVE 04 TO REC-CT. RL2054.2
105800 PERFORM DE-LETE. RL2054.2
105900 PERFORM REL-WRITE-003. RL2054.2
106000 REL-EXIT-003-04. RL2054.2
106100 EXIT. RL2054.2
106200 REL-INIT-003-R5. RL2054.2
106300 PERFORM REL-INIT-003-R. RL2054.2
106400 REL-TEST-003-R5. RL2054.2
106500 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
106600 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
106700 START RL-FS2 KEYIS = RL-FS2-KEY. RL2054.2
106800 READ RL-FS2 RECORDATEND RL2054.2
106900 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
107000 GOTO REL-TEST-003-05. RL2054.2
107100 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
107200 PERFORM REL-VERIFY-003A. RL2054.2
107300 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
107400 GOTO REL-TEST-003-R5. RL2054.2
107500 REL-TEST-003-05. RL2054.2
107600 MOVE 05 TO REC-CT. RL2054.2
107700 PERFORM REL-TEST-003. RL2054.2 107800* .05 RL2054.2
107900 GOTO REL-EXIT-003-05. RL2054.2
108000 REL-DELETE-003-05. RL2054.2
108100 MOVE 05 TO REC-CT. RL2054.2
108200 PERFORM DE-LETE. RL2054.2
108300 PERFORM REL-WRITE-003. RL2054.2
108400 REL-EXIT-003-05. RL2054.2
108500 EXIT. RL2054.2
108600 REL-INIT-003-R6. RL2054.2
108700 PERFORM REL-INIT-003-R. RL2054.2
108800 ADD 000001 TO LOGICAL-FILE-REC. RL2054.2
108900 MOVE"START GREATER THAN"TO FEATURE. RL2054.2
109000 REL-TEST-003-R6. RL2054.2
109100 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
109200 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
109300 START RL-FS2 KEYISGREATERTHAN RL-FS2-KEY. RL2054.2
109400 READ RL-FS2 RECORDATEND RL2054.2
109500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
109600 GOTO REL-TEST-003-06. RL2054.2
109700 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
109800 PERFORM REL-VERIFY-003A. RL2054.2
109900 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
110000 GOTO REL-TEST-003-R6. RL2054.2
110100 REL-TEST-003-06. RL2054.2
110200 MOVE 06 TO REC-CT. RL2054.2
110300 PERFORM REL-TEST-003. RL2054.2 110400* .06 RL2054.2
110500 GOTO REL-EXIT-003-06. RL2054.2
110600 REL-DELETE-003-06. RL2054.2
110700 MOVE 06 TO REC-CT. RL2054.2
110800 PERFORM DE-LETE. RL2054.2
110900 PERFORM REL-WRITE-003. RL2054.2
111000 REL-EXIT-003-06. RL2054.2
111100 EXIT. RL2054.2
111200 REL-INIT-003-R7. RL2054.2
111300 PERFORM REL-INIT-003-R. RL2054.2
111400 ADD 000001 TO LOGICAL-FILE-REC. RL2054.2
111500 REL-TEST-003-R7. RL2054.2
111600 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
111700 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
111800 START RL-FS2 KEYGREATERTHAN RL-FS2-KEY. RL2054.2
111900 READ RL-FS2 RECORDATEND RL2054.2
112000 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
112100 GOTO REL-TEST-003-07. RL2054.2
112200 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
112300 PERFORM REL-VERIFY-003A. RL2054.2
112400 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
112500 GOTO REL-TEST-003-R7. RL2054.2
112600 REL-TEST-003-07. RL2054.2
112700 MOVE 07 TO REC-CT. RL2054.2
112800 PERFORM REL-TEST-003. RL2054.2 112900* .07 RL2054.2
113000 GOTO REL-EXIT-003-07. RL2054.2
113100 REL-DELETE-003-07. RL2054.2
113200 MOVE 07 TO REC-CT. RL2054.2
113300 PERFORM DE-LETE. RL2054.2
113400 PERFORM REL-WRITE-003. RL2054.2
113500 REL-EXIT-003-07. RL2054.2
113600 EXIT. RL2054.2
113700 REL-INIT-003-R8. RL2054.2
113800 PERFORM REL-INIT-003-R. RL2054.2
113900 ADD 00001 TO LOGICAL-FILE-REC. RL2054.2
114000 REL-TEST-003-R8. RL2054.2
114100 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
114200 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
114300 START RL-FS2 KEYISGREATER RL-FS2-KEY. RL2054.2
114400 READ RL-FS2 RECORDATEND RL2054.2
114500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
114600 GOTO REL-TEST-003-08. RL2054.2
114700 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
114800 PERFORM REL-VERIFY-003A. RL2054.2
114900 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
115000 GOTO REL-TEST-003-R8. RL2054.2
115100 REL-TEST-003-08. RL2054.2
115200 MOVE 08 TO REC-CT. RL2054.2
115300 PERFORM REL-TEST-003. RL2054.2 115400* .08 RL2054.2
115500 GOTO REL-EXIT-003-08. RL2054.2
115600 REL-DELETE-003-08. RL2054.2
115700 MOVE 08 TO REC-CT. RL2054.2
115800 PERFORM DE-LETE. RL2054.2
115900 PERFORM REL-WRITE-003. RL2054.2
116000 REL-EXIT-003-08. RL2054.2
116100 EXIT. RL2054.2
116200 REL-INIT-003-R9. RL2054.2
116300 PERFORM REL-INIT-003-R. RL2054.2
116400 ADD 00001 TO LOGICAL-FILE-REC. RL2054.2
116500 REL-TEST-003-R9. RL2054.2
116600 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
116700 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
116800 START RL-FS2 KEYIS > RL-FS2-KEY. RL2054.2
116900 READ RL-FS2 RECORDATEND RL2054.2
117000 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
117100 GOTO REL-TEST-003-09. RL2054.2
117200 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
117300 PERFORM REL-VERIFY-003A. RL2054.2
117400 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
117500 GOTO REL-TEST-003-R9. RL2054.2
117600 REL-TEST-003-09. RL2054.2
117700 MOVE 09 TO REC-CT. RL2054.2
117800 PERFORM REL-TEST-003. RL2054.2 117900* .09 RL2054.2
118000 GOTO REL-EXIT-003-09. RL2054.2
118100 REL-DELETE-003-09. RL2054.2
118200 MOVE 09 TO REC-CT. RL2054.2
118300 PERFORM DE-LETE. RL2054.2
118400 PERFORM REL-WRITE-003. RL2054.2
118500 REL-EXIT-003-09. RL2054.2
118600 EXIT. RL2054.2
118700 REL-INIT-003-R10. RL2054.2
118800 PERFORM REL-INIT-003-R. RL2054.2
118900 ADD 00001 TO LOGICAL-FILE-REC. RL2054.2
119000 REL-TEST-003-R10. RL2054.2
119100 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
119200 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
119300 START RL-FS2 KEY > RL-FS2-KEY. RL2054.2
119400 READ RL-FS2 RECORDATEND RL2054.2
119500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
119600 GOTO REL-TEST-003-10. RL2054.2
119700 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
119800 PERFORM REL-VERIFY-003A. RL2054.2
119900 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
120000 GOTO REL-TEST-003-R10. RL2054.2
120100 REL-TEST-003-10. RL2054.2
120200 MOVE 10 TO REC-CT. RL2054.2
120300 PERFORM REL-TEST-003. RL2054.2 120400* .10 RL2054.2
120500 GOTO REL-EXIT-003-10. RL2054.2
120600 REL-DELETE-003-10. RL2054.2
120700 MOVE 10 TO REC-CT. RL2054.2
120800 PERFORM DE-LETE. RL2054.2
120900 PERFORM REL-WRITE-003. RL2054.2
121000 REL-EXIT-003-10. RL2054.2
121100 EXIT. RL2054.2
121200 REL-INIT-003-R11. RL2054.2
121300 MOVE"START NOT LESS THAN"TO FEATURE. RL2054.2
121400 PERFORM REL-INIT-003-R. RL2054.2
121500 REL-TEST-003-R11. RL2054.2
121600 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2
121700 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
121800 START RL-FS2 KEYISNOTLESSTHAN RL-FS2-KEY. RL2054.2
121900 READ RL-FS2 RECORDATEND RL2054.2
122000 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
122100 GOTO REL-TEST-003-11. RL2054.2
122200 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
122300 PERFORM REL-VERIFY-003A. RL2054.2
122400 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
122500 GOTO REL-TEST-003-R11. RL2054.2
122600 REL-TEST-003-11. RL2054.2
122700 MOVE 11 TO REC-CT. RL2054.2
122800 PERFORM REL-TEST-003. RL2054.2 122900* .11 RL2054.2
123000 GOTO REL-EXIT-003-11. RL2054.2
123100 REL-DELETE-003-11. RL2054.2
123200 MOVE 11 TO REC-CT. RL2054.2
123300 PERFORM DE-LETE. RL2054.2
123400 PERFORM REL-WRITE-003. RL2054.2
123500 REL-EXIT-003-11. RL2054.2
123600 EXIT. RL2054.2
123700 REL-INIT-003-R12. RL2054.2
123800 PERFORM REL-INIT-003-R. RL2054.2
123900 REL-TEST-003-R12. RL2054.2
124000 ADD 0003 TO WRK-RL-FS2-RECKEY. RL2054.2
124100 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
124200 START RL-FS2 KEYISNOTLESS RL-FS2-KEY. RL2054.2
124300 READ RL-FS2 RECORDATEND RL2054.2
124400 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
124500 GOTO REL-TEST-003-12. RL2054.2
124600 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
124700 PERFORM REL-VERIFY-003A. RL2054.2
124800 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
124900 GOTO REL-TEST-003-R12. RL2054.2
125000 REL-TEST-003-12. RL2054.2
125100 MOVE 12 TO REC-CT. RL2054.2
125200 PERFORM REL-TEST-003. RL2054.2 125300* .12 RL2054.2
125400 GOTO REL-EXIT-003-12. RL2054.2
125500 REL-DELETE-003-12. RL2054.2
125600 MOVE 12 TO REC-CT. RL2054.2
125700 PERFORM DE-LETE. RL2054.2
125800 PERFORM REL-WRITE-003. RL2054.2
125900 REL-EXIT-003-12. RL2054.2
126000 EXIT. RL2054.2
126100 REL-INIT-003-R13. RL2054.2
126200 PERFORM REL-INIT-003-R. RL2054.2
126300 REL-TEST-003-R13. RL2054.2
126400 ADD 003 TO WRK-RL-FS2-RECKEY. RL2054.2
126500 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
126600 START RL-FS2 KEYNOTLESSTHAN RL-FS2-KEY. RL2054.2
126700 READ RL-FS2 RECORDATEND RL2054.2
126800 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
126900 GOTO REL-TEST-003-13. RL2054.2
127000 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
127100 PERFORM REL-VERIFY-003A. RL2054.2
127200 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
127300 GOTO REL-TEST-003-R13. RL2054.2
127400 REL-TEST-003-13. RL2054.2
127500 MOVE 13 TO REC-CT. RL2054.2
127600 PERFORM REL-TEST-003. RL2054.2 127700* .13 RL2054.2
127800 GOTO REL-EXIT-003-13. RL2054.2
127900 REL-DELETE-003-13. RL2054.2
128000 MOVE 13 TO REC-CT. RL2054.2
128100 PERFORM DE-LETE. RL2054.2
128200 PERFORM REL-WRITE-003. RL2054.2
128300 REL-EXIT-003-13. RL2054.2
128400 EXIT. RL2054.2
128500 REL-INIT-003-R14. RL2054.2
128600 PERFORM REL-INIT-003-R. RL2054.2
128700 REL-TEST-003-R14. RL2054.2
128800 ADD 003 TO WRK-RL-FS2-RECKEY. RL2054.2
128900 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
129000 START RL-FS2 KEYISNOT < RL-FS2-KEY. RL2054.2
129100 READ RL-FS2 RECORDATEND RL2054.2
129200 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
129300 GOTO REL-TEST-003-14. RL2054.2
129400 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
129500 PERFORM REL-VERIFY-003A. RL2054.2
129600 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
129700 GOTO REL-TEST-003-R14. RL2054.2
129800 REL-TEST-003-14. RL2054.2
129900 MOVE 14 TO REC-CT. RL2054.2
130000 PERFORM REL-TEST-003. RL2054.2 130100* .14 RL2054.2
130200 GOTO REL-EXIT-003-14. RL2054.2
130300 REL-DELETE-003-14. RL2054.2
130400 MOVE 14 TO REC-CT. RL2054.2
130500 PERFORM DE-LETE. RL2054.2
130600 PERFORM REL-WRITE-003. RL2054.2
130700 REL-EXIT-003-14. RL2054.2
130800 EXIT. RL2054.2
130900 REL-INIT-003-R15. RL2054.2
131000 PERFORM BLANK-LINE-PRINT. RL2054.2
131100 MOVE"THE FOLLOWING TESTS ACCESS A FILE DEFINED AS RL2054.2
131200- "ACCESS MODE IS DYNAMIC"TO PRINT-REC. RL2054.2
131300 PERFORM WRITE-LINE. RL2054.2
131400 PERFORM BLANK-LINE-PRINT. RL2054.2
131500 MOVE"START EQUAL TO "TO FEATURE. RL2054.2
131600 PERFORM REL-INIT-003-R. RL2054.2
131700 REL-TEST-003-R15. RL2054.2
131800 ADD 0002 TO WRK-RL-FD1-RECKEY. RL2054.2
131900 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
132000 START RL-FD1 KEYISEQUALTO RL-FD1-KEY INVALIDKEY RL2054.2
132100 ADD 010000 TO ERROR-COUNTER-06V00. RL2054.2
132200 READ RL-FD1 NEXTRECORDATEND RL2054.2
132300 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
132400 GOTO REL-TEST-003-15. RL2054.2
132500 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2
132600 PERFORM REL-VERIFY-003B. RL2054.2
132700 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
132800 GOTO REL-TEST-003-R15. RL2054.2
132900 REL-TEST-003-15. RL2054.2
133000 MOVE 15 TO REC-CT. RL2054.2
133100 PERFORM REL-TEST-003. RL2054.2 133200* .15 RL2054.2
133300 GOTO REL-EXIT-003-15. RL2054.2
133400 REL-DELETE-003-15. RL2054.2
133500 MOVE 15 TO REC-CT. RL2054.2
133600 PERFORM DE-LETE. RL2054.2
133700 PERFORM REL-WRITE-003. RL2054.2
133800 REL-EXIT-003-15. RL2054.2
133900 EXIT. RL2054.2
134000 REL-INIT-003-R16. RL2054.2
134100 MOVE"START INVALID KEY"TO FEATURE. RL2054.2
134200 PERFORM REL-INIT-003-R. RL2054.2
134300 MOVE RL-FD1-FILESIZE TO WRK-RL-FD1-RECKEY. RL2054.2
134400 MOVE RL-FD1-FILESIZE TO LOGICAL-FILE-REC. RL2054.2
134500 REL-TEST-003-R16. RL2054.2
134600 ADD 0002 TO WRK-RL-FD1-RECKEY. RL2054.2
134700 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
134800 START RL-FD1 KEYISEQUALTO RL-FD1-KEY INVALID RL2054.2
134900 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
135000 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
135100 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
135200 GOTO REL-TEST-003-R16. RL2054.2
135300 REL-TEST-003-16. RL2054.2
135400 MOVE 16 TO REC-CT. RL2054.2
135500 PERFORM REL-TEST-003. RL2054.2 135600* .16 RL2054.2
135700 GOTO REL-EXIT-003-16. RL2054.2
135800 REL-DELETE-003-16. RL2054.2
135900 MOVE 16 TO REC-CT. RL2054.2
136000 PERFORM DE-LETE. RL2054.2
136100 PERFORM REL-WRITE-003. RL2054.2
136200 REL-EXIT-003-16. RL2054.2
136300 EXIT. RL2054.2
136400 REL-INIT-003-R17. RL2054.2
136500 PERFORM REL-INIT-003-R. RL2054.2
136600 MOVE RL-FD1-FILESIZE TO LOGICAL-FILE-REC. RL2054.2
136700 MOVE RL-FD1-FILESIZE TO WRK-RL-FD1-RECKEY. RL2054.2
136800 REL-TEST-003-R17. RL2054.2
136900 ADD 00003 TO WRK-RL-FD1-RECKEY. RL2054.2
137000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
137100 START RL-FD1 INVALIDKEY RL2054.2
137200 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
137300 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
137400 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
137500 GOTO REL-TEST-003-R17. RL2054.2
137600 REL-TEST-003-17. RL2054.2
137700 MOVE 17 TO REC-CT. RL2054.2
137800 PERFORM REL-TEST-003. RL2054.2 137900* .17 RL2054.2
138000 GOTO REL-EXIT-003-17. RL2054.2
138100 REL-DELETE-003-17. RL2054.2
138200 MOVE 17 TO REC-CT. RL2054.2
138300 PERFORM DE-LETE. RL2054.2
138400 PERFORM REL-WRITE-003. RL2054.2
138500 REL-EXIT-003-17. RL2054.2
138600 EXIT. RL2054.2
138700 REL-INIT-003-R18. RL2054.2
138800 PERFORM REL-INIT-003-R. RL2054.2
138900 MOVE RL-FD1-FILESIZE TO LOGICAL-FILE-REC. RL2054.2
139000 MOVE RL-FD1-FILESIZE TO WRK-RL-FD1-RECKEY. RL2054.2
139100 REL-TEST-003-R18. RL2054.2
139200 ADD 00003 TO WRK-RL-FD1-RECKEY. RL2054.2
139300 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
139400 START RL-FD1 ; INVALIDKEY RL2054.2
139500 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
139600 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
139700 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
139800 GOTO REL-TEST-003-R18. RL2054.2
139900 REL-TEST-003-18. RL2054.2
140000 MOVE 18 TO REC-CT. RL2054.2
140100 PERFORM REL-TEST-003. RL2054.2 140200* .18 RL2054.2
140300 GOTO REL-EXIT-003-18. RL2054.2
140400 REL-DELETE-003-18. RL2054.2
140500 MOVE 18 TO REC-CT. RL2054.2
140600 PERFORM DE-LETE. RL2054.2
140700 PERFORM REL-WRITE-003. RL2054.2
140800 REL-EXIT-003-18. RL2054.2
140900 EXIT. RL2054.2
141000 REL-INIT-003-R19. RL2054.2
141100 PERFORM REL-INIT-003-R. RL2054.2
141200 MOVE RL-FD1-FILESIZE TO WRK-RL-FD1-RECKEY. RL2054.2
141300 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
141400 REL-TEST-003-R19. RL2054.2
141500 ADD 000002 TO WRK-RL-FD1-RECKEY. RL2054.2
141600 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
141700 START RL-FD1 KEYISEQUALTO RL-FD1-KEY ; INVALIDKEY RL2054.2
141800 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
141900 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
142000 IF EXCUT-COUNTER-06V00 LESSTHAN 10 RL2054.2
142100 GOTO REL-TEST-003-R19. RL2054.2
142200 REL-TEST-003-19. RL2054.2
142300 MOVE 19 TO REC-CT. RL2054.2
142400 PERFORM REL-TEST-003. RL2054.2 142500* .19 RL2054.2
142600 GOTO REL-END-003. RL2054.2
142700 REL-DELETE-003-19. RL2054.2
142800 MOVE 19 TO REC-CT. RL2054.2
142900 PERFORM DE-LETE. RL2054.2
143000 PERFORM REL-WRITE-003. RL2054.2
143100 REL-EXIT-003-19. RL2054.2
143200 EXIT. RL2054.2
143300 REL-INIT-003-R. RL2054.2
143400 MOVEZEROTO LOGICAL-FILE-REC. RL2054.2
143500 MOVEZEROTO EXCUT-COUNTER-06V00. RL2054.2
143600 MOVE 00055 TO WRK-DU-05V00-002. RL2054.2
143700 MOVE 00050 TO WRK-DU-05V00-004. RL2054.2
143800 MOVEZEROTO WRK-RL-FS2-RECKEY. RL2054.2
143900 MOVEZEROTO WRK-RL-FD1-RECKEY. RL2054.2
144000 MOVE 10 TO ERROR-COUNTER-06V00. RL2054.2
144100 REL-VERIFY-003A. RL2054.2
144200 IF ASCEND RL2054.2
144300 ADD 000003 TO LOGICAL-FILE-REC RL2054.2
144400 ELSE RL2054.2
144500 SUBTRACT 000003 FROM LOGICAL-FILE-REC. RL2054.2
144600 IF LOGICAL-FILE-REC EQUALTO XRECORD-NUMBER (2) RL2054.2
144700 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
144800 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
144900 REL-VERIFY-003B. RL2054.2
145000 IF ASCEND RL2054.2
145100 ADD 000002 TO LOGICAL-FILE-REC RL2054.2
145200 ELSE RL2054.2
145300 SUBTRACT 000002 FROM LOGICAL-FILE-REC. RL2054.2
145400 IF LOGICAL-FILE-REC EQUALTO XRECORD-NUMBER (1) RL2054.2
145500 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2
145600 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
145700 REL-TEST-003. RL2054.2
145800 IF EXCUT-COUNTER-06V00 NOTEQUALTO 000010 RL2054.2
145900 MULTIPLY 100 BY EXCUT-COUNTER-06V00 RL2054.2
146000 ADD EXCUT-COUNTER-06V00 TO ERROR-COUNTER-06V00. RL2054.2
146100 IF ERROR-COUNTER-06V00 EQUALTOZERO RL2054.2
146200 PERFORM PASS RL2054.2
146300 ELSE RL2054.2
146400 PERFORM FAIL RL2054.2
146500 MOVEZEROTO CORRECT-N RL2054.2
146600 MOVE ERROR-COUNTER-06V00 TO COMPUTED-N RL2054.2
146700 MOVE"SEE PARA. - REL-TEST-003"TO RE-MARK. RL2054.2
146800 PERFORM REL-WRITE-003. RL2054.2 146900* RL2054.2 147000* EACH TEST IS EXECUTED 10 TIMES. FOLLOWING THE 10TH RL2054.2 147100* EXECUTION A TEST IS MADE ON ERROR-COUNTER-06V00 WHICH IS RL2054.2 147200* EXPECTED TO BE ZERO. IF ERROR-COUNTER-06V00 IS NOT ZERO RL2054.2 147300* THE VALUE IN THE COUNTER INDICATES HOW THE EXECUTION FAILED RL2054.2 147400* AND THE NUMBER OF TIMES THE UNEXPECTED ACTION OCCURRED RL2054.2 147500* DURING THE TEST. BEFORE THE TEST BEGINS ERROR-COUNTER-06V00 RL2054.2 147600* IS LOADED WITH THE VALUE 10. EACH TIME THE CORRECT RECORD RL2054.2 147700* WAS MADE AVAILABLE FOLLOWING THE READ, OR AN INVALID KEY RL2054.2 147800* CONDITION OCCURRED THAT WAS EXPECTED FOLLOWING A READ OR RL2054.2 147900* START, ERROR-COUNTER-06V00 IS DECREMENTED BY 1. RL2054.2 148000* FOR EACH ACTION THAT DID NOT OCCUR AS RL2054.2 148100* EXPECTED THE ERROR-COUNTER-06V00 IS INCREMENTED BY THE VALUE RL2054.2 148200* FOR THE ACTION LISTED BELOW, E.G., VALUE 20003 WOULD INDICATERL2054.2 148300* THAT OF THE 10 EXECUTIONS DURING THE TEST (READING LEFT TO RL2054.2 148400* RIGHT) 2 INVALID KEY CONDITIONS AND 3 RECORDS RETRIEVED RL2054.2 148500* AS A RESULT OF THE READ OR START WAS NOT AS EXPECTED. RL2054.2 148600* RL2054.2 148700* COMPUTED RESULT INDICATED RL2054.2 148800* INCREMENTS ACTION RL2054.2 148900* RL2054.2 149000* 000001 THE RECORD RETREIVED FROM THE FILE RL2054.2 149100* FOLLOWING THE READ WAS NOT THE ONE RL2054.2 149200* EXPECTED. RL2054.2 149300* RL2054.2 149400* 000100 INDICATES,BY 10"S THE NUMBER OF TIMES THE RL2054.2 149500* TEST WAS EXECUTED. RL2054.2 149600* RL2054.2 149700* 010000 AN UNEXPECTED INVALID KEY OR AT END RL2054.2 149800* CONDITION OCCURRED. NOTE - ASSUMPTION RL2054.2 149900* IS THAT THE "USE" STATEMENT IS ONLY RL2054.2 150000* EXECUTED WHEN AN INVALID KEY OR AT END RL2054.2 150100* CONDITION OCCURS AND THE INVALID KEY OR RL2054.2 150200* AT END PHRASE HAS NOT BEEN SPECIFIED. RL2054.2 150300* RL2054.2
150400 REL-WRITE-003. RL2054.2
150500 PERFORM PRINT-DETAIL. RL2054.2
150600 REL-END-003. RL2054.2
150700 CLOSE RL-FD1. RL2054.2
150800 CLOSE RL-FS2. RL2054.2
150900 REL-EXIT-003. RL2054.2
151000 EXIT. RL2054.2 151100* RL2054.2 151200* THE FOLLOWING SECTION CONTAINS ALL THE NEW TESTS FOR 8X: RL2054.2 151300* RL2054.2
151400 NEW-COBOL-8X-TESTS SECTION. RL2054.2 151500*========================== RL2054.2
151600 REL-8X-INIT-1. RL2054.2
151700 MOVE"XVII-70 2.2.37"TO ANSI-REFERENCE. RL2054.2
151800 MOVE"REL-8X-TEST-1"TO PAR-NAME. RL2054.2
151900 OPEN I-O RL-FD1. RL2054.2 152000* DELETE THE NEXT LINE TO DELETE THE TEST RL2054.2 152100* GO TO REL-8X-INIT-1-BETA. RL2054.2
152200 REL-8X-INIT-1-ALPHA. RL2054.2
152300 GOTO REL-8X-DELETE-1. RL2054.2
152400 REL-8X-INIT-1-BETA. RL2054.2
152500 MOVE LOW-VALUES TO WRK-RL-FD1-RECKEY-CHAR. RL2054.2
152600 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
152700 MOVE 301 TO RECORDS-IN-FILE (1). RL2054.2
152800 MOVE FILE-RECORD-INFO (1) TO RL-FD1R1-F-G-240. RL2054.2
152900 WRITE RL-FD1R1-F-G-240 RL2054.2
153000 INVALIDKEY RL2054.2
153100 MOVE"INVALID KEY ON WRITING NEW 1ST RECORD" RL2054.2
153200 TO RE-MARK RL2054.2
153300 PERFORM FAIL RL2054.2
153400 PERFORM PRINT-DETAIL RL2054.2
153500 GOTO REL-8X-INIT-2. RL2054.2
153600 MOVE 302 TO RECORDS-IN-FILE (1). RL2054.2
153700 MOVE FILE-RECORD-INFO (1) TO RL-FD1R1-F-G-240. RL2054.2
153800 MOVEZEROTO RL-FD1-KEY. RL2054.2
153900 WRITE RL-FD1R1-F-G-240 RL2054.2
154000 INVALIDKEY RL2054.2
154100 MOVE"INVALID KEY ON WRITING NEW 2ND RECORD" RL2054.2
154200 TO RE-MARK RL2054.2
154300 PERFORM FAIL RL2054.2
154400 PERFORM PRINT-DETAIL RL2054.2
154500 GOTO REL-8X-INIT-2. RL2054.2
154600 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
154700 GOTO REL-8X-TEST-1-0. RL2054.2
154800 REL-8X-DELETE-1. RL2054.2
154900 PERFORM DE-LETE. RL2054.2
155000 PERFORM PRINT-DETAIL. RL2054.2
155100 GOTO REL-8X-INIT-2. RL2054.2
155200 REL-8X-TEST-1-0. RL2054.2
155300 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
155400 REL-8X-TEST-1-1. RL2054.2
155500 IF RECORDS-IN-FILE (1) = 301 RL2054.2
155600 PERFORM PASS RL2054.2
155700 GOTO REL-8X-WRITE-1. RL2054.2
155800 MOVE"FIRST RECORD JUST INSERTED NOT FOUND"TO RE-MARK. RL2054.2
155900 PERFORM FAIL. RL2054.2
156000 REL-8X-WRITE-1. RL2054.2
156100 PERFORM PRINT-DETAIL. RL2054.2 156200* RL2054.2
156300 REL-8X-INIT-2. RL2054.2
156400 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
156500 MOVE"REL-8X-TEST-2"TO PAR-NAME. RL2054.2
156600 OPEN I-O RL-FS2. RL2054.2
156700 MOVE 123 TO WRK-RL-FS2-RECKEY. RL2054.2
156800 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
156900 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
157000 GOTO REL-8X-TEST-2-0. RL2054.2
157100 REL-8X-DELETE-2. RL2054.2
157200 PERFORM DE-LETE. RL2054.2
157300 PERFORM PRINT-DETAIL. RL2054.2
157400 GOTO REL-8X-INIT-3. RL2054.2
157500 REL-8X-TEST-2-0. RL2054.2
157600 START RL-FS2 RL2054.2
157700 KEYISGREATERTHANOREQUALTO RL-FS2-KEY. RL2054.2
157800 READ RL-FS2 NEXTINTO FILE-RECORD-INFO (1) RL2054.2
157900 ATENDMOVE"AT END ENCOUNTERED"TO RE-MARK RL2054.2
158000 PERFORM FAIL RL2054.2
158100 PERFORM PRINT-DETAIL RL2054.2
158200 GOTO REL-8X-INIT-3. RL2054.2
158300 REL-8X-TEST-2-1. RL2054.2
158400 IF XRECORD-NUMBER (1) < 123 RL2054.2
158500 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
158600 TO RE-MARK RL2054.2
158700 MOVE 123 TO CORRECT-N RL2054.2
158800 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
158900 PERFORM FAIL RL2054.2
159000 PERFORM PRINT-DETAIL RL2054.2
159100 ELSE RL2054.2
159200 PERFORM PASS RL2054.2
159300 PERFORM PRINT-DETAIL. RL2054.2 159400* RL2054.2
159500 REL-8X-INIT-3. RL2054.2
159600 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
159700 MOVE"REL-8X-TEST-3"TO PAR-NAME. RL2054.2
159800 MOVE 154 TO WRK-RL-FS2-RECKEY. RL2054.2
159900 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
160000 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
160100 GOTO REL-8X-TEST-3-0. RL2054.2
160200 REL-8X-DELETE-3. RL2054.2
160300 PERFORM DE-LETE. RL2054.2
160400 PERFORM PRINT-DETAIL. RL2054.2
160500 GOTO REL-8X-INIT-4. RL2054.2
160600 REL-8X-TEST-3-0. RL2054.2
160700 START RL-FS2 RL2054.2
160800 KEYGREATEROREQUALTO RL-FS2-KEY. RL2054.2
160900 READ RL-FS2 NEXTINTO FILE-RECORD-INFO (1) RL2054.2
161000 ATENDMOVE"AT END ENCOUNTERED"TO RE-MARK RL2054.2
161100 PERFORM FAIL RL2054.2
161200 PERFORM PRINT-DETAIL RL2054.2
161300 GOTO REL-8X-INIT-4. RL2054.2
161400 REL-8X-TEST-3-1. RL2054.2
161500 IF XRECORD-NUMBER (1) < 154 RL2054.2
161600 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
161700 TO RE-MARK RL2054.2
161800 MOVE 154 TO CORRECT-N RL2054.2
161900 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
162000 PERFORM FAIL RL2054.2
162100 PERFORM PRINT-DETAIL RL2054.2
162200 ELSE RL2054.2
162300 PERFORM PASS RL2054.2
162400 PERFORM PRINT-DETAIL. RL2054.2 162500* RL2054.2
162600 REL-8X-INIT-4. RL2054.2
162700 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
162800 MOVE"REL-8X-TEST-4"TO PAR-NAME. RL2054.2
162900 MOVE 226 TO WRK-RL-FS2-RECKEY. RL2054.2
163000 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
163100 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
163200 GOTO REL-8X-TEST-4-0. RL2054.2
163300 REL-8X-DELETE-4. RL2054.2
163400 PERFORM DE-LETE. RL2054.2
163500 PERFORM PRINT-DETAIL. RL2054.2
163600 GOTO REL-8X-INIT-5. RL2054.2
163700 REL-8X-TEST-4-0. RL2054.2
163800 START RL-FS2 RL2054.2
163900 KEYIS >= RL-FS2-KEY. RL2054.2
164000 READ RL-FS2 NEXTINTO FILE-RECORD-INFO (1) RL2054.2
164100 ATENDMOVE"AT END ENCOUNTERED"TO RE-MARK RL2054.2
164200 PERFORM FAIL RL2054.2
164300 PERFORM PRINT-DETAIL RL2054.2
164400 GOTO REL-8X-INIT-5. RL2054.2
164500 REL-8X-TEST-4-1. RL2054.2
164600 IF XRECORD-NUMBER (1) < 226 RL2054.2
164700 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
164800 TO RE-MARK RL2054.2
164900 MOVE 226 TO CORRECT-N RL2054.2
165000 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
165100 PERFORM FAIL RL2054.2
165200 PERFORM PRINT-DETAIL RL2054.2
165300 ELSE RL2054.2
165400 PERFORM PASS RL2054.2
165500 PERFORM PRINT-DETAIL. RL2054.2 165600* RL2054.2
165700 REL-8X-INIT-5. RL2054.2
165800 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
165900 MOVE"REL-8X-TEST-5"TO PAR-NAME. RL2054.2
166000 MOVE 300 TO WRK-RL-FS2-RECKEY. RL2054.2
166100 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2
166200 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
166300 GOTO REL-8X-TEST-5-0. RL2054.2
166400 REL-8X-DELETE-5. RL2054.2
166500 PERFORM DE-LETE. RL2054.2
166600 PERFORM PRINT-DETAIL. RL2054.2
166700 GOTO REL-8X-INIT-6. RL2054.2
166800 REL-8X-TEST-5-0. RL2054.2
166900 START RL-FS2 RL2054.2
167000 KEY >= RL-FS2-KEY. RL2054.2
167100 READ RL-FS2 NEXTINTO FILE-RECORD-INFO (1) RL2054.2
167200 ATENDMOVE"AT END ENCOUNTERED"TO RE-MARK RL2054.2
167300 PERFORM FAIL RL2054.2
167400 PERFORM PRINT-DETAIL RL2054.2
167500 GOTO REL-8X-INIT-6. RL2054.2
167600 REL-8X-TEST-5-1. RL2054.2
167700 IF XRECORD-NUMBER (1) < 300 RL2054.2
167800 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
167900 TO RE-MARK RL2054.2
168000 MOVE 300 TO CORRECT-N RL2054.2
168100 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
168200 PERFORM FAIL RL2054.2
168300 PERFORM PRINT-DETAIL RL2054.2
168400 ELSE RL2054.2
168500 PERFORM PASS RL2054.2
168600 PERFORM PRINT-DETAIL. RL2054.2 168700* RL2054.2
168800 REL-8X-INIT-6. RL2054.2
168900 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
169000 MOVE"REL-8X-TEST-6"TO PAR-NAME. RL2054.2
169100 MOVE 123 TO WRK-RL-FD1-RECKEY. RL2054.2
169200 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
169300 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
169400 MOVESPACETO WRK-XN-00001. RL2054.2
169500 MOVE 1 TO REC-CT. RL2054.2
169600 GOTO REL-8X-TEST-6-0. RL2054.2
169700 REL-8X-DELETE-6. RL2054.2
169800 PERFORM DE-LETE. RL2054.2
169900 PERFORM PRINT-DETAIL. RL2054.2
170000 GOTO REL-8X-INIT-7. RL2054.2
170100 REL-8X-TEST-6-0. RL2054.2
170200 START RL-FD1 RL2054.2
170300 KEYISGREATERTHANOREQUALTO RL-FD1-KEY RL2054.2
170400 NOTINVALIDKEY RL2054.2
170500 MOVE"A"TO WRK-XN-00001. RL2054.2
170600 REL-8X-TEST-6-1. RL2054.2
170700 IF WRK-XN-00001 NOT = "A" RL2054.2
170800 MOVE"NOT INVALID KEY DID NOT EXECUTE" RL2054.2
170900 TO RE-MARK RL2054.2
171000 MOVE"A"TO CORRECT-X RL2054.2
171100 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
171200 PERFORM FAIL RL2054.2
171300 PERFORM PRINT-DETAIL RL2054.2
171400 ELSE RL2054.2
171500 PERFORM PASS RL2054.2
171600 PERFORM PRINT-DETAIL. RL2054.2
171700 ADD 1 TO REC-CT. RL2054.2
171800 REL-8X-TEST-6-2. RL2054.2
171900 MOVE"REL-8X-TEST-6-2"TO PAR-NAME. RL2054.2
172000 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
172100 IF XRECORD-NUMBER (1) < 123 RL2054.2
172200 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
172300 TO RE-MARK RL2054.2
172400 PERFORM FAIL RL2054.2
172500 PERFORM PRINT-DETAIL RL2054.2
172600 ELSE RL2054.2
172700 PERFORM PASS RL2054.2
172800 PERFORM PRINT-DETAIL. RL2054.2 172900* RL2054.2
173000 REL-8X-INIT-7. RL2054.2
173100 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
173200 MOVE"REL-8X-TEST-7"TO PAR-NAME. RL2054.2
173300 MOVE 154 TO WRK-RL-FD1-RECKEY. RL2054.2
173400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
173500 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
173600 MOVESPACETO WRK-XN-00001. RL2054.2
173700 MOVE 1 TO REC-CT. RL2054.2
173800 GOTO REL-8X-TEST-7-0. RL2054.2
173900 REL-8X-DELETE-7. RL2054.2
174000 PERFORM DE-LETE. RL2054.2
174100 PERFORM PRINT-DETAIL. RL2054.2
174200 GOTO REL-8X-INIT-8. RL2054.2
174300 REL-8X-TEST-7-0. RL2054.2
174400 START RL-FD1 RL2054.2
174500 KEYGREATEROREQUALTO RL-FD1-KEY RL2054.2
174600 NOTINVALIDKEY RL2054.2
174700 MOVE"A"TO WRK-XN-00001. RL2054.2
174800 REL-8X-TEST-7-1. RL2054.2
174900 IF WRK-XN-00001 NOT = "A" RL2054.2
175000 MOVE"NOT INVALID KEY DID NOT EXECUTE" RL2054.2
175100 TO RE-MARK RL2054.2
175200 MOVE"A"TO CORRECT-X RL2054.2
175300 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
175400 PERFORM FAIL RL2054.2
175500 PERFORM PRINT-DETAIL RL2054.2
175600 ELSE RL2054.2
175700 PERFORM PASS RL2054.2
175800 PERFORM PRINT-DETAIL. RL2054.2
175900 ADD 1 TO REC-CT. RL2054.2
176000 REL-8X-TEST-7-2. RL2054.2
176100 MOVE"REL-8X-TEST-7-2"TO PAR-NAME. RL2054.2
176200 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
176300 IF XRECORD-NUMBER (1) < 154 RL2054.2
176400 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
176500 TO RE-MARK RL2054.2
176600 MOVE 154 TO CORRECT-N RL2054.2
176700 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
176800 PERFORM FAIL RL2054.2
176900 PERFORM PRINT-DETAIL RL2054.2
177000 ELSE RL2054.2
177100 PERFORM PASS RL2054.2
177200 PERFORM PRINT-DETAIL. RL2054.2 177300* RL2054.2
177400 REL-8X-INIT-8. RL2054.2
177500 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
177600 MOVE"REL-8X-TEST-8"TO PAR-NAME. RL2054.2
177700 MOVE 226 TO WRK-RL-FD1-RECKEY. RL2054.2
177800 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
177900 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
178000 MOVESPACETO WRK-XN-00001. RL2054.2
178100 MOVE 1 TO REC-CT. RL2054.2
178200 GOTO REL-8X-TEST-8-0. RL2054.2
178300 REL-8X-DELETE-8. RL2054.2
178400 PERFORM DE-LETE. RL2054.2
178500 PERFORM PRINT-DETAIL. RL2054.2
178600 GOTO REL-8X-INIT-9. RL2054.2
178700 REL-8X-TEST-8-0. RL2054.2
178800 START RL-FD1 RL2054.2
178900 KEYIS >= RL-FD1-KEY RL2054.2
179000 NOTINVALIDKEY RL2054.2
179100 MOVE"A"TO WRK-XN-00001. RL2054.2
179200 REL-8X-TEST-8-1. RL2054.2
179300 IF WRK-XN-00001 NOT = "A" RL2054.2
179400 MOVE"NOT INVALID KEY DID NOT EXECUTE" RL2054.2
179500 TO RE-MARK RL2054.2
179600 MOVE"A"TO CORRECT-X RL2054.2
179700 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
179800 PERFORM FAIL RL2054.2
179900 PERFORM PRINT-DETAIL RL2054.2
180000 ELSE RL2054.2
180100 PERFORM PASS RL2054.2
180200 PERFORM PRINT-DETAIL. RL2054.2
180300 ADD 1 TO REC-CT. RL2054.2
180400 REL-8X-TEST-8-2. RL2054.2
180500 MOVE"REL-8X-TEST-8-2"TO PAR-NAME. RL2054.2
180600 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
180700 IF XRECORD-NUMBER (1) < 226 RL2054.2
180800 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
180900 TO RE-MARK RL2054.2
181000 MOVE 226 TO CORRECT-N RL2054.2
181100 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
181200 PERFORM FAIL RL2054.2
181300 PERFORM PRINT-DETAIL RL2054.2
181400 ELSE RL2054.2
181500 PERFORM PASS RL2054.2
181600 PERFORM PRINT-DETAIL. RL2054.2 181700* RL2054.2
181800 REL-8X-INIT-9. RL2054.2
181900 MOVE"VIII-33 4.7.2"TO ANSI-REFERENCE. RL2054.2
182000 MOVE"REL-8X-TEST-9"TO PAR-NAME. RL2054.2
182100 MOVE 300 TO WRK-RL-FD1-RECKEY. RL2054.2
182200 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
182300 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
182400 MOVESPACETO WRK-XN-00001. RL2054.2
182500 MOVE 1 TO REC-CT. RL2054.2
182600 GOTO REL-8X-TEST-9-0. RL2054.2
182700 REL-8X-DELETE-9. RL2054.2
182800 PERFORM DE-LETE. RL2054.2
182900 PERFORM PRINT-DETAIL. RL2054.2
183000 GOTO REL-8X-INIT-10. RL2054.2
183100 REL-8X-TEST-9-0. RL2054.2
183200 START RL-FD1 RL2054.2
183300 KEY >= RL-FD1-KEY RL2054.2
183400 NOTINVALIDKEY RL2054.2
183500 MOVE"A"TO WRK-XN-00001. RL2054.2
183600 REL-8X-TEST-9-1. RL2054.2
183700 IF WRK-XN-00001 NOT = "A" RL2054.2
183800 MOVE"NOT INVALID KEY DID NOT EXECUTE" RL2054.2
183900 TO RE-MARK RL2054.2
184000 MOVE"A"TO CORRECT-X RL2054.2
184100 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
184200 PERFORM FAIL RL2054.2
184300 PERFORM PRINT-DETAIL RL2054.2
184400 ELSE RL2054.2
184500 PERFORM PASS RL2054.2
184600 PERFORM PRINT-DETAIL. RL2054.2
184700 ADD 1 TO REC-CT. RL2054.2
184800 REL-8X-TEST-9-2. RL2054.2
184900 MOVE"REL-8X-TEST-9-2"TO PAR-NAME. RL2054.2
185000 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
185100 IF XRECORD-NUMBER (1) < 300 RL2054.2
185200 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
185300 TO RE-MARK RL2054.2
185400 MOVE 300 TO CORRECT-N RL2054.2
185500 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
185600 PERFORM FAIL RL2054.2
185700 PERFORM PRINT-DETAIL RL2054.2
185800 ELSE RL2054.2
185900 PERFORM PASS RL2054.2
186000 PERFORM PRINT-DETAIL. RL2054.2 186100* RL2054.2
186200 REL-8X-INIT-10. RL2054.2
186300 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
186400 MOVE"REL-8X-TEST-10"TO PAR-NAME. RL2054.2
186500 MOVE 200 TO WRK-RL-FD1-RECKEY. RL2054.2
186600 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
186700 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
186800 MOVESPACETO WRK-XN-00001. RL2054.2
186900 MOVE 1 TO REC-CT. RL2054.2
187000 GOTO REL-8X-TEST-10-0. RL2054.2
187100 REL-8X-DELETE-10. RL2054.2
187200 PERFORM DE-LETE. RL2054.2
187300 PERFORM PRINT-DETAIL. RL2054.2
187400 GOTO REL-8X-INIT-11. RL2054.2
187500 REL-8X-TEST-10-0. RL2054.2
187600 START RL-FD1 RL2054.2
187700 KEY >= RL-FD1-KEY RL2054.2
187800 INVALIDKEY RL2054.2
187900 MOVE"A"TO WRK-XN-00001. RL2054.2
188000 REL-8X-TEST-10-1. RL2054.2
188100 IF WRK-XN-00001 NOT = SPACE RL2054.2
188200 MOVE"INVALID KEY SHOULD NOT EXECUTE" RL2054.2
188300 TO RE-MARK RL2054.2
188400 MOVESPACETO CORRECT-X RL2054.2
188500 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
188600 PERFORM FAIL RL2054.2
188700 PERFORM PRINT-DETAIL RL2054.2
188800 ELSE RL2054.2
188900 PERFORM PASS RL2054.2
189000 PERFORM PRINT-DETAIL. RL2054.2
189100 ADD 1 TO REC-CT. RL2054.2
189200 REL-8X-TEST-10-2. RL2054.2
189300 MOVE"REL-8X-TEST-10-2"TO PAR-NAME. RL2054.2
189400 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
189500 IF XRECORD-NUMBER (1) < 200 RL2054.2
189600 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
189700 TO RE-MARK RL2054.2
189800 MOVE 200 TO CORRECT-N RL2054.2
189900 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
190000 PERFORM FAIL RL2054.2
190100 PERFORM PRINT-DETAIL RL2054.2
190200 ELSE RL2054.2
190300 PERFORM PASS RL2054.2
190400 PERFORM PRINT-DETAIL. RL2054.2 190500* RL2054.2
190600 REL-8X-INIT-11. RL2054.2
190700 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
190800 MOVE"REL-8X-TEST-11"TO PAR-NAME. RL2054.2
190900 MOVE 555 TO WRK-RL-FD1-RECKEY. RL2054.2
191000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
191100 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
191200 MOVESPACETO WRK-XN-00001. RL2054.2
191300 MOVE 1 TO REC-CT. RL2054.2
191400 GOTO REL-8X-TEST-11-0. RL2054.2
191500 REL-8X-DELETE-11. RL2054.2
191600 PERFORM DE-LETE. RL2054.2
191700 PERFORM PRINT-DETAIL. RL2054.2
191800 GOTO REL-8X-INIT-12. RL2054.2
191900 REL-8X-TEST-11-0. RL2054.2
192000 START RL-FD1 RL2054.2
192100 KEY >= RL-FD1-KEY RL2054.2
192200 INVALIDKEY RL2054.2
192300 MOVE"A"TO WRK-XN-00001. RL2054.2
192400 REL-8X-TEST-11-1. RL2054.2
192500 IF WRK-XN-00001 NOT = "A" RL2054.2
192600 MOVE"INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
192700 TO RE-MARK RL2054.2
192800 MOVE"A"TO CORRECT-X RL2054.2
192900 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
193000 PERFORM FAIL RL2054.2
193100 PERFORM PRINT-DETAIL RL2054.2
193200 ELSE RL2054.2
193300 PERFORM PASS RL2054.2
193400 PERFORM PRINT-DETAIL. RL2054.2 193500* RL2054.2
193600 REL-8X-INIT-12. RL2054.2
193700 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
193800 MOVE"REL-8X-TEST-12"TO PAR-NAME. RL2054.2
193900 MOVE 027 TO WRK-RL-FD1-RECKEY. RL2054.2
194000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
194100 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
194200 MOVESPACETO WRK-XN-00001. RL2054.2
194300 MOVE 1 TO REC-CT. RL2054.2
194400 GOTO REL-8X-TEST-12-0. RL2054.2
194500 REL-8X-DELETE-12. RL2054.2
194600 PERFORM DE-LETE. RL2054.2
194700 PERFORM PRINT-DETAIL. RL2054.2
194800 GOTO REL-8X-INIT-13. RL2054.2
194900 REL-8X-TEST-12-0. RL2054.2
195000 START RL-FD1 RL2054.2
195100 KEY >= RL-FD1-KEY RL2054.2
195200 NOTINVALIDKEY RL2054.2
195300 MOVE"A"TO WRK-XN-00001. RL2054.2
195400 REL-8X-TEST-12-1. RL2054.2
195500 IF WRK-XN-00001 NOT = "A" RL2054.2
195600 MOVE"NOT INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
195700 TO RE-MARK RL2054.2
195800 MOVE"A"TO CORRECT-X RL2054.2
195900 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
196000 PERFORM FAIL RL2054.2
196100 PERFORM PRINT-DETAIL RL2054.2
196200 ELSE RL2054.2
196300 PERFORM PASS RL2054.2
196400 PERFORM PRINT-DETAIL. RL2054.2
196500 ADD 1 TO REC-CT. RL2054.2
196600 REL-8X-TEST-12-2. RL2054.2
196700 MOVE"REL-8X-TEST-12-2"TO PAR-NAME. RL2054.2
196800 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
196900 IF XRECORD-NUMBER (1) < 27 RL2054.2
197000 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
197100 TO RE-MARK RL2054.2
197200 MOVE 27 TO CORRECT-N RL2054.2
197300 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
197400 PERFORM FAIL RL2054.2
197500 PERFORM PRINT-DETAIL RL2054.2
197600 ELSE RL2054.2
197700 PERFORM PASS RL2054.2
197800 PERFORM PRINT-DETAIL. RL2054.2 197900* RL2054.2
198000 REL-8X-INIT-13. RL2054.2
198100 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
198200 MOVE"REL-8X-TEST-13"TO PAR-NAME. RL2054.2
198300 MOVE 555 TO WRK-RL-FD1-RECKEY. RL2054.2
198400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
198500 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
198600 MOVESPACETO WRK-XN-00001. RL2054.2
198700 MOVE 1 TO REC-CT. RL2054.2
198800 GOTO REL-8X-TEST-13-0. RL2054.2
198900 REL-8X-DELETE-13. RL2054.2
199000 PERFORM DE-LETE. RL2054.2
199100 PERFORM PRINT-DETAIL. RL2054.2
199200 GOTO REL-8X-INIT-14. RL2054.2
199300 REL-8X-TEST-13-0. RL2054.2
199400 START RL-FD1 RL2054.2
199500 KEY >= RL-FD1-KEY RL2054.2
199600 NOTINVALIDKEY RL2054.2
199700 MOVE"A"TO WRK-XN-00001. RL2054.2
199800 REL-8X-TEST-13-1. RL2054.2
199900 IF WRK-XN-00001 NOT = SPACE RL2054.2
200000 MOVE"NOT INVALID KEY SHOULD NOT HAVE EXECUTED" RL2054.2
200100 TO RE-MARK RL2054.2
200200 MOVESPACETO CORRECT-X RL2054.2
200300 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
200400 PERFORM FAIL RL2054.2
200500 PERFORM PRINT-DETAIL RL2054.2
200600 ELSE RL2054.2
200700 PERFORM PASS RL2054.2
200800 PERFORM PRINT-DETAIL. RL2054.2 200900* RL2054.2
201000 REL-8X-INIT-14. RL2054.2
201100 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
201200 MOVE"REL-8X-TEST-14"TO PAR-NAME. RL2054.2
201300 MOVE 101 TO WRK-RL-FD1-RECKEY. RL2054.2
201400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
201500 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
201600 MOVESPACETO WRK-XN-00001. RL2054.2
201700 MOVE 1 TO REC-CT. RL2054.2
201800 GOTO REL-8X-TEST-14-0. RL2054.2
201900 REL-8X-DELETE-14. RL2054.2
202000 PERFORM DE-LETE. RL2054.2
202100 PERFORM PRINT-DETAIL. RL2054.2
202200 GOTO REL-8X-INIT-15. RL2054.2
202300 REL-8X-TEST-14-0. RL2054.2
202400 START RL-FD1 RL2054.2
202500 KEY >= RL-FD1-KEY RL2054.2
202600 INVALIDKEY RL2054.2
202700 MOVE"B"TO WRK-XN-00001 RL2054.2
202800 NOTINVALIDKEY RL2054.2
202900 MOVE"A"TO WRK-XN-00001. RL2054.2
203000 REL-8X-TEST-14-1. RL2054.2
203100 IF WRK-XN-00001 NOT = "A" RL2054.2
203200 MOVE"NOT INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
203300 TO RE-MARK RL2054.2
203400 MOVE"A"TO CORRECT-X RL2054.2
203500 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
203600 PERFORM FAIL RL2054.2
203700 PERFORM PRINT-DETAIL RL2054.2
203800 ELSE RL2054.2
203900 PERFORM PASS RL2054.2
204000 PERFORM PRINT-DETAIL. RL2054.2
204100 ADD 1 TO REC-CT. RL2054.2
204200 REL-8X-TEST-14-2. RL2054.2
204300 MOVE"REL-8X-TEST-14-2"TO PAR-NAME. RL2054.2
204400 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
204500 IF XRECORD-NUMBER (1) < 101 RL2054.2
204600 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
204700 TO RE-MARK RL2054.2
204800 MOVE 101 TO CORRECT-N RL2054.2
204900 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
205000 PERFORM FAIL RL2054.2
205100 PERFORM PRINT-DETAIL RL2054.2
205200 ELSE RL2054.2
205300 PERFORM PASS RL2054.2
205400 PERFORM PRINT-DETAIL. RL2054.2 205500* RL2054.2
205600 REL-8X-INIT-15. RL2054.2
205700 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
205800 MOVE"REL-8X-TEST-15"TO PAR-NAME. RL2054.2
205900 MOVE 666 TO WRK-RL-FD1-RECKEY. RL2054.2
206000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
206100 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
206200 MOVESPACETO WRK-XN-00001. RL2054.2
206300 MOVE 1 TO REC-CT. RL2054.2
206400 GOTO REL-8X-TEST-15-0. RL2054.2
206500 REL-8X-DELETE-15. RL2054.2
206600 PERFORM DE-LETE. RL2054.2
206700 PERFORM PRINT-DETAIL. RL2054.2
206800 GOTO REL-8X-INIT-16. RL2054.2
206900 REL-8X-TEST-15-0. RL2054.2
207000 START RL-FD1 RL2054.2
207100 KEY >= RL-FD1-KEY RL2054.2
207200 INVALIDKEY RL2054.2
207300 MOVE"A"TO WRK-XN-00001 RL2054.2
207400 NOTINVALIDKEY RL2054.2
207500 MOVE"B"TO WRK-XN-00001. RL2054.2
207600 REL-8X-TEST-15-1. RL2054.2
207700 IF WRK-XN-00001 NOT = "A" RL2054.2
207800 MOVE"INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
207900 TO RE-MARK RL2054.2
208000 MOVE"A"TO CORRECT-X RL2054.2
208100 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
208200 PERFORM FAIL RL2054.2
208300 PERFORM PRINT-DETAIL RL2054.2
208400 ELSE RL2054.2
208500 PERFORM PASS RL2054.2
208600 PERFORM PRINT-DETAIL. RL2054.2 208700* RL2054.2
208800 REL-8X-INIT-16. RL2054.2
208900 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
209000 MOVE"REL-8X-TEST-16"TO PAR-NAME. RL2054.2
209100 MOVE 200 TO WRK-RL-FD1-RECKEY. RL2054.2
209200 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
209300 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
209400 MOVESPACETO WRK-XN-00001. RL2054.2
209500 MOVESPACETO WRK-XN-00002. RL2054.2
209600 MOVE 1 TO REC-CT. RL2054.2
209700 GOTO REL-8X-TEST-16-0. RL2054.2
209800 REL-8X-DELETE-16. RL2054.2
209900 PERFORM DE-LETE. RL2054.2
210000 PERFORM PRINT-DETAIL. RL2054.2
210100 GOTO REL-8X-INIT-17. RL2054.2
210200 REL-8X-TEST-16-0. RL2054.2
210300 START RL-FD1 RL2054.2
210400 KEY >= RL-FD1-KEY RL2054.2
210500 INVALIDKEY RL2054.2
210600 MOVE"A"TO WRK-XN-00001 RL2054.2
210700 END-START RL2054.2
210800 MOVE"Z"TO WRK-XN-00002. RL2054.2
210900 REL-8X-TEST-16-1. RL2054.2
211000 IF WRK-XN-00001 NOT = SPACE RL2054.2
211100 MOVE"INVALID KEY SHOULD NOT HAVE EXECUTED" RL2054.2
211200 TO RE-MARK RL2054.2
211300 MOVESPACETO CORRECT-X RL2054.2
211400 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
211500 PERFORM FAIL RL2054.2
211600 PERFORM PRINT-DETAIL RL2054.2
211700 ELSE RL2054.2
211800 PERFORM PASS RL2054.2
211900 PERFORM PRINT-DETAIL. RL2054.2
212000 ADD 1 TO REC-CT. RL2054.2
212100 REL-8X-TEST-16-2. RL2054.2
212200 MOVE"REL-8X-TEST-16-2"TO PAR-NAME. RL2054.2
212300 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
212400 IF XRECORD-NUMBER (1) < 200 RL2054.2
212500 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
212600 TO RE-MARK RL2054.2
212700 MOVE 200 TO CORRECT-N RL2054.2
212800 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
212900 PERFORM FAIL RL2054.2
213000 PERFORM PRINT-DETAIL RL2054.2
213100 ELSE RL2054.2
213200 PERFORM PASS RL2054.2
213300 PERFORM PRINT-DETAIL. RL2054.2
213400 ADD 1 TO REC-CT. RL2054.2
213500 REL-8X-TEST-16-3. RL2054.2
213600 MOVE"REL-8X-TEST-16-3"TO PAR-NAME. RL2054.2
213700 IF WRK-XN-00002 NOT = "Z" RL2054.2
213800 MOVE"SCOPE TERMINATOR IGNORED"TO RE-MARK RL2054.2
213900 MOVE"Z"TO CORRECT-X RL2054.2
214000 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
214100 PERFORM FAIL RL2054.2
214200 PERFORM PRINT-DETAIL RL2054.2
214300 ELSE RL2054.2
214400 PERFORM PASS RL2054.2
214500 PERFORM PRINT-DETAIL. RL2054.2 214600* RL2054.2
214700 REL-8X-INIT-17. RL2054.2
214800 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
214900 MOVE"REL-8X-TEST-17"TO PAR-NAME. RL2054.2
215000 MOVE 555 TO WRK-RL-FD1-RECKEY. RL2054.2
215100 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
215200 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
215300 MOVESPACETO WRK-XN-00001. RL2054.2
215400 MOVESPACETO WRK-XN-00002. RL2054.2
215500 MOVE 1 TO REC-CT. RL2054.2
215600 GOTO REL-8X-TEST-17-0. RL2054.2
215700 REL-8X-DELETE-17. RL2054.2
215800 PERFORM DE-LETE. RL2054.2
215900 PERFORM PRINT-DETAIL. RL2054.2
216000 GOTO REL-8X-INIT-18. RL2054.2
216100 REL-8X-TEST-17-0. RL2054.2
216200 START RL-FD1 RL2054.2
216300 KEY >= RL-FD1-KEY RL2054.2
216400 INVALIDKEY RL2054.2
216500 MOVE"A"TO WRK-XN-00001 RL2054.2
216600 END-START RL2054.2
216700 MOVE"Z"TO WRK-XN-00002. RL2054.2
216800 REL-8X-TEST-17-1. RL2054.2
216900 IF WRK-XN-00001 NOT = "A" RL2054.2
217000 MOVE"INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
217100 TO RE-MARK RL2054.2
217200 MOVE"A"TO CORRECT-X RL2054.2
217300 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
217400 PERFORM FAIL RL2054.2
217500 PERFORM PRINT-DETAIL RL2054.2
217600 ELSE RL2054.2
217700 PERFORM PASS RL2054.2
217800 PERFORM PRINT-DETAIL. RL2054.2
217900 ADD 1 TO REC-CT. RL2054.2
218000 REL-8X-TEST-17-2. RL2054.2
218100 MOVE"REL-8X-TEST-17-2"TO PAR-NAME. RL2054.2
218200 IF WRK-XN-00002 NOT = "Z" RL2054.2
218300 MOVE"SCOPE TERMINATOR IGNORED"TO RE-MARK RL2054.2
218400 MOVE"Z"TO CORRECT-X RL2054.2
218500 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
218600 PERFORM FAIL RL2054.2
218700 PERFORM PRINT-DETAIL RL2054.2
218800 ELSE RL2054.2
218900 PERFORM PASS RL2054.2
219000 PERFORM PRINT-DETAIL. RL2054.2 219100* RL2054.2
219200 REL-8X-INIT-18. RL2054.2
219300 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
219400 MOVE"REL-8X-TEST-18"TO PAR-NAME. RL2054.2
219500 MOVE 027 TO WRK-RL-FD1-RECKEY. RL2054.2
219600 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
219700 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
219800 MOVESPACETO WRK-XN-00001. RL2054.2
219900 MOVESPACETO WRK-XN-00002. RL2054.2
220000 MOVE 1 TO REC-CT. RL2054.2
220100 GOTO REL-8X-TEST-18-0. RL2054.2
220200 REL-8X-DELETE-18. RL2054.2
220300 PERFORM DE-LETE. RL2054.2
220400 PERFORM PRINT-DETAIL. RL2054.2
220500 GOTO REL-8X-INIT-19. RL2054.2
220600 REL-8X-TEST-18-0. RL2054.2
220700 START RL-FD1 RL2054.2
220800 KEY >= RL-FD1-KEY RL2054.2
220900 NOTINVALIDKEY RL2054.2
221000 MOVE"A"TO WRK-XN-00001 RL2054.2
221100 END-START RL2054.2
221200 MOVE"Z"TO WRK-XN-00002. RL2054.2
221300 REL-8X-TEST-18-1. RL2054.2
221400 IF WRK-XN-00001 NOT = "A" RL2054.2
221500 MOVE"NOT INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
221600 TO RE-MARK RL2054.2
221700 MOVE"A"TO CORRECT-X RL2054.2
221800 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
221900 PERFORM FAIL RL2054.2
222000 PERFORM PRINT-DETAIL RL2054.2
222100 ELSE RL2054.2
222200 PERFORM PASS RL2054.2
222300 PERFORM PRINT-DETAIL. RL2054.2
222400 ADD 1 TO REC-CT. RL2054.2
222500 REL-8X-TEST-18-2. RL2054.2
222600 MOVE"REL-8X-TEST-18-2"TO PAR-NAME. RL2054.2
222700 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
222800 IF XRECORD-NUMBER (1) < 27 RL2054.2
222900 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
223000 TO RE-MARK RL2054.2
223100 MOVE 27 TO CORRECT-N RL2054.2
223200 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
223300 PERFORM FAIL RL2054.2
223400 PERFORM PRINT-DETAIL RL2054.2
223500 ELSE RL2054.2
223600 PERFORM PASS RL2054.2
223700 PERFORM PRINT-DETAIL. RL2054.2
223800 ADD 1 TO REC-CT. RL2054.2
223900 REL-8X-TEST-18-3. RL2054.2
224000 MOVE"REL-8X-TEST-18-3"TO PAR-NAME. RL2054.2
224100 IF WRK-XN-00002 NOT = "Z" RL2054.2
224200 MOVE"SCOPE TERMINATOR IGNORED"TO RE-MARK RL2054.2
224300 MOVE"Z"TO CORRECT-X RL2054.2
224400 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
224500 PERFORM FAIL RL2054.2
224600 PERFORM PRINT-DETAIL RL2054.2
224700 ELSE RL2054.2
224800 PERFORM PASS RL2054.2
224900 PERFORM PRINT-DETAIL. RL2054.2 225000* RL2054.2
225100 REL-8X-INIT-19. RL2054.2
225200 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
225300 MOVE"REL-8X-TEST-19"TO PAR-NAME. RL2054.2
225400 MOVE 555 TO WRK-RL-FD1-RECKEY. RL2054.2
225500 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
225600 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
225700 MOVESPACETO WRK-XN-00001. RL2054.2
225800 MOVESPACETO WRK-XN-00002. RL2054.2
225900 MOVE 1 TO REC-CT. RL2054.2
226000 GOTO REL-8X-TEST-19-0. RL2054.2
226100 REL-8X-DELETE-19. RL2054.2
226200 PERFORM DE-LETE. RL2054.2
226300 PERFORM PRINT-DETAIL. RL2054.2
226400 GOTO REL-8X-INIT-20. RL2054.2
226500 REL-8X-TEST-19-0. RL2054.2
226600 START RL-FD1 RL2054.2
226700 KEY >= RL-FD1-KEY RL2054.2
226800 NOTINVALIDKEY RL2054.2
226900 MOVE"A"TO WRK-XN-00001 RL2054.2
227000 END-START RL2054.2
227100 MOVE"Z"TO WRK-XN-00002. RL2054.2
227200 REL-8X-TEST-19-1. RL2054.2
227300 IF WRK-XN-00001 NOT = SPACE RL2054.2
227400 MOVE"NOT INVALID KEY SHOULD NOT HAVE EXECUTED" RL2054.2
227500 TO RE-MARK RL2054.2
227600 MOVESPACETO CORRECT-X RL2054.2
227700 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
227800 PERFORM FAIL RL2054.2
227900 PERFORM PRINT-DETAIL RL2054.2
228000 ELSE RL2054.2
228100 PERFORM PASS RL2054.2
228200 PERFORM PRINT-DETAIL. RL2054.2
228300 ADD 1 TO REC-CT. RL2054.2
228400 REL-8X-TEST-19-2. RL2054.2
228500 MOVE"REL-8X-TEST-19-2"TO PAR-NAME. RL2054.2
228600 IF WRK-XN-00002 NOT = "Z" RL2054.2
228700 MOVE"SCOPE TERMINATOR IGNORED"TO RE-MARK RL2054.2
228800 MOVE"Z"TO CORRECT-X RL2054.2
228900 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
229000 PERFORM FAIL RL2054.2
229100 PERFORM PRINT-DETAIL RL2054.2
229200 ELSE RL2054.2
229300 PERFORM PASS RL2054.2
229400 PERFORM PRINT-DETAIL. RL2054.2 229500* RL2054.2
229600 REL-8X-INIT-20. RL2054.2
229700 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
229800 MOVE"REL-8X-TEST-20"TO PAR-NAME. RL2054.2
229900 MOVE 101 TO WRK-RL-FD1-RECKEY. RL2054.2
230000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
230100 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
230200 MOVESPACETO WRK-XN-00001. RL2054.2
230300 MOVE 1 TO REC-CT. RL2054.2
230400 GOTO REL-8X-TEST-20-0. RL2054.2
230500 REL-8X-DELETE-20. RL2054.2
230600 PERFORM DE-LETE. RL2054.2
230700 PERFORM PRINT-DETAIL. RL2054.2
230800 GOTO REL-8X-INIT-21. RL2054.2
230900 REL-8X-TEST-20-0. RL2054.2
231000 START RL-FD1 RL2054.2
231100 KEY >= RL-FD1-KEY RL2054.2
231200 INVALIDKEY RL2054.2
231300 MOVE"B"TO WRK-XN-00001 RL2054.2
231400 NOTINVALIDKEY RL2054.2
231500 MOVE"A"TO WRK-XN-00001 RL2054.2
231600 END-START RL2054.2
231700 MOVE"Z"TO WRK-XN-00002. RL2054.2
231800 REL-8X-TEST-20-1. RL2054.2
231900 IF WRK-XN-00001 NOT = "A" RL2054.2
232000 MOVE"NOT INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
232100 TO RE-MARK RL2054.2
232200 MOVE"A"TO CORRECT-X RL2054.2
232300 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
232400 PERFORM FAIL RL2054.2
232500 PERFORM PRINT-DETAIL RL2054.2
232600 ELSE RL2054.2
232700 PERFORM PASS RL2054.2
232800 PERFORM PRINT-DETAIL. RL2054.2
232900 ADD 1 TO REC-CT. RL2054.2
233000 REL-8X-TEST-20-2. RL2054.2
233100 MOVE"REL-8X-TEST-20-2"TO PAR-NAME. RL2054.2
233200 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2
233300 IF XRECORD-NUMBER (1) < 101 RL2054.2
233400 MOVE"RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2
233500 TO RE-MARK RL2054.2
233600 MOVE 101 TO CORRECT-N RL2054.2
233700 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2
233800 PERFORM FAIL RL2054.2
233900 PERFORM PRINT-DETAIL RL2054.2
234000 ELSE RL2054.2
234100 PERFORM PASS RL2054.2
234200 PERFORM PRINT-DETAIL. RL2054.2
234300 ADD 1 TO REC-CT. RL2054.2
234400 REL-8X-TEST-20-3. RL2054.2
234500 MOVE"REL-8X-TEST-20-3"TO PAR-NAME. RL2054.2
234600 IF WRK-XN-00002 NOT = "Z" RL2054.2
234700 MOVE"SCOPE TERMINATOR IGNORED"TO RE-MARK RL2054.2
234800 MOVE"Z"TO CORRECT-X RL2054.2
234900 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
235000 PERFORM FAIL RL2054.2
235100 PERFORM PRINT-DETAIL RL2054.2
235200 ELSE RL2054.2
235300 PERFORM PASS RL2054.2
235400 PERFORM PRINT-DETAIL. RL2054.2 235500* RL2054.2
235600 REL-8X-INIT-21. RL2054.2
235700 MOVE"VIII-33 4.7.2 (GR7)"TO ANSI-REFERENCE. RL2054.2
235800 MOVE"REL-8X-TEST-21"TO PAR-NAME. RL2054.2
235900 MOVE 666 TO WRK-RL-FD1-RECKEY. RL2054.2
236000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2
236100 MOVESPACESTO FILE-RECORD-INFO (1). RL2054.2
236200 MOVESPACETO WRK-XN-00001. RL2054.2
236300 MOVESPACETO WRK-XN-00002. RL2054.2
236400 MOVE 1 TO REC-CT. RL2054.2
236500 GOTO REL-8X-TEST-21-0. RL2054.2
236600 REL-8X-DELETE-21. RL2054.2
236700 PERFORM DE-LETE. RL2054.2
236800 PERFORM PRINT-DETAIL. RL2054.2
236900 GOTO REL-8X-END-21. RL2054.2
237000 REL-8X-TEST-21-0. RL2054.2
237100 START RL-FD1 RL2054.2
237200 KEY >= RL-FD1-KEY RL2054.2
237300 INVALIDKEY RL2054.2
237400 MOVE"A"TO WRK-XN-00001 RL2054.2
237500 NOTINVALIDKEY RL2054.2
237600 MOVE"B"TO WRK-XN-00001 RL2054.2
237700 END-START RL2054.2
237800 MOVE"Z"TO WRK-XN-00002. RL2054.2
237900 REL-8X-TEST-21-1. RL2054.2
238000 IF WRK-XN-00001 NOT = "A" RL2054.2
238100 MOVE"INVALID KEY SHOULD HAVE EXECUTED" RL2054.2
238200 TO RE-MARK RL2054.2
238300 MOVE"A"TO CORRECT-X RL2054.2
238400 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
238500 PERFORM FAIL RL2054.2
238600 PERFORM PRINT-DETAIL RL2054.2
238700 ELSE RL2054.2
238800 PERFORM PASS RL2054.2
238900 PERFORM PRINT-DETAIL. RL2054.2
239000 ADD 1 TO REC-CT. RL2054.2
239100 REL-8X-TEST-21-2. RL2054.2
239200 MOVE"REL-8X-TEST-21-2"TO PAR-NAME. RL2054.2
239300 IF WRK-XN-00002 NOT = "Z" RL2054.2
239400 MOVE"SCOPE TERMINATOR IGNORED"TO RE-MARK RL2054.2
239500 MOVE"Z"TO CORRECT-X RL2054.2
239600 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2
239700 PERFORM FAIL RL2054.2
239800 PERFORM PRINT-DETAIL RL2054.2
239900 ELSE RL2054.2
240000 PERFORM PASS RL2054.2
240100 PERFORM PRINT-DETAIL. RL2054.2
240200 REL-8X-END-21. RL2054.2
240300 CLOSE RL-FD1. RL2054.2
240400 CLOSE RL-FS2. RL2054.2
240500 REL-8X-EXIT. RL2054.2
240600 EXIT. RL2054.2 240700* RL2054.2
240800 CCVS-EXIT SECTION. RL2054.2
240900 CCVS-999999. RL2054.2
241000 GOTO CLOSE-FILES. RL2054.2
Messung V0.5 in Prozent
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.91Bemerkung:
(vorverarbeitet am 2026-05-01)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.
