Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/VDM/VDMPP/HomeautomationSeqPP/ (Wiener Entwicklungsmethode ^©) Datei vom 13.4.2020 mit Größe 458 B

SSL nc135a.cob Sprache: Cobol

0000400*********000500*                                                              *  NC13540060*     FOR600     FOR*  NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0000500*                                                              *  NC1354.2
001700*        001700*        X-82000700001800*        X-83001800*        X-83  - OBJECT COMPUTER000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE000900* 001900* * 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
00..2
002800 CONFIGURATION SECTION.                                           NC1354.2
02
003000     Card0130.                                                    80FILE.                                                    0 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003100 OBJECT-COMPUTER.                                                  1DUMMY-RECORD (20.                                 NC1354
0040  .
003300INPUT-OUTPUT
0340 FILE-CONTROL.2
003500     SELECT PRINT-FILE204077  W-3 999VALUE4 P 999VALUE                                  .2
003600     "C0085" .                                                    NC13544007001.                                                    2
3  DIVISION.2
00380FILE SECTION.                                                    .2
090   00TOCCURSINDEXED .                2
0000    0TABLE-41 .                                  2
0101050 TABLE-510TIMES.2
004200500 2LINE-12TIMES.2
058       3BLANKSPACEIS.                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040   CTR-1 999VALUE IS.NC13542
07002LINE-10       3PRINT-ELE PICTUREIS9.                               .2
046 00     PICTUREXVALUE NC1354
040 1  03  PICTURE IS99.                               .2
40      TABLE-8 1TIMES BY                NC1354.
9     00..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 001USAGE.
0     2K.                                                    2java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 80
50 OCCURS.
003     T  1 TIMES.2
0054000     0                    00600      PIC SPACENC1354
005500100       .                                                .2
000710       3 0700                 X(19)VALUE.NC1354
2java.lang.StringIndexOutOfBoundsException: Range [39, 25) out of bounds for length 80
005800       03 BLANKSPACE FILLERPIC8   SPACE.2
005900       03 PRINT-ELE PICTURE7002RE-MARK                  00                         X6)2
600 D USAGE .                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06006100     PARDOT-XVALUE00                    X17  ALUE
000790            073       3DOTVALUEPIC 9VALUE.2
00
00PICSPACE
006500     0     COMPUTED-N COMPUTED-ANC1354.0COMPUTED-A 2..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080     PIC) SPACE.
70     02FILLER000  COMPUTED-A-18      COMPUTED-Ajava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
0002FILLERPIC060java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
00000 PAR-NAME.                                              80                     -(1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00100       9003FILLER X5 VALUE.                             2
0020      3PARDOT-X30PIC9(.9.                  .
0700       0 DOTVALUE REDEFINESPIC-().         .2
004000                    PICX8   VALUE .          008900         04 FILLER                           PIC X.               NC135400     0 FILLERX5 SPACEN.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000        4PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00     0003FILLER0 ALUE.2
0702                   X0)  VALUE.          .2
0080002FILLERPICX(1)  VALUE                 NC135400     0 00           CR-18V0CORRECT-ANC1354
120         4 FILLERPIC.NC1354
000    0COMPUTED-X.2
008100     03 COMPUTED-A0300     0 FILLER PICX2)  .00     REDEFINESPIC-)9(1).     .2
0960          REDEFINESCORRECT-A 99.(9.2
008300                                 PIC9()99)                  .2
003 COMPUTED-0V18 COMPUTED-A 0 PIC-(1).
00  REDEFINES   PIC4)91)     2
06      RCOMPUTED-A -19) NC1354
0080-    COR-ANSI-REFERENCE ( SPACE.2
008800         04 COMPUTED-18V00 1.                                                    .2
00000 CORRECT-18V0PIC -().          NC1354
009000     01000         04010 0  .
009100 01  TEST-CORRECT.                                                NC1354.10    FILLER0    3P  X4VALUENC1354
009200     02 FILLER PIC X(30) VALUE SPACE.                             000 1000FILLER0     FILLERIS(9VALUE"
00     2 PIC1 ..
00     0 CORRECT-X.NC1354 1PIC      java.lang.StringIndexOutOfBoundsException: Range [60, 59) out of bounds for length 80
009500     03 CORRECT-A                  PIC X100 1I               PIC9VALUE011                           ()"TESTED01 2
60    REDEFINES -(4     FPIC4VALUE" 2
009700     03 CORRECT-0V18 REDEFINES CORRECT-A0120java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 80
009800     03 CORRECT-4V14 REDEFINES00200 DUMMY-HOLDPICX2 1                    9      ZERO
0920  PIC2)VSPACE2
           NC1354
01100 CORRECT-18V0 -1880     2ILLER9 PACES
120     2FILLER                     X(2                 NC13542
0030COBOLVALIDATION                 10199ALUE.2
010400     03  PIC.       .2
02
00320 0  .1500                     95  012500 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO
002001  1200  CCVS-H-2A.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0330   2  ILLER020 2FILLERPICX()                 NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0090                           00     " VALIDATIONSYSTEM.NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100C                                                    2
011100     02 FILLER                     PIC X00       0   FILLER (             2
011200     01900                           X(1   SPACE301CCVS-H-2Ajava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
130       PIC(5VALUE SPACE NC13542
011400     02 FILLER                     PIC013900   02  FILLER                        PIVALUE.      NC1354
011500     0411 0CCVS-H-2B.2
011601360"2
0PIC0            RESULT
100  DELETE-COUNTERFILLER )NC13542
011900 01  ERROR-COUNTER                 PIC01840java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
1000                 PIC99VALUE   FILLERPIC2VALUE7   2FILLERPIC2  NC1354
012080     HIGH
100                     PIC .       .2
012300 01  ERROR-HOLD10   0  FILLER                        PIC X58               NC1354
02400  PIC(2   0ON-SITEINSTITUTE TECH
012500023   NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2 5"OFFICIALUSE ONLY "..2
012700 01  CCVS-H-14   2                         PIC9.NC1354
060FILLER5 2 3                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012900     02  FILLER                    PIC X(42)    VALUE04           .
10     OFFICIAL2 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013100     02  FILLER00" FOR "                             2
120016     ID-AGAIN..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
102FILLER100   NC1354
0402CVS-E-2NC1354   .NC1354
030   2FILLER                                      .2
10." java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06802CCVS-E-2-210"OFFICIALNLY"NC1354
01380180     2FILLERPIC10 PICVALUE      2
060                             SPACE2
01100java.lang.StringIndexOutOfBoundsException: Range [43, 28) out of bounds for length 80
0110 70" "703ENDER-DESC( NC1354
014200   02  FILLER                        1 .2
014300            "TEST RESULT OF ".                                    NC1354130 01 .NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014400   02  TEST-ID0     400     FILLERPIC700F                       X5)java.lang.StringIndexOutOfBoundsException: Range [72, 59) out of bounds for length 80
014500   02  FILLER                        PIC 61000     FILLER1VALUE2
400"IN"                                               .2
0700  7     V50.
014800     " HIGH ".                                              830     0 002                       (               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1003       N3.
015000            "0800 XXINFO.NC1354.2
015100   2FILLER0809    2FILLERX1   NC1354
9            * ** 2
NC1354
0402P ()             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0900 NC1354
10     FILLERPIC)VALUE.2
170"70" O.NC1354
015800     02  FILLER                      PIC X(7 1HYPHEN-LINE.NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00     2 .                                                .2
060012X ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10 IC.      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016200     02 FILLER  PIC X(14) VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
360           X4)                   2
0600   **********                            java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016  .NC1354
016600     02  FILLER                      PIC X(31)0140                       PIC0FILLERI   ISSPACE2
080     2FILLERPIC0.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
800CCVS-E-2-2                                               OUTPUT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
S.      NC1354
017000         03 FILLER00-1java.lang.StringIndexOutOfBoundsException: Range [20, 18) out of bounds for length 80
0170120       400     NC135A
10                 X0java.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
13 1CVS-E-3NC1354
017400240      END-ROUTINETHRU .NC1354
0190       4                   00T.NC1354
017600     02  FILLER70OPEN-FILESNC1354  PIC                   2
0700                         ()VALUE.2
00     ON-SITENATIONAL .NC135428          RUNNC13542
019002                         00  9MOVETO OVE ID-AGAIN
00                              X(1              .2
80*******".
018200 01  01 GO.
00  .   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018400     02 FILLER                       PICNC1354                        X)VALUE00 " NC13542
018520     NC135A.2
018600     02 FILLER200020          TEST-RESULTSPRINT-REC WRITE-LINE
7   EXECUTED2
00FAIL-ROUTINE0OPEN-FILES.2
280     OPENP.                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0            0O.2
019100     02 INFO-TEXT
                      (   0..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019300       000.                                                         CCVS1-EXIT
000       END-ROUTINE-13PRINT-FILE2
01050TERMINATE-CCVS                                                  NC1354280     MOVE CCVS-H-2A     TEST-RESULTS   WRITE-LINENC1354
019600     02 INF-ANSI-REFERENCE           0     OVE20        ERFORM FAIL-ROUTINE-EX
090
019800     02 FILLER  PIC IS X VALUE30     20 .MOVE" P-OR-F TCOMPUTED-X java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0900    FILLER  X6     SPACE.        2
20    *****************.
29MOVE20      ERROR-COUNTER  TO
0500      ERROR-HOLD.2      E  00java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
000 CCVS-PGM-ID )VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000     NC135ANC1354.2
020500 PROCEDURE DIVISION.                                              24 PASS-COUNTERTO.                            NC1354
26004        50       java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
0000OPEN-FILES2450 .NC1354
020800     OPEN2400MOVE  DUMMY-RECORD5TIMES
030OVETO                                   NC1354
021000     0480     260HEAD-ROUTINE.2
021100     PERFORM  HEAD-ROUTINE260240 END-ROUTINE-1                                                   .2
2120     GO20
021300 CLOSE-FILES520      ADD025200      ADD 40         CCVS-E-2 DUMMY-RECORDLINE   NC1354
010PERFORMTHRU.CLOSE..2
010 TERMINATE-CCVS.                                                   END-ROUTINE-13                                                  .
2160      PROGRAM0      CTCCVS-E-2-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021700 TERMINATE-CALL00M CCVS-C-2 DUMMY-RECORD WRITE-LINETIMES MOVE()DELETED 8 END-ROUTINE-12
021800     STOP.                                                .2
0290I. " TO.ADD1 NC1354.2
022000 PASS.  MOVE "PASS " TO0210          "NO"  ERROR-TOTAL                                050 END-ROUTINENC1354270 IFINSPECT-COUNTERTO                          NC1354
02100 .  MOVE0MOVETONC1354
022200 DE-LETE240 .                                                   "()REQUIREI ENDER-DESC ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022300     MOVE "****TEST DELETED****" TO RE-MARK.                      NC13542700WRITE-LINENC1354.2
020 PRINT-DETAIL.                                                    .2
0040     PASS-COUNTERCCVS-E-4-1NC13542
022600             MOVE "." TO 0660 END-ROUTINE-13250     2NC1354
022050      0800         DUMMY-RECORDDUMMY-HOLDNC1354
022800     MOVE6800MOVE" "270        TO  .N8          SPACEDUMMY-RECORDC1354
0290     IFP-OR-F TO TOERROR-TOTALNC1354
023000        PERFORM FAIL-ROUTINE THRU70      "TEST(S)DELETED" OENDER-DESCNC135429MOVE(S) FAILED" TO ENDER-DESC. NC1354.2
020         MOVE TO60IFERROR-COUNTER  ZERO.2
260  TO   WRT-LNNC1354
023300     MOVE 07         C220LSE
040     IFREC-CT  MOVE   0ERROR-COUNTER.                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030     MOVE     NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060HEAD-ROUTINENC1354.2
023700     2600IF ISE210OVE TO                         .2
0380MOVE  .PERFORM.NC1354
230M290MOVEERROR-TOTALNC1354
020270 "TEST(S)DELETED " TO.                   .2
01
024200      CCVS-C-10IFjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024300     MOVE CCVS-C-2 TO740ELSEMOVE096      SPACENC1354
02440270BLANK-LINE-PRINT2
02426       CCVS-E-2  DUMMY-RECORD PERFORM.
02     HYPHEN-LINE  WRITE-LINE.NC1354
024700 END-RTN-EXIT.                                                    0WRITE-LINE90FAIL-ROUTINE
024800     MOVE CCVS-E-1310            GO TOFAIL-ROUTINE-WRITE.                             NC1354
040END-ROUTINE-1.2
0250830WRITE AFTER  200          HYPHEN-LINEDUMMY-RECORD WRT-LNjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02510      . ADDDELETE-COUNTER ERROR-HOLD.NC1354MOVE TO.090         ZERO.                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02520400WRT-LNNC1354.2
025300*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1354.2
025400      MOVE PASS-COUNTER2950     27         CCVS-H-3 DUMMY-RECORDWRT-LN     NC1354
02500     MOVE ERROR-HOLDTO.                              NC13542
025602900     PERFORM.                                              0MOVE TO WRT-LN
025700      MOVE CCVS-E-2 0310     MOVE   ANSI-REFERENCE COR-ANSI-REFERENCE.                NC1354.2
025800  END-ROUTINE-12.                                                 NC1354.2
025900      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC1354.2
026000     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC1354.2
02610MOVE"O "RECORDADVANCINGNC1354
026200         ELSE                                                     NC13540350IFCOMPUTED-A EQUAL TO0960MOVESPACE030400     MOVE  "NO FURTHER INFORMATION" . 2
026300         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1354.2
026400     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC1354110     0FAIL-ROUTINE-WRITENC1354
0      NC1354
026600 END-ROUTINE-13.                                                  0000MOVE   XXINFODUMMY-RECORDPERFORM  TIMES.
026700     IFDELETE-COUNTER EQUAL 50        TO  WRITE-LINE.   .2
0 ELSENC1354310     MOVE   TEST-CORRECT PRINT-RECPERFORM 2 TIMES .2
026900         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1354.203500  SECTION                                         NC1354
00"S"ENDER-DESC
027100     MOVE 30     INXEX1 TO01MOVETO COR-ANSI-REFERENCE.2
027200      IF   INSPECT-COUNTER 00    OVE0 TO.
027300          3310MOVEBAIL-OUT-WRITE.2
0270        INSPECT-COUNTER 2
0270       "TEST()REQUIREO . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
    NC1354
027700     MOVE CCVS-E-330              RRECT-A GO BAIL-OUT-EX
02780 .000SET  UP .                                          2
027900     ADD 1 TO RECORD-COUNT20BAIL-OUT-EXEXIT
02800IFRECORD-COUNT GREATER 42                                   NC135420EXIT
028100          DUMMY-RECORDTODUMMY-HOLD0        0     F      EQUAL 1
0220MOVE  DUMMY-RECORD.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028300WRITE AFTER ADVANCING PAGENC1354
0203400SET UP BY 001.                                        .2
028500         MOVE CCVS-H-2A DUMMY-RECORDPERFORM 2 TIMES   NC1354
028600         MOVE CCVS-H-2B310     W-3 TABLE-1INXEX2)                NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0350            INXEX1 TO0                                  .2
080        MOVETO  PERFORM           2
2800        MOVECCVS-C-2TO  PERFORM WRT-LNNC13542
040       TO.                                      2
02910         00     SETINXEX2 TO                            .2
029200         MOVE TO0500 PARAGRAPH-NAME-8NC1354
090       .
2.NC1354
029500     WRITE0ADD01TOW3
029600     MOVE SPACE TO DUMMY-RECORD035500*                                                                 NC135430               TOPARAGRAPH-NAME-6.NC1354
003500    SET INXEX1 INXEX3 TO01.NC13542
0980PERFORMWRT-LNNC1354
029900 FAIL-ROUTINE.                                                    .2
003600      TOWRITE-1430PARAGRAPH-NAME-7.
030100            GO TO FAIL-ROUTINE-WRITE.                             NC1354.2
0000    IF     0 .NC1354
030300     MOVE UP BY 00040          INXEX2  C1354
030400MOVENO34050IFINXEX1
00 XXINFO.PERFORM  TIMES35*ANDTHE TABLE     IN  NC1354
3600     MOVE60Ijava.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 80
030  FAIL-ROUTINE-EX
030800 FAIL-ROUTINE-WRITE.                                              NC1354034900*    THIS SECTION GENERATES VALUES FOR A 10X10X3 TABLE            NC1354.2
0390MOVE   TEST-COMPUTED PRINT-REC PERFORM WRITE-LINENC1354.2
03100    MOVE   ANSI-REFERENCE COR-ANSI-REFERENCE355*                                                                 NC13543300SECTION-NAME-2                                          .2
031100     MOVE   TEST-CORRECT PRINT-REC ERFORM 2 TIMES. NC1354.2
0320     MOVESPACES 35600     MOVE SPACE TO COMPUTED-A  CORRECT-A
031300 FAIL-ROUTINE-EX. EXIT.                                           035700 "" TO FEATURE                                  NC1354
031400 BAIL-OUT.                                                        NC1354.2
3100IFCOMPUTED-A0600     ABLE-1  INXEX2  )EQUAL TO1            .2
03160     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031700 BAIL-OUT-WRITE3600     GO020      TOWRITE-1.2
03180     MOVE CORRECT-A TOXXCORRECTMOVE COMPUTED-A.  07     MOVE INXEX1  +1INXEX3TO.
0390MOVE60     MOVEINXEX1  INXEX3TO.         NC1354
032000     MOVEXXINFOTO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1354.2
032100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1354.2
322 BAIL-OUT-EX. EXIT370DELETE-1.
0330 .                                                      2
0200EXIT0      DE-LETENC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03500 java.lang.StringIndexOutOfBoundsException: Range [16, 14) out of bounds for length 80
0303800     PERFORM DE-LETE                                             .2
0327003100      PRINT-DETAIL30 MOVEINDEX-TEST-2PAR-NAMENC1354
032800     SET INXEX1  INXEX2 INXEX3360      PRINT-DETAIL70INDEX-TEST-2NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032900     MOVE 001 TO W-30730    SET INXEX1INXEX2 INXEX3 TO1.                              .2
033000 PARAGRAPH-NAME-5NC1354.2
033100     MOVE W-3 TO TABLE-1 (INXEX1  INXEX2  INXEX3).                NC1354.2
033200     ADD 01  W-3.                                               NC13542
033300            INXEX3 QUAL310PERFORMPASS.2
30              GONC1354
3SET UP..2
0360GOT80COMPUTED-ANC1354
0300PARAGRAPH-NAME-6.2
033800     SET     INXEX3950PERFORM.                                                .NC135400     .
0390             EQUALTO.
03000                  GO TONC1354
034100     SET INXEX2 UP BY 00138     java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 80
0320  PARAGRAPH-NAME-5NC1354java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
034300 PARAGRAPH-NAME-703860      8400 WRITE-2.         .2
034400          INXEX2TONC13545MOVEINDEX-TEST-2PAR-NAME2
034500     IF       INXEX1 EQUAL TO 104000      "INDEX-TEST-3" TO.                             .2
0346000 INDEX-TEST-4.                                                    .2
034700       09     INXEX303.                                           2
040     GO PARAGRAPH-NAME-5NC1354
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
035100 PARAGRAPH-NAME-8.                                                050      TABLE-1INXEX1 TO.                                          90GO .NC1354
03310PERFORM                                                  "99TO.NC1354java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035300SECTION-NAME-2.                                          NC135400GO WRITE-4NC1354
0340 PARAGRAPH-NAME-9     TABLE-1- 5NXEX2 7INXEX3           2
035500*                                                                 NC1354.2
03564110PERFORM039900 WRITE-3                                                         .2
035700     MOVE "INDEXING" TO004120       WRITE-40GO WRITE-3                                               2
0358000PERFORM.NC1354.2
035900 INDEX-TEST-1.                                                    NC1354.2
036000     IF TABLE-1 (INXEX1  INXEX2  INXEX3020 INDEX-TEST-4NC1354.2
031      PASSNC13542
060      TO.
03300MOVE (INXEX1  INXEX3 0                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036400     MOVE 001 TO CORRECT-A.                                       40     ET INXEX3400     PERFORMPASSNC13542
0PERFORMNC1354
036600     GO TO080 0
036700 DELETE-1.                                                        NC1354.                                              .2
0 .
6
037000     MOVE "INDEX-TEST-1" TO PAR-NAME.                             NC135404600PERFORMPRINT-DETAIL.                                        NC1354
037100     PERFORM PRINT-DETAIL.                                        NC1354.2
00480     MOVE TABLE-1 (INXEX1  INXEX3)TO COMPUTED-ANC1354
037300     SET 0400     SET INXEX1 BY00290      "00 TOCORRECT-A.NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03740     IFTABLE-1 (INXEX1 + 1  INXEX3+ 1) QUAL 005     NC1354.2
037500     PERFORM PASS                                                 NC1354.203200DELETE-5
30GOTO WRITE-2.NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037700     MOVETABLE-1   +0340 .                                                        .
0NC13540450   (NXEX1INXEX3TO0            40      PRINT-DETAILNC1354
037900     MOVE "005" TO CORRECT-A.                                     NC1354.2
038000     PERFORM FAIL.                                                4480     MOVE"59" TO CORRECT-A020         TOjava.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 80
038100     GOTO0      FAILNC1354.2
03200 DELETE-2                                                        .2
038300     PERFORM DE-LETE.                                             NC1354.2
038400WRITE-2NC1354.2
0850     MOVE"INDEX-TEST-2"  .N.2
036004400      TABLE-1INXEX1  INXEX2) TO3     DE-LETENC1354.2
038700 INDEX-TEST-3.                                                    .2
038800     SET INXEX13600     PERFORM.                                        NC1354
038900     SET INXEX3 TO  03.                                           NC1354.2
0300     TABLE-1  INXEX2INXEX3)  TO9         NC1354
039100     PERFORM390     SET INXEX3TO60 .                                                    2
0320     GOTOWRITE-3NC1354.2
039300     04900PERFORMFAIL.                                                NC1354
0940      400GO WRITE-6                                               .2
0950PERFORMFAILNC1354
039600     GO TO WRITE-3.                                               NC1354.2
0390060          TO.
380     DE-LETE.2
039900 WRITE-3.                                                         NC1354.2
040000     MOVE "INDEX-TEST-3" TO PAR-NAME.                             NC13542
040100     PERFORM PRINT-DETAIL.                                        4460 INDEX-TEST-7                                                    .2
040200 INDEX-TEST-4.                                                    NC135404800 WRITE-7.                                                         50       INXEX3.
040300      INXEX1 INXEX2040300     SET INXEX1 INXEX2 TO.2
040400     SET 047200PARAGRAPH-NAME-10                                               4510 DELETE-6NC1354
0050IF( - 5   - 7 TO    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.2
00     GO WRITE-4NC1354
0000      TABLE-1(INXEX15 ..2
090         .
04100     MOVE"12670 PERFORMDE-LETEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04110P FAILNC1354.2
0120     GOTO TO ONENC1354
04800       " 001 458 SET INXEX2 INXEX3TO . NC1354.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04104900.
0410SECTION0         PERFORM.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070PERFORM2..2
041700     PERFORM PRINT-DETAIL4200      INSPT41      "BETWEEN NUMBERONA - THENUMBERS NC13542
080 .NC1354
0190     SET TO 180     WRITE.                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00SETT .                                         .2
05.                                             .                                    .2
0080      " BETWEEN ON ALINE-- .2
042300     SET INXEX349044MOVEBLANKSPACE)NC1354
2040 TONC1354
0    (INXEX2 TO.
460          PASSNC1354.2
0270         GO WRITE-5                                           .2
020      TABLE-1(INXEX1  INXEX3) 40SET     1.2
042900     MOVE "09050 PACESjava.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
043000     PERFORM FAIL.                                                00  TONC1354
.
043200 DELETE-5.                                                        NC1354.2
0 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030WRITE-5050                                                .
043500     MOVE "INDEX-TEST-5" TO PAR-NAME.                             NC1354.2
0450     SET .NC1354
04370 INDEX-TEST-6.                                                    .2
043800     SET INXEX1INXEX2TO 10.NC13542
09      INXEX30 NC1354.2
044000     SET INXEX1 DOWN BY 01.                                       NC1354.2
0    INXEX2BY.
044200*    NOTE IDEN-1 IS EQUAL TO 03.                                  NC1354.2
044300     SETINXEX3 BY 2.NC1354.20510     TO.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4IF 5           .2
044500         PERFORM PASS                                             NC1354.2
04460         GOTO                               2
0470      TABLE-1(  INXEX2  INXEX3TO COMPUTED-A10MVE1TO.                                            NC1354
044800     MOVE "259" TO CORRECT-A.                                     NC1354.2
0440     PERFORM FAILNC1354.2
045000     GO TO WRITE-6.                                               NC1354.2
05DELETE-62
045200     PERFORM DE-LETE.                                             NC1354.2
0 .
44     00CCVS-999999NC13542
045500     PERFORM PRINT-DETAIL.                                        NC1354.2
045600 INDEX-TEST-7.                                                    0PARAGRAPH-NAME-12NC1354.2
0050100     SETINXEX3 1.                                             NC13542
045800     SET INXEX2 INXEX3 TO INXEX1.                                 NC1354.2
045900     IFTABLE-1  (INXEX1  INXEX3) EQUALjava.lang.StringIndexOutOfBoundsException: Range [80, 54) out of bounds for length 80
046000         PERFORM PASS                                             NC1354500      INXEX2 P  1                                          NC1354
046100         GO TO WRITE-7.                                           NC1354.2
046200     MOVE TABLE-1 (INXEX1  INXEX2  INXEX3) TO COMPUTED-A.         NC135460      INXEX2 TO                                             .2
046300     MOVE "001" TO CORRECT-A.                                     NC1354.2
046400     PERFORM FAIL.                                                NC1354.2
046500     GO0590      TO.                                  .2
0460 DELETE-7.                                                        .2
046700     PERFORM DE-LETE.                                             NC1354.2
046800 WRITE-710 .
046900     MOVE "INDEX-TEST-7" TO PAR-NAME.                             NC1354.2
70 PRINT-DETAILNC1354.2
047100 SECTION-NAME-3 SECTION.                                          NC1354.2
0470100WRITE AFTER .                                     .2
0430     PERFORM LANK-LINE-PRINT.                            NC1354
04400 INSPTNC13542
047500     MOVE SPACES TO PRINT-REC.                                    NC1354.2
047600     WRITE PRINT-REC.                                             NC1354.2
0470      "NOTETHISSECTIONWRITES A 20X15 TABLE OF THREE-DIGIT NC1354.2
0700-" 001 TO 300 -- THERESHOULDBETWO TOPRINT-RECNC1354.2
047900     WRITE PRINT-REC.                                             NC1354.2
048000     MOVE SPACES TO PRINT-REC.                                    NC1354.2
048100     MOVE "SPACES BETWEEN EACH NUMBER ON A LINE --- THE NUMBERS NC1354.2
048200-      "001 THRU 020 SHOULD FORM THE FIRST LINE ---" TO PRINT-REC.NC1354.2
048300     WRITE PRINT-REC.                                             NC1354.2
048400     MOVE SPACES TO PRINT-REC.                                    NC1354.2
048500     MOVE "THE VALUES IN THIS TABLE WERE GENERATED IN NC1354.2
048600-       "SECTION-NAME-1 SECTION." TO PRINT-REC.                   NC1354.2
048700     WRITE PRINT-REC.                                             NC1354.2
048800     MOVE SPACES TO PRINT-REC.                                    NC1354.2
048900     SET INXEX1  INXEX2 INXEX3 TO ONE.                            NC1354.2
049000     MOVE 01 TO CTR-1.                                            NC1354.2
049100 PARAGRAPH-NAME-11.                                               NC1354.2
049200     MOVE TABLE-1 (INXEX1  INXEX2  INXEX3)  TO                    NC1354.2
049300     PRINT-ELE (CTR-1)                                            NC1354.2
049400     MOVE SPACE TO BLANKSPACE (CTR-1).                            NC1354.2
049500     ADD 1 TO CTR-1                                               NC1354.2
049600     IF CTR-1 EQUAL TO 21 PERFORM PARAGRAPH-NAME-15.              NC1354.2
049700     IF       INXEX3 EQUAL TO 3 GO TO PARAGRAPH-NAME-12.          NC1354.2
049800     SET INXEX3 UP BY   1.                                        NC1354.2
049900     GO TO    PARAGRAPH-NAME-11.                                  NC1354.2
050000 PARAGRAPH-NAME-12.                                               NC1354.2
050100     SET INXEX3 TO 1.                                             NC1354.2
050200     IF       INXEX2 EQUAL TO 10 GO TO PARAGRAPH-NAME-13.         NC1354.2
050300     SET INXEX2 UP BY 1.                                          NC1354.2
050400     GO TO    PARAGRAPH-NAME-11.                                  NC1354.2
050500 PARAGRAPH-NAME-13.                                               NC1354.2
050600     SET INXEX2 TO 1.                                             NC1354.2
050700     IF       INXEX1 EQUAL TO 10 GO TO PARAGRAPH-NAME-14.         NC1354.2
050800     SET INXEX1 UP BY 1.                                          NC1354.2
050900     GO TO    PARAGRAPH-NAME-11.                                  NC1354.2
051000 PARAGRAPH-NAME-14.                                               NC1354.2
051100     GO TO PARAGRAPH-NAME-16.                                     NC1354.2
051200 PARAGRAPH-NAME-15.                                               NC1354.2
051300     MOVE SPACE TO PRINT-REC.                                     NC1354.2
051400     MOVE NUMBER-LIST TO PRINT-REC.                               NC1354.2
051500     WRITE PRINT-REC AFTER 1.                                     NC1354.2
051600     MOVE 01 TO CTR-1.                                            NC1354.2
051700 PARAGRAPH-NAME-16.                                               NC1354.2
051800     EXIT.                                                        NC1354.2
051900 CCVS-EXIT SECTION.                                               NC1354.2
052000 CCVS-999999.                                                     NC1354.2
052100     GO TO CLOSE-FILES.                                           NC1354.2

quality94%

¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.26Bemerkung: ¤

*Bot Zugriff

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.