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


products/sources/formale Sprachen/PVS/metric_space/ (Beweissystem der NASA Version 6.0.9^©)

Quelle ic207a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         IC2074.2
000200 PROGRAM-ID.                                                      IC2074.2
000300     IC207A.                                                      IC2074.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
002800 ENVIRONMENT DIVISION.                                            IC2074.2
002900 CONFIGURATION SECTION.                                           IC2074.2
003000 SOURCE-COMPUTER.                                                 IC2074.2
003100     Card0130.                                                    IC2074.2
003200 OBJECT-COMPUTER.                                                 IC2074.2
003300     Card0131.                                                    IC2074.2
003400 INPUT-OUTPUT SECTION.                                            IC2074.2
003500 FILE-CONTROL.                                                    IC2074.2
003600     SELECT PRINT-FILE ASSIGN TO                                  IC2074.2
003700     "C0085" .                                                    IC2074.2
003800 DATA DIVISION.                                                   IC2074.2
003900 FILE SECTION.                                                    IC2074.2
004000 FD  PRINT-FILE.                                                  IC2074.2
004100 01  PRINT-REC PICTURE X(120).                                    IC2074.2
004200 01  DUMMY-RECORD PICTURE X(120).                                 IC2074.2
004300 WORKING-STORAGE SECTION.                                         IC2074.2
004400 77  INDEX-1 USAGE IS INDEX.                                      IC2074.2
004500 77  DN3 PICTURE 99  VALUE 15.                                    IC2074.2
004600 77  ID1 PICTURE X(6) VALUE "IC208A".                             IC2074.2
004700 77  DN4 PICTURE X.                                               IC2074.2
004800 77  DN5 PICTURE X(15).                                           IC2074.2
004900 01  TABLE-01.                                                    IC2074.2
005000     02  DN1 PICTURE X                                            IC2074.2
005100             OCCURS 1 TO 15 TIMES                                 IC2074.2
005200             DEPENDING ON DN3                                     IC2074.2
005300             INDEXED BY IN1.                                      IC2074.2
005400 01  TABLE-02.                                                    IC2074.2
005500     02  DN2   PICTURE X     OCCURS 8 TIMES.                      IC2074.2
005600 01  TEST-RESULTS.                                                IC2074.2
005700     02 FILLER                   PIC X      VALUE SPACE.          IC2074.2
005800     02 FEATURE                  PIC X(20)  VALUE SPACE.          IC2074.2
005900     02 FILLER                   PIC X      VALUE SPACE.          IC2074.2
006000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IC2074.2
006100     02 FILLER                   PIC X      VALUE SPACE.          IC2074.2
006200     02  PAR-NAME.                                                IC2074.2
006300       03 FILLER                 PIC X(19)  VALUE SPACE.          IC2074.2
006400       03  PARDOT-X              PIC X      VALUE SPACE.          IC2074.2
006500       03 DOTVALUE               PIC 99     VALUE ZERO.           IC2074.2
006600     02 FILLER                   PIC X(8)   VALUE SPACE.          IC2074.2
006700     02 RE-MARK                  PIC X(61).                       IC2074.2
006800 01  TEST-COMPUTED.                                               IC2074.2
006900     02 FILLER                    X(30)  VALUE.          IC2074
007000     02 FILLER300     IC207A.                                                      .2
0071000600*    VALIDATION FOR:-                                          *  IC2074.2
007000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. 000900* * IC2074.2
007300     03 COMPUTED-A001000*    "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IC2074.2
007400     03 COMPUTED-N               REDEFINES COMPUTED-A             IC2074.2
007500                                 PIC -9(9).9(9).                  IC2074.2
007600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IC2074.2
0001700*        X-82  - SOURCE COMPUTER001800*        X-83  - OBJECT COMPUTER NAME.                         *  IC2074.2
007800     0002100*        THE PROGRAM IC207 DEFINES002200*    THE TABLE AND THE VARIABLE002300*    ARE OPERANDS IN A CALL002400*    INDEX IS DEFINED FOR THE TABLE AND AN INDEX 002500*    IS USED TO 002600*    TO AND FROM THE SUBPROGRAM002700****0280ENVIRONMENT.                                            IC207490  SECTIONIC2074
070      CM-18V0 COMPUTED-A.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000COMPUTED-18V0 -98.         .2
008100         04 FILLER                           PIC X.               IC2074.2
00800     03 FILLER PIC X(50) VALUE SPACE.                             IC2074.2
008300 01  TEST-CORRECT.                                                IC2074.2
008400     02 FILLER PIC X(30) VALUE SPACE.                             IC2074.2
008500     02 FILLER PIC X(17) VALUE " CORRECT =".                IC2074.2
008600     02 CORRECT-X.                                                IC2074.2
008700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IC2074.2
008800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IC2074.2
008900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IC2074.2
009000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4)004100 01 PRINT-REC PICTUREX10)                                    .2
009100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IC2074.2
009200     03      CR-18V0 REDEFINES CORRECT-A.                         IC2074.200400 .                                         .2
009300         0400 7   PICTURE9VALUEIC2074
009400         040 7ID1X6  "IC208A"                             IC2074.2
009500     00070 7DN4 X.IC2074.
009600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IC2074.2
009700 01CCVS-C-1IC2074
009800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIC2074.2
009900-    "SS PARAGRAPH-NAME IC2074.2
010000-    " 050OCCURS 1 TO 15 TIMES IC2074.2
00     2FILLERPIC)VALUE.      IC2074
010200 01  050INDEXED.                                      .2
010300     02 FILLER                     PIC X        VALUE SPACE.      005500     02  DN2   PICTURE X     OCCURS 8 TIMES.                      IC2074.                                                .2
010400     0050     2                    X SPACE.2
0100     0                       X(1)VALUE.      IC2074
0160                           X()VALUE.IC2074
010700     02 FILLER                     PIC X(94)    VALUE SPACE.      006200PAR-NAME.                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010000  REC-SKL-SUB                    9(2)     VALUE.       IC2074
010900 01  REC-CT                        PIC 99       VALUE ZERO.       IC2074.2
011000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IC2074.2
011100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IC2074.2
011200 01  INSPECT-COUNTER X3010IDENTIFICATION                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00"COMPUTED=. IC2074.2
011400020PROGRAM-ID                                                      .2
1 1ERROR-HOLDVALUE IC2074
011600 01  DUMMY-HOLD                    PIC X(00300     0 COMPUTED-A               PIC0VALUE.         IC2074
011700 01  RECORD-COUNT000700*                                                              *  IC2074.2
011800 01  ANSI-REFERENCE000900*                                                              *  IC207400  REDEFINES   PIC-91)IC2074
19001  .                                                    .2
012000     02  FILLER                    001400*      X-CARDS USED BY THIS0010**  IC2074
0001600*        X-55  - SYSTEM80 04FILLERPIC               .2
02     OFFICIAL.IC2074
012300     02  FILLER                                                *  IC2074.2
0200020*THE C207 A VARIABLE0020*     TABLE VARIABLETHE020      INAC  USING.   AN.020*INDEX  FOR TABLE INDEXITEMIC2074
012500   0080 ENVIRONMENT DIVISION                                            .2
012600   0000SOURCE-COMPUTERIC2074
012700   02  FILLER                        PIC XXXX0103 1.IC2074
012800     "4.2 ".                                                      IC2074.2
0129002                         PIC0INPUT-OUTPUT.IC2074
IC2074
013100   02  FILLER                        PIC X(41)  VALUE PRINT-FILE                                  2
013200                                                                  0  REDEFINES      -9)()     2
0  IC2074
30   2FILLERPIC (5               IC20742      REDEFINES                         ..2
02   PICTURE2IC2074
013600   02  TEST-IDWORKING-STORAGE.                                         .
01370   0                          PIC4                IC2074
0130            IN
019002 FILLER                        PIC1)VALUE.2
00 7DN5PICTUREX1).                                          .2
00000   PICTUREXIC20742
014200            " LEVEL VALIDATION FOR ".                             IC20740050OCCURSTO                                 IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0402FILLERPIC(8 IC2074
014400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2074.2
014500 1CCVS-H-3IC2074
014600     02  FILLER                      PIC X(34)  VALUE             IC2074050         PICTURE 8.                      .2
170" OROFFICIALUSE ONLY .IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
140     2                      5) ALUEIC2074
0400     COBOL5VERSIONAprSSVG.2
015000     02  FILLER                      PIC X(28)  VALUE             IC2074.2
50 "COPYRIGHT 95.IC20742
06002  .                                                .
015300     02 FILLER                       PIC09 1REC-CT9VALUE0      PARDOT-XVALUE          .2
1402   X4  "ENDOT ".IC2074
500                     PIC(.IC2074
                    X()  VALUE.2
17 1java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
015800     02  FILLER                      0150                      PIC ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015900     02  FILLER                      PIC X(21)  VALUE00                 COMPUTED-A2
10002CCVS-E-2-2 COMPUTED-A.(8.IC2074
0100               PIC    ALUE.      IC2074
1200                           SPACE.2
130 1CCVS-H-12
0600" ENCOUNTERED".IC2074
010 1CCVS-E-3IC2074
6                             X2) VALUEIC2074.2
060             FOR USE" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02                       X2   SPACE2
19     2FILLERPIC8               .2
0200  PIC)VALUE.IC2074
0102002FILLER X(7    0030
017200     02 FILLER                       PIC 020     "2"                                                      IC2074
017300             " COPYRIGHT 1985".                                   IC2074.2
01400  .                                                    2                         X1  SPACE2
017500 CCVS-E-4-10     3CORRECT-0V18 ORRECT-A1.IC2074
01760      ILLER040                           1   IC2074
0177002                    PIC     VALUESPACE.2
01780     2FILLER X4              .
01003004 CORRECT-18V0 060   0 TEST-ID X9.IC2074
018000 01  XXINFO.                                                      0   0  FILLERPIC4)                IC2074
018100900         0                            0300                          X1)             2
018200            "*040 2FILLER X(8 VALUE SPACE.IC20742
-.                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                      X)VALUE
10                         PIC (0.IC2074
16004FILLERPIC5    SPACE010-          "                                            2
1700                    X(0.IC2074
1800            PIC8                   IC2074
0190   .
019000     02 FILLER  PIC IS X VALUE IS SPACE.                          IC207400F                     X      "".010            FORUSE" 2
1 *************.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
90    **********************.
132010" 95 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019400-    "********01530 02 FILLERPIC X(5) VALUESPACE. IC2074.2
04 2FILLER()  IS " OF TEST- ".             IC2074
9".IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0900 IC2074
019800 CCVS1 SECTION0 1CCVS-E-2IC20740                       PIC10 SPACE.2
19 ..
20900CCVS-H-1IC2074
210      CCVS-PGM-IDTO. MOVE0     02FILLER ()VALUE.     IC2074
0020     MOVE TO TEST-RESULTSIC20740121000                       X4)VALUE.2
230PERFORM THRUIC2074
0040     GO24   CCVS-H-2AIC2074
020500 0165015   2FILLER (0   SPACE.2
002002                           X()   VALUE..2
270TERMINATE-CCVS.2
020800     EXIT8     42" IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20 .                                                  .30  -FOR IC2074
02100STOPIC2074.
030                                                                  IC2074
02120 PASSMOVE"PASS " TO P-OR-F.  ADD 119     2                         X5)              IC2074
021300 FAIL.  MOVE30              ".
010 .MOVE*"ADD1DELETE-COUNTER .
25     "**DELETED** 021500 MOVE "****TEST DELETED****" TO RE-MARK)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20PRINT-DETAILIC2074
021700     IF REC-CT NOT EQUAL TO ZERO                                  IC2074.2
080MOVE" IC2074.2
021900             MOVE REC-CT 120"LEVEL VALIDATION FOR ".                             .2
2     java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
2      EQUALFAIL               2
0220PERFORM THRUIC2074
022300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IC2074.2
022400     MOVE SPACE817             FOR                               2
022500     MOVE150       4      5VERSION9SSVG.2
02104  PICVALUE
022700     MOVE     SPACE       4                  PIC0.IC207450                 9 ".IC20742
02280002FILLERPIC)ALUE      IC2074
29      CCVS-H-1DUMMY-RECORD WRITE-LINE.IC2074
0MOVE . WRITE-LINE.  IC2074
023100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE0-"****************".IC2074
03      CCVS-H-3DUMMY-RECORD3..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023300 019400- *********10                        (   2
0240MOVE  DUMMY-RECORD0".
0250MOVE TO.PERFORM  .   IC207460         3ERROR-TOTAL    090S.
023600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE0            ERRORSIC2074
023700 END-ROUTINE.                                                     IC2074.000OPEN PRINT-FILE.2
28060" OFFICIAL ONLY .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
290END-RTN-EXITIC2074
024000     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.0690     FILLERPIC0000       HEAD-ROUTINE COLUMN-NAMES-ROUTINE
024100 END-ROUTINE-1.                                                   2                       1) 020CLOSE-FILES.2
02420000 END-ROUTINE             java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 80
230ERROR-HOLD  ERROR-HOLD.2
024400      ADD PASS-COUNTER TO ERROR-HOLD.                             00TERMINATE-CALLIC2074
024500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IC2074.2
00.  ""  P-OR-FTO         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2         CVS-E-4-2
024020 .  MOVE**07       WERE.2
024900      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE      "** DELETED**"TO0FILLERPIC19               IC2074
20  .                                                 .
210      MOVETEST"TOENDER-DESC IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02520018              ". PARDOT-XIC2074.
0500MOVE ERROR-TOTAL
025400         ELSE                                                     MOVE TO. WRITE-LINE1java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 80
025500         MOVE 020PERFORM  FAIL-ROUTINE-EX.2
025600MOVE TO.02           BAIL-OUT                 .2
025700     PERFORM WRITE-LINE.                                          IC2074902FILLERPIC X  IS.                          .2
02580 .
025070MOVE  RE-MARK.2
026000         MOVE "NO " TO ERROR-TOTAL  ELSE20.
060MOVE TO IC2074
026200     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IC20741MOVE  DUMMY-RECORD 3 .  IC2074
20      CCVS-E-2.  WRITE-LINE
0240IF00      CCVS-C-1PERFORM.IC2074
20           " "TO ERROR-TOTAL                               IC2074.2
2ELSE TO3     YPHEN-LINE.  WRITE-LINE.2
026700MOVES    ENDER-DESC.2
026800      MOVE CCVS-E-2CCVS-PGM-ID X9                IC2074
0260      CCVS-E-3  WRITE-LINEIC2074
027000 WRITE-LINE.                                                      IC2074.2
027100ADD  RECORD-COUNT
027200     IF RECORD-COUNT GREATER 090OPEN-FILESIC2074.2
020400      CCVS-E-1. PERFORM 2 TIMES.2
21java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
0010MOVETOMOVE .   IC2074
0276040ERROR-HOLD TO.               .2
CCVS-C-20MOVE  TEST-RESULTS.
02780         MOVE TO PERFORM          IC2074
0DUMMY-RECORDIC20740 PASS-COUNTER CVS-E-4-1.2
028000         MOVE ZERO TO RECORD-COUNT CLOSE-FILES.                                                     IC2074
028100     PERFORM WRT-LN.                                              IC2074070TERMINATE-CCVSIC2074
0220WRT-LN.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0280     WRITE AFTER  LINES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028400     MOVE SPACE200STOP.                                               00                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20.IC2074
028600     PERFORM WRT-LN.                                              IC2074.2
                          IC2074
