Impressum rl205a.cob
Interaktion und PortierbarkeitCobol
000100IDENTIFICATIONDIVISION. RL2054.2 000200PROGRAM-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 010000ENVIRONMENTDIVISION009600* RESPECTIVE LETTER009700* CARD. RL2054.2 010100CONFIGURATIONSECTION. RL2054.2 010200SOURCE-COMPUTER.RL2054.2 010300 Card0130. RL2054.2 010400OBJECT-COMPUTER. RL2054.2 010500 Card0131. RL2054.2 010600INPUT-OUTPUTSECTION. RL2054.2 010700FILE-CONTROL. RL2054.2 010800SELECT PRINT-FILE ASSIGNTO 010600 INPUT-OUTPUT SECTION. RL2054 010900"C0085" . RL2054.010900 C0085".RL2054.2 011000SELECT RL-FD1 RL2054.2 011100ASSIGNTO RL2054.2 011200"C0033" RL2054.2 011300ORGANIZATIONISRELATIVE RL2054.2 011400ACCESSMODEISDYNAMIC RL2054.2 011500RELATIVEKEYIS RL-FD1-KEY011600 RL-FS2RL2054. 011600SELECT RL-FS2 ASSIGN TO RL2054 011700ASSIGNTO RL2054.2 011800"C0034" RL2054.2 ISRL20542 012000RELATIVEKEYIS RL-FS2-KEY RL2054.2 012100ORGANIZATIONISRELATIVE. RL2054.2
012300FILESECTION. RL2054.2 012400FD PRINT-FILE. RL2054.2 01250001 PRINT-REC PICTURE X(01250001PICTURE() 2 01260001 DUMMY-RECORD PICTURE X(120). RL2054.2 012700FD RL-FD1 RL2054.2 012800RECORDCONTAINS240 CHARACTERS RL2054.2 012900VALUEOF RL2054.2 013000 Impl1 RL2054 ISRL2054.2 0131000132004711 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 013200471101390010 RL2054. 013300 RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 013400 . RL2054.2 01350001RL-FD1R1-F-G-240 RL20542 01360005 RL-FD1-REC-001-120 PICTURE X(120). RL2054.2 01370005 RL-FD1-REC-121-240. RL2054.2 01380010FILLERPICTURE X(8). RL2054.2 01390010 RL-FD1-FILLER. RL2054.2 15RL-FS1-KEYNUM PICTURE95.RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 01410010FILLERPICTURE X(5). 014500PICTURE9().RL20542 01420010 014600 10 FILLERPICTURE95.RL20542 01430010FILLERPICTURE X(9). RL2054.2 01440010 RL-FD1-FILLER1. RL2054.2 01450015 RL-FD1-FILLER1NUM PICTURE9(5). 014900 FD RL-FS2 RL2054 01460010FILLERPICTURE9(5).015200ISRL2054.2 01470010FILLERPICTURE X(19). RL2054.2 01480010FILLERPICTURE X(45). RL2054.2 014900FD RL-FS2 RL2054.2 015000VALUEOF RL2054.2 015100 Impl1 RL2054.2 015200IS RL2054.2 0153004711 RL2054.2 015400 015500 . RL2054.2 01560001 RL-FS2R1-F-G-240. RL2054.2 01570005 RL-FS2-REC-001-12001610015RL-FS2-KEYNUMPICTURE() .2 016200PICTURE9() . 015900PICTUREX()RL2054. 01600010 RL-FS2-FILLER. RL2054.2 01610015 RL-FS2-KEYNUM PICTURE10FILLER () 2 01620010FILLERPICTURE9(5). RL2054.2 01630010FILLERPICTURE X(19). RL2054.2 01640010FILLERPICTURE X(9). RL2054.2 01650010 RL-FS2-FILLER1. RL2054.2 01660015 RL-FS2-FILLER1NUM PICTURE9(5). RL2054.2 01670010FILLERPICTURE9(5). RL2054.2 01680010FILLERPICTURE X(19). RL2054.2 01690010FILLERPICTURE X(45). RL2054.2 017000WORKING-STORAGESECTION. RL2054.2 01710001 WRK-XN-00001 PIC X. RL2054.2 01720001 X .2 01730001 RL-FD1-KEY PICTURE9(5) VALUEZERO. RL2054.2 01740001 RL-FS2-KEY PICTURE9(5) VALUEZERO. RL2054.2 01750001 RL-FD1-FILESIZE PICTURE9(6) VALUE300. RL2054.2 01760001 RL-FS2-FILESIZE PICTURE9(6) VALUE300. RL2054.2 01770001 WRK-RL-FD1-RECKEY-CHAR. RL2054.2 01780003 WRK-RL-FD1-RECKEY PIC9(5) VALUEZERO. RL2054.2 01790001 WRK-RL-FS2-RECKEY PIC9(5) VALUEZERO. RL2054.2 01800001 WRK-RL-FD1-FILLER. RL2054.2 01810003 WRK-DU-05V00-002 PICTURE9(5) VALUEZERO. RL2054.2 01820001 WRK-RL-FS2-FILLER. RL2054.2 01830003 WRK-DU-05V00-004 PICTURE9(5) VALUEZERO. RL2054.2
EXCUT-COUNTER-06V00 ()VALUE RL2054.2 01850001 INV-KEY-COUNTER PICTURE S9(6) VALUEZERO. RL2054.2 01860001 LOGICAL-FILE-REC PICTURE S9(6) VALUEZERO. RL2054.2 01870001ERROR-COUNTER-06V00S9(6)VALUEZERO.RL20542 01880001 ASCEND-DESEND-SWITCH PICTURE XX VALUE"UP". RL2054.2 01890088 ASCEND VALUE"UP". RL2054.2 01900088 DSCEND VALUE"DN". RL2054.2 01910001 FILE-RECORD-INFORMATION-REC. RL20542 01920003 FILE-RECORD-INFO-SKELETON. RL2054.2 0193000588 ASCEND VALUE"P" .2 019400FILE R /,=00000U00.RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 01950005FILLERPICTURE X(46) VALUE RL2054.2 019600",ODO= X) RL20542 01970005FILLERPICTURE X(019400FILE /00000000.2
= ". java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 01990005FILLER 019600 ",ODO=0000,PGM= ,LRECL 0000.RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 020000",RECKEY= ". RL2054.2 02010005FILLERPICTURE X(38) VALUE RL2054.2 020200",ALTKEY1= ". RL2054.020000"RECKEY=".RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 02030005FILLERPICTURE X(38) VALUE RL2054.2 020400",ALTKEY2= ". RL2054.2 02050005FILLERPICTURE X(7) VALUESPACE.RL2054.2 02060003 FILE-RECORD-INFO OCCURS10 TIMES. RL2054.2 02070005 FILE-RECORD-INFO-P1-120. RL2054.2 02080007FILLERPIC X020600 FILE-RECORD-INFO OCCURS TIMES.RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 PIC X6). . 02100007FILLERPIC X02090007XFILE-NAMEPIC () .2 02110007 XRECORD-NAME PIC X(6). RL2054.2 02120007FILLERPIC X(1). RL2054.2 02130007 REELUNIT-NUMBER PIC9(1). RL2054.2 02140007FILLERPIC X(7). RL2054.2 02150007 XRECORD-NUMBER PIC9(6). RL2054.2 02160007FILLERPIC X(6). RL2054.2 02170007 UPDATE-NUMBER PIC9(2). RL2054.2 02180007FILLERPIC X(5). RL2054.2 02190007 ODO-NUMBER PIC9(4). RL2054.2 02200007FILLERPIC X(5). RL2054.2 02210007 XPROGRAM-NAME PIC X(5). RL2054.2 02220007FILLERPIC X(7). RL2054.2 02230007 XRECORD-LENGTH PIC9(6). RL2054.2 022400FILLER X7) 2 02250007 CHARS-OR-RECORDS PIC X(2). RL2054.2 02260007FILLERPIC X(1). RL2054.2 02270007 XBLOCK-SIZE PIC9(4). RL2054.2 02280007FILLERPIC X(6). RL2054.2 02290007 RECORDS-IN-FILE PIC9(6). RL2054.2 02300007FILLERPIC(5.RL2054. 02310007 XFILE-ORGANIZATION PIC X(2). RL2054.2 02320007FILLERPIC X(6). RL2054.2 02330007 XLABEL-TYPE PIC X(1). RL2054.2 02340005 FILE-RECORD-INFO-P121-240. RL2054.2 02350007FILLERPIC() .2 02360007 XRECORD-KEY PIC X(29). RL2054.2 02370007FILLER X() . 02380007 ALTERNATE-KEY1 PIC X(29). RL2054.2 02390007FILLERPIC X(9). RL2054.2 02400007 ALTERNATE-KEY2 PIC X(29). RL2054.2 02410007FILLERPIC X(7). RL2054.2 02420001 TEST-RESULTS. RL2054.2 024300PIC X VALUE . RL2054.2 02440002 FEATURE PIC X(20) VALUESPACE. RL2054.2 02450002FILLERPIC X VALUESPACE. RL2054.2 02460002PIC ()VALUESPACE.RL2054.2 02470002FILLERPIC X VALUESPACE. RL2054.2
PAR-NAME. RL20542 02490003FILLERPIC X(19) VALUESPACE. RL2054.2 02500003 PARDOT-X PIC 02390007FILLER (9.RL20542 02510003 DOTVALUE PIC99VALUEZERO. RL2054.2 02520002FILLERPIC X(8) VALUESPACE. RL2054.2 02530002 RE-MARK PIC X(61). RL2054.2 02540001 TEST-COMPUTED. RL2054.2 02550002FILLERPIC X(30) VALUESPACE. RL2054.2 02560002FILLERPIC X(17) VALUE RL2054.2 025700" COMPUTED=". RL2054.2 02 COMPUTED-X 02590003 COMPUTED-A PIC X(20) VALUESPACE. RL205402470002FILLERVALUESPACE .2 026000 . 026100PIC -9(9).9(9).02500003 X .RL2054. 02620003 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). RL2054.2 02630003 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). 02 (61 . 02640003 COMPUTED-14V402 X30 . 02650003 CM-18V0 025600 02 FILLER ()VALUERL2054.2 02660004PIC918. 2 02670004FILLERPIC X. RL2054.2 02680003FILLERPIC X(50) VALUESPACE. RL2054.2 02690001 TEST-CORRECT. RL2054.2 02700002FILLERPIC X(30) VALUESPACE. RL2054.2 02710002FILLERPIC X(17) VALUE" CORRECT =". RL2054.2 02720002 CORRECT-X. RL2054.2 02730003 CORRECT-A PIC X(20) VALUESPACE. RL2054.2 02740003 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). RL2054.2 02750003 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(026600 COMPUTED-18V0PIC-918.RL2054.
-9(4).9(14.RL20542 02770003 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(1402680003FILLERPIC X(50) VALUESPACE. RL2054.2 02780003 CR-18V0 REDEFINES CORRECT-A. RL2054.2 02790004 CORRECT-18V0 PIC -9(18). RL2054.2 02800004FILLERPIC X. RL2054.2 02810003FILLERPIC X(2) VALUESPACE. RL2054.2 02820003 COR-ANSI-REFERENCE PIC X02740003PIC-().9.RL20542
. 02840002FILLERISX(9VALUEIS .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 028500- "SS PARAGRAPH-NAME 02770003 CORRECT-APIC -14.() 2 028600- " REMARKS". RL2054.2 02870002FILLERPIC X(20) VALUESPACE. 2 02880001 CCVS-C-2. RL2054.2 02890002 XVALUE2 02900002FILLERPIC X(6) VALUE"TESTED". RL2054.2 02910002PICX15)VALUE . .2 02920002FILLERPIC X(4) VALUE"028300 01 CCVS-C-1. 02930002FILLERPIC028500 SSPARAGRAPH-NAMERL20542 02940001 REC-SKL-SUB PIC9(2) VALUEZERO. . 02950001 REC-CT PIC99VALUEZERO. RL2054.2 02960001 DELETE-COUNTER PIC999VALUEZERO. RL2054.2 02970001 ERROR-COUNTER PIC999VALUEZERO. 029000 02 FILLER PIC X(6) VALUE "TESTED". RL2054 02980001 029200 02 FILLER X4 FAIL.RL2054..2 02990001 PASS-COUNTER02930002PICX) .RL2054. 030000 TOTAL-ERROR PIC999ZERO.RL20542 03010001 ERROR-HOLD PIC999VALUEZERO. RL205402950001REC-CTPIC99 ZERO. . 03020001 DUMMY-HOLD PIC X(120) VALUESPACE. RL2054.2 03030001 RECORD-COUNT PIC9(5) VALUEZERO. RL2054.2 03040001 ANSI-REFERENCE PIC X(48) VALUESPACES. RL2054.2 03050001 CCVS-H-1. RL2054.2 03060002FILLERPIC X(39) VALUESPACES. RL2054.2 03070002FILLERPIC X(42) VALUE RL2054.2 030800"OFFICIAL COBOL COMPILER VALIDATION SYSTEM". RL2054.2 0309000239VALUE .RL20542 03100001 CCVS-H-2A. RL2054.2 03110002FILLERPIC X(40) VALUESPACE. RL2054.2 03120002FILLERPIC X(7) VALUE"CCVS85 ". RL2054.2 03130002FILLERPIC XXXX VALUE RL2054.2 031400"4.2 ". RL2054.2 03150002FILLERPIC X(28) VALUE RL2054.2 031600" COPY - NOT FOR DISTRIBUTION". RL2054.2
RL20542 031800 RL2054.2 03190001 CCVS-H-2B. RL2054.2 PIC X(5)VALUE RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 032100"TEST RESULT OF ". RL2054.2 03220002 TEST-ID PIC X(9). RL2054.2 03230002FILLERPIC X(4) VALUE RL2054.2 032400" IN ". RL2054.2 03250002FILLERPIC X(12) VALUE RL2054.2 032600" HIGH ". RL2054.2 03270002FILLERPIC X(22) VALUE RL2054.2 032800" LEVEL VALIDATION FOR 03190001 .RL2054.2 03290002FILLERPIC X(58) VALUE RL2054.032000PICX) 2 033000"ON-SITE VALIDATION, NATIONAL INSTITUTE032200 PIC () .
RL2054.2 03320002FILLERPIC X(34) VALUE RL2054.2 033300" FOR OFFICIAL USE ONLY ". RL2054.2 03340002FILLERPIC X(58) VALUE RL2054.2 033500"COBOL 85 VERSION 4.2, Apr 1993 SSVG "03270002PIC() 2 03360002032800" VALIDATION ".RL20542 033700" COPYRIGHT 032900 X() . 03380001 CCVS-E-1. ON-SITE INSTITUTE STD ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 03390002FILLERPIC033200 (34 2 03400002FILLERPIC X(14) VALUEIS"END OF TEST- ". RL2054.2 03410002 ID-AGAIN PIC X(9). RL2054.2 03420002FILLERPIC X(45) VALUESPACES. RL2054.2 03430001 CCVS-E-2. RL2054.2 03440002FILLERPIC X(31) VALUESPACE. RL2054.2 03450002FILLERPIC X(21) VALUESPACE. RL2054.2 03460002 CCVS-E-2-2. RL2054.2 034700 .RL2054. 03480003FILLERPIC X VALUESPACE. RL2054.2 03490003 ENDER-DESC PIC X(44) VALUE RL2054.2 035000"ERRORS ENCOUNTERED". RL2054.2 03510001 CCVS-E-3. RL2054.2 03520002FILLERPIC(22)VALUE . 035300" FOR OFFICIAL USE ONLY". RL2054.2 03540002FILLERPIC X(12) VALUESPACE. RL2054.2 03550002FILLERPIC X(58) VALUE RL2054.2 035600"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2054 FILLERPICVALUE . . PIC ()VALUE.RL2054. 03580002FILLERPIC X(15)035000"RRORS" RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 035900" COPYRIGHT 1985". RL2054.2 03600001 CCVS-E-4. RL2054.2 03610002 CCVS-E-4-1 PIC XXX VALUESPACE. RL2054.2 03620002FILLERPIC X(4) VALUE" OF ". RL2054.2 03630002 CCVS-E-4-2 PIC XXX VALUESPACE. RL2054.2 02FILLER ()VALUERL2054. 036500"035700 FILLER PICX13 2 03660001 XXINFO. RL2054.2 03670002FILLER X(9) 2 036800"*** INFORMATION ***". RL2054.2 03690002 INFO-TEXT. RL2054.2 03700004FILLERPIC X(8) VALUESPACE. RL2054.2 03710004 XXCOMPUTED PIC X(20).036100 .RL20542 03720004FILLERPIC X(5) VALUESPACE. RL2054.2 03730004 XXCORRECT PIC X(20). RL2054.2 03740002PIC X() RL2054. 03750001 HYPHEN-LINE. RL2054.2 03760002FILLERPICIS X VALUEISSPACE. RL2054.2 03770002FILLERPICIS X(65) VALUEIS"******* XXINFO. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 037800- "*****************************************". .RL2054. 03790002FILLERPIC03700004FILLER X8 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 038000- "******************************". RL2054.2 03810001 CCVS-PGM-ID PIC X(9) VALUE RL2054.2 038200"RL205A". RL2054.2 038300PROCEDUREDIVISION. RL2054.2 038400DECLARATIVES. RL2054.2 038500 USE-RL205-TEST SECTION. RL2054.2 ERROR RL-FS2 2 038700 USE-PAR-001. RL2054.2 038800010000TOERROR-COUNTER-06V00 RL20542 038900 USE-PAR-EXIT. RL2054.2 039000EXIT. RL2054.2 DECLARATIVES RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 039200 CCVS1 SECTION. RL2054.2 039300 OPEN-FILES. RL2054.2
.RL20542 039500MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. RL2054.2 039600MOVESPACETO TEST-RESULTS. RL2054.2 039700PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. 038600USEERRORPROCEDURERL-FD1. 2 039800MOVEZEROTO REC-SKL-SUB. RL2054.2 039900PERFORM CCVS-INIT-FILE 9 TIMES. RL2054.2 040000 CCVS-INIT-FILE. RL2054039000 .RL2054. 039100END. .2 040200MOVE 039200 CCVS1 SECTION. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 040300TO FILE-RECORD-INFO (REC-SKL-SUB). RL2054.2 040400 CCVS-INIT-EXIT 2 040500GOTO CCVS1-EXIT. RL2054.2 040600 CLOSE-FILES039500MOVE .MOVE . . 040700PERFORM MOVE SPACE TO TEST-RESULTS2 040800 . . 040900EXITPROGRAM. 039800 MOVE ZERO TO REC-SKL-SUB. RL2054 041000 TERMINATE-CALL. RL2054.2 041100STOPRUN. RL2054.2 041200 INSPT. MOVE"INSPT"TO P-OR-F. ADD1 040200MOVE . 041300 PASS. MOVE"PASS "TO P-OR-F. ADD1TO 040400 CCVS-INIT-EXIT. 041400 FAIL. MOVE"FAIL*"TO P-OR-F. ADD1TO ERROR-COUNTER. RL2054.2 041500 DE-LETE. MOVE"*****"040700 THRUEND-ROUTINE-13CLOSEPRINT-FILE RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 041600MOVE"****TEST DELETED**040900EXIT 2 041700 RL2054.2 041800IF REC-CT NOTEQUAL041100STOP.RL2054. 041900MOVE"."041200INSPT I .ADD1java.lang.StringIndexOutOfBoundsException: Range [80, 46) out of bounds for length 80 042000MOVE REC-CT TO DOTVALUE. RL2054.2 042100MOVETO .PERFORM. .2 042200IF P-OR-F EQUALTO"FAIL*"41500DE-LETE "**** TO . 1 DELETE-COUNTER.RL2054. 042300PERFORM FAIL-ROUTINETHRU RL20542 042400ELSEPERFORM BAIL-OUT THRU BAIL-OUT-EX. RL2054041700.RL2054.2 042500 SPACE .MOVESPACETOCOMPUTED-XRL20542 042600MOVESPACETO CORRECT-X. RL2054.2 042700IF REC-CT EQUALTOZEROMOVESPACETO PAR-NAME. RL2054.2 042800MOVESPACETO RE-MARK. RL2054.2 042900 HEAD-ROUTINE. RL2054.2 043000MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2 043100MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 042400ELSE THRUBAIL-OUT-EX 2 043200MOVE CCVS-H-2B TO 042500 MOVE SPACE TO P-OR-F. COMPUTED-X.RL2054. 043300MOVE CCVS-H-3042600 SPACE CORRECT-X RL20542 043400 COLUMN-NAMES-ROUTINE. RL2054.2 043500MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2 043600MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 042800MOVESPACETORE-MARK .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 043700MOVE HYPHEN-LINE TO DUMMY-RECORD043000MOVETO .PERFORMWRITE-LINE2TIMES RL20542
.RL2054.2 043900MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL2054.2 044000 END-RTN-EXIT. RL2054.2 044100MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2 044200 END-ROUTINE-1. RL2054.2 044300ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO RL2054.2 044400 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. RL2054.2 044500ADD PASS-COUNTER TO ERROR-HOLD. RL2054.2 044600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL2054.2 044700MOVEPASS-COUNTERTOCCVS-E-4-1 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 044800MOVE ERROR-HOLD TO CCVS-E-4-2. RL2054.2 044900MOVE CCVS-E-4 TO CCVS-E-2-2. RL2054.2 045000MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. RL2054.2
045200MOVE"TEST(S) FAILED"TO ENDER-DESC. RL2054.2 045300IF ERROR-COUNTER ISEQUALTOZEROTO RL20542 045400MOVE"NO "TO ERROR-TOTAL RL2054.2 045500ELSERL2054. 045600MOVE ERROR-COUNTER TO ERROR-TOTAL. RL2054.2 045700MOVE CCVS-E-2 TO044800MOVEERROR-HOLD RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 045800PERFORM WRITE-LINE. RL2054.2 045900 END-ROUTINE-13. RL2054.2 046000IF DELETE-COUNTER ISEQUALTOZEROMOVETEST()FAILED . .2 MOVE"O "ELSE RL2054.2 046200MOVE DELETE-COUNTER TO ERROR-TOTAL. RL2054.2 046300MOVE"TEST(S) DELETED "TO ENDER-DESC. RL2054.2 046400MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2 046500IF INSPECT-COUNTER EQUALTOZERO RL2054.2 046600MOVE"NO "TO ERROR-TOTAL RL2054.2 046700ELSEMOVE INSPECT-COUNTER TO ERROR-TOTAL. RL2054.2 046800MOVE"TEST(S) REQUIRE INSPECTION"046000EQUALZERORL20542 046900MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2 047000MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054.2 047100 WRITE-LINE. RL2054.2 047200ADD1TO 046400 MOVE CCVS-E-2 TO WRITE-LINE java.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 80 047300IF RECORD-COUNT046600" ERROR-TOTALRL20542 047400MOVE DUMMY-RECORD TO046700ELSETO java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 047500MOVESPACETO DUMMY-RECORD 046900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL2054 047600WRITE 047700MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL2054.2 047800MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL2054.2 047900MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN RL2054.2 048000MOVE DUMMY-HOLD TO WRITE DUMMY-RECORD AFTER ADVANCING. 048100MOVE TOjava.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 80
RL2054.2 048300 WRT-LN. java.lang.StringIndexOutOfBoundsException: Range [48, 47) out of bounds for length 80 048400WRITE DUMMY-RECORD AFTERADVANCING1RL20542 048500MOVESPACETO DUMMY-RECORD. RL2054.2 048600 BLANK-LINE-PRINT. RL2054.2 048700PERFORM WRT-LN. RL2054.2 048800 FAIL-ROUTINE. RL2054.2 048900IF COMPUTED-X NOTEQUALTOSPACE RL2054.2048700java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80 049000GOTO 048900 IF COMPUTED-X NOT EQUAL java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 049100IF CORRECT-X NOTEQUALTOSPACE049100NOTTOjava.lang.StringIndexOutOfBoundsException: Range [72, 71) out of bounds for length 80 049200MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL2054.2
. RL2054.2 049400MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL2054.2 049500MOVESPACESTO INF-ANSI-REFERENCE. RL2054.2 049600GOTO FAIL-ROUTINE-EX. RL2054.2 049700 FAIL-ROUTINE-WRITE.RL20542 049800MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL2054.2 049900MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. RL2054.2 TO WRITE-LINE2..2 050100MOVESPACESTO COR-ANSI-REFERENCE. RL2054.2
.RL2054 050300 BAIL-OUT. RL2054.2 050400IFEQUAL .2 050500IF CORRECT-A EQUALTOSPACEGOTO BAIL-OUT-EX. RL2054.2 050600 BAIL-OUT-WRITE. RL2054.2 050700MOVE CORRECT-A TO XXCORRECT TO java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 050800MOVE ANSI-REFERENCE TO java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 80 TO. 2 051000MOVESPACESTO INF-ANSI-REFERENCE. 050800TO . .2 051100 BAIL-OUT-EX. EXIT. RL2054.2 051200 CCVS1-EXIT. java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80 051300EXIT. RL2054.2 051400 SECT-RL205-0001 SECTION. RL2054.2 051500 REL-INIT-001. RL2054.2 051600OPENOUTPUT RL-FD1. 051600 OPEN OUTPUT RL-FD1. RL2054 051700051800 RL-FD1 () . MOVE""TO1.RL20542 051900MOVE"R1-F-G"TO XRECORD-NAME (1). RL2054.2 052000MOVEZEROTO XRECORD-NUMBER (1). RL2054.2 052100MOVE". (. RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 052200MOVE000240TO XRECORD-LENGTH 000240 (1. RL2054. TO (). .2 052400MOVE"RC"TO CHARS-OR-RECORDS (1). 052400MOVE RC 1.RL20542 052500MOVE"RL"TO XFILE-ORGANIZATION (1). RL2054.2 052600MOVE"S"TO XLABEL-TYPE (1). RL2054.2 052700MOVE000300TO RL-FD1-FILESIZE. RL2054.2 052800MOVE000300TO RECORDS-IN-FILE (1). RL2054.2 052900MOVE00001TO WRK-RL-FD1-RECKEY. RL2054.2 MOVE00300TO RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 053100MOVEZEROTO EXCUT-COUNTER-06V00. RL2054.2 MOVEZERO INV-KEY-COUNTER .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
PAR-NAME java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 053400MOVEZEROTO REC-CT. 054000 (.RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 053500MOVE"RL-FS2"TO XFILE-NAME (2). RL2054.2 053600MOVE"R1-F-G"TO054300"" () RL20542 053700MOVEZEROTO XRECORD-NUMBER (2). RL2054.2 053800MOVE".XXX."TO MOVE 00300 TO RECORDS-IN-FILE (2). RL2054.2 053900MOVE000240TO XRECORD-LENGTH (2). RL2054.2 054000MOVE0001TO XBLOCK-SIZE (2). RL2054.2 054100MOVE"RC"0549001 RL20542 054200MOVE"RL"TO XFILE-ORGANIZATION (2). RL2054.2 054300MOVE"S"TO XLABEL-TYPE (2) java.lang.StringIndexOutOfBoundsException: Range [39, 37) out of bounds for length 80 054400MOVE00300TO RL-FS2-FILESIZE.RL2054.2 054500MOVE00300TO RECORDS-IN-FILE (2). RL2054.2 054600MOVE00001TO 055300 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY.2 054700MOVE00300TO WRK-DU-05V00-004. RL2054.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 054900ADD0001TO XRECORD-NUMBER (1). RL2054.2
() . 055100MOVE WRK-RL-FD1-FILLER TO ALTERNATE-KEY1 (1). RL2054.2 055200MOVE FILE-RECORD-INFO (1) TO 055800 ADD 00001 TO WRK-RL-FD1-RECKEY. MOVE WRK-RL-FD1-RECKEY TORL-FD1-KEY. .2 055400056000IF1)LESS . KEY RL20542 055600ADD000001TO 056200 CLOSE RL-FD1. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 055700ADD000001TO056400 CREATE .RL20542 055800 .RL20542 055900SUBTRACT00001FROM WRK-DU-05V00-002. 056600 java.lang.StringIndexOutOfBoundsException: Range [41, 39) out of bounds for length 80 056000IF XRECORD-NUMBER (1) LESSTHAN RL-FD1-FILESIZE RL2054. java.lang.StringIndexOutOfBoundsException: Range [47, 45) out of bounds for length 80 056100GOTO 057000 MOVE "INCORRECT " java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 056200CLOSE RL-FD1. RL2054.2 056300 REL-TEST-001-01. RL2054.2 056400MOVE"CREATE FILE RL-FD1"TO FEATURE. RL2054.2 056500MOVE01TO REC-CT. RL2054.2 java.lang.StringIndexOutOfBoundsException: Range [48, 45) out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Range [41, 39) out of bounds for length 80
RL2054 056800MOVE RL-FD1-FILESIZE TO CORRECT-N RL2054.2 056900MOVE EXCUT-COUNTER-06V00 TO COMPUTED-N RL2054.058000* RL2054.2 057000MOVE"INCORRECT NUMBER OF WRITES"TO RE-MARK RL2054.2 057100PERFORM PRINT-DETAIL RL2054.2 057200GOTO REL-INIT-001-R2. RL2054.2 057300IF INV-KEY-COUNTER NOT058500.RL2054.2 057400PERFORM FAIL RL2054.2 057500MOVE INV-KEY-COUNTER TO COMPUTED-N RL2054.2 057600MOVEZEROTO CORRECT-N RL2054.2 057700MOVE"INVALID KEY ON WRITE"TO RE-MARK RL2054.2 057800PERFORM 058900 ADD 0001 TO XRECORD-NUMBER. RL2054.2 057900GOTO REL-INIT-001-R2. RL2054.2 058000* RL2054.2 058100* 01 RL2054.2 058200* RL2054.2 058300PERFORM PASS. RL2054.2 058400PERFORM REL-WRITE-001. RL2054.2 058500 REL-INIT-001-R2. RL2054.2 058600MOVEZEROTO RL20542 058700MOVEZEROTO EXCUT-COUNTER-06V00. RL2054.2 058800 REL-TEST-001-R2. RL2054.2 058900ADD0001TO XRECORD-NUMBER (2). RL2054.2 059000MOVE WRK-RL-FS2-RECKEY TO XRECORD-KEY (2). RL2054.2 059100MOVE WRK-RL-FS2-FILLER TO ALTERNATE-KEY1 (2). RL2054.2 059200MOVE FILE-RECORD-INFO (2) TO RL-FS2R1-F-G-240060300 C java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 059300WRITE RL-FS2R1-F-G-240 RL2054.2 059400INVALIDKEY RL2054.2 059500ADD000001TO INV-KEY-COUNTER. 060700 MOVE RL-FS2-FILESIZE TO CORRECT-N RL2054CORRECT-N . 059600ADD000001TO MOVE "INCORRECTWRITESRE-MARK2 059700ADD00001TO WRK-RL-FS2-RECKEY. RL2054.2 059800SUBTRACT00001FROM WRK-DU-05V00-004. RL2054.2 059900IF XRECORD-NUMBER (2) LESSTHAN RL-FS2-FILESIZE RL2054.2 060000GOTO REL-TEST-001-R2. RL2054.2 060100CLOSE RL-FS2. RL2054.2 060200 REL-TEST-001-02. RL2054.2 060300MOVE"CREATE FILE RL-FS2"TO FEATURE. RL2054.2061600PERFORM .2 060400MOVE02TO 061800 MOVE ZERO 060500IF EXCUT-COUNTER-06V00 NOTEQUALTO RL-FS2-FILESIZE RL2054.2 060600PERFORM FAIL RL2054.2 060700MOVE RL-FS2-FILESIZE TO CORRECT-N RL2054.2 060800MOVE EXCUT-COUNTER-06V00 TO COMPUTED-N RL2054.2 060900MOVE"INCORRECT NUMBER OF 060900 MOVE "INCORRECT NUMBER OF WRITES 061000PERFORM PRINT-DETAIL RL2054.2 061100GOTO REL-EXIT-001. RL2054.2 061200* RL2054.2 061300* 02 RL2054.2 061400* RL2054.2 061500IF INV-KEY-COUNTER NOT java.lang.StringIndexOutOfBoundsException: Range [11, 6) out of bounds for length 80 061600 FAILRL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 061700MOVE INV-KEY-COUNTER TO COMPUTED-N RL2054.2 061800MOVEZEROACCESS .2
RL2054.2 062000PERFORM PRINT-DETAIL RL2054.2 062100GOTO REL-EXIT-001. RL2054.2
.2 062300PERFORM REL-WRITE-001. RL2054.2 062400 .RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 062500063900MOVEZEROTO. 2 062600PERFORM PRINT-DETAIL. RL2054.2 062700 REL-DELETE-001. . 062800PERFORM DE-LETE. RL2054.2 062900PERFORM PRINT-DETAIL. RL2054.2 063000 REL-EXIT-001. RL2054.2
. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 063200 REL-INIT-002. RL2054.2 063300PERFORM BLANK-LINE-PRINT. RL-FD1NEXT2 063400MOVE" FILE . 063500- "ACCESS MODE IS DYNAMIC."TO PRINT-REC RL2054.
.RL20542 063700PERFORM BLANK-LINE-PRINT. RL2054.2 063800MOVE"READ NEXT"TO FEATURE. RL2054.2 063900065600* 01 RL2054.2 064000MOVE"REL-TEST-002"TO PAR-NAME. 065800.RL2054.2 064100 REL-INIT-002-R1. RL2054.2 064200OPENINPUT RL-FD1. RL2054.2 064300PERFORMjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 064400 REL-TEST-002-R1. RL2054.2 064500READ RL-FD1 NEXT. RL2054.2 064600MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO 066400 REL-INIT-002-R2.RL2054.2 064700PERFORM REL-VERIFY-002 RL2054.2 064800IF EXCUT-COUNTER-06V00 LESSTHAN10 RL2054.2 064900GO RL20542 065000CLOSE RL-FD1. RL2054.2 065100 MOVE01 . . 065300PERFORM REL-TEST-002. RL2054.2 065400GOTO REL-EXIT-002-01. RL2054.2 065500* RL2054.2 065600* 01 RL2054.2 065700* RL2054.2 065800 REL-DELETE-002-01. RL2054.2 065900MOVE01TO 067600 IF EXCUT-COUNTER THAN RL20542 066000PERFORM DE-LETE. RL2054.2 066100PERFORM REL-WRITE-002. RL2054.067800 .RL2054. 066200 REL-EXIT-002-01. RL2054.2 066300 066400 REL-INIT-002-R2. RL2054.2 066500PERFORM REL-INIT-002-R. RL2054.2 066600OPENINPUT RL-FD1. RL2054.2 066700 REL-TEST-002-R2. RL2054.2 066800MOVESPACETO FILE-RECORD-INFO (9). RL2054.2 066900MOVESPACETO FILE-RECORD-INFO (1). RL2054.2 067000READRL-FD1NEXT2 067100INTO FILE-RECORD-INFO (9). RL2054.2 067200MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2 067300PERFORM REL-VERIFY-002 .2 067400IF PERFORM REL-WRITE-002RL20542 067500ADD000100TO ERROR-COUNTER-06V00. RL2054.2 067600IF EXCUT-COUNTER-06V00 LESSTHAN10 RL2054.2 067700GOTO REL-TEST-002-R2. java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80 067800CLOSE RL-FD1. RL2054.2 067900 REL-TEST-002-02. RL2054.2 068000MOVE02TO REC-CT. RL2054.2 068100PERFORM REL-TEST-002. RL2054.2 068200* RL2054.2 068300* 02 RL2054.2 068400* RL2054.2 TO REL-EXIT-002-02 2 0686002 068700MOVE02TO REC-CT. RL2054.2 068800PERFORM DE-LETE. RL2054.2 068900PERFORM REL-WRITE-002. RL2054.2 069000 REL-EXIT-002-02. RL2054.2 069100EXIT. RL2054.2 069200 REL-INIT-002-R3. java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80 069300OPENINPUT RL-FD1. RL2054.2 069400PERFORM REL-INIT-002-R.RL2054.2 069500 REL-TEST-002-R3. RL2054.2 069600MOVESPACETO FILE-RECORD-INFO (9). RL2054.2 069700MOVESPACETO FILE-RECORD-INFO (1). RL2054.2 069800READ RL-FD1 NEXT RL2054.2 069900INTO FILE-RECORD-INFO (9). RL2054.2 070000MOVE071600 .RL2054. 070100PERFORM PERFORM REL-WRITE-002. RL2054.2 070200 ( EQUAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 070300ADD000100TO ERROR-COUNTER-06V00. RL2054.2 070400IF EXCUT-COUNTER-06V00 LESSTHAN10 RL2054.2 070500GOTO REL-TEST-002-R3. RL2054.2 070600CLOSE .2 070700 REL-TEST-002-03. RL2054.2 070800MOVE03TO REC-CT. RL2054.2 070900 .RL20542 071000* RL2054.2 071100* 03 RL2054.2 071200* RL2054.2 071300GOTO REL-EXIT-002-03. RL2054.2 071400 REL-DELETE-002-03. RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 071500MOVE03TO REC-CT. RL2054.2
.RL2054.2 071700PERFORM REL-WRITE-002. RL2054.2 071800 REL-EXIT-002-03. RL2054 IFTHAN java.lang.StringIndexOutOfBoundsException: Range [72, 69) out of bounds for length 80 071900EXIT. RL2054 .2 072000 REL-INIT-002-R4. RL2054.2 072100OPENINPUT RL-FD1. RL2054.2 072200PERFORM REL-INIT-002-R074100* NAME NEXTINTO IDENTIFIER ATEND". THE TEST READS THE FILE RL2054.2 072300MOVE RL-FD1-FILESIZE TO ERROR-COUNTER-06V00. RL2054.2
072400ADD000001TOERROR-COUNTER-06V00. .2 072500 REL-TEST-002-R4. RL2054.2
.2 072700MOVESPACETO FILE-RECORD-INFO (1). RL2054.2 072800READ RL-FD1 NEXT075000PERFORM .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 072900 GO TO REL-EXIT-002-04. 073000GOTO 075300 REL-DELETE-002-04. . 073100MOVE075400 RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 PERFORM REL-VERIFY-002. RL2054.2 073300IF XRECORD-NUMBER (9) NOTEQUALTO LOGICAL-FILE-REC RL2054.2 073400ADD00100TO ERROR-COUNTER-06V00. RL2054.2 073500IF EXCUT-COUNTER-06V00 GREATERTHAN RL-FD1-FILESIZE RL2054.2 073600NEXTSENTENCE RL2054.2 073700ELSE RL2054.2 073800GOTO 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
. 2 074900MOVE04TO REC-CT. RL2054.2 075000PERFORM REL-TEST-002. RL2054.2 075100* .04 RL2054.2
TO. . 075300 REL-DELETE-002-04. RL2054.2 075400MOVE04TO REC-CT. RL2054.2 075500PERFORM DE-LETE. RL2054.2 075600PERFORM REL-WRITE-002. RL2054.2
077800* .05 RL2054.2 077900 GO TO 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 078500EXIT. RL2054.2 078600 REL-INIT-002-R6. RL2054.2 078700 OPEN INPUT RL-FD1. RL2054.2 078800 PERFORM REL-INIT-002-R. RL2054.2 078900 MOVE ZERO TO WRK-RL-FD1-RECKEY. RL2054.2 079000 REL-TEST-002-R6. RL2054.2
SPACE --() .2 079200 MOVE SPACE TO 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
- INTO -- (.RL2054.2 079700 MOVE RL-FD1R1-F-G-240 TO FILE-080700* .06 079800080800GOTO-XIT002-6 . 079900IF XRECORD-NUMBER080900REL--02-6 CT 080000 ADD 000100 TO ERROR-COUNTER-06V00081200PERFORMREL--.RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 080100IF EXCUT-COUNTER-06V00 LESS THAN081400EXIT.RL2054.2 080200 REL-TEST002R6 2
RL.RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 080400 REL-TEST-002-06. RL2054.2
REC 2
java.lang.StringIndexOutOfBoundsException: Range [20, 18) out of bounds for length 80 080700* .06 RL2054.2 00206 . 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. -java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80 081300 REL-EXIT-002-06. RL2054.2 081400EXIT. RL2054.2 081500 -002R7. 2 081600 OPEN INPUT RL-FD1. RL2054.2 081700 PERFORM REL-INIT-002-R. RL2054.2 081800 MOVE ZERO TO WRK-RL-FD1-RECKEY. RL2054.2 081900 MOVE ZERO TO LOGICAL-FILE-REC. RL2054.2 082000 REL-TEST-002-R7. RL2054.2 082100 MOVE SPACE 083300PERFORM REL--.RL2054. 082200 ADD 00005 TO WRK-RL-FD1-RECKEY. RL2054.2 082300 ADD 0004 TO LOGICAL-FILE-REC. RL2054.2
WRK--- RL-FD1KEY. RL2054.2 082500 READ RL-FD1 083600REL--002-07.RL2054. 082600 MOVE RL-FD1R1-F-G-240 TO FILE-083700 MOVE -. RL20542 082700 PERFORM REL-VERIFY-002. RL2054.2 082800IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 082900 GO TO REL-TEST-002-R7. RL2054.2 083000 CLOSE RL-FD1. RL2054.2
-TEST-.RL2054.2 083200 MOVE 07 TO REC-CT. RL2054.2 083300 PERFORM REL-TEST-002. RL2054.2 083400* .07 RL2054.2 083500 GO TO REL-EXIT-002-07. RL2054.2 083600 REL-DELETE-002-07. RL2054.2 083700 MOVE 07 TO REC 00005 --FD1 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 083800 PERFORM DE-LETE085000READ FD1 . 083900 PERFORM REL-WRITE-002. RL2054.2 084000 REL-EXIT-002-07. EXCUT06 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.RL2054.2 084200 REL-INIT-002-R8. RL2054.2 084300 OPEN INPUT RL-085600 REL-TEST-002-08. .2 084400 PERFORM REL-INIT-002-R. RL2054.2 084500 MOVE 00301 TO WRK-RL-FD1-RECKEY. RL2054.2 084600 MOVE SPACE TO 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 RECORD INVALID RL2054.2 085100 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2 085200 ADD 000001 TO EXCUT-COUNTER-06V00. 086500 REL-EXIT-002-08. RL2054 085300IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 085400 GO TO 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 GO TO 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 086500EXIT--. 2 086600EXIT. RL2054.2 086700 --002R9RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 086800 OPEN INPUT RL-FD1. RL2054.2 086900 PERFORM REL-INIT-002-R. RL2054.2
MOVE00301 -L--. .2 087100 MOVE SPACE TO RL-FD1R1-F-G-240. RL2054.2
RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 00004 WRK-FD1java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 087400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 087500 MOVE SPACE TO FILE-RECORD-INFO (1). RL2054.2 087600 RL-D1INVALIDKEYRL2054 087700 SUBTRACT 000001 FROM 089000 PERFORM REL-WRITE-002. 1TOEXCUT-06.RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 087900IFEXCUT-0600LESS .2 088000 GO TO 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 GO TO REL-EXIT-002-09089900 --6. RL20542 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 GO TO REL-EXIT-002. RL2054.2 089300 REL-INIT-002-R. RL2054.2 089400 MOVE 00010 TO ERROR-COUNTER-06V00. RL2054.2 089500 MOVE ZERO TO EXCUT-COUNTER-06V00. RL2054.2 089600090800 ZEROTO- RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 089700 MOVE ZERO TO LOGICAL-FILE-REC. RL2054.2 089800 RELVERIFY002 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 089900 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2 090000 ADD 000001 TO LOGICAL-FILE-REC. RL2054.2 090100IF XRECORDNUMBER()EQUALTO LOGICAL-- RL2054. 090200 SUBTRACT 000001 FROM ERROR-COUNTER-06V00091500 MADE --V00 2 090300 --002 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 090400IF ERROR-COUNTER-06V00 EQUAL TO ZERO 091800* AND THE NUMBER OF TIMES THE UNEXPECTED ACTION OCCURRED RL2054 090500 PERFORM PASS RL2054.2 0906002 090700 PERFORM FAIL RL2054.2 090800 MOVE ZERO TO 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.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
* TEST IS EXECUTED 10 TIMESEXCEPTFORRELTEST-02-4RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
IS EXECUTED 300 TIMES. FOLLOWING THELAST RL2054. 091500* 092800* RIGHT) 2 KEYCONDITIONS AND3 RECORDS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 091600* EXPECTED TO BE ZERO. IF ERROR-COUNTER06V00 NOTRL2054. 093000 091800* AND THE NUMBER OF TIMES THEUNEXPECTEDACTION OCCURRED RL2054. 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 WAS EXPECTED FOLLOWING A READ OR RL2054. 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., VALUE093800 STATEMENT WAS NOT RECORDRL20542 092700* THAT OF THE 093900 FOLLOWING THERL2054. 92800*RIGHT 2 INVALID KEY CONDITIONS AND3RECORDS RETRIEVED RL20542 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*COMPUTEDRESULT INDICATED RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 093400* INCREMENTS ACTION .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 093500* RL2054.2 093600* 000100 THE RECORD FOUND IN THE IDENTIFIER RL2054.2 093700* SPECIFIED IN THEINTO PHRASE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 093800* STATEMENT WASNOTTHERECORD .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 093900* EXPECTED FOLLOWING EXECUTION OF THE RL2054.2 094000*READ. .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 .2 095500 REL-096200 "CCESS MODE IS SEQUENTIAL" PRINTREC 2 095600EXIT. RL2054.2 095700 REL-INIT-003. RL2054.2 095800 OPEN INPUT RL-FD1096400 --PRINT. RL2054.2 095900 OPEN INPUT RL-FS2TO FEATURERL2054. 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
STARTTO"TO . .2 096600 MOVE "REL-TEST-003" TO PAR-NAME. RL2054.2 096700 MOVE ZERO TO REC-CT. RL2054.2 096800 PERFORM REL-INIT-003-R. RL2054.2 096900 REL-TEST-003-R1097400010000ERROR06 RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 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 RECORD AT END RL2054.2 097400 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 097500 GOTO REL--003-01. RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 097600 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2 097700 PERFORM REL-VERIFY-003A. RL2054.2 097800IF EXCUT-COUNTER-06V00 LESS THAN 10 098100 MOVE 01 TO REC-CT. RL2054
GO TO REL-TEST003R1. .2 098000 REL-TEST-003-01. RL2054.2 098100 MOVE 01 TO REC-CT. RL2054.2
PERFORM REL-EST-003. RL20542 098300* .01 RL2054.2 098400 GO TO 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 098900EXIT. 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 KEY EQUAL TO RL-FS2-KEY. RL2054.2 099600 READ RL-FS2 RECORD AT END RL2054.2 099700 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 099800 GO TO REL-TEST-003-02099900 MOVE RLFS2R1-FG-240 TO --INFO () RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 099900 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2
PERFORM REL-VERIFY-03. RL20542 100100IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 100200 GO TO 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 GO TO REL-EXIT-003-02. RL2054.2
.2 100900 MOVE 02 TO REC-CT. RL2054.2 101000 PERFORM DE-LETE. RL2054.2 101100 PERFORM REL-WRITE-003. RL2054.2
-003-02. .2 101300EXIT. RL2054.2 101400 REL-INIT-03-. RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 101500 PERFORM REL-INIT-03R .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 KEY IS EQUAL 101500 PERFORM REL-INIT-003-R. RL2054.2
RL- RECORDATEND . 102100 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 102200 GO TO 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 102500IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 102600 GO TO 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 GO TO REL-EXIT-003-03. RL2054.2 103200 --003-3. .2 103300 MOVE 03 TO REC-CT. RL2054.2 103400 PERFORM DE-LETE. 102700RELTEST003-03. RL2054. 103500 PERFORM REL-WRITE-003. RL2054.2 103600 REL-EXIT-003-03. RL2054.2 103700EXIT. 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 KEY IS EQUAL RL-FS2-KEY. RL2054.2
FS2 RECORD END . 104500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 104600 GO TO 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 104900IF EXCUT-COUNTER-06V00 LESS THAN104000RELTEST-R4 RL2054.2 105000 GO TO REL-TEST-003-R4. RL2054.2 105100 REL-TEST-003-04. 104200 MOVE WRK---RECKEYTORL-S2KEY. .2 105200 MOVE 04 TO REC-CT. RL2054.2 105300 PERFORM REL-EST-003. RL2054.2 105400* .04 RL2054.2 105500 GO TO 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
.2 106000 REL-EXIT-003-04. RL2054.2 106100EXIT. RL2054.2 106200 REL-INIT-003-R5. REL-TEST-00304. RL2054.2 106300 PERFORM REL-INIT-003-R. RL2054.2 106400 REL-105300 PERF RELTEST-. RL20542 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 KEY IS = RL-FS2-KEY. RL2054.2 106800 READ -FS2 RECORD AT END .2 106900 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 107000 GO TO 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 107300IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 107400 GO TO REL-TEST-003-R5. RL2054.2 107500 REL-TEST-003-05. RL2054.2 107600 MOVE 05 TO REC-CT. RL2054.2
-TEST-003. RL2054.2 107800* .05 RL2054.2 107900 GO TO 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 108500EXIT.107000GO TO RELTEST003-5. RL2054..2 108600 REL-INIT-003-R6. RL2054.2
PERFORM REL-INIT-003-. RL20542 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-KEY107500RELTEST--05. RL2054.2 107600MOVE05 TO -CT. RL2054. 109400 READ RL-FS2 RECORD AT END RL2054.2 109500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 109600 GO TO 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 109900IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 110000 GO TO 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 GO TO REL-EXIT-003-06. RL2054.2 110600 REL-DELETE-003-06. RL2054.2 110700 MOVE 06 TO REC-. RL20542 110800 PERFORM DE-LETE. RL2054.2 110900 PERFORM REL-WRITE-003. RL2054.2 111000REL--003-06. .2 111100EXIT. RL2054.2 111200 REL-INIT-003-R7. RL2054.2 111300 PERFORM REL-INIT-003-R. RL2054.2 111400 ADD 000001TOLOGICAL--REC RL2054.2 111500 REL-TEST-003-R7. RL2054109400READRL-FS2 AT RL2054. 111600 ADD 00003 TO WRK-RL-FS2-RECKEY. RL2054.2 111700 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2 109700 MOVE RL--F-G240TO FILE--RECORD-INFO (2). RL2054.2 111900 READ RL-FS2 RECORD AT END RL2054.2 112000 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 112100 GO TO 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 112400IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 112500 GO TO REL-TEST-003-R7. RL2054.2 112600 REL-TEST-003-07. RL2054.2 112700 MOVE 07 TO REC-CT. .2 112800 PERFORM REL-TEST-003. RL2054.2 112900* .07 RL2054.2 113000 GO TO REL-EXIT-003-07. RL2054.2 113100 REL-DELETE-003-07. RL2054.2 113200 MOVE 07 TO REC-CT. RL2054.2
-LETE. 2 113400 PERFORM REL-WRITE-003. RL2054.2 113500RELEXIT- 2 113600EXIT. RL2054.2 113700 REL-INIT-003-R8. RL2054.2 113800 PERFORM REL-INIT-003-R. 111300 PERFORM REL-INIT-003-R. RL2054 113900 ADD 00001 TO LOGICAL-FILE-REC. RL2054.2 114000 REL-TEST-003-R8. RL2054.2 114100 ADD 00003 TO WRK-RL-FS2-RECKEY. 111700 MOVE WRK-L-FS2-RECKEY TO RL-FS2-KEY. RL2054.2 114200 MOVE WRK-RL-FS2-RECKEY TO RL-111800 STARTRL-S2 KEY THAN RL-S2-.RL2054 114300 START RL-FS2 KEY IS GREATER RL-FS2-KEY. RL2054111900 RLFS2 RECORD AT END RL2054.2 114400 READ RL-FS2 RECORD AT END RL2054.2 114500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 114600 GO TO REL-TEST-003-08. RL2054.2
-FS2R1---240TO FILE-RECORD-INFO () RL2054.2 114800 PERFORM REL-VERIFY-003A. RL2054.2 114900IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 115000 GO TO 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 GO TO REL-112900 .7 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.113400PERFORM RELWRITE-003 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 116100EXIT. 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
MOVEWRK-RL-FS2-RECKEY RL-FS2-KEY. RL2054. 116800 START RL-FS2 KEY IS > RL-FS2-KEY. RL2054.2 116900 READ RL-FS2 RECORD AT END RL2054.2 117000 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 117100 GO TO 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 117400IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 117500 GO TO 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 GO TO 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 118600EXIT. 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-FS2-RECKEY TO RL-FS2-KEY. RL2054.2 119300 START RL-FS2 KEY > RL-FS2-KEY. RL2054.2 119400 READ RL-FS2 RECORD AT END RL2054.2 119500 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 119600 GO TO REL116400ADD 00001 TO LOGICAL-FILE-REC.RL2054.2 119700 MOVE RL-FS2R1-F-G-240 TO FILE-RECORD-INFO (2). RL2054.2 119800 PERFORM REL-VERIFY-003A. RL2054.2 119900IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 120000 GO TO 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 GO TO 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 121100EXIT. RL2054.2 121200 REL-INIT-003-118100 --.RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 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--INIT--.RL2054.2
-RLRECKEY -- 2 121800 START RL-FS2 KEY IS NOT LESS THAN RL-FS2-KEY. RL2054.2 121900 READ RL-FS2 RECORD AT END RL2054.2 122000 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 122100 GO TO REL-TEST-003-11. RL2054.2 122200 MOVE RL119400READ RECORDATENDRL20542 122300 PERFORM REL-VERIFY-003A. RL2054.2 122400IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 122500 GO TO 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 GO TO REL-EXIT-003-11. RL2054.2 123100 REL-DELETE-003-11. RL2054.2
RECCT .2 123300 PERFORM DE-LETE. RL2054.2 123400 PERFORM REL-WRITE-003. RL2054.2 123500 REL-EXIT-003-11. RL2054.2 123600EXIT. 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 KEY IS NOT LESS RL-FS2-KEY. RL2054.2 124300 READ RL-FS2 RECORD AT END RL2054.2 124400 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 124500 GO TO 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 124800IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 124900 GO TO 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 GO TO 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. .2 125800 PERFORMREL-003 RL2054. 125900 REL- ('outer outer_iterations, 126000EXITRL2054.2 126100 REL-INIT-003-R13 2 126200 PERFORM java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 1 126300 -TEST-003-R13. RL2054.2 126400 struct timeval,end diff; 126500 MOVE structstats fb_time_stats tb_time_stats;
- LESS --. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 126700 READ RL-FS2 RECORD #ifndef 126800 ADD 010000 TO ERROR-COUNTER for_each_set_bitbit,, java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
TO REL-TEST00313. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 127000 MOVE ----240TO -INFO().RL2054
--A .2
RL2054.2
-003-. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 127400 -TEST00313.
(\"; 127600 PERFORM REL-TEST-003. RL2054.2 127700* .13 127800 GO TO 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 128400EXIT. RL2054.2 128500 REL-INIT-003-R14. 126000EXIT. RL20542 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 KEY IS NOT < RL-FS2-KEY. RL2054.2 129100 READ RL-FS2 RECORD AT END RL2054.2 129200 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2 129300 GO TO 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 129600IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 129700 GO TO 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 GO TO 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 130800EXIT. 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 KEY IS EQUAL TO RL-FD1-KEY INVALID KEY RL2054.2 132100 ADD 010000 TO ERROR-COUNTER-06V00. RL2054.2 132200 READ RL-FD1 NEXT RECORD AT END RL2054.2 132300 ADD 010000 TO ERROR-COUNTER-06V00 RL2054.2
RELTEST-003-5.RL20542 132500 MOVE RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1). RL2054.2 132600 PERFORM REL-VERIFY-003B. RL2054.2 132700IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 132800 GO TO 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 GO TO 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 133900EXIT. 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. 132000 STARTRLFD1 KEY IS EQUAL TO RL-FD1-EY INVALID KEYRL2054. 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 KEY IS EQUAL TO RL-FD1-KEY INVALID RL2054.2 134900 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2 135000 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2 135100IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 135200 GO TO 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 GO TO 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
--003 .2 133700 PERFORMRELWRITE. RL2054. 136300EXIT. 133800 REL-EXIT-003-15. RL2054 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 INVALID KEY RL2054.2 137200 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2 137300 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2
-OUNTER-V00 10 RL2054. 137500 GO TO REL-TEST-003-R17. 135000 ADD 000001 TOEXCUT-COUNTER-06V00. RL2054.2 137600 REL-TEST-003-17. RL2054.2 13770017 -. . 137800 PERFORM REL-TEST135200 GO TO RELTEST-003-R16.RL20542 135300RELTEST--16. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
TOEXIT17 . 138100 REL-DELETE-003-17. RL2054.2 138200 MOVE 17 TO REC-CT GO TO -EXIT-. RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 138300 PERFORM DE-LETE. RL2054.2 138400 PERFORM REL-WRITE-003. 135900 MOVE 16 TOREC-CT. .2 138500 REL-EXIT-003-17. RL2054.2 138600EXIT. RL2054.2 138700 REL-INIT-003-R18. RL2054.2 138800 PERFORM REL-INIT-003-R. EXIT. RL2054.2 138900 MOVE RL136400REL-INIT--R17 . 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
RLFD1-TO-FD1- .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 139400 START RL-FD1 ; INVALID KEY RL2054.2 139500 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2 139600 ADD 000001 TO EXCUT-COUNTER-06V00. RL2054.2 139700IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 139800 GO TO 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 GO TO REL-EXIT-003-18. RL2054.2 140400 REL-DELETE-003-18. RL2054.2 140500 138100 REL-DELETEDELETE-03-72 140600 PERFORM DE-LETE. 2 140700 REL-RITE-03. RL20542 140800 REL-EXIT-003-18. RL2054.2 140900EXIT. RL2054.2 141000 REL-INIT-003-R19.138500RELEXIT00317 RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 141100 PERFORM REL-INIT-003-R. RL2054.2 141200 MOVE RL-FD1-138800 PERFORM REL-INIT-003-R..
MOVE WRK-L-D1-ECKEY TO RL-D1-. RL2054. 141400139000 RL-D1-ILESIZE TOWRKRLFD1RECKEY. RL20542 141500 ADD 000002 TO WRK-RL-FD1-RECKEY. RL2054.2 141600 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 141700 START139300MOVEWRK-RL-D1-ECKEYTO RL-D1-EY. 141800000001 FROM ERROR--06V00. . 141900 ADD TO EXCUT-OUNTER-06V00.RL2054 142000IF EXCUT-COUNTER-06V00 LESS THAN 10 RL2054.2 142100 GO TO RELTEST003R19 .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 GO TO 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 143200EXIT. RL2054.2 143300 REL-INIT-003-R. EXIT003-8 143400 MOVE ZERO TO LOGICAL-FILE-REC. RL2054.2 143500 MOVE ZERO TO EXCUT-COUNTER-06V00. RL2054.2 143600 MOVE 00055 TO WRK-DU-05V00-002. RL2054.141200MOVE -FD1 WRK-L-D1-. 2 143700 MOVE 00050 TO WRK-DU-05V00-004. RL2054.2 143800 MOVE ZERO TO WRK-RL-FS2-RECKEY. RL2054.2 143900 WRKRL-RECKEY. RL2054. 144000 MOVE 10 TO ERROR-COUNTER-06V00. RL2054.2 144100 REL-VERIFY-003A. RL2054.2
.2 144300 ADD 000003 TO LOGICAL-FILE-REC RL2054.2 144400ELSE RL2054.2 144500 SUBTRACT 000003 FROM LOGICAL-FILE-REC. RL2054.2 144600IF LOGICAL-FILE-REC EQUAL TO 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 145000IF ASCEND RL2054.2 145100 ADD 000002 TO LOGICAL-FILE-REC RL2054.2 145200ELSE RL2054.2 145300 SUBTRACT 000002 FROM LOGICAL-FILE-REC. RL2054.2 145400IF LOGICAL-FILE-REC EQUAL TO XRECORD-NUMBER (1) RL2054.2 145500 SUBTRACT 000001 FROM ERROR-COUNTER-06V00. RL2054.2 145600000001 TO EXCUTCOUNTER-06V00. RL2054. 145700 REL-TEST-003. .RL2054.2 145800IF EXCUT-COUNTER-06V00 NOT EQUAL RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 145900 MULTIPLY 100 BY EXCUT-COUNTER-06V00 RL2054.2 146000 EXCUT--V00 --06. RL2054.2 146100IF143700 TO WRK-U-5V00-04 RL20542 146200 PERFORM PASS RL2054.2 146300ELSE RL2054.2 146400 PERFORM FAIL RL2054.2 146500 MOVE ZERO TO CORRECT-N RL2054.2 146600 MOVE ERROR-COUNTER-06144200IF ASCEND RL20542 146700 MOVE "SEE PARA. - REL-TEST-003"144300ADD000003 TOLOGICAL-ILE-EC RL2054. 146800 PERFORM REL-WRITE-003. RL2054.2 146900* RL2054.2
RL2054.2 147100* EXECUTION A TEST IS144700000001FROMERRORCOUNTER06. . 147200*EXPECTEDTO .IF--V00 NOT RL2054. 147300* THE VALUE144900RELVERIFY003. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 147400* AND THE NUMBER OF TIMES145100000002 -ILEREC .
.2 147600* IS LOADED WITH THE VALUE 10. EACH TIME 000002FROMLOGICALFILEREC .
EAD OR INVALID RL20542 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 IS145800IF EXCUT-OUNTER06NOT TO 000010 .2 148200* FOR THE ACTION LISTED BELOW, E.G., VALUE 20003 WOULD INDICATERL2054.2 148300* THAT OF THE 10 EXECUTIONS DURING (EADING LEFT TO RL2054. 148400* RIGHT146100IFERROR-OUNTER-06V00 EQUALTO ZERO RL2054. 148500*THE READ OR START WAS NOT AS EXPECTED. RL20542 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 147200* EXPECTED BE. IFERROR-OUNTER-6NOT ZERORL20542 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 147700* WAS MADE AVAILABLE FOLLOWING THE READ, OR AN INVALID KEY RL2054 150200* AT END PHRASE HAS NOT BEEN SPECIFIED. RL2054.2
.2 150400 REL-WRITE-003. RL2054.2 150500 PERFORM PRINT-DETAIL. RL2054.2 150600 REL-END-003. RL2054.2 150700 CLOSE RL-FD1. RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 150800 CLOSE RL-FS2. RL2054.2 150900 REL-EXIT-003. RL2054.2 151000EXIT. RL2054.2 151100* RL2054.2 151200* THE FOLLOWING SECTION CONTAINS ALL THE NEW TESTS FOR8X: RL2054.2 151300* RL2054.2 151400 COBOL-X-ESTS SECTION. 2 151500*========================== RL2054.2 151600149200 . 2 151700 MOVE "XVII-70 2.2.37" TO ANSI-REFERENCE. RL2054.2 151800 MOVE "REL-8X-TEST-1" TO PAR-NAME. RL2054.2
IORL-D1RL2054.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 GO TO REL-8X-DELETECONDITION OCCURRED. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 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 RL2054.2 152900 WRITE RL-FD1R1-F-G-240 RL2054.2150400 -RITE-032 153000 INVALID KEY RL2054.2 153100 MOVE "INVALID KEY ON WRITING NEW 1ST RECORD" .2 153200 TO RE-MARK RL2054.2 153300 PERFORM FAIL RL2054.2 153400 PERFORM PRINT-DETAIL RL2054.2 153500 GO TO REL-8X-INIT-2. RL2054.2 153600302TO -IN-ILE () .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 153700 MOVE FILE-RECORD-INFO (1) TO RL-FD1R1-F-G-240. RL2054.2 153800 MOVE RL-. RL20542 153900 WRITE RL-FD1R1-F-G-240 REL8-INIT12 154000 INVALID KEY RL2054.2 154100 MOVE "INVALID KEY ON WRITING NEW 2ND RECORD" RL2054.2 154200 TO 152000* DELETE THE NEXT LINE TO D . 154300 PERFORM 2 154400 PERFORM PRINT-DETAIL RL2054.2 154500 GO TO REL-8X-INIT-2. RL2054.2 154600 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 154700 GO TO REL-8X-TEST-1-0. RL2054.2 154800 REL-8X-DELETE-1. RL2054.2 154900 PERFORM DE-ETE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 155000 PERFORM PRINT-DETAIL. 152800MOVEFILE-ECORD-INFO 1 RL--G-40. .2 155100 GO TO REL-8X-INIT-2. RL2054.2
.2 155300 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2 155400 REL-8X-TEST-1-1. RL2054.2 155500IF RECORDS-IN-FILE (1) = 301 RL2054.2 155600 PERFORM PASS RL2054.2 155700 GO TO REL-8X-WRITE-1. RL2054.2 NOTFOUND"TO RE-ARK. RL2054. 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 PERFORM FAIL RL2054.
156700.2 156800 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2 156900 MOVE SPACES TO FILE-ECORD-NFO 1.RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 157000 GO TO REL-8X-TEST-2-0. RL2054.2 157100 REL-8X-DELETE-2. RL2054.2 157200 PERFORM DE-LETE. RL2054.2
- .2 157400 GO TO REL-8X-INIT-3. RL2054.2 157500 REL-8X-TEST-2-0. RL-D1 --NFO () RL20542 157600 START RL-FS2 RL2054.2 157700 KEY IS GREATER THAN OR EQUAL TO RL-FS2-KEY. RL2054.2 157800 READ RL-FS2 NEXT INTO FILE-RECORD-INFO (1) RL2054.2 157900 AT END MOVE "AT END ENCOUNTERED" TO RE-MARK RL2054.2 158000 PERFORM FAIL RL2054.2 158100 PERFORM PRINT-DETAIL RL2054.2 158200 GO TO REL-8X-INIT-3. RL2054.2 158300 REL-8X-TEST-2-1. RL2054.2 158400IF XRECORD-NUMBER (1) < 123 RL2054.2 158500 MOVE "RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2 158600 TO RE-MARK RL2054.2
ORRECT- RL2054.2 158800 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2 158900PERFORMFAIL 2 159000 PERFORM PRINT-DETAIL RL2054.2 159100ELSE2 159200 PERFORM PASS RL2054.2 159300 PERFORM PRINT-DETAIL. RL2054.2 159400* RL2054.2 159500 REL-8X-INIT-3. RL2054.2 159600 MOVE "III-3 4.72 TO ANSI- RL2054.2 159700 MOVE "REL-8X-TEST-3" TO PAR-NAME. RL2054.2 159800 MOVE 154 TO WRK-RL-FS2-RECKEY. RL2054.2 159900 --FS2-ECKEY TO RL-S2-EY. RL20542 160000 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 160100 GO TO REL-8X-TEST-3-0. RL2054.2 160200 REL-8X-DELETE-3. RL2054.2 160300 PERFORM DE-LETE. PERFORMFAIL 2 160400 PERFORM PRINT-DETAIL. RL2054.2 160500 GO TO REL-8X-INIT-4. RL2054.2 160600 REL-8X--30. RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 160700 START RL-FS2 RL2054.2 160800 KEY GREATER OR EQUAL TO RL-FS2-KEY. RL2054.2 160900 RL NEXTINTO FILE-ECORD-NFO () RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 161000 AT END MOVE "AT END ENCOUNTERED" TO RE-MARK RL2054.2 161100 PERFORM FAIL RL2054.2 161200 PERFORM PRINT-DETAIL RL2054.2 161300 GO TO REL-8X-INIT-4. RL2054.2 161400 REL-8X-TEST-3-1. RL2054.2 161500IF 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 CORRECTNRL20542 161900 MOVE XRECORD-NUMBER (1) TO COMPUTED-N RL2054.2 162000 PERFORM FAIL RL2054.2 162100 PERFORM PRINT-DETAIL RL2054.2 162200ELSE RL2054.2 162300PERFORM .2 162400 PERFORM PRINT-DETAIL. RL2054.2 162500* RL2054.2 162600 REL-8X-INIT-4. RL2054.2 162700 MOVE "III- 47." TO ANSIREFERENCE RL2054. 162800 MOVE "REL-8X-TEST-4"160500GO -X--4. RL2054. 162900226 TO WRK-L-FS2-ECKEY.RL20542 163000 MOVE WRK-RL-FS2-RECKEY TO RL-FS2-KEY. RL2054.2 163100 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 163200 GO TO 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 GO TO REL-8X-INIT-5. RL2054.2 163700 -X-EST-0 . 163800 START RL-FS2 RL2054.2 163900 KEY IS >= RL-FS2-KEY. RL2054.2 164000 READ RL-FS2 NEXT INTO 161800MOVE154 TO CORRECT RL20542 164100 AT XRECORDNUMBER1) COMPUTED- .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 164200 PERFORM FAIL RL2054.2 164300 PERFORM PRINT-DETAIL RL2054.2 164400 GO TO REL-8X-INIT-5. RL2054.2 164500 REL-8X-TEST-4-1. RL2054.2 164600IF XRECORD-NUMBER (1) < 226 RL2054.2 164700 MOVE "162600 REL-8X-INIT-4. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
TORE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 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 165300ELSE RL2054.2 165400 PERFORM PASS RL2054.2 165500 PERFORM PRINT-DETAIL. RL2054.2 165600* RL2054REL-XTEST-02 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. . 166000 MOVE 300 TO WRK-RL-FS2-RECKEY. RL2054.2 166100 MOVE WRK-RL-FS2-RECKEY TO RL-FS2164300PERFORM - RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
MOVE FILE-ECORD-NFO() RL2054 166300 GO TO REL-8X-TEST-5-0. RL2054.2 166400 REL-8X-DELETE-5. RL2054.2 166500 PERFORM DE-LETE. RL2054.2 166600 PRINTDETAIL . 166700164800 RE-MARK .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 166800 REL-8X-TEST-5-0. RL2054.2 166900 START RL-FS2 RL2054.2 167000 KEY > RL-S2-KEY. . 167100 READ RL-FS2 NEXT INTO FILE-RECORD165200PERFORMPRINTDETAIL 2 167200 AT END MOVE "AT END ENCOUNTERED" TO RE-MARK RL2054.2 167300 PERFORM FAIL RL2054 PASS . 167400 PERFORM PRINT-DETAIL RL2054.2 167500 GO TO REL-8X-INIT-6. RL2054.2 167600 REL-8X-TEST-5-1. RL2054.2 167700IF 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 168400ELSE RL2054.2 168500 PERFORM PASS RL2054.2 168600 PERFORM PRINT-DETAIL. RL2054.2
*RL2054.2 168800 REL-8X-INIT-6. RL2054.2 168900MOVE "III-3 4.. ANSIANSI-EFERENCE. RL2054. 169000 167300 FAIL . 169100 MOVE 123 TO WRK-RL-FD1-RECKEY. RL2054.2 169200 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 169300 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 169400 MOVE SPACE TO WRK-XN-00001. RL2054167800 RECORD NUMBER LESSTHANRELATIVEKEY" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 169500 XRECORD-NUMBER ()TO COMPUTEDNRL2054
GO TO -X-EST--. RL20542 169700 REL-8X-DELETE-6. RL2054.2 169800 PERFORM DE-LETE. RL2054.2 169900 PERFORM PRINT-DETAIL. RL2054.2 170000 GO TO REL-8X-INIT-7. RL2054.2 170100 REL-8X-TEST-6-0. RL2054.2 170200 START RL-FD1 RL2054.2 170300 KEY IS GREATER THAN OR EQUAL TO RL-FD1-KEY RL2054.2 170400NOT INVALID KEY RL2054.2 170500 MOVE "A" TO WRK-XN-00001. RL2054.2 170600 REL-8X-TEST-6-1. RL2054.2 170700IF WRK-XN-00001NOT = "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 169700 REL-X-ELETE6 171200 PERFORM FAIL RL2054.2 171300 PERFORM PRINT-DETAIL RL2054.2 171400ELSE 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 172100IF XRECORD-NUMBER (1) < 123 RL2054.2 172200 MOVE "RECORD NUMBER LESS THAN 170800 MOVE "NOT INVALID KEY DID NOT EXECUTE INVALID KEY DID NOT " RL2054.
172400 PERFORM FAIL 2 172500 - RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 172600ELSE RL2054.2 171500 PASS RL20542 172800 PERFORM PRINT-DETAIL. RL2054.2 172900* RL2054.2 173000 REL-8X-INIT-7. RL2054.2 173100 MOVE "VIII-33 4.7.2" 171900 MOVE "REL-8X-TEST-6-2" TNAME RL20542 173200 MOVE "REL-8X-TEST-7" TO PAR-NAME. RL2054.2 173300172000READ-FD1 INTO FILE-ECORD-INFO () .2
-L-D1-RECKEY
MOVE SPACES --NFO() .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 173600 MOVE SPACE TO WRK-XN-00001. RL2054.2 173700 MOVE 1 TO REC-CT. RL2054.2 173800 GO TO 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 GO TO REL-8X-INIT-8. RL2054.2 174300 REL-8X-TEST-7-0. RL2054.2 174400 START -FD1RL20542 174500 KEY GREATER OR EQUAL TO RL-FD1-KEY RL2054.2 174600NOT INVALID KEY RL2054.2 174700 MOVE ""TO WRK-N-0001. RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 174800 REL-8X-TEST-7-1. RL2054.2 174900IF WRK-XN-00001NOT = "A" RL2054.2 175000 MOVE "NOT INVALID KEY DID NOT EXECUTE" RL2054.2 175100 173700 TO REC-T. RL20542 175200 MOVE "" TO CORRECT-X 2 175300 MOVE WRK-XN-00001 TO 173900 REL-8X-DELETE-7. 175400 -ETE. . 175500 PERFORMPRINT-java.lang.StringIndexOutOfBoundsException: Range [80, 39) out of bounds for length 80 175600ELSE RL2054.2 175700 PERFORM PASS RL2054.2 175800 PERFORM PRINT-DETAIL. RL2054.2
RL2054.2 176000 REL-8X-TEST-7-2. NOT RL20542 176100 MOVE ""TOWRK-XN-0001 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 176200 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2 176300IF XRECORD-NUMBER (1) < 154 RL2054.2 176400175000MOVE "INVALID KEY NOT EXECUTE" RL2054. 176500 TO RE-MARK RL2054.2 176600 MOVE "" CORRECT- RL2054.2
RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 176800 PERFORM FAIL RL2054.2 176900 PRINTDETAIL .2 177000ELSE RL2054.2 177100 PERFORM PASS RL2054.2 177200 PERFORM PRINT-ETAIL. RL2054. 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 RLFD1INTOFILE-ECORD-NFO () RL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 177700 MOVE 226 TO WRK-RL-FD1-RECKEY. RL2054.2 177800 WRK-LFD1 TO RL-D1KEY RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 177900 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 178000 MOVE SPACE TO WRK-XN-00001. RL2054.2 178100MOVE 1 -. RL20542 178200 GO TO 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 GO TO -XINIT-9. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 178700 REL-8X-TEST-8-0. RL2054.2 178800 START RL-FD1 RL2054.2 178900177400REL-X-NIT-. .
INVALIDKEY RL20542 179100 MOVE "A" TO WRK-XN-00001. RL2054.2 179200 REL-8X-TEST-8177700226 TOWRK-FD1- .2 179300177800MOVEWRK-L-D1RECKEY RL-D1KEY java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 NOT EXECUTE . 179500 TO RE-MARK 178000MOVESPACETO WRK-N-0001. RL2054. 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 180000ELSE RL2054.2 180100 PERFORM PASS RL2054.2 180200 PRINTDETAIL. RL2054. 180300 ADD 1 180400 REL-8X-TEST-8-2. RL2054.2 180500 MOVE "REL-8X-179200 REL-8X-TEST-8-1. 2 180600 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2 180700 XRECORD-UMBER1226 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 180800 MOVE "RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2 180900 TO RE-MARK RL2054.2 181000MOVE 226TO CORRECTN . 181100 MOVE XRECORD-NUMBER MOVE WRK-N-0001 -X 2 181200 PERFORM FAIL 179800 PERFORMFAIL RL2054. 181300 PERFORM PRINT-DETAIL RL2054.2 181400ELSE 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
RL2054. 182400 MOVE SPACE 180900 -MARK 2 182500 MOVE 1 TO REC-CT. RL2054.2 182600 GO TO 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 GO TO REL-8X-INIT-10. RL2054.2 183100 REL-8X-TEST-9-0. 181600 PERFORM PRINT-DETAIL. RL2054 183200 START RL-FD1 RL2054.2 183300 KEY >= RL-FD1-KEY RL2054.2 183400NOTRL2054. 183500 MOVE "A" TO WRK-XN-00001. RL2054.2 183600182100MOVE 300 TO -RL-D1-ECKEY. RL20542 183700IF WRK-XN-00001NOT = "A" RL2054.2 183800 MOVE "OT INVALID KEY DID NOT EXECUTE" RL2054. 183900 TO RE-MARK RL2054.2 184000 MOVE "" TOCORRECT- 2 184100 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 184200 PERFORM FAIL RL2054.2 184300 PERFORM PRINT-DETAIL RL2054.2 184400ELSE RL2054.2 184500 PERFORM PASS RL2054.2 184600 PERFORM GOTO 8--.RL20542 184700 ADD 1 TO REC-CT. 183100REL8---.RL2054.2 184800 REL-X-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 185100IF XRECORD-NUMBER (1) < 300 RL2054.2 185200 MOVE "RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2 185300 TO RE-ARK RL2054.2 185400 MOVE 300 TO183900TO - RL2054.
MOVE XRECORD- ()TO COMPUTED- RL20542 185600 PERFORM FAIL RL2054.2 185700 PERFORM PRINT-DETAIL RL2054.2 185800ELSE PERFORM -RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 185900 PERFORM PASS RL2054.2 186000 184600 PERFORMDETAIL .2 186100184900RELTEST-PARNAME. . 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 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 186800 MOVE SPACE TO WRK-XN-00001. RL2054.2 186900 MOVE 1 TO REC-CT. RL2054.2
TOREL-XTEST100 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 187100 REL-8X-DELETE-10. RL2054.2 187200 PERFORM DE-LETE. RL2054.2 187300 PERFORM PRINT-DETAIL. RL2054.2 187400 GOTOREL--11.RL2054.2
-TEST--.RL2054.2 187600 START RL-FD1 RL2054.2
>= RLFD1-KEY .2 187800 INVALID KEY RL2054.2 187900 MOVE "A" TO WRK-XN-00001. RL2054.2 188000 REL-8X-TEST-10-1. RL2054.2 188100IF WRK-XN-00001NOT = SPACE RL2054.2 188200 MOVE "INVALID KEY SHOULD NOT EXECUTE" RL2054.2 188300 TO RE-MARK RL2054.2 188400 MOVE SPACE TO CORRECT-X 189000PERFORM PRINT-.RL20542 188500 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 188600 PERFORM FAIL RL2054.2 188700 PERFORM PRINT-DETAIL RL2054.2 188800ELSE RL2054.2 188900 PERFORM189500 NUMBER( 200 java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80 189000 PERFORMPRINT-. .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 189500IF 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
PRINTRL2054java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 190200ELSE RL2054.2 190300 PERFORM PASS RL2054.2 190400 PERFORM PRINT-DETAIL. RL2054.2
*RL2054.2 190600 REL-8X-INIT-11. RL2054.2 190700 MOVE "VIII-33 4.7.2 (GR7)" TO ANSI192200 KEY RL2054.2 190800 MOVE "REL-8X-TEST-11" TO PAR-NAME. RL2054.2 190900 MOVE 555 TO WRK-RL192500 XN = " 2 191000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 191100 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 191200 MOVE SPACETOWRK--00001 RL2054.2 191300 MOVE 1 TO REC-CT. RL2054.2 191400 GO TO 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 GO TO REL-8X-INIT-12. RL2054.2 191900 --TEST-10 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 192000 START RL-FD1 RL2054.2 192100 KEY >= RL-FD1-KEY RL2054.2 192200 INVALID KEY RL2054.2 192300 MOVE "A" TO WRK-XN-00001. RL2054.2 192400 REL-8X-TEST-11-1. 192500IF WRK-XN-00001NOT = "A" RL2054.2 192600 MOVE "INVALID KEY SHOULD HAVE EXECUTED" RL2054.2 192700 TO RE-MARK RL2054.2 ""TO CORRECTX . 192900 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 193000 PERFORM FAIL RL2054.2 193100 PERFORM PRINT-DETAIL RL2054.2 193200ELSE 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 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 194200 MOVE SPACE TO WRK-XN-00001. RL2054.2 194300 MOVE 1 TO REC-CT. RL2054.2 194400 GO TO 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 GO TO 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 195200NOT INVALID KEY RL2054.2 195300 MOVE "A" TO WRK-XN-00001. RL2054.2 195400 REL-8X-TEST-12-1. RL2054.2 195500IF WRK197500 PERFORM PRINTDETAILRL2054. 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 196200ELSE 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 RL198900 -8-DELETE-. RL2054.2 196900IF XRECORD-NUMBER (1) < 27 RL2054.2 197000 MOVE "RECORD NUMBER LESS THAN RELATIVE KEY" RL2054.2 197100 TO-MARKRL2054.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 197600ELSE . 197700 PERFORM PASS RL2054.2 197800 PERFORM PRINT-DETAIL. RL2054.2
*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 TO WRKRLFD1-ECKEY. 2 198400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 198500 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 198600 MOVE SPACE TO WRK-XN-00001. RL2054.2 198700 MOVE 1 TO REC-CT. RL2054.2 198800 GO TO 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 199200GO REL-XINIT-. RL20542 199300 REL-8X-TEST-13-0. RL2054.2 199400 START RL-FD1 RL2054.2 199500 KEY >= RL-FD1-KEY RL2054.2 199600NOT INVALID KEY RL2054.2 199700 MOVE "A" TO WRK-XN-00001. RL2054.2 199800 REL-8X-TEST-13-1. RL2054.2 199900IF WRK-XN-00001NOT = SPACE RL2054.2 200000 MOVE "NOT INVALID KEY SHOULD NOT 201700 1 -CT 200100 TO RE-MARK RL2054.2 200200 MOVE SPACE TO CORRECT-X RL2054.2 200300 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 200400 PERFORM FAIL RL2054.202200 TO-X15. RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 200500 PERFORM PRINT-DETAIL RL2054202500KEY>RL-KEY 2 200600ELSE 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 101 WRK--D1-. 2 201400 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 201500 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 201600 MOVE SPACE TO WRK-XN-00001. RL2054.2 201700 MOVE 1 TO REC-CT. RL2054.2 201800 GO TO 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 GO TO 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 INVALID KEY RL2054.2 202700 MOVE "B" TO 204700 TO RE-MARK 2 202800NOT INVALID KEY RL2054.2 202900 MOVE "A" TO WRK-XN-00001. RL2054.2 203000 REL-8X-TEST-14-1. RL2054.2 203100IF WRK-XN-00001 = "A RL2054.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 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 203600205900666TO-RL--. .2 203700 PERFORM PRINT-DETAIL RL2054.2 203800ELSE RL2054.2 203900 PERFORM PASS RL2054.2 204000 PERFORM PRINT-DETAIL.206200 MOVE SPACE TOWRK-XN-. .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 204500IF 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 205200ELSE RL2054.2 205300 PERFORM PASS RL2054.207700IF WRK-00001"" RL2054. 205400 PERFORM PRINT-DETAIL. RL2054.2 205500*
.2 205700 . 205800 REL-X-EST" NAME. 2 205900 MOVE 666 TO WRK-RL-FD1-RECKEY. RL2054.2 206000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 206100 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 206200 MOVE SPACE TO WRK-XN-00001. RL2054.2
MOVE 1TO REC-CT. .2 206400 208700 2 206500 REL-8X-DELETE-15. RL2054.2 206600 PERFORM DE-LETE. RL2054.2 206700 PERFORM PRINT-DETAIL. RL2054.2 206800 GO TO REL-8X-INIT-16. RL2054.2 206900 REL-8X--15-0. 2
RL-FD1 2 207100 KEY >= RL-FD1-KEY RL2054.2 207200 INVALID KEY RL2054.2 207300 MOVE "A" TO WRK-XN-00001 RL2054.2 207400NOT INVALID KEY RL2054.2 207500 MOVE "B" TO WRK-XN-00001. RL2054.2 207600 REL-8X-TEST-15-1. RL2054.2 207700IF WRK-XN-00001NOT = "A" RL2054.2 207800 MOVE "INVALID KEY SHOULD HAVE EXECUTED" RL2054.2 207900 TO RE-MARK RL2054.2 210300START-RL2054.2 208100 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 208200 PERFORM FAIL RL2054.2 208300 PERFORM PRINT-DETAIL RL2054.2 208400ELSE ENDSTART RL2054. 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 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 209400 MOVE SPACE TO WRK-XN-00001. RL2054.2 209500 MOVE SPACE TO WRK-XN-00002. RL2054.2 209600 MOVE 1 TO REC-CT. RL2054.2 209700 GO TO 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 GO TO 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 INVALID KEY 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 211000IF WRK-XN-00001NOT = SPACE RL2054.2 211100 MOVE "INVALID KEY SHOULD NOT HAVE EXECUTED" RL2054.2 211200 TO RE-MARK RL2054.2 211300 MOVE SPACE TO CORRECT-X RL2054.2 211400 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 211500 FAIL 2 211600 PERFORM PRINT-DETAIL RL2054.2 211700ELSE 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-8XTEST--2" TO -NAME. RL2054.2 212300 READ RL-FD1 INTO FILE-RECORD-INFO (1). RL2054.2 212400IF 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 213100ELSE 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 213700IF WRK-XN-00002NOT = "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 214300ELSE 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 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 215300 MOVE SPACE TO WRK-XN-00001. RL2054.2 215400 MOVE SPACE TO WRK-XN-00002. RL2054.2 215500 MOVE 1 TO REC-CT. RL2054.2 215600 GO TO 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 GO TO 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 INVALID KEY 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 216900IF WRK-XN-00001NOT = "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 217600ELSE 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 218200IF WRK-XN-00002NOT = "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 218800ELSE 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 WRKRLFD1- KEY. .2 219700 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 219800 MOVE SPACE TO WRK-XN-00001. RL2054.2 219900 MOVE SPACE TO WRK-XN-00002. RL2054.2 220000 MOVE 1 TO REC-CT. RL2054.2 220100 GO TO 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 GO TO REL-8X-INIT-19. RL2054.2 220600 REL-8X-TEST-18-0. RL2054.2 220700 START RL-FD1 RL2054.2 220800 KEY >= RL-FD1223200XRECORD-1 N 2 220900NOT INVALID KEY RL2054.2 221000 MOVE223300PERFORMFAIL .2 221100 END-START RL2054.2 221200 MOVE "Z" TO WRK223600PERFORM PASS RL2054.2 221300 REL-8X-TEST-18-1. RL2054.2 221400IF WRK-XN-00001NOT = "A" RL2054.2 221500 MOVE "NOT INVALID KEY SHOULD HAVE EXECUTED" RL2054.2 221600 TO RE-MARK IF WRK-XN-00002 NOT = "Z" RL2054 221700 MOVE "" TO - .2 221800 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 221900 PERFORM FAIL RL2054.2
PERFORM PRINT-ETAIL RL2054.2 222100ELSE 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 222800IF 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 223500ELSE 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 224100IF WRK-XN-00002NOT = "Z" RL2054.2 224200 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK RL2054.2
MOVE ""TO -X .2 224400 MOVE WRK-XN-00001 TO COMPUTED-X RL2054.2 224500 PERFORM FAIL RL2054.2 224600 PERFORM PRINT-DETAIL RL2054.2 224700ELSE 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 225600MOVE SPACES FILE-() .2 225700 MOVE SPACE TO WRK-XN-00001. RL2054.2 225800 MOVE SPACE TO WRK-XN-00002. RL2054.2 2259001 TO 226000 GO TO 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 GO TO 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 226800NOT INVALID KEY 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 227300IF WRK-XN-00001NOT = SPACE RL2054.2 227400 MOVE "NOT INVALID KEY SHOULD NOT HAVE EXECUTED" RL2054.2 227500 TO RE-MARK RL2054.2 227600 MOVE SPACE TO 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 228000ELSE RL2054.2 228100 PERFORM PASS RL2054.2 228200 PERFORM PRINT-DETAIL. RL2054.2 228300 ADD 1 TO REC-CT. RL2054.2 228400REL-8-TEST19-.RL2054.2 228500 MOVE "REL-8X-TEST230200MOVE SPACE TO WRK-XN-00001. RL2054.2 228600IF WRK-XN-00002NOT = "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 229200ELSE 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 MOVEREL-8X-20 PAR.RL20542 229900 MOVE 101 TO WRK-RL-FD1-RECKEY. RL2054.2 230000 MOVE WRK-RL-FD1-RECKEY TO RL-FD1-KEY. RL2054.2 230100 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 230200 MOVE SPACE TO WRK-XN-00001. RL2054.2 230300 MOVE 1 TO REC-CT. RL2054.2 230400 GO TO 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 GO TO REL-8X-INIT232300MOVE WRK-N00001TOCOMPUTED 2 230900 REL8X-EST-.RL2054.2 231000 START RL-FD1 RL2054.2 231100 KEY >= RL-FD1-KEY RL2054.2 231200 INVALID KEY RL2054.2 231300 MOVE "B" TO WRK-XN-00001 RL2054.2 231400NOT INVALID KEY 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 231900IF WRK-XN-00001NOT = "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 232600ELSE 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 233300IF 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 234000ELSE 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 234600IF WRK-XN-00002NOT = "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 235000 PERFORM FAIL RL2054.2 235100 PERFORM PRINT-DETAIL RL2054.2 235200ELSE 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 MOVE SPACES TO FILE-RECORD-INFO (1). RL2054.2 236200 MOVE SPACE TO WRK-XN-00001. RL2054.2 236300 MOVE SPACE TO WRK-XN-00002. RL2054.2 236400 MOVE 1 TO REC-CT. RL2054.2 236500 GO TO 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 GO TO 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 237400 MOVE "A" TO WRK-XN-00001 RL2054.2 237500NOT INVALID KEY 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 238000IF WRK-XN-00001NOT = "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 238700ELSE 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
RL2054.2 239300IF WRK-XN-00002NOT = "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 239900ELSE 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 240600EXIT. RL2054.2 240700* RL2054.2 240800 CCVS-EXIT SECTION. RL2054.2 240900 CCVS-999999. RL2054.2 241000 GO TO 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.180Bemerkung:
¤
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.
