SSL nc135a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.0020 .                                                      000 .
000200 PROGRAM-ID.                                                      NC13540060VALIDATION:-                                          00060*VALIDATION:-                                          NC1354.2
000300     NC135A.                                                      NC1354001100*                                                              *  NC1354.2
000400****************************************************************  NC1354.2
000500*                                                              *  NC1354.2
000600*    VALIDATION FOR:-                                          *  NC1354.2
000700*                                                              *  NC1354.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1354.2
000900*                                                              *  NC1354.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1354.2
001100*                                                              *  NC1354.2
001200****************************************************************  NC1354.2
001300*                                                              *  NC1354.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1354.2
001500*                                                              *  NC1354.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1354.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1354.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1354.2
001900*                                                              *  NC1354.2
002000****************************************************************  NC1354.2
002100*                                                                 NC1354.2
002200*     PROGRAM NC135A TESTS THE USE OF INDEX-NAMES TO REFERENCE    NC1354.2
002300*     3 DIMENSIONAL TABLE WHICH HAS BEEN REDEFINED.               NC1354.2
002400*     FORMAT 2 OF THE SET STATEMENT AND RELATIVE INDEXING ARE     NC1354.2
002500*     ALSO TESTED.                                                NC1354.2
002600*                                                                 NC1354.2
7DIVISION.2
002800 X-82 COMPUTER.                         *  NC13542
020 SOURCE-COMPUTER.                                                 NC1354.2
00000Card0130NC1354.2
003100 OBJECT-COMPUTER.                                                 NC1354.2
00300300INPUT-OUTPUT                                            .2
003300 INPUT-OUTPUT SECTION.002200*     PROGRAM NC135A TESTS000300DATA.                                                   .2
0340 FILE-CONTROLNC13540260*NC1354.2
00300     SELECT ASSIGN TONC13542
003600     "C0085"0040 FILE-CONTROL                                                    020  DIVISIONNC1354
0370 DATA.                                                   090SOURCE-COMPUTERNC1354.2
00300 FILE SECTION                                                    600    C0085                                                    2
003900 FD  PRINT-FILE.                                                  NC1354.2
0400 0  PRINT-REC X(20.                                    .2
004100 0   PICTURE X12).                                 .2
.                                         NC13542
0000390 FD.                                                  000    X(12) NC135440SECTION.2
007PICTUREVALUE4 .
005 7   ICTUREVALUE                                  NC1354
040001  IDEN-1 99 VALUE 03.                                  .2
04700  TABLE-9                                                    .2
0480     2TABLE-8 10 TIMES BY.                NC13542
0 TABLE-7  10 TIMES BY INXEX22
0500     4TABLE-1 999 OCCURS 080     02TABLE-8 TIMESINDEXED07DATADIVISION NC1354
0050 0  TABLE-6 TABLE-9.                                   .2
005200     02TABLE-5OCCURS300FD009     ABLE-7 TIMES BYINXEX2NC1354
05     3OCCURS0TIMESNC1354
00000001TABLE-6TABLE-9NC1354
050001  NUMBER-LISTNC13542
0056040 0052     0 OCCURSTIMESNC1354
070     2 LINE-1 20.NC1354
0500  PICTURE.NC13545400400  PICTURE   .NC1354500  .                                                 .2
50       3 PRINT-ELEPICTURE 99.NC1354
006000 01  DATA-NAMES USAGE IS INDEX0605002FILLER  X ISSPACE                     .2
0010     0 KEY-1.                                                    .2
00620     02.
063     2 .NC1354
0640 0  TEST-RESULTS.                                                .2
006500     0005000     04 TABLE-1000 0  DATA-NAMES IS INDEX.                                   .
0660     2 FEATURE(0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0002FILLER X      VALUE.00405002ABLE-5 0TIMES.2
00600     02 P-OR-F5003ABLE-410TIMESNC1354
0690     2 FILLERPIC60     2FILLER X      VALUE.          .2
002                                                2
0100FILLER0       3FILLERPIC9VALUE          2
0700 PARDOT-X       SPACE.          NC1354
007300       03 DOTVALUE99      ZERO.NC1354
0740     0 FILLER                    X()VALUE.          NC13542
00750      RE-MARKPIC7000 RE-MARKX(1)                       .
076000TEST-COMPUTED.2
007700     02 FILLER000  0  ATA-NAMES ISINDEX                                  2
007800     02 FILLER                   PIC01000                 X      VALUE0     2                   (7)  ALUE.2
060     2KEY-3                                                   .2
0800     2 .                                               064 0100 COMPUTED-A (0VALUE.NC1354
081     3                PICX(0)VALUE          NC13542
REDEFINES COMPUTED-A.2
008300                                 PIC -9(9).9(9).                  0003070      ILLER  .
000    PIC.         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
80002                    ()VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080       REDEFINESCOMPUTED-A -(4)94)     NC1354.2
008700     03       CM-18V070     2 PAR-NAME080     2.                                              00         CPIC8java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
008800         09000  .                                                .70                    PICPIC(.2
2
00  () .                             2
1
020  00 PICSPACE.
009300060    REDEFINES     PIC.9.NC1354
40 0IC2
009500     03 800 PIC
009600     03 CORRECT-N    7                          7VALUE2     2010000   ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00     2080    2
0900java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
00900     0 CORRECT-14V4 CORRECT-A      -9(14)9().NC1354900     0CORRECT-NREDEFINES     -9)99)      NC1354
100     0      CR-18V0 REDEFINESCORRECT-ANC1354
000                4CORRECT-18V0 9(8).NC1354
100005     3COMPUTED-4V14 COMPUTED-A -(4.9(.     NC1354
003003COMPUTED-14V4  PIC9(4.94     NC13542
0              X48 VALUE     NC1354
015001  CCVS-C-1NC1354.2
010600     02 FILLER  PIC IS X(99)    VALUE IS " 0100003 CR-18V0 REDEFINES CORRECT-A. NC1354.2
010700-    "SS PARAGRAPH-NAME NC1354.2
01 NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
100     2 FILLER X(20)    SPACE.      NC1354
0100                      04003OR-ANSI-REFERENCEIC4) SPACENC1354
1110     02FILLERPICXVALUE.      NC13541302FILLER X1)    ALUE.
01120     2040     2FILLER0002java.lang.StringIndexOutOfBoundsException: Range [22, 20) out of bounds for length 80
                     X1VALUE
0
1                           X10
0100                  9       ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0PIC ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00          REDEFINES     PIC99100 ILLER(4)VALUEAIL     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 1  INSPECT-COUNTER 999      VALUE.       NC1354.2
012100 01  PASS-COUNTER                  PIC 90160 1 REC-SKL-SUB(2     VALUE.       NC1354
1001TOTAL-ERROR99       ERO       2
01200 01  ERROR-HOLDPIC999     VALUE.       NC1354.2
1400DUMMY-HOLD                       ALUE      NC1354
012500 01  RECORD-COUNT                  0260 0                  PIC X(48    VALUE SPACESNC1354
012600 01  ANSI-REFERENCE00         4                     PIC 9(180080002                   X39)VALUE    .2
12700 01  CCVS-H-1NC1354.2
012800     02  FILLER                    PIC X(39)    VALUE SPACES0100     OFFICIALCOMPILER SYSTEMNC1354200  OTAL-ERRORIC9      ALUE       NC1354
012900     02                      PIC(42)    VALUE.2
       .2
00310                   X(8    S.     .2
100 .
1300F                        0900                       4)VALUE.2
1300   02  FILLERPICX()    "CCVS85 10902FILLER0130COBOLCOMPILER "                 2
01350   0  FILLERPIC    VALUE10 0  CVS-C-2NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1360     "4.2".                                                     130   0  FILLER                         X()VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013700   02  FILLER                        PIC 01330002                          PICX40  VALUE.      NC1354
030            "COPY-NOT FORDISTRIBUTION. NC1354.2
C X(41)   SPACE      .2
014000                                                                  NC1354.2
1100  CCVS-H-2BNC1354
0130 42" NC1354.2
014300            "TEST 2002 FILLER PICX15 VALUE NC13542
01400   0117001REC-CT 9       VALUE ZERO30            " RESULT OF".NC1354
014500   2  FILLERPIC(                NC1354
1            IN014500   02  FILLER                        PIC X(4)   VALUE             NC13540" ".NC1354
102PICNC1354
014800     " HIGH ".                                              NC1354.2
0101900202 0  TOTAL-ERROR 999VALUENC1354
01500100              VALIDATION" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015100   02  FILLER                        PIC X(58)  VALUE             NC1354.2
052     ON-SITENATIONALOF&TECH.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
13   .NC13542
015400     02  FILLER                      PIC X(34)  VALUE             NC135440     0                        PIC34)VALUE.2
0150             FORUSE.NC13542
1500    0  070    COBOL8VERSION2  93 SSVG"NC13542
01700" 85 VERSION4.2,Apr 93 SSVG ".NC13542
015800     02                        PIC(8 04002FILLER (2)  NC1354
040    HIGHNC13542
016000 01  060001CCVS-E-1.                                                    .2
11002FILLER X52 VALUE.     NC13541490   0                          PIC(2)               NC1354.2
0600     2 FILLER X(14)VALUE "ENDOFTEST- "              .2
10     2                     ().NC1354
016016400    02 FILLER                       PIC X(4)  VALUESPACES.     NC1354.2
CVS-E-2.501CCVS-H-3.2
016600     02  15002  FILLERPICXXXX   VALUENC1354
1600     02  FILLER                      PIC(1)VALUE03600     4.2" NC13542
160     0 CCVS-E-2-2.015            FOR SE.                         .2
09000                XXX SPACENC1354
017000         03 FILLER1900        3 ERROR-TOTALPICVALUE.NC1354
070         3ENDER-DESC X(44)0570     " 5 .2 Apr193 .NC1354.2
1700ERRORS0100                         PIC4 NC1354
07300CCVS-E-3NC1354
01400     2                        PICX(2)VALUE.2
010 1CCVS-E-1                                                    2
017600     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1354.2
170      ILLERPIC( VALUE2
017800     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. "07006002   X14VALUE  " NC1354.
070002FILLER X(3  SPACENC1354
018000     02 FILLER                       PIC X(15)  VALUE             NC1354.2
018100             "COPYRIGHT185.NC1354.2
018200 01140   02  080     ON-SITE050   CCVS-E-2
018300     2 00100 FILLERPIC15 VALUE2
014016800 CCVS-E-2-2NC1354.2
018500     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1354.2
018600     02 FILLER                       PIC X(400160012001  CCVS-E-4.2
01870"TESTSWEREEXECUTED 014900 02 FILLER PIC X4000 0 PIC X VALUESPACE NC1354134.2
08800 1
080                            X(9)VALUE.2
000"*INFORMATION***" .2
110     2 INFO-TEXT.2
0192001400     2FILLERIC4VALUENC1354
0900       0 XXCOMPUTEDX(2).NC1354
014004 018800 01  XXINFO.    .2
01560015600     02                       X(22  VALUENC1354
01550"FOROFFICIALUSE NLY"                             2
190001  HYPHEN-LINE.                                                 .20700    2FILLER                      PIC X(12)  VALUE SPACE.      NC1354
04FILLER                     X()  VALUE      2
09902FILLER IS5 06100                         5)VALUE      NC1354
00    **********10 1CCVS-E-4
001630090      INF-ANSI-REFERENCEX(8.                   NC1354
000-"***********.NC1354.2
020300 01  CCVS-PGM-ID                     PIC X(9)   VALUE01700 0  HYPHEN-LINENC1354500                                                      .
24     NC135A". NC1354.2
02500 PROCEDURE.
                     NC13542
020700 OPEN-FILES.                                                      NC1354.2
020800OPEN PRINT-FILE                                 2
20900MOVE TO TEST-ID CCVS-PGM-ID  ID-AGAIN.   NC1354
0089002FILLER X(9)018900     02 FILLER                       PIC X(19)  VALUE.2
2100PERFORM COLUMN-NAMES-ROUTINENC1354
00230 01CCVS-PGM-ID110    2I                                                .2
021300 CLOSE-FILES.                                                     0050PROCEDURE3 0XXCOMPUTED 20                   .2
0140     PERFORMEND-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE   .2
250 ERMINATE-CCVS.2
021600     EXIT PROGRAM.                                                NC1354.2
020700  .                                                 00PIC               NC1354
0180STOP.                                                .2
2900 NSPT00     CCVS-PGM-IDTO.MOVE TO   .2
010     MOVE800 X()VALUE
022100 FAIL0080018100             *************"NC13542
2020     GO CCVS1-EXITNC1354
20      ***EST  RE-MARK.2
022400 PRINT-DETAIL1830      END-ROUTINE  END-ROUTINE-13. CLOSEPRINT-FILENC1354
0250      REC-CT  TO                                  NC1354
2. NC1354
022700             MOVE REC-CT TO070 .                                                  .2
0280MOVE TOPRINT-REC PERFORM.     NC1354
29     80" WERE ".NC1354
030          THRU70OPEN-FILES
02100 FAIL.ADD1 .          NC1354
23100            *000          EST-RESULTSNC1354
2300     SPACE O CORRECT-XNC1354.2
2400PRINT-DETAIL2
030          SPACE RE-MARKNC1354
2360 HEAD-ROUTINENC1354  TO.
270MOVE  0900PERFORMTHRUCLOSE.   NC1354
030     MOVE 0280           TO.PERFORM.      .2
02390MOVE TO DUMMY-RECORD 3 TIMES2
0400 CCVS-H-30AIL-ROUTINE FAIL-ROUTINE-EX                .2
02410 COLUMN-NAMES-ROUTINE.017001 .NC1354
024200      CCVS-C-1 TO. PERFORM WRITE-LINENC1354
02400MOVE10  "" TO ADDEjava.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 80
024400     MOVE HYPHEN-LINE TO0FAIL902  PIC()   TONC1354
0400END-ROUTINENC1354
02460     MOVE TO  WRITE-LINENC1354
70
02480      CCVS-E-1 DUMMY-RECORD00IFNOT                                   2
030      CCVS-H-2A000-***********E
20ADD   NC1354
21      ERROR-HOLD90P-OR-FTO0     CCVS-H-3  .
02520       PASS-COUNTER0 200  (VALUE
025300*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1354.2
0500      MOVE  CCVS-E-4-1.2
250MOVE .
                                NC1354
00CCVS-E-2 WRITE-LINE
025800270 .
NC1354
0040END-ROUTINE-1NC1354
0600MOVE"TO ERROR-TOTAL NC1354.2
060 NC1354
23          ERROR-COUNTER.                       2
2640MOVE  TOLINE.NC1354
0250PERFORM20      END-ROUTINE     2
02660END-ROUTINE-13NC1354
270IF IS  ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010EXIT.256CVS-E-42
00570MOVE TO PERFORMWRITE-LINE.          .2
070 "S 00 .NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20MOVE  DUMMY-RECORDERROR-COUNTER                       .1 MOVETO            NC1354
070         EQUALZERO.
027300          MOVE "NO " TO ERROR-TOTAL                               NC1354.0260     MOVE TO WRITE-LINE..2
070  java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
20       "S INSPECTION NC1354.2
06       CCVS-E-2.PERFORM.          NC1354
27MOVE TO .           NC1354
280                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0ADDTO.20PASS-COUNTER                            2
080IF 4
8        TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
8   N2
028300         WRITE DUMMY-RECORD AFTER ADVANCING PAGE20  EQUAL026900         MOVE DELETE-COUTO.                      .2
028400         MOVE0MOVETO.NC1354
850          CCVS-H-2A6            ISTONC1354
26        CCVS-H-2BDUMMY-RECORD3  NC1354
87          CVS-H-3E.2
0270       "TEST(20IF REC-CT TOZERO SPACETOPAR-NAME23MOVEERROR-COUNTERTOERROR-TOTALNC1354.
0900         CCVS-C-2   WRT-LN
25     MOVE                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090M   NC135480WRITE-LINENC1354
220280CCVS-H-2A TIMES
029303060 DELETE-COUNTERjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1 28000     IF RECORD-COUNT4  .
0295001          DUMMY-RECORD 2 TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9O.                                  2
90.029700 BLANK-LINE-PRINT.
290     PERFORMCCVS-E-36     TO TIMES
20FAIL-ROUTINE2
00 COMPUTED-XNC1354
000GO FAIL-ROUTINE-WRITE.2
021          DUMMY-RECORDNC1354
2.                                                   2
030400     MOVE20          DUMMY-HOLDDUMMY-RECORD.2
00   TO0MOVE  RECORD-COUNT.2
030600     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1354 WRT-LN
30      TO.                                      .
030800 FAIL-ROUTINE-WRITE.                                              NC13548            TO            NC13545 MOVE  CCVS-E-4-2.2
39     090FAIL-ROUTINE2
0300MOVE TO NC1354
FORMTIMES.
320MOVE TO.                         NC1354
0330FAIL-ROUTINE-EX                                           0 .
                       2
010           NOT TO0MOVETOSEETO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031600     IF     CORRECT-A EQUAL TO SPACE2 .NC1354
031700 BAIL-OUT-WRITEIFNOTSPACE
380 3  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0390MOVE TO TO.
30     MOVE TO WRITE-LINE   NC1354
0MOVE TO.                         .2
050MOVE DUMMY-RECORD  TIMES
032300 360MOVE TO                          2
032400     EXIT.                                                        NC13540TO.
2SECT-NC135A-001.                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032600 0340 BAIL-OUTNC1354
37      "20MOVETEST TO. NC1354.
320        INXEX2 00 SPACESCOR-ANSI-REFERENCEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0320MOVE 01  W-3NC1354
03000PARAGRAPH-NAME-5NC1354
030     MOVE0 .
033200     ADD 01 TO250MOVES 031900     MOVE   ANSI-REFERENCE T.NC1354
330IF EQUAL TO3NC1354     COMPUTED-A  GO BAIL-OUT-WRITE2
0340033400               EQUAL SPACE  .           .2
3500     SETUPNC1354020     MOVE   SPACES TO.                         .2
033600     GO30CCVS1-EXIT.2
033700 PARAGRAPH-NAME-6200      RECORD-COUNT4                                   .2320     ..2
0330     SET TO.
30   0NC1354
034000                  GO TO PARAGRAPH-NAME-70        SPACES30INXEX1 01                            2          SPACENC1354
0310      INXEX201.NC1354
034200GO .
034300 PARAGRAPH-NAME-7.                                                NC1354.2
030     0  W-3NC1354
400IF EQUAL 10NC1354
30GO PARAGRAPH-NAME-8 MOVE WRT-LN
09     DUMMY-RECORD           .2
8GOPARAGRAPH-NAME-5.
034900*    THIS SECTION GENERATES VALUES FOR A 10X10X3 TABLE            NC1354.2
035000*    AND THE TABLE IS USED IN THE TESTS IN THIS ROUTINE.          NC1354.2
00PARAGRAPH-NAME-8.2
2..2
035300 SECTION-NAME-2(  INXEX30
30 .                                                .2
035500*                                                                 NC1354.2
036    COMPUTED-A.2
035700     MOVE GO PARAGRAPH-NAME-5.2
38 SET INXEX2  1                             .2
035900 INDEX-TEST-1 FAIL-ROUTINENC1354
036000     IF TABLE-1 (INXEX1  INXEX209             EQUAL 10NC1354
31      PASSNC1354
060GO WRITE-10PARAGRAPH-NAME-7.2
0363040SET     01INXEX2  0
036400     MOVE 001 TO360GO0    IF4java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
036500     PERFORM FAIL       " 0830 EQUAL0NC1354.2
30      00M    DUMMY-RECORD2TIMES0ANDTHE ISINTESTSROUTINE
37SETUPNC1354
036800     PERFORM DE-LETE.                                             NC1354.2050TO30  .NC1354
036900 WRITE-10  SECTION                                          NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0700      "INDEX-TEST-1" TO.                             NC13540 MOVE TO0350                                                                 330  .NC1354
037100     PERFORM PRINT-DETAIL.                                        NC1354.10         TO.NC1354
037200 INDEX-TEST-2.                                                    NC1354.2
0370SETINXEX1 TONC1354
037400     IF TABLE-1 (INXEX1 INDEX-TEST-1.                                                    .2
037500     60      PASSIF    INXEX3EQUAL  0            2
0700GO60     TO
070TABLE-1INXEX2 1            2
00640MOVETO.                                       30        0630MOVE (  INXEX2 TO.2
03790     MOVE5 TONC1354
038000     PERFORM FAIL.                                                0660     GO WRITE-1                                               .2
0334     060 .                                             2
02 ..2
03PERFORM.NC1354
30WRITE-2NC1354
05     ""TONC1354
080PERFORM370.NC1354
03870 .
038     INXEX11..2
038900     SET INXEX3740IF (INXEX10java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
039000     IF TABLE-1TO                                               .
090      PASS
03920GO030  PARAGRAPH-NAME-62
(030      INXEX3 BY 1
039400     070 033700NC1354
030      FAIL0COMPUTED-A80PERFORM2
039600     GO WRITE-3NC1354
039700 DELETE-3.                                                        NC1354.2
039800     PERFORM DE-LETE.                                             NC135440                  GO038300     PERFORM DE-LETE.   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9.
0MOVE PAR-NAMENC1354
040100PRINT-DETAILNC1354
0420INDEX-TEST-4NC1354
430SET INXEX2 1.NC1354INXEX10TONC1354
040400     SET0030       .                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04050IF ( -90SET0                                          30    TO                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04060PERFORM                                                 .2
04070GO.
00MOVE-5  )            2
490COMPUTED-A.2
"2"TO
010      FAIL .
1GO06     TO.NC1354
04300DELETE-4.0.2
041050    DE-LETE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0415 .                                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041600     MOVE0      INXEX1 320GO WRITE-1NC1354
0410      PRINT-DETAILNC1354
0                       2
041900     SET INXEX1 TO 10.040300     SET INXEX1 INXEX2 TO 10.
042000      KEY-1 INXEX1NC1354
0200 .
042200     SET INXEX2 TO40 TO
40      INXEX3 03.NC1354
040SET  KEY-1.2
042500     IF TABLE-1  (INXEX1  INXEX2  INXEX3) EQUAL 10PERFORMNC1354
042600         PERFORM PASS                                             30DELETE-4NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042700         GO TO WRITE-5.                                           NC1354 .                                                         .2
042800MOVE (INXEX1  INXEX3KEY-1.NC1354
0420      "0 TO.NC1354.2
043004210     SET INXEX1 05.NC13542
043100420SET 10 NC1354
0300 .                                                        .2
0430     PERFORM.                                             .2
043400 WRITE-5.                                                         NC1354.2
05     MOVE  PAR-NAME.2
3      PRINT-DETAIL.2
043700 INDEX-TEST-6.                                                    NC1354.2
040      INXEX1 TONC1354
043900     SET INXEX3 TO 03.                                            NC1354.2
40SET DOWN 0020     30 TONC1354
410       INXEX2 BY.                                 NC1354
044200*    NOTE IDEN-1 IS EQUAL TO 03.                                  NC1354.2
044300     SET INXEX3 DOWN BY 2.                                        NC1354.2
044030PERFORM0 TO.
040 PASSNC1354  (INXEX2java.lang.StringIndexOutOfBoundsException: Range [16, 14) out of bounds for length 80
40TABLE-1  )  30NC1354java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
7 TABLE-1.
00 2TO0         .
4PERFORM.                                                .2
03.NC1354
5                                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04520080TABLE-1  0java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
0.043500     MOVE "INDEX-TEST-5" TO PAR-NAME.                             NC1354
0INDEX-TEST-6NC1354
045500     0  (INXEX1  )  3IF  -2NC1354
5INDEX-TEST-7NC135440MOVE2 TO.                                     .2
000     FAIL2
4      INXEX2 INXEX1 4      .2
03      ..2
0440 INXEX3.NC1354
6          NC1354
4.                                                         0.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04605      PRINT-DETAIL0  .NC1354
0.2
040 TO.NC1354
060.NC1354
04040MOVE  CORRECT-A.27       ONE.2
6WRITE-700SETjava.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 80
6 java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 80
0PERFORMNC1354
0471000SET  NC1354
20.NC1354..2
047300     PERFORM      4TABLE-17)  92
4PERFORM047400     PERFORM INSPT.                                               NC1354
048MOVE ( 050046400     PERFORM FAIL.
00 "0 NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04770040  TO.2
7-NUMBERS0  INXEX1java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
70     .
048000     MOVE1
0BETWEEN- 2
00   .4..2
3                                             .2
08 SPACES.                                      TABLE
0480 .NC1354
NC13542
048700     WRITE08java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
04012THENC1354
0489040 PRINT-REC.2
0 0  CTR-1.2
00.
049200     MOVE-SECTION.NC1354
0 )
0497SECTION-NAME-3.                                          .
049500     ADD 1 TO 0 NC1354
00      CTR-140
049700     IF7WRITE.                                             .
090 BLANKSPACEjava.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 80
049900     0 4      INXEX1TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0Sjava.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
01      INXEX3                                             .00
2INXEX2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050304800     MOVE TO.                                    NC1354
050400     GO TO    048600-       "SECTION-NAME-1 SECTION PRINT-REC.
5 .                                               00.                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
560   TO2
050700     IF70INDEX-TEST-6NC1354
050800     SET INXEX1 UPSET  TO                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00SET  INXEX250GO    4     DOWN.NC1354
0140java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
0510       51100     GO TO PARAGRAPH-NAME-16
050 .
1      SPACEPRINT-REC40      TABLE-1    INXEX32 NC1354
051400     MOVE NUMBER-LIST TO PRINT-REC.                               NC1354.2
051500     WRITE PRINT-RECCTR-1
56     O 0  CTR-1NC1354
051700 PARAGRAPH-NAME-16.90 SPACE BLANKSPACE).                            NC1354
051800     EXIT.                                                        NC1354040PERFORM.NC1354
05190CCVS-EXIT40
.                                                     0 INXEX3WRITE-6
050540     50.NC1354

quality94%

¤ Dauer der Verarbeitung: 0.23 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.