Quelle ic207a.cob Sprache: Cobol

0  DIVISIONjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020 PROGRAM-ID.                                                      IC2074
000300     IC207A.007200     02 COMPUTED-X.                                               150 1ERROR-HOLD 99      VALUE.      .2
000400****************************************************************  IC2074.2
000500*                                                              *  IC2074.2
000600*    VALIDATION FOR:-                                          *  IC2074.2
000700*                                                              *  IC2074.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IC2074.2
000900*                                                              *  IC2074.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IC2074.2
001100*                                                              *  IC2074.2
001200****************************************************************  IC2074.2
001300*                                                              *  IC2074.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IC2074.2
001500*                                                              *  IC2074.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  IC2074.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  IC2074.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  IC2074.2
001900*                                                              *  IC2074.2
002000****************************************************************  IC2074.2
002100*        THE PROGRAM IC207 DEFINES A VARIABLE LENGTH TABLE.       IC2074.2
002200*    THE TABLE AND THE VARIABLE CONTAINING THE TABLE LENGTH       IC2074.2
002300*    ARE OPERANDS IN A CALL STATEMENT USING PHRASE.  ALSO AN      IC2074.2
002400*    INDEX IS DEFINED FOR THE TABLE AND AN INDEX DATA ITEM        IC2074.2
002500*    IS USED TO PASS AN INDEX VALUE FOR A TABLE REFERENCE         IC2074.2
002600*    TO AND FROM THE SUBPROGRAM IC208.                            IC2074.2
002700****************************************************************  IC2074.2
20 ENVIRONMENT.IC2074
002900 CONFIGURATION SECTION.                                           IC2074.2
0300 SOURCE-COMPUTER.                                                 .2
030800  .
003200 OBJECT-COMPUTER.                                                 IC2074.2
0330     .                                                    .2
03400INPUT-OUTPUT.
0000 .                                                    2
003600     SELECT ASSIGN TOIC2074.2
003700     "08800 03 CORRECT-N REDEFINESCORRECT-APIC-99).(9). CORRECT-A PIC -.(1) IC20742
0000  CORRECT-A414).IC2074
003900 FILE SECTION.                                                    IC2074.2
004000 FD  PRINT-FILE.00910     3 CORRECT-14V433 1CCVS-H-2B.2
004100 01013400                          PICX1)VALUE90     3       CORRECT-A                         IC2074
040 0  DUMMY-RECORDX1)                                 .2
004300 WORKING-STORAGE SECTIONIC2074.2
004400 77  INDEX-1 USAGE IS INDEX.                                      IC2074.2
004500 77  DN3 PICTURE090003 FILLERPIC X2) VALUE .                              80"IN ".IC2074
04007   PICTUREX6) VALUEIC2074
004700 77  DN4030     FILLER                         X(2               IC2074
0480 7  DN5 PICTURE (5.IC2074
00490 1TABLE-01IC2074
050     2DN1                                             .2
1 1 15 TIMES2
005200             DEPENDING ON DN3                                     IC2074.2
005300             000           .IC2074
005400 01  TABLE-02.                                                    10     0 FILLERPIC400FILLER                        5)              .2
0500    02  DN2 X     OCCURS TIMESIC2074
005600 01  TEST-RESULTS.                                                IC2074.2
005700     2 FILLERPICX      VALUE.          IC20742
00580470            F  USE    " .22
005900     02 FILLER                   PIC X      01400     2 FILLER                     PICX(64800FILLER X( VALUE             IC2074
60                    PIC()   VALUE.          .2
010              185" IC2074.
0620     02  PAR-NAMEIC20742
006300       018000  REC-SKL-SUB                   PIC 9VALUE.       IC2074
00400   PIC       SPACEIC2074
006500       03 DOTVALUE               PIC 99     VALUE ZERO.           IC2074.2
0066005000 PIC14 VALUEEND F EST-              .2
00670011050      ID-AGAIN X()                    .2
006800 01  TEST-COMPUTED01200 0  INSPECT-COUNTERPICX45)   .     IC2074
006900     02 FILLER                   PIC11000050 1CCVS-E-2IC2074.2
007000     02 FILLER                   PIC X(17)  VALUE                 IC2074.2
007100            " COMPUTED=".                                   IC2074.2
00200         02COMPUTED-XIC2074.2
007300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IC2074.2
00740     03COMPUTED-NREDEFINES             IC2074.2
007500                                 PIC -9(9).9(9).                  IC2074.2
0INES   PIC(18.IC2074
007700     03 COMPUTED-4V14 REDEFINES 0600         3ERROR-TOTAL XXXVALUE SPACEIC2074.2
0780     03COMPUTED-14V4         0FILLERPICVALUE.      IC2074
00063 0CCVS-H-1IC2074.2
008000         04 COMPUTED-18V0                    140            ERRORS.                                 .2
008100         04 FILLER                           PIC X.01600     02 FILLERPIC(2  VALUE             IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008200     03 FILLER 0   2                        4VALUE .
03 1 ..2
008400     02 FILLER PIC X(30) VALUE012700   02  FILLER                   XXXX             IC2074
008500     02 FILLER PIC X(17) VALUE20   2FILLERPIC(8               IC2074
00860     2 CORRECT-X                                                IC2074
008700     03 CORRECT-A                  PIC X(20) VALUE SPACE70 1CCVS-E-413000FILLERPIC4) VALUE.IC2074
008800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IC2074.2
0080     0 CORRECT-0V18 REDEFINESPIC-9(8.         IC2074.2
009000     03 CORRECT-4V1460002FILLER                       30   2FILLERPIC(5)VALUE.2
009170     2CCVS-E-4-2XXX .      IC2074
000 CR-18V02                       () IC2074
90         4                     PIC0    TEST-ID X9                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040         4FILLER30     FILLERPIC) VALUEIC2074
05003 FILLER PIC X2)VALUE.                              .2
IC4 VALUE.IC2074
009700 01  CCVS-C-1.                                                    IC2074.01200            TEXTIC2074.2
0980     02FILLERPIC ISX9)    VALUE "FEATUREPAIC2074.2
099-    0 FILLERPIC8   SPACEIC2074
10          .IC2074
010100     02 FILLER                     PIC X(20)    VALUE SPACE.      IC2074.2
010200080       4XXCORRECTPICX2)                   .2
010300     00880     2 INF-ANSI-REFERENCE X(48.                   .2
010400     02 FILLER                     80001HYPHEN-LINEIC2074.2
010500     02 FILLER                     PIC X(15)    VALUE SPACE.      IC2074.2
010600     2 ILLERPIC X(4)VALUEFAIL     40              OFFICIAL    " IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010700     02 FILLER                     PIC X(94)    VALUE SPACE.      IC2074.2
8   PIC      .IC2074
010900 01  REC-CT                        019100     02 FILLER  PIC IS X(65)    VALUE IS"***************IC20742
01190-    "***********************. IC20742
011100 01  ERROR-COUNTER0900     0 500              COPYRIGHTIC2074
011200 01  INSPECT-COUNTER150 1 .                                                    .2
011300 0500PICVALUEEND" IC2074.2
011400 01  TOTAL-ERROR                   PIC 9050     00     IC207AIC2074
0100 0  ERROR-HOLD 999       ZERO900PROCEDURE.
011600 01DUMMY-HOLD X(12)   VALUE.      IC2074
0110580     2                       PICX(31)VALUE.      IC2074.00OPEN-FILESIC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IC2074.2
019 1  .                                                    .2
01200     0  PICX39  SPACES.java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
020     2FILLERPIC(2                 IC2074
012200     OFFICIALCOMPILERSYSTEMIC2074
012300     0000       HEAD-ROUTINE COLUMN-NAMES-ROUTINE.             .2
020001CCVS-H-2A
020   02                        X4)  VALUE.      IC2074
0160   0  FILLERPIC(7)    "CCVS85 ".  IC2074
012700   02  FILLER                         XXXXTERMINATE-CCVSIC2074
01200". . IC20742
012900   02  FILLER                        PIC X(28)  VALUE             IC2074.2
000" COPY-NOT FOR DISTRIBUTION. IC20742
013100   02  FILLER                        PIC X(41)  VALUE SPACE.      IC2074.2
0120                                                                  IC2074.2
013300 01  CCVS-H-2B20 PASS.    INSTITUTE     IC2074
140   2FILLERPIC X1  VALUE             .2
01500"TESTRESULTOF . IC20742
013600                         240   MOVE*TO.    TOC2074
4                .2
013800            " IN ".                                               01CCVS-E-4.
013000                           X12               IC2074
0     010             ". TOPARDOT-X IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0410   0  FILLER                         X(22)  VALUE.2
0140             LEVELIC2074079      "TESTS WEREEXECUTED SUCCESSFULLY. IC2074.2
01430002 FILLER020     MOVETEST-RESULTS PRINT-REC PERFORMWRITE-LINE.      .2
014400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD &02100IFP-OR-F TO "FAIL*" PERFORM WRITE-LINE IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014500 01  CCVS-H-3.                                                    IC2074.2
040     0                        PIC X(4)VALUE.
0"FOR .IC2074
014800     02  FILLER01400       4 FILLERPIC ()VALUE.      IC2074.2
090"COBOL8 VERSION .,Apr193"..2
015000     02  FILLER                      PIC X(28)  VALUE60       4 ILLER(5)SPACE.2
0110            "COPYRIGHT 185 ".                                .2
015200 01  CCVS-E-1.                                                    IC2074.2
0500                        (2V PACE2
015400     02 FILLER  PIC X(0200MOVE  TO DUMMY-RECORD. PERFORM 2 TIMES  .2
1500     CCVS-H-2A PERFORM 2java.lang.StringIndexOutOfBoundsException: Range [70, 69) out of bounds for length 80
120   ************..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50CCVS-H-3.  WRITE-LINE  .2
015800     02  FILLER                      PIC X(31)  VALUE SPACE.      IC2074.2
50     2ILLER2)   SPACE2
016000     02 S-PGM-ID                      X(9)                IC20740230      CCVS-C-1TO90     IC207A.
01610         0               PIC XXX08CCVS1IC2074
016200        3FILLERPIC        SPACE      .2
016300         03 ENDER-DESC               PIC X(44)  VALUE             IC2074.2
016400"ERRORS ENCOUNTERED".                                 .2
016500 01  CCVS-E-3.                                                    IC2074.2
016600     02  FILLER                      PIC X(22)  VALUE             IC2074.2
0170            FOR " IC20742
60     2FILLEREND-RTN-EXIT.
0160002 FILLER                       X(58)2300PERFORM THRU             IC2074
017000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2074.2
017100     0  FILLERPICX(3  000 CLOSE-FILESIC2074
017200     02 FILLER                       PIC X(15)  VALUE             IC2074.2
070"COPYRIGHT 1985".IC2074
017400 01  CCVS-E-4.                                                    270 .                                                  .2
017500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IC2074.2
017600     02 FILLER                       024500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IC2074.2
017700     02 CCVS-E-4-2021200 PASS.  MOVE "PASS " TO P-OR-F.  ADTO PASS-COUNTERIC2074
02700MOVEERROR-HOLDTO.                              .2
090   WERE SUCCESSFULLYIC2074
018000 01  XXINFO.                                                      IC2074.2
11 02FILLERX1)VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018200            "*** INFORMATION ***"02500  END-ROUTINE-12IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0151       "TEST( FAILED"TO                        2
018400       04 FILLER                     PIC X(8)   VALUE SPACE.      IC2074.2
018500       04 XXCOMPUTED0MOVE23         " "                                 .2
06000                       X(5    SPACEIC2074
018700       04 XXCORRECT                  PIC X(20).                   IC2074.2
018800     02 INF-ANSI-REFERENCE           PIC X(48).                   IC2074.2
018900 01  HYPHEN-LINE.                                                 IC2074          CCVS-E-2 DUMMY-RECORD0    BAIL-OUT-EX2
0100     0 FILLER  PIC IS VALUE SPACEIC2074
0..2
019200-    60      IF        DUMMY-RECORD WRITE-LINE
0193023500     MOVE5
019400-    "******************************".                            IC207406600       MOVE INSPECT-COUNTER0260    HYPHEN-LINE DUMMY-RECORDPERFORMWRITE-LINE.        IC2074
019500 01                       PIC()VALUE.2
0960     IC207A                                                    9 CCVS-E-3 DUMMY-RECORDWRITE-LINE           .2
019700 PROCEDURE DIVISION.                                              IC2074.2
019800 CCVS1 SECTION.                                                   IC2074.2
090 .                                                      2
020000     OPEN     OUTPUT00 .                                                   .2
21      CCVS-PGM-ID TEST-ID TO   IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0220M    TOIC2074
20          HYPHEN-LINE DUMMY-RECORD WRT-LN.2
02040024500*     IF PASS-COUNTER EQUAL027900         MOVE DUMMY-HOLD TO                           .2
020500CLOSE-FILES                                                     .2
0260     PERFORM END-ROUTINE-13 .   IC2074
0270 .                                                  .2
020800     EXIT PROGRAM2400       CCVS-E-4 CCVS-E-2-222 .                                                          2
020900 TERMINATE-CALL.                                                  IC2074.2
0100          RUN                                                 .
021100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IC207423         OVE"TO 5 IC20742
02100 PASS  MOVE"PASS " TOP-OR-F  ADD1                           .2
0130 FAILMOVEFAIL TOP-OR-F.  ADD1TOERROR-COUNTER.          .2
E   *"P-OR-FADD1 java.lang.StringIndexOutOfBoundsException: Range [66, 65) out of bounds for length 80
050      "** DELETED*** .IC20742
021600 PRINT-DETAIL.                                                    IC2074.2
02700IFREC-CT.                                          .2
021800             MOVE "." TO PARDOT-X                                 IC2074.2
    00MOVE "TOERROR-TOTALELSEIC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0200MOVETEST-RESULTSTO PRINT-REC0        DELETE-COUNTERERROR-TOTAL
210IF EQUALjava.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
0200PERFORM THRU                 .2
022300          ELSE9600    java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
00MOVE"O .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
250MOVE TO.2
022600 TEST .            .2
020MOVESPACE RE-MARK   TOI.
022800 HEAD-ROUTINE.                                                    IC2074.2
02290MOVE  TO.029       TO.IC2074
TIMES.10BAIL-OUT2
023100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMESIF NOT  GO
2MOVE  O.PERFORM  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030 .
02340      CCVS-C-1 DUMMY-RECORDPERFORM WRITE-LINECORRECT-A MOVE COMPUTED-AXXCOMPUTED
025      CCVS-C-2 . PERFORM 2 TIMES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060MOVE DUMMY-RECORD WRITE-LINE
023700 END-ROUTINE.                                                     260MOVE TO PERFORM        TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023800     MOVE 300CCVS1-EXITIC2074
0239 .                                                    .2
0200  TO. WRITE-LINE.   IC2074
0210END-ROUTINE-1IC2074
2400ADDERROR-COUNTERTO ERROR-HOLDINSPECT-COUNTER      IC2074
0240      . ADD TO.               .2
20      PASS-COUNTER.                             java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
024500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IC2074.2
4 PASS-COUNTER.IC2074
024700      MOVE ERROR-HOLDPERFORM.
024800      MOVE CCVS-E-4 TO CCVS-E-2-210       USING, , INDEX-128IFNOT SPACEFAIL-ROUTINE-WRITE.2
00       CCVS-E-2DUMMY-RECORD WRITE-LINE           20java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
025000  END-ROUTINE-12.                                                 IC2074.2
0500       "TEST(S)FAILED" TO0MOVELINK-TEST-01IC2074
20IFISTO ZERO                      IC2074.2
230          "NO " TO ERROR-TOTAL.2
02400                                                              .2
050         ERROR-COUNTERERROR-TOTAL2
025600     MOVE7          TO.                                     .2
025700     PERFORM WRITE-LINE.                                          IC2074.2
0300MOVE (1  COMPUTED-AT .                                      2
02590       IS TO                           .2
026000         MOVE "NO " TO ERROR-TOTAL20     MOVEVALUEMOVE ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026100         MOVE DELETE-COUNTER TO ERROR-TOTALMOVE TO00PPRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02620330 .                                                    .20 .EXIT.2
026300     MOVE CCVS-E-2 TO20IF NOTTOG370A ITS PROCESSEDIN SUBPROGRAM
200IF EQUAL                           .2
026500          MOVE "NO " 030500     MOVE CORRECT-A TO COMPUTED-A.  IC2074
0200ELSEMOVEINSPECT-COUNTER                   2
0267370MOVE LINK-TEST-02-01IC2074
026800      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE     30MOVETOIC2074
060MOVE  DUMMY-RECORD.           IC2074
027000 WRITE-LINE.                                                       LINK-WRITE-02-01IC2074
027100     ADD 1 0340LINK-FAIL-02-01IC20742
027200     java.lang.StringIndexOutOfBoundsException: Range [80, 15) out of bounds for length 80
027300         034600     PERFORMFAIL.2
027400         MOVE SPACE400    MOVE DN22 TO COMPUTED-AIC2074
027500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  40      " CORRECT-A. .2
027600          CCVS-C-1 TO DUMMY-RECORDPERFORMWRT-LNIC2074
027700         MOVE CCVS-C-2 TODUMMY-RECORD PERFORM WRT-LN TIMES     IC20742
027800         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IC2074.2
09MOVE                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028000         03170     MOVE  DN3                                               .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
028100     PERFORM WRT-LN.                                              IC20749      D1 TABLE-01TABLE-02, DN3IC2074
0800 WRT-LNIC2074.2
028300     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IC2074.2
028400     MOVE SPACE TO DUMMY-RECORD.                                  IC20740         PERFORM                                             .2
028050      FAIL.2
028600     PERFORM WRT-LN0300      DN23 TO .                                  IC2074
028700 03200     IF DN2()  EQUALTOC                                   .2
2
0290          CORRECT-X EQUAL TO SPACEGOTO.IC2074.060LINK-WRITE-02-02
029000     370GOLINK-WRITE-01.2
210MOVE" FURTHER INFORMATION SEE PROGRAM. .2
029200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2074.2
0930        SPACES INF-ANSI-REFERENCE                         .2
0900GO  30       ( EQUAL O" IC20742
029500 FAIL-ROUTINE-WRITE.                                              IC2074.2
   TEST-COMPUTEDTO PERFORMWRITE-LINE.2
029700     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE368002     " DN2(1)" TORE-MARKIC2074
02980     MOVE30 LINK-FAIL-02-03IC2074
029900     MOVE   SPACES TO COR-ANSI-REFERENCE.03700      FAIL                                                IC2074
0000FAIL-ROUTINE-EX.                                           IC2074
030100 BAIL-OUT..IC2074     MOVEREC-CTIC2074
030200     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IC2074.2
030300     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IC2074.2
030400BAIL-OUT-WRITE                                                  .2
030500     MOVE410 LINK-TEST-02-01.                                                 .2
0360     MOVEANSI-REFERENCETO INF-ANSI-REFERENCEIC2074
030700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM 0430         PERFORM                                             .2
030800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IC2074390         PERFORM PASSIC20742
030900 BAIL-OUT-EX. EXIT.                                               IC2074.2
031000 CCVS1-EXIT.                                                      IC2074.2
031100     EXIT.                                                        IC2074.2
010  SECTIONIC20742
0330 .                                                  .2
010      "ABCDEFGHIJKLMNO TABLE-01. 034800 MOVE "Z" TO CORRECT-A. IC20742
03100      IN1 .                                               IC2074
031600     SET08500      "VALUE OFDN25) TO RE-MARK..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031700     MOVE 3 TO DN3.                                               .2
031800     MOVE SPACE50 LINK-TEST-02-02                                                 38700     PERFORM PRINT-DETAIL.                                        IC2074.
031900     CALL ID1 USING3540     IFDN2(3)EQUALTO ""                                      IC20742
032000 LINK-TEST-01.                                                    IC2074.2
032100*            THIS TEST CHECKS THAT AN INDEX DATA ITEM WAS         IC2074.2
032200*        CORRECTLY PASSED TO A SUBPROGRAM.                        IC2074.2
032300     MOVE "0930370LINK-FAIL-02-02..IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032400    MOVE"INDEX DATAITEM"FEATURE.2
032500     IF DN23800PERFORMFAIL.                                                .2
0320PERFORMIC2074.
032700         GO TO LINK-WRITE-01.                                     IC2074.2
2..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0390     90PASS.2
033000     MOVE DN2390          TO LINK-WRITE-03-01IC2074
033100     MOVE "C" TO CORRECT-A.                                       390 LINK-FAIL-03-01.                                                 .2
033200     MOVE "VALUE OF DN2(1)" TO RE-MARK.                           IC2074.2
033300 LINK-WRITE-01.                                                   IC2074.2
033400     PERFORM PRINT-DETAIL.                                        IC2074
033500 LINK-TEST-02.                                                    IC2074.2
033600*        THIS TEST VERIFIES THAT THE VARIABLE LENGTH TABLE        IC2074.2
033700*    AND ITS LENGTH WERE PROCESSED CORRECTLY IN THE SUBPROGRAM.   IC2074.2
033800     MOVE 1 TO REC-CT.                                            IC2074.2
033900     MOVE "LINK-TEST-02" TO PAR-NAME.                             IC2074.2
034000     MOVE "VAR. LENGTH TABLE" TO FEATURE.                         IC2074.2
03100INK-TEST-02-01IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034200     IF DN2 (2) EQUAL TO "Z"                                      IC2074.2
034300         PERFORM470ADD1TO.                                             IC2074
0400           LINK-WRITE-02-01.2
034500 LINK-FAIL-02-01.                                                 IC2074.2
034600     PERFORM FAIL.                                                          PASS PRINT-DETAIL
034700     MOVE DN2 (010 .                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040      "Z . .2
034900     MOVE4140 "" TOIC2074
450      "VALUEOF DN27) IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03510PERFORM                                        .2
0380LINK-TEST-03-03.                                                 .2
035300190ADD   REC-CT.2
035400     IF DN2 (3) EQUAL03840     MOVE "" TO2 DN2EQUALTO""IC20742
035500         PERFORM PASS                                             IC2074.2
035600         GO TO LINK-WRITE-02-02.                                  IC2074.2
035700 LINK-FAIL-02-02.                                                 IC2074.2
035800     PERFORM FAIL200     PERFORM FAILIC2074.2
035900     MOVE DN2 (3) TO COMPUTED-A.                                  80 LINK-TEST-03.
036000MOVE"B" TOCORRECT-A.                                       .2
036100     MOVE "VALUE OF DN2(3)" TO RE-MARK.                           IC2074.2
036200 LINK-WRITE-02-02.                                                IC2074.2
03     PERFORM.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060 LINK-TEST-02-030L.
036500     ADD 1 TO REC-CT.                                             IC2074.2
036600      DN2  TOX" IC20742
00310     MOVELINK-TEST-04  PAR-NAME.                             .2
0600420      "CALL ARAMETERS .IC2074.2
036900 LINK-FAIL-02-03.                                                 IC2074.2
037000     PERFORM FAIL.                                                IC2074.2
037100     MOVE DN2 (4) TO COMPUTED-A.                                  IC2074.2
CORRECT-AIC2074.2
037300     MOVE "VALUE OF DN2(4)" TO RE-MARK.                           043600*    TO THE CALLING PROGRAM.                                      IC2074.2
037400 LINK-WRITE-02-03.                                                04800      IN1 TO.                                          IC2074.2
037500     PERFORM PRINT-DETAIL.                                        IC2074.2
.2
037700     ADD 1 TO REC-CT.                                             IC2074.2
037800460 .                                                 .2
037900         PERFORM 04400         GO040700     ADD 1 T
03800GO000IDN2TO .2
038100 LINK-FAIL-02-04.                                                 IC2074.2
03040900440      FAILIC2074.2
038300     MOVE DN2 (5) TO4100GOTOLINK-WRITE-03-02                                  IC2074
30M ""TO.IC2074
038500     MOVE 04600MOVE"" TO.                                       IC20742
038600.
038700013     D 4IC2074
                                               .2
038900*        THIS TEST VERIFIES THAT THE CONDITION NAMES DEFINED      IC2074.2
039000*    IN THE LINKAGE SECTION OF THE SUBPROGRAM WERE PROCESSED      IC2074.2
039100*    CORRECTLY.                                                   IC2074.2
320     MOVE" TO PAR-NAME. IC2074.2
3900MOVE1  REC-CT                                            IC2074
039400     MOVE "CONDITION NAME" TO FEATURE.                            IC2074.2
039500 LINK-TEST-03-01.                                                 IC2074.2
0360     IF DN26)EQUALTO A" .2
0370         PASSIC2074
039800         GO TO LINK-WRITE-03-01.                                  IC2074.2
039900 LINK-FAIL-03-01.                                                 IC2074.2
04000 FAIL.2
040100     MOVE DN2 (6) TO COMPUTED-A4590LINK-WRITE-04-02IC2074
040200     MOVE "A" TO CORRECT-A.420      "H CORRECT-A 60 ADD TO IC2074IC2074.2
030MOVEVALUE() TOR.                           IC2074
2                                                 2
040500     PERFORM PRINT-DETAILIC2074.2
040600 LINK-TEST-03-02.                                                 IC2074.2
04070     ADD 1TO.                                             IC20742
040800     IF DN2 (7) EQUAL TO "V"                                      IC2074.2
040900         PERFORM PASS04650IF DN5 TO"ABCDEFGHI"IC2074
0440         PASSIC2074
041100 LINK-FAIL-03-02.                                                 IC2074.2
041200     PERFORM FAIL.                                                IC2074.2
0130     MOVE N2TO.                                  IC2074
041400     MOVE "V" TO CORRECT-A.                                       IC2074.2
04100     MOVE" OF DN2(7)" O RE-MARK                           .2
041600 047000     MOVE DN5 TOCOMPUTED-A.                                      IC2074.2
0170     PERFORMPRINT-DETAIL
40 LINK-TEST-03-03                                                 .2
0190ADD1TO.IC20742
042000     IF DN2 (8) EQUAL TO "H"04700     PERFORM PRINT-DETAIL                                        .2
042100         PERFORM PASS                                             IC2074400GO TOLINK-WRITE-04-01.                                 IC2074.2
042200          TO050MOVETOCOMPUTED-AIC2074
042300 LINK-FAIL-03-03.                                                 IC2074.2
0240     PERFORMFAILIC2074.2
04250     OVE (8)  COMPUTED-AIC2074
VE "" TO.                                       IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04270490 PRINT-DETAIL.2
042800 LINK-WRITE-03-03.                                                IC2074.2
042900     PERFORM PRINT-DETAIL.                                        IC2074.2
043000 LINK-TEST-04.                                                    IC2074.2
0430      "LINK-TEST-04" TO.                             IC2074.2
TO .                           .2
043300     MOVE 1 0440                 TO,                           .2
043400*        CHECK THE INDEX DATA ITEM AND TABLE LENGTH WHICH         IC2074.2
043500*    WERE SET IN THE SUBPROGRAM AND RETURNED CORRECTLY            IC2074.2
043600*    TO THE CALLING PROGRAM.                                      IC2074.2
043700 LINK-TEST-04-01.                                                 IC2074.2
043800     SETIN1 INDEX-1                                          IC2074
043900     MOVE DN1 (IN1) TO045900 LINK-WRITE-04-02                                                IC20742
044000     IF DN4 EQUAL TO "B"                                          60 TO.IC2074
044100         PERFORM PASS                                             IC2074.2
044200         GO TO LINK-WRITE-04-01.                                  IC2074.2
044300 LINK-FAIL-04-01.                                                 IC2074.2
044400     PERFORM FAIL.                                                IC2074.2
044500     MOVE DN440PERFORM                                             .
044600     MOVE "B" TO CORRECT-A.                                       IC2074.2
044700     MOVE "VALUE OF DN1(IN104690 PERFORMFAIL IC20742
044800 LINK-WRITE-04-01.                                                IC2074.2
044900      PRINT-DETAILIC2074
045000 LINK-TEST-04-02.                                                 IC2074.2
045100     SET IN1 TO 1.                                                IC2074.2
045200     SEARCH DN1 VARYING IN1                                       IC2074.2
045300         AT END PERFORM PASS                                      IC2074.2
045400                GO TO LINK-WRITE-04-02,                           IC2074.2
045500         WHEN DN1 (IN1760     GO CCVS-EXITIC2074
040CCVS-EXITIC20742
045700             MOVE DN1 (IN1) TO COMPUTED-A                         IC2074.2
045800MOVE" SHOULD NOT FOUND"TO.         IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045900 LINK-WRITE-04-0207900GOTO.                                           .2
046000     ADD 1 TO REC-CT.                                             IC2074.2
046100     PERFORM PRINT-DETAIL.                                        IC2074.2
046200 LINK-TEST-04-03.                                                 IC2074.2
046300     ADD 1 TO REC-CT.                                             IC2074.2
046400     MOVE TABLE-01 TO DN5.                                        IC2074.2
046500     IF DN5 EQUAL TO "ABCDEFGHI "                            IC2074.2
046600         PERFORM PASS                                             IC2074.2
046700         GO TO LINK-WRITE-04-03.                                  IC2074.2
046800 LINK-FAIL-04-03.                                                 IC2074.2
046900     PERFORM FAIL.                                                IC2074.2
047000     MOVE DN5 TO COMPUTED-A.                                      IC2074.2
047100     MOVE "ABCDEFGHI " TO CORRECT-A.                         IC2074.2
047200     MOVE "CONTENTS OF TABLE-01" TO RE-MARK.                      IC2074.2
047300 LINK-WRITE-04-03.                                                IC2074.2
047400     PERFORM PRINT-DETAIL.                                        IC2074.2
047500 EXIT-IC207.                                                      IC2074.2
047600     GO TO CCVS-EXIT.                                             IC2074.2
047700 CCVS-EXIT SECTION.                                               IC2074.2
047800 CCVS-999999.                                                     IC2074.2
047900     GO TO CLOSE-FILES.                                           IC2074.2

quality95%

¤ Dauer der Verarbeitung: 0.22 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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 ist noch experimentell.