| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/RL/ (NIST Cobol Test-Suite ©) Datei vom 4.1.2008 mit Größe 48 kB |
|
Quelle rl117a.cob Sprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. RL1174.2 000200 PROGRAM-ID. PRINT-DETAIL IDENTIFICATION 000300 . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for le 000400**************************************************************** RL1174.2 000500* * RL1174.2 000600* VALIDATION FOR:- * RL1174.2 000700* * RL1174.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1174.2 000900* * RL1174.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1174.2 001100* * RL1174.2 001200**************************************************************** RL1174.2 001300* * RL1174.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * RL1174.2 001500* * RL1174.2 001600* X-22 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR * RL1174.2 001700* RELATIVE I-O DATA FILE * RL1174.2 001800* X-55 SYSTEM PRINTER * RL1174.2 001900* X-69 ADDITIONAL VALUE OF CLAUSES * RL1174.2 002000* X-74 VALUE OF IMPLEMENTOR-NAME * RL1174.2 002100* X-75 OBJECT OF VALUE OF CLAUSE * RL1174.2 002200* X-82 SOURCE-COMPUTER * RL1174.2 002300* X-83 OBJECT-COMPUTER. * RL1174.2 002400* * RL1174.2 002500**************************************************************** RL1174.2 002600* RL117A * RL1174.2 002700**************************************************************** RL1174.2 002800* THIS PROGRAM TESTS THE SYNTACTICAL CONSTRUCTS AND * RL1174.2 002900* SEMANTIC ACTIONS ASSOCIATED WITH THE "STATUS" * RL1174.2 003000* CLAUSE FOR THE VALUES "10" AND "14". * RL1174.2 003100* * RL1174.2 003200* * RL1174.2 003300* * RL1174.2 003400**************************************************************** RL1174.2 003500 ENVIRONMENT DIVISION. 2 003600 CONFIGURATION SECTION. RL1174.2 RL1174.2 003800 Card0130. RL1174.2 003900 OBJECT-COMPUTER. RL1174.2 004000Card0131 004100 INPUT-OUTPUT SECTION. RL1174.2 004200 FILE-CONTROL. RL1174.2 004300 SELECT PRINT-FILE ASSIGN TO 003900 OBJECT-COMPUTER. RL1174.2 004400 "C0085" . RL1174.2 SELECT ASSIGN .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds f 004600 "C0034" RL1174.2 004700 ORGANIZATION RELATIVE RL1174.2 004800ACCESSRANDOMRL1174. 004900 RELATIVE RL-FD2-KEY RL1174.2 005000 FILE STATUSISRL-FD2-STATUS. RL1174.2 005100 SELECT RL-FD3 ASSIGN RL1174.2 005200 "C0034" RL1174.2 005300 ORGANIZATION RELATIVE RL1174.2 005400 ACCESS SEQUENTIAL RL1174.2 005500 RELATIVE004800ACCESS java.lang.StringIndexOutOfBoundsException: Index 80 ou 005600 FILE STATUS IS RL-FD3-STATUS. FILE RL-FD2-STATUS. java.lang.StringIndexOutOfBoun 005700 DATA DIVISION. RL1174.2 005800 FILE SECTION. RL1174.2 005900 FD 048000 MOVE500TO005500 RL1174java.lang.StringIndexOutOfBoundsException: In 006000 01 (120.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of b 006100 01 DUMMY-RECORD PICTURE X(048200 FAIL RL1174.2 006200 FD RL-FD2 005800 FILE SECTION. java.lang.StringIndexOutOfBoundsException: Index 006300 VALUE OF RL1174.2 006300OF RL1174.2 006600 4711 RL1174.2 006700 RL1174.2 006800 LABEL ARESTANDARD 006900 BLOCK CONTAINS 1 RECORDS RL1174007000 RECORD.RL11742 007000 DATA RECORD RL-FD2R1-F-G-240. RL1174.2 007100 01 RL-FD2R1-F-G-240. RL1174.2 007200 05 RL-FD2-WRK-120 PIC X(120). RL1174.2 007300 05 RL-FD2-GRP-120. RL1174.2 .2 007500 PICTURE X OCCURS 120 TIMES. RL1174.2 007600 RL-FD3RL1174.2 007700 VALUE OF RL1174.2 007800 007800 Impl1 java.lang.StringIndexOutOfBoundsException: Index 80 out of 007900 IS RL1174.2 008000 4711 048700* .02 RL1174.2 008100 RL1174.2 008200 LABEL RECORDS ARE 048800 WRK-XN-0002-001 NOTEQUAL " .2 008300 BLOCK CONTAINS 1 RECORDS RL1174.2 008400 DATA RECORD RL-FD3R1-F-G-240. RL1174.2 008500. RL1174.2 PIC X(120). .2 008700 05 .RL11742 008800 10 RL-FD3-WRK-XN-0001-O120F RL1174.2 008900 PICTURE X OCCURS 120 TIMES. RL1174.2 009000 WORKING-STORAGE SECTION. RL1174.2 009100 01 GRP-0001.RL1174.2 009200 05 RL-FD2-KEY PIC 9(8) VALUE ZERO. RL1174.2 009300 05 RL-FD3-KEY PIC 99 VALUE ZERO. RL1174.2 009400 05 WRK-CS-09V00-012 PIC S9(9) USAGE COMP VALUE ZERO. 009200 05 RL-FD2-KEY PIC 9(8) VALU 009500 WRK-CS-09V00-013 PICS9(9)USAGECOMP VALUE .RL1174.java.lang.StringIndexOutOfBo VALUEZERO.RL1174. 009700 05 WRK-CS-09V00-015 PIC S9(9) USAGE COMP VALUE ZERO. RL1174.2 009800 05WRK-CS-09V00-016 S99) COMP . 2 009900 05WRK-CS-09V00-017009800 PIC S99)USAGE ZERO RL1174. 010000 05 PIC S9(9) USAGE COMPVALUE ZERO. RL1174.2 010100 05RL-FD2-STATUSPIC . . 010200 05 RL-FD3-STATUS PIC XX VALUE 01010005 PRINT-DETAIL. .java.lang.StringIndexOutOfB 01030005 PIC X()VALUESPACE. 010400 X2049700* .03 . 010400 java.lang.StringIndexOutOfBoundsException: Range [32, 29) out of bounds fo 010500 05 WRK-XN-0002-003 PIC X(2) VALUE SPACE. RL1174.2 PICX2 VALUESPACE. RL1174 IFCOMPUTED-XNOT RL1174.2 010700 05 WRK-XN-0002-005 PIC X(2) VALUE SPACE. RL1174.2 010800 05 05 WRK-XN-0002-008X() . 2 007 PIC X(2)VALUESPACE 05 040400 IF CORRECT-X EQUAL L1174 011000 05 WRK-XN-0002-008 PIC X(2) VALUE SPACE. RL1174 .RL1174.2 RL1174.2 011200 01 FILE-RECORD-INFORMATION-REC. .2 011300 011500 "FILE= ,RECORD,=,011500TO RL1174.2 011400 05 FILLER PICTURE X(48) 011600 05FILLER X46 VALUE RL1174.2 011500 "FILE= ,RECORD=011800 05 () VALUE .2 () .2 011700",ODO=0000,GM=,LRECL=000000,BLKSIZ =0000". 012000 05FILLER PICTUREX(37)VALUERL 011800 FILLER (26 041000 FAIL-ROUTINE-WRITE. java.lang.StringIndexOutOfBoundsExceptio 011900 ,=, L=" 2 012000 05 FILLER COR-ANSI-REFERENCE. RL1174.2 012100 ",RECKEY= ". RL1174.2 X 012300 ",ALTKEY1= ". 012300 ",ALTKEY1 TO PRINT-REC java.lang.StringIndexOutOfBoundsException: Range [79, 012400 () RL11742 012500 ",ALTKEY2= ". RL1174.2 012600 05PICTUREjava.lang.StringIndexOutOfBoundsException: Range [80, 78) out of 01270003FILE-RECORD-INFOOCCURS . .java.lang.StringIndexOutOfBoundsException: Index 012800 05 FILE-RECORD-INFO-P1-120013100 07 FILLERPICX(8) .java.lang.StringIndexOutOfB 01290007 FILLER java.lang.StringIndexOutOfBoundsException: Range [58, 55) out of b .2 07 PIC8.RL1174 013200 07 FILLER (.RL1174.2 013300 07 FILLER PIC X(1) 013600 07 XRECORD-NUMBER2.2 013400 MOVE SPACES 051200UPDATE-NUMBER 92). RL11742 013500 07 FILLER PIC X(7). java.lang.StringIndexOutOfBoundsException: Range [19, 18) 013600 07 XRECORD-NUMBEREXIT .2 013700 07 FILLER PIC X(6). RL1174. .RL1174.java.lang.StringIndexOutOfBoundsException: 013800 07 07 XRECORD-LENGTHPIC 9() 2 013900 051800* (7.RL1174 014000(4). RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of boun 014100 07 FILLER PIC X(5). RL1174.2 014200 07 XPROGRAM-NAME PIC X(5). RL1174043100 "TO. 014300 07 FILLER PIC X(7). RL1174.043300MOVE"1-F-G"TO( 07 RECORDS-IN-FILE PIC.RL1174. RL1174.2 014500 07 FILLERPIC X( CCVS-PGM-ID TOjava.lang.StringIndexOutOfBoundsException: Range 052400* DELETE THE NEXT043500MOVE000240TOXRECORD-LENGTH 2. 15400 .java.lang.StringInde 01470007FILLER X1) RL11742 014800 XBLOCK-SIZE 9() 2 014900 MOVE 015000 07 RECORDS-IN-FILE PERFORM REL-INIT-1-A 501 TIMES. .2 015100 07 FILLER PIC X(5). RL1174.2 015200 07 XFILE-ORGANIZATION PIC X(201610007ALTERNATE-KEY2X( java.lang.StringIndexOut 0153000707 FILLER ( java.lang.StringIndexOutOfBoundsException: Index 80 out of boun 015400 07 XLABEL-TYPE PIC X(1). RL1174.2 015500 05 FILE-RECORD-INFO-P121-240. RL1174.2 015600 07 FILLER PIC X(). .02FILLERPIC .2 015700 07 XRECORD-KEY PIC X(29).016800 X WRK-CS-09V00-015 WRK-CS-09V00-016.2 015800 (9). RL11742 015900 X() 2 016000 07 FILLER PIC X(9). RL1174.2 016100 07 ALTERNATE-KEY2 PIC044700 X .RL11742 016200 07 FILLER PIC X(7). RL1174.2 016300 01 TEST-RESULTS. RL1174.2 01640002FILLER X SPACE. PERFORM PRINT-DETAIL RL1174 016500 02 FEATURE PIC X(20) VALUE SPACE. RL1174.2 016600 02 FILLER PIC X VALUE SPACE. RL1174.2 016700 02 P-OR-F PIC X(5) 054700 PRINT-DETAIL java.lang.StringIndexOutOfBoundsException 016800 02 FILLER 054800* RL1174.2 2 017000 03 FILLER PIC X(19) VALUE SPACE. RL1174.2 017100 03 PARDOT-X PIC X VALUE045600 MOVE "VII-3 12" 018500java.lang.StringIndexOutOfBoun 017200 03 java.lang.StringIndexOutOfBoundsException: Range [47, 43) out of bounds 017300 FILLER ()VALUE.RL117403 X() .RL1174.java.lang.StringIndexOutOfBoundsException 01740002RE-MARK PIC X() RL1174. TO . 017500 01 TEST-COMPUTED. RL1174.2 017600 X(30)VALUE SPACE IFjava.lang.StringIndexOutOfBoundsException: Range [35, 34) 046200 java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds fo 017800 " COMPUTED=". RL117401920002FILLERPIC- 2 RL1174 017900 02 COMPUTED-X. RL1174.2 018000READ java.lang.StringIndexOutOfBoundsException: Range [28, 25) out of bound 018100 03 COMPUTED-N 03 CORRECT-N REDEFINES CORRECT-A (9.(9.RL1174.2 018200 -9)(. 018300 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9( java.lang.StringIndexOutOfBoundsE 018400 java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds fo 018500.2 018600 03 CM-18V0 REDEFINES COMPUTED-A. RL1174.2 018700 COMPUTED-18V0 020000 04 CORRECT-18V0 PIC -9 018800 04 FILLER PIC X. RL1174.2 01890003(50 . java.lang.StringIndexOutOfBoundsException: Range [45, 32) out of bou 019000 01 TEST-CORRECT. RL1174.2 019100 02 FILLER PIC X(30) VALUE SPACE. RL1174.056500 IF NOTTO""" java.lang.StringIndexOut 019200 02 FILLER PIC X(17) VALUE " CORRECT =". RL1174.2 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 019400 03 CORRECT-A PIC X(20) VALUE SPACE. RL1174.2 019500 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). RL1174.2 019600 CORRECT-0V18 REDEFINESCORRECT-A PIC-(18) .2 019700 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -902120002FILLERPICX(15 SPACE. RL1174.jav 019800 03 047800IF 2) EQUAL 500 2 01990003 MOVE java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bou -18 FAILjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds f 020100 04 FILLER PIC X. RL1174.2 02020003 057100PERFORM RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 020300java.lang.StringIndexOutOfBoundsException: Range [45, 32) out of bounds fo 020400 057200ELSERL1174.2 020500 02 FILLER PIC IS X(99) VALUE IS02220001 ERROR-HOLD PIC999VALUE ZERO.RL1174.java.lan 020600 SS01PIC48 . 020700- " REMARKS". *2 020800 02 048700 . 202 X(42) VALUE . 02090001CCVS-C-2 021000 02 FILLER PIC X VALUE SPACE. RL1174.2 057800 java.lang.StringIndexOutOfBoundsException: Range [18, 15) out of bounds fo 021200 02 FILLER PIC X(15) VALUE SPACE. RL1174. 02130002 java.lang.StringIndexOutOfBoundsException: Range [41, 20) out of bounds 021400 02 FILLER PIC X(94) VALUE SPACE. RL1174.2 021500 01 REC-SKL-SUBPERFORM02 FILLER (7 CVS85java.lang.StringIndexOutOfBoundsExcepti 021600 01 REC-CT PIC 99 VALUE ZERO. RL1174.2 021700 01 DELETE-COUNTER PIC 999 VALUE ZERO. RL1174.2 021800 java.lang.StringIndexOutOfBoundsException: Range [41, 24) out of bounds fo 021900 01 999 VALUE .RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out P. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 8 02210001 PIC ZERO. java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of 022200 01 ERROR-HOLD 023900 RL11742 022300 01 DUMMY-HOLD . RL1174 022400 01 RECORD-COUNT PIC 9(5) VALUE ZERO. RL1174.2 022500 01 java.lang.StringIndexOutOfBoundsException: Range [41, 25) out of bounds 022600 01 CCVS-H-1. RL1174.2 022700 02 FILLER PIC X(39) VALUE SPACES. RL1174.2 02280002 FILLERPICX42 2 022900 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". RL1174.2 023000 02 FILLER PIC X(39) VALUE SPACES. RL1174.2 023100 01 CCVS-H-2A. RL1174.2 023200 40)java.lang.StringIndexOutOfBoundsException: Range [60, 59) out of bounds PIC X() .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for len 023400 02 050400 PASS.RL1174 "java.lang.StringIndexOutOfBoundsException: Range [79, RL11742 023600 02 FILLER PIC X(28) VALUE RL1174.2 023700 " COPY - NOT FOR025100"N-SITE ,INSTITUTEOF & TECH " ELSE RL1174 023800 02 FILLERPICX(1 02 ( *.2 023900" FOROFFICIAL USEONLYMOVE .java.lang.StringIndexOutOfBoundsException: Index 8 024000 01 02 X() RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of b 024100 02 059900 RL-TEST-3-EXIT. 024200 T " .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for l 02430002 .RL1174. 024400 02 FILLER PIC X(4) VALUE RL1174.2 024500 " IN ". RL11742 024600 02 FILLER PIC X(12) VALUE RL1174MOVE"00 CORRECT-A .2 024700 060100* RL1174.2 024800 02 FILLER PIC X(22) VALUE RL1174.2 024900 " LEVEL VALIDATION FOR ". RL1174.2 025000 02 FILLER PIC X(58) 060300. RL1174. VALIDATION NATIONAL026400 01 CCVS-E-2. java.lang.StringIndexOutOfBoundsException: In 025200 01 CCVS-H-305170002 FILLER X31 SPACERL1174.java.lang.StringIndexOutOfBoundsExc 025300051800 025400 " FOR OFFICIAL USE ONLY ". RL1174051900 REL-INIT-1. java.lang.StringIndexOutOfBoun 025500 02 FILLER PIC X(58) VALUE RL1174.2 025600 "OBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1174.2 025700 02 FILLER PIC X(28) VALUE RL1174.2 025800 " COPYRIGHT 1985 ". RL1174.2 025900 01 CCVS-E-1. RL1174.2 026000 02 FILLER PIC java.lang.StringIndexOutOfBoundsException: Range [24, 23) out o 026100 02 FILLER PICX()VALUE027600FILLERPIC( RL11742 026200 02 027700 "ON-SITE VA, NATIONAL STD&TECH."RL11742 026300 X45 SPACES .2 026400 01 CCVS-E-2. RL1174.2 026500 02 FILLER PIC X(31) VALUE SPACE. RL1174.2 026600 02 FILLER 01 CCVS-E-4. java.lang.StringIndexOutOfBoundsException: Index 80 out .RL1174.2 026800 03 ERROR-TOTAL PIC XXX VALUE SPACE. RL1174.2 VALUE RL11742 027000 03 AT GOTO 02java.lang.StringIndexOutOfBoundsException: Range [43, 24) out of 027100 "ERRORS ENCOUNTERED". 027200PERFORM 027300 02 FILLER PIC X(22) VALUE RL1174.2 027400 " FOR OFFICIAL USE ONLY". RL1174.2 027500 02 FILLER PIC X(12) VALUE SPACE. RL1174.2 027600 X() 2 027700 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1174.2 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 027900 02 FILLER PIC X.2 028000 " COPYRIGHT 1985". RL1174.2 028100 CCVS-E-4 .2 028200 02 CCVS-E-4-1 PIC XXX VALUE SPACE02940004 XXCORRECT X20.RL1174java.lang.StringInd 028300 02 FILLER PIC X(4) 054400 PERFORM PRINT-DETAIL 02840002 PIC java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for 028500 02 FILLER- *********************. 2 028600 " TESTS WERE EXECUTED 054900 REL-INIT-2. 028700 01XXINFO.RL1174.2 028800 02 java.lang.StringIndexOutOfBoundsException: Range [43, 20) out of bounds 028900 "*** INFORMATION ***"055200MOVE030200 01 CCVS-PGM-ID ()java.lang.StringIndexOut 029000 02 INFO-TEXT. RL1174.2 029100 04 FILLER PIC X(8) VALUE SPACE. RL1174.2 029200 055600 GO TO REL-DELET.RL1174.2 029300 04 FILLER PIC X(5) VALUE SPACE. RL1174.2 029400 PICX(20). READ RL-FD3 AT END GO TO REL-TEST-2. RL1174 029500 02 INF-ANSI-REFERENCE PIC X TO056000java.lang.StringIndexOutOfBoundsException: 029600 01 HYPHEN-LINE. RL1174PERFORM . java.lang.StringIndexOutOfBoundsException: Ran 029700 02 TO.RL1174.2 029800 02 FILLER PIC 031200 PERFORMjava.lang.StringIndexOutOfBoundsException: Range [ 029900- "********* MOVE "ADD 1 TO REC-SKL-SUB. java.lang.StringIndexOutOfBoundsExceptio 030000 02 FILLER PIC 056800 TO java.lang.StringIndexOutOfBoundsException: Range [22, 2 030100- "********************056900"" TORL1174.2 030200 01 CCVS-PGM-ID PIC X(9) VALUE RL1174.2 030300 "RL117A". 032100 TERMINATE-CCVS. RL1174java.lang.StringIndexOutOfBoundsExcept 030400032400 STOPRUN 030500 CCVS1 SECTION. RL1174.2 030600 OPEN-FILES RL11742 030700OPEN PRINT-FILE E".java.lang.StringIndexOutOfBoundsException: Range [80, 78) 30800 D.java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds f SPACETO RL1174 031000 .RL1174.2 031100 MOVE ZERO TO REC-SKL-SUB. NOTZERORL11742 031200 .TO 031300 CCVS-INIT-FILE. RL1174.2 031400 ADD 1 TO java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bou 031500 MOVE058200GOTO java.lang.StringIndexOutOfBoundsException: Range [27, 26) ou 031600 TO FILE-RECORD-INFO (REC-SKL-SUBPERFORM REL-INIT-3-A. 031700 RL11742 031800 GO TO CCVS1-EXIT. RL1174.2 031900 CLOSE-FILES. RL1174.2 .CLOSE java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds fo 032100java.lang.StringIndexOutOfBoundsException: Range [18, 6) out of bounds for 032200 EXIT PROGRAM. RL1174058800 GOTOMOVE SPACE TO java.lang.StringIndexOutOfBoundsExc 032300 032400 RUN.RL1174.2 032500 INSPT. MOVE "INSPT" TO P-OR-F java.lang.StringIndexOutOfBoundsException: Range .MOVE"PASS TO ADD1TORL1174.2 032700 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. RL1174.2 032800 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO034800 TO WRITE-LINE PERFORM PRINT-DETAIL RL1 032900 MOVE "****TEST DELETED****" TO RE-MARK. RL1174.2 033000 033100 IF REC-CT NOT EQUAL TO ZERO035100 033200 MOVE "." TO PARDOT-X 2 033300 MOVE REC-CT TO DOTVALUE .2 033400 TO. RL1174 033500 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE RL1174.2 033600 PERFORM TOjava.lang.StringIndexOutOfBoundsException: Range [43, 42) out of 033700 THRU java.lang.StringIndexOutOfBoundsException: Range [55, 54) out of bound 033800 MOVE SPACE 060300 CCVS-9999java.lang.StringIndexOutOfBoundsException: Range [ 033900 MOVE SPACE TO CORRECT-X. RL1174.2 .2 034100 MOVE SPACE TO RE-MARK. RL1174.2 034200 HEAD-ROUTINE. "(S "TOjava.lang.StringIndexOutOfBoundsException: Range [48, 4 034300 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1174.2 034400MOVE TO 2 .RL11742 034500 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1174.2 034600 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. RL1174.2 034700 COLUMN-NAMES-ROUTINE. RL1174.2 034800 MOVE CCVS-C-1 RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out 034900 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM "O"TOELSERL11742 035000 MOVETO . 035100 END-ROUTINE. RL1174.2 035200 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRI 035300 .RL1174.2 035400 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. RL1174.2 035500 END-ROUTINE-1. MOVE N TO RL1174.java.lang.StringIndexOutOfBoundsException: Ind 35600ADD java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds 035700 MOVE CCVS-E-2TO java.lang.StringIndexOutOfBoundsException: Range [42, 41) ou 035800 ADD PASS-COUNTER TO ERROR-HOLD. 038300 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE- 035900* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. RL1174.2 036000 MOVE PASS-COUNTER java.lang.StringIndexOutOfBoundsException: Range [80, 81) 036100 ERROR-HOLDTO java.lang.StringIndexOutOfBoundsException: Range [42, 41) out 036200 MOVE CCVS-E-4 TO CCVS-E-2-2. 038800 MOVE SPACE TO DUMMY-RECORD RL1174 MOVETOjava.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds fo 036400 END-ROUTINE-12. MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL1174 036500 DUMMY-HOLD DUMMY-RECORD 2 036600 IS TOZERO RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of 036700 "NO" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for 36800 ELSE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for l 036900 TO ERROR-TOTAL. .java.lang.StringIndexOutOfBoundsException: Index 80 out of 037000 CCVS-E-2 TO java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of 037100 PERFORM WRITE-LINE. RL1174.2 037200 END-ROUTINE-13. RL1174.2 037300 IFISEQUAL ZERORL1174.java.lang.StringIndexOutOfBoundsException: Index 80 ou 037400 MOVE "NO " TO ERROR-TOTAL ELSE RL1174. java.lang.StringIndexOutOfBoundsException: 037500MOVEjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bound 037600 MOVE "MOVE TO java.lang.StringIndexOutOfBoundsException: Range [55, 54) out o 037700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1174.2 037800 java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds fo 037900 MOVE "NO " 040900 GO TO FAIL-ROUTIN.RL1174.java.lang.StringIndexOutOfBoundsExcep 038000ELSEMOVE INSPECT-COUNTERTO java.lang.StringIndexOutOfBoundsException: Range 038100 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. RL1174.2 .2 038300 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. RL1174.2 038400 WRITE-LINE. RL1174.2 038500 .2 038600 IF RECORD-COUNT GREATER 50 RL1174.2 038700 MOVE java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bound 038800 MOVE SPACE TO DUMMY-RECORD RL1174.2 038900 WRITE DUMMY-RECORD AFTER ADVANCING PAGE RL1174.2 039000 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN RL1174 java.lang.StringIndexOutOfBou 039100 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES RL1174.MOVE java.lang.StringIn 039200 TO DUMMY-RECORD WRT-LN RL1174.2 039300 MOVE DUMMY-HOLD TO DUMMY-RECORD RL1174.2 039400 MOVE ZERO TO RECORD-COUNT. RL1174 BAIL-OUT-EXEXIT .2 039500 PERFORM 042600EXIT 2 039600 WRT-LN. RL1174.2 039700 WRITE MOVE "VIII-368.4GR4 java.lang.StringIndexOutOfBoundsException: Range [5 039800 MOVE SPACE TO DUMMY-RECORD. RL1174.2 039900 BLANK-LINE-PRINT. RL1174.2 043400MOVETO java.lang.StringIndexOutOfBoundsException: Range [55, 53) out of bou 040100 FAIL-ROUTINE. RL1174.2 040200 IF COMPUTED-XNOT EQUAL TO SPACE RL1174.2 040300 GO TO FAIL-ROUTINE-WRITE. RL1174.2 040400 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1174.2 040500 MOVE ANSI-REFERENCE MOVE 000500TO(2 RL11742 040600 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. RL1174.2 040700 MOVE XXINFO TO DUMMY-RECORD. PERFORM java.lang.StringIndexOutOfBoundsException: 040800 MOVE SPACES TO INF-ANSI-REFERENCE. RL1174.2 040900 GO TO FAIL-ROUTINE-EX. RL1174.2 041000 FAIL-ROUTINE-WRITE. RL1174.2 041100 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE RL1174.2 041200 MOVE ANSI-REFERENCE TOOPEN OUTPUTRL-FD2.RL11742 041300 TEST-CORRECTWRITE-LINE 2TIMES java.lang.StringIndexOutOfBoundsException: Ran 041400 MOVE SPACES TO COR-ANSI-REFERENCE. RL1174.2 041500 FAIL-ROUTINE-EX. EXIT. RL1174.2 041600 BAIL-OUT. RL1174.2 041700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO MOVE FILE-RECORD-INFO-P1-120 (2) TO RL-FD2-WRK- 041800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. RL1174.2 041900 BAIL-OUT-WRITE. RL1174.2 042000 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. RL1174.2 042100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. RL1174.2 042200 MOVE XXINFO TO DUMMY-RECORD. IF XRECORD-NUMBER (2) EQUAL TO 042300 MOVE SPACES TO INF-ANSI-REFERENCE. RL1174.2 042400 BAIL-OUT-EX. EXIT. RL1174.2 042500 CCVS1-EXIT. RL1174.2 042600 EXIT. RL1174046800 NOTEQUALZERO .2 042700 SECT-RL117A-001 SECTION. RL1174.2 042800 REL-INIT-009. RL1174.2 042900 MOVE "042900 MOVE "VIII-36 COMPUTED-18V0 RL11742 043000 .RL11742 043100 MOVE "CREATE RL-FD2" TO FEATURE RL1174.2 043200 MOVE "RL-FD2" TO XFILE-NAME (2). RL1174.2 043300 MOVE "R1-F-G" TO XRECORD-NAME (047400PASS 2 043400 047500 047700* .01 RL1174.2 043500 000240 java.lang.StringIndexOutOfBoundsException: Range [55, 54) out of bou 043600 MOVE "RC" TO CHARS-OR-RECORDS (2). RL1174.2 043700 MOVE 0001 TO XBLOCK-SIZE 048200PERFORMFAILRL1174.2 043800 MOVE 000500 TO RECORDS-IN-FILE (2). RL1174.2 043900 MOVE "RL" TO XFILE-ORGANIZATION (2). RL1174.2 044000MOVE S" TO (2) 2 044100 MOVE 000001 TO XRECORD-NUMBER (2). RL1174.2 044200*INITIALIZE RECORD WORK AREA NUMBER 2. RL1174.2 044300 MOVE 1 TO WRK-CS-09V00-012. RL1174.2 044400 MOVE ZERO TO WRK-CS-09V00-013 WRK-CS-09V00-014 RL1174.2 044500 WRK-CS-09V00-015 WRK-CS-09V00-016 RL1174.2 044600 WRK-CS-09V00-017 WRK-CS-09V00-018. RL1174.2 044700 MOVE SPACE TO RL-FD2-STATUS. RL1174.2 044800 MOVE 90000002 TO RL-FD2-KEY. RL1174. REC-CTRL11742 045000 OPEN OUTPUT RL-FD2. RL1174.2 045100 MOVE RL-FD2-STATUS TO WRK-XN-0002-001 ADD01TOREC-CTRL11742 045200*CAPTURE STATUS KEY AFTER OPEN STATEMENT IS EXECUTED. RL1174.2 045300 REL-TEST-009-R. NOT "0 java.lang.StringIndexOutOfBoundsException: Range [79, 045400 MOVE XRECORD-NUMBER (2) TO RL-FD2-KEY. RL1174.2 045500 MOVE "99" TO RL-FD2-STATUS. RL1174.2 045600 MOVE FILE-RECORD-INFO-P1-120 (2) TO RL-FD2-WRK-120. RL1174.2 045700 MOVE FILE-RECORD-INFO-P1-120 (2) TO RL1174.2 045800 java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds fo 045900 WRITE RL-FD2R1-F-G-240 INVALID KEY java.lang.StringIndexOutOfBoundsException: 046000 GO TO REL-TEST-009-2. RL1174.2 046100 IF RL-FD2-STATUSADD REC-CT 046200 GO TO REL-TEST-009-2. RL1174.2 046300IF (2)EQUALTO500RL11742 046400 GO TO REL-TEST-009-2. RL1174.2 046500ADD01 (2.RL1174.2 046600 TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for l 2 046800 NOTTOZERORL1174. EXCEPTIONSjava.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bound 047000 MOVE ZERO TO CORRECT-18V0 ELSERL11742 047100 MOVE WRK-CS-09V00-014 TO COMPUTED-18V0 RL1174.2 047200 PERFORM FAIL RL1174.2 047300 ELSE RL1174.2 047400 PERFORM PASS. MOVEVII-3134 A ANSI-REFERENCERL11742 047600 ADD 01 TO REC-CT. RL1174.2 047700* .01 RL1174.2 IF () 500RL11742 COUNTTORE-MARKRL1174 048000 MOVE 500 TO CORRECT-18V0 RL1174.2 048100 MOVE XRECORD-NUMBER (2) TO COMPUTED-18V0 RL1174.2 048200 PERFORM FAIL RL1174.2 048300 ELSE RL1174.2 048400 PERFORM PASS. RL1174.2 048500 PERFORM PRINT-DETAIL053300READ RL-FD3ATGO REL-TEST-1. RL1174.2 048600 ADD01 REC-CT 048700* .02 RL1174.2 048800 IF WRK-XN-0002-001 NOT EQUAL TO "00"053700GO java.lang.StringIndexOutOfBoundsExc 048900 MOVE "STATUS/OPEN" TO NOTEQUALTO 10 .java.lang.StringIndexOutOfBoundsException: 049000 MOVE WRK-XN-0002-001 TO COMPUTED-A RL-FD3-STATUS java.lang.StringIndexOutOfBoun 049100 MOVE "00" TO CORRECT-A 054300 PERFORM FAIL .2 049200PERFORM FAIL RL1174. 049300 ELSE RL1174.2 049400 PERFORM PASS. RL1174.2 049500 RL1174.2 049600 ADD 01 TO REC-CT. " PAR-NAME.RL1174.2 049700* .03 RL1174.2 049800 IF RL-FD2-STATUS NOT EQUAL TO "00" RL1174.2 049900 MOVE "STATUS/WRITE" TO RE-MARK RL1174.2 050000 MOVE RL-FD2-STATUS TO COMPUTED-A RL1174.2 050100 MOVE "00" TO CORRECT-A RL1174.2 050200 PERFORM . 050300 ELSE RL1174.2 050400 PERFORM PASS. RL1174.2 050500 PERFORM PRINT-DETAIL056200 RL11742 050600 ADD 01 TO REC-CT. RL1174.2 050700* .04 RL1174.2 050800 MOVE SPACE TO RL-FD2-STATUS. RL1174.2 050900 CLOSE RL-FD2. RL1174.2 051000 IF java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds 051100 MOVE "CLOSE/STATUS" TO RE-MARKRL11742 051200 MOVE TO RL11742 056900MOVE""TORL1174. 051400 PERFORM FAIL 057000 PERFORM FAIL RL1174 051500 ELSE 057200ELSERL1174.2 051600 PERFORM . 2 051700 PERFORM PRINT-DETAIL. RL1174.2 051800* RL1174.2 051900 REL-INIT-1. RL1174.2 052000 MOVE "REL-TEST-1" TO PAR-NAME. RL1174.2 052100 MOVE "VII-3 1.3.4 2A" TO ANSI-REFERENCE. RL1174.2 052200 MOVE 0 TO REC-CT. RL1174.2 052300 OPEN I-O RL-FD3. java.lang.StringIndexOutOfBoundsException: Range [11, 6) out 052400* DELETE THE NEXT LINE TO DELETE THE TEST RL1174.2 052500* GO TO REL-INIT-1-BETA. RL1174.2 RL1174 052700 GO058500REL-DELETE-3RL1174.java.lang.StringIndexOutOfBoundsException: Inde 052800 REL-INIT-1-BETA. RL1174.2 052900 MOVE SPACE TO RL-FD3-STATUS. RL1174.2 053000 PERFORM REL-INIT-1-A 501 TIMES. java.lang.StringIndexOutOfBoundsException: Ran 053100 RL1174. 053200 REL-INIT-1-A. RL1174.2 053300READRL-FD3ATGOjava.lang.StringIndexOutOfBoundsException: Index 80 out of b java.lang.StringIndexOutOfBoundsException: Range [72, 19) out of bounds for leng 053500 PERFORM DE-LETE. RL1174.2 053600 PERFORM PRINT-DETAIL. RL1174.2 053700 GO 059600 RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of b 053800 REL-TEST-1. RL1174.2 053900 IF 059900 RL-TEST-3-EXIT. 2 054000 MOVE "AT END STATUS" TO RE-MARK RL1174.2 054100 MOVE RL-FD3-STATUS TO COMPUTED-A RL1174.2 054200 MOVE "10" TO CORRECT-A RL1174.2 054300 PERFORM FAIL RL1174.2 054400 PERFORM PRINT-DETAIL RL1174.2 054500 ELSE RL1174060400GOTO 054600 PERFORM PASS RL1174.2 054700 PERFORM PRINT-DETAIL. RL1174.2 054800* RL1174.2 054900 REL-INIT-2. RL1174.2 055000 MOVE "REL-TEST-2" TO PAR-NAME. RL1174.2 055100 MOVE "VII-3 1.3.4 2D" TO ANSI-REFERENCE. RL1174.2 055200 MOVE SPACE TO RL-FD3-STATUS. RL1174.2 055300* DELETE THE NEXT LINE TO DELETE THE TEST RL1174.2 055400* GO TO REL-INIT-2-BETA. RL1174.2 055500 REL-INIT-2-ALPHA. RL1174.2 055600 GO TO REL-DELETE-2. RL1174.2 055700 REL-INIT-2-BETA. RL1174.2 055800 READ RL-FD3 AT END GO TO REL-TEST-2. RL1174.2 055900 GO TO REL-TEST-2. RL1174.2 056000 REL-DELETE-2. RL1174.2 056100 PERFORM DE-LETE. RL1174.2 056200 PERFORM PRINT-DETAIL. RL1174.2 056300 GO TO REL-INIT-3. RL1174.2 056400 REL-TEST-2. RL1174.2 056500 IF RL-FD3-STATUS NOT EQUAL TO "46" RL1174.2 056600 MOVE "SEQUENTIAL READ FOLLOWING 'AT END' CONDITION"RL1174.2 056700 TO RE-MARK RL1174.2 056800 MOVE RL-FD3-STATUS TO COMPUTED-A RL1174.2 056900 MOVE "46" TO CORRECT-A RL1174.2 057000 PERFORM FAIL RL1174.2 057100 PERFORM PRINT-DETAIL RL1174.2 057200 ELSE RL1174.2 057300 PERFORM PASS RL1174.2 057400 PERFORM PRINT-DETAIL. RL1174.2 057500* RL1174.2 057600 REL-INIT-3. RL1174.2 057700 MOVE "REL-TEST-3" TO PAR-NAME. RL1174.2 057800 MOVE "VII-3 1.3.4 2B" TO ANSI-REFERENCE. RL1174.2 057900 CLOSE RL-FD3. RL1174.2 058000 OPEN INPUT RL-FD3. RL1174.2 058100 PERFORM REL-INIT-3-A 100 TIMES. RL1174.2 058200 GO TO REL-TEST-3. RL1174.2 058300 REL-INIT-3-A. RL1174.2 058400 READ RL-FD3 RECORD AT END GO TO REL-TEST-3. RL1174.2 058500 REL-DELETE-3. RL1174.2 058600 PERFORM DE-LETE. RL1174.2 058700 PERFORM PRINT-DETAIL. RL1174.2 058800 GO TO RL-TEST-3-EXIT. RL1174.2 058900 REL-TEST-3. RL1174.2 059000 IF RL-FD3-STATUS NOT EQUAL TO "14" RL1174.2 059100 MOVE RL-FD3-STATUS TO COMPUTED-A RL1174.2 059200 MOVE "14" TO CORRECT-A RL1174.2 059300 PERFORM FAIL RL1174.2 059400 PERFORM PRINT-DETAIL RL1174.2 059500 ELSE RL1174.2 059600 PERFORM PASS RL1174.2 059700 PERFORM PRINT-DETAIL RL1174.2 059800 CLOSE RL-FD3. RL1174.2 059900 RL-TEST-3-EXIT. RL1174.2 060000 EXIT. RL1174.2 060100* RL1174.2 060200 CCVS-EXIT SECTION. RL1174.2 060300 CCVS-999999. RL1174.2 060400 GO TO CLOSE-FILES. RL1174.2
¤ Dauer der Verarbeitung: 0.19 Sekunden (vorverarbeitet am 2026-10-11) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-10-11