020.   "*"  P-OR-F   ERROR-COUNTERIC2074
     ."* DDTODELETE-COUNTER 2
9    TO1      *DELETED
029100     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO 210       NOT .IC2074
029200     MOVE   XXINFO5      DELETE-COUNTER ZERO2
029300     021900         60          ""TOIC2074
029400     020           TO0210   TOIC2074
250.                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02960 0    EQUAL ZEROIC2074
02970025           " .2
02980   TEST-CORRECT      SPACE CORRECT-X                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09            COR-ANSI-REFERENCEC2074
030000 FAIL-ROUTINE-EX. EXIT200      CCVS-H-1TO DUMMY-RECORD2690     CCVS-E-3 DUMMY-RECORD WRITE-LINE2
30 ..IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030200          COMPUTED-A EQUAL TOSPACE IC2074
030300     IF      EQUAL0300 CCVS-H-3ODUMMY-RECORDWRITE-LINETIMES2
030400 BAIL-OUT-WRITE.                                                  730         MOVE TO DUMMY-HOLD0COLUMN-NAMES-ROUTINE.2
3050     MOVETO. MOVE TO.  .2
030600200MOVE TO DUMMY-RECORD WRITE-LINE.   IC20742
030700     MOVE   XXINFO27500          DUMMY-RECORD AFTER260MOVE TO. PERFORM.IC2074
08MOVE INF-ANSI-REFERENCE.
030900 BAIL-OUT-EX. EXIT.                                               0 CCVS-C-2 PERFORM 2TIMES
010 .                                                      .2
031100     EXIT.                                                        IC2074.2
031200 SECT-IC207-0001 SECTION40 .                                                   .2
031300 INIT-PARAGRAPH.                                                  IC2074.2
031400     MOVE "ABCDEFGHIJKLMNO0824 PASS-COUNTER TO ERROR-HOLD.IC2074.2
350SET TOIC2074
031600     SET INDEX-1 TO IN1.25 .                                                060MOVE CCVS-E-4-1.
3100      3  DN3IC2074
031800     MOVE SPACE TO TABLE-02.                                      IC2074.2
0390     CALLID1 TABLE-01TABLE-02, DN3280        OT TO GO java.lang.StringIndexOutOfBoundsException: Range [71, 70) out of bounds for length 80
320 .                                                    .2
032100*            THIS TEST CHECKS THAT AN INDEX DATA ITEM WAS         IC2074.2
032200*        CORRECTLY PASSED TO A SUBPROGRAM.                        IC2074.2
0200MOVELINK-TEST-01.IC2074
032400     MOVE "INDEX 0520 ERROR-COUNTER IS EQUAL java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032500     IF 50ELSEIC2074
6 50 TO.IC2074
03270GO LINK-WRITE-01IC2074
032800 LINK-FAIL-01.                                                    IC2074.2
39      FAILIC2074
03300      DN21)TO04       FAIL-ROUTINE-EX.2
033100     MOVE "C" TO CORRECT-A0IFDELETE-COUNTER EQUAL ZEROIC2074
03320      "VALUE OF090 MOVE ANSI-REFERENCE TOCOR-ANSI-REFERENCE.IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30 .
0300 .                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0350LINK-TEST-02IC207400FAIL-ROUTINE-EX.
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
033000 .                                                  .
034000     MOVE0        ANSI-REFERENCE INF-ANSI-REFERENCE60 MOVE TO.IC2074
0400 LINK-TEST-02-01.                                                 .
034200     080MOVE   SPACES INF-ANSI-REFERENCE.
034300         PERFORM 0000BAIL-OUT-EXEXIT09      CVS-E-3.  WRITE-LINEIC2074
034400         GO TOLINK-WRITE-02-01.                                  .2
0350 .                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3PERFORMIC2074
0370MOVE ()TO.                                  .2
080MOVE"TOCORRECT-A. 2
9MOVE (TO.                           .2
035000 LINK-WRITE-02-01MOVE  DUMMY-RECORD 2TIMES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035100     PERFORM0160      INDEX-1 IN1.                                         70MOVE TO                          .2
2.                                                 .2
0D1TABLE-02             2
035400     IF DN2 (3) EQUAL 22.
03550          PASSIC2074
035603230     MOVE"LINK-TEST-01"TOPAR-NAMEIC20742
035700 LINK-FAIL-02-02.                                                 IC2074.2
0580 FAILIC2074
390MOVE ()TO COMPUTED-A.2
036000     MOVE "B" TO CORRECT-A.                                       IC2074.2
036100     MOVE "VALUE OF DN2(3)" TO RE-MARK.                           IC2074.
03620 LINK-WRITE-02-02IC2074
036300     PERFORM PRINT-DETAIL.                                        IC2074.2
036400 LINK-TEST-02-03.                                                 0320        TO.
036500     ADD 1 20     MOVE TO.IC2074
060  4T "IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0367030     MOVE TO WRITE-LINE
038030MOVE OF) TO.                           .2
060 ...2
30PERFORM.                                                .2
037100     MOVE DN2 (4) TO COMPUTED-A.                                  IC2074.2
037200     MOVE "X" TO CORRECT-A300 . EXIT                                           .2
037300     MOVE "VALUE OF DN2(4)" TO RE-MARK                           IC2074380MOVE  TO.                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037400 LINK-WRITE-02-03.                                                IC2074.2
037500     PERFORM PRINT-DETAIL.                                        IC2074.2
037600 LINK-TEST-02-04.                                                 IC2074.2
037700     ADD 1 TO REC-CT.                                             IC2074.2
0380IF (java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070PERFORM                                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3          TO.IC2074
038100 LINK-FAIL-02-04.                                                 IC2074.2
038200     PERFORM FAIL.                                                IC2074.2
03810INIT-PARAGRAPHIC2074
038400     MOVE "G" TO340MOVE"TOTABLE-01 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050MOVE ()"TORE-MARK IC20742
038600 LINK-WRITE-02-04.                                                IC2074MOVE3TODN3IC2074
7 .
038800 LINK-TEST-0300ADD  REC-CTIC2074
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
039200     MOVE "LINK-TEST-03" TO300         GO  LINK-WRITE-02-02IC2074
30050 LINK-FAIL-02-022
039400     MOVE "CONDITION NAME" TO FEATURE20      "INDEXDATA TO . IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03950LINK-TEST-03-01320                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039600     IF DN2300MOVE"TOCORRECT-A 08 .IC20742
00PERFORMIC2074
0980GOTO.                                  .
090 LINK-FAIL-03-01IC2074
40 FAILIC2074.2
040066      DN2 TOIC2074
040200     MOVE "A" TO CORRECT-A.03600        THIS VERIFIES  THE LENGTH        IC2074
040300     MOVE "VALUE OF DN2(6)" TO RE-MARK.                           IC207460LINK-FAIL-02-03IC20742
04000 LINK-WRITE-03-01IC2074
040500     PERFORM PRINT-DETAIL70     MOVE (4)  COMPUTED-AL.                                                 2
0060 LINK-TEST-03-02IC2074.2
000        REC-CT.2
040800     IF DN2 (703730     MOVEVALUE RE-MARK4         TO.
040900PERFORM0PERFORM..2
041000         GO TO LINK-WRITE-03-02.                                  IC2074.2
410LINK-FAIL-03-02IC2074.2
IC2074.2
041300     MOVE DN20380MOVE"TOCORRECT-AIC20742
0410     MOVEV"TO CORRECT-A. IC2074.2
0150     MOVE OF("TORE-MARK.IC20742
04100LINK-WRITE-03-02IC2074
041700     PERFORM350      PRINT-DETAIL.IC2074
410 LINK-TEST-03-03.                                                 IC2074
090     ADD1TO.
0200IF 8 EQUALTOH                                      .
04210          PASSIC2074
042200         GO TO LINK-WRITE-03-03.                                  IC2074.2
04300LINK-FAIL-03-03IC2074.java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
04240     PERFORM.                                                2
04038900*        THIS TEST VERIFIES THAT THE CONDITION NAMES DEFINED      039000*    IN039100*    CORRECTLY0      "" CORRECT-AIC2074
042600     MOVE "H" TO CORRECT-A.                                       IC20740      1  REC-CTIC2074
042700     MOVE "VALUE090 LINK-TEST-03-01. IC2074.2
08IC2074
2      PRINT-DETAILIC2074
043000 LINK-TEST-04.                                                    IC2074.2
40 ""TO.IC2074
3MOVEPTO
043300     MOVE 1 TO REC-CT.                                            IC2074.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
3SET INDEX-1IC2074
043900     MOVE DN1 (IN1) TO DN4.                                       IC2074.2
4IF EQUAL ""IC2074
044100         PERFORM PASSPERFORM.
2GO7        REC-CTIC2074
044300 LINK-FAIL-04-010          48       7EQUAL V
4PERFORM                                                2
044500     MOVE DN4 TO COMPUTED-A.                                      IC2074.2
4      B  CORRECT-A.
044700     MOVE "VALUE OF DN1(IN1)" TO010      FAIL..2
0..2
044900     PERFORM 038800 LINK-TEST-03.     IC2074
0.
039100*    CORRECTLY.                                                   IC2074.2
045200     SEARCH030      1TO.                                            .2
0180 .                                                 IC20742
0490IF (  "IC20742
030PERFORM2
045600             PERFORM FAIL                                         IC2074.2
045700             MOVE DN1 (IN1) TO 020 TO.                                  .2
045800             MOVE "MATCH SHOULD NOT BE FOUND" TO RE-MARK.         IC2074 .
0590 .                                                .2
0                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 .IC2074
046200 LINK-TEST-04-03.                                                 IC2074     PERFORM.
046300     ADD 1 TO REC-CT.                                             IC2074.2
4 TABLE-01.IC2074
00       EQUAL " .2
60PERFORMIC2074
046700         GO TO LINK-WRITE-04-03.                                  IC2074.2
0430 1 TO0MOVED 7)TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046900     PERFORM043600450      VALUET .IC2074
00MOVE COMPUTED-AIC2074
047100     MOVE "ABCDEFGHI 470 RINT-DETAIL.IC2074.2
48LINK-TEST-03-03C2074
04040      DN4        REC-CT.
7PERFORM.IC2074
047500 EXIT-IC207.                                                      IC2074.2
047600     GO TO CCVS-EXIT .
047700 CCVS-EXIT200GO 450  OCOMPUTED-Ajava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04780040 .
047900     GOH  CORRECT-A.2

quality95%

¤ 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.25Bemerkung: ¤

*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.