Quelle ic207a.cob Sprache: Cobol

000100 IDENTIFICATIONPIC SPACE.2
000200 PROGRAM-ID.                                                      IC2074.2
0003C2074
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
00  DIVISION.2
002900 CONFIGURATION .                                           .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
0035090     03      CM-18V0 REDEFINES.                       IC20742
003600     SELECT PRINT-FILE ASSIGN TO                                  IC2074.2
003700     "C0085" .                                                    IC2074.2
003800 DATA DIVISION.                                                   IC2074.2
003900 FILE SECTION.                                                    0800         4 COMPUTED-18V0                    PIC9(1) IC2074
004000 FD  PRINT-FILE20java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01PRINT-REC (2).IC2074
004200 01  DUMMY-RECORD PICTURE X(120).                                 IC2074.2
4WORKING-STORAGE SECTIONIC2074
004400 77  INDEX-1 USAGE IS INDEX.                                      IC2074.2
050 7  DN3 9   15.                                    .2
0607   PICTURE () VALUE.IC2074.2
407   PICTUREX                                               .
004800 77  DN5  .                                                    .2
004900 01  TABLE-01.                                                    IC2074.2
005000     02  DN1 PICTURE X                                            IC2074.2
010             OCCURSTOTIMES
0052000110     0 FILLER                      X(20    VALUE SPACE.2
050              BY IN1IC2074
005400 01  TABLE-02.                                                    IC2074.2
.2
005600 01  TEST-RESULTSIC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005700     02 FILLER                   PIC X      VALUE SPACE.          IC2074.2
005800     02 FEATURE                  PIC X(20)  VALUE SPACE.          IC2074.2
09002FILLERPIC      VALUE.          IC2074
006000     02 P-OR-F00     2FILLERPIC15    VALUE SPACE.2
006100     02 FILLER                   00002FILLERPIC4      "FAIL"     .2
     02  PAR-NAMEIC20742
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.           IC20748 1REC-SKL-SUBPIC ZERO.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                   PIC(0000 IDENTIFICATION.IC2074.2
007000     02 FILLER                   PIC X(17)  VALUE                 IC2074.2
0710                   =.                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
IC207401500                      PIC99       ZERO
73COMPUTED-A                X(2)   SPACE          .2
007400     000500*                                                              *  IC2074.2
007500                                 PIC -9(9).9(9).                  IC2074.2
00760     3COMPUTED-0V18 COMPUTED-A .(8.         .2
007700     03001000*    "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IC2074.2
007800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(1010 1CCVS-H-1IC2074
007900     03       CM-18V0 REDEFINES COMPUTED-A.                       IC2074.2
008000         40150                                                              .2
0010                                     X.IC2074001700*        X-82  - SOURCE COMPUTER NAME.00180200" COBOL COMPILER VALIDATION SYSTEM"                 .2
008200     03 FILLER002000*******140 01010*        PROGRAMIC207 DEFINES LENGTH TABLE20*    THE AND THE CONTAINING  TABLE 0030*AREOPERANDS  ALLSTATEMENT PHRASEALSOAN      IC2074040     IS DEFINED THE AND AN DATA 002500*    IS USED TO PASS AN INDEX VALUE FOR A TABLE REFERENCE         .2
030 0  TEST-CORRECT.2
008400     02 FILLER PIC X(30) VALUE SPACE.                             IC2074.2
008030Card0131IC2074
008600     02 CORRECT-X0    FILLER040  SECTION.2
008700     03 CORRECT-A                  350 FILE-CONTROL                                                    .2
0           ().99.     IC2074.2
008900     03 CORRECT-0V18REDEFINES -918.        .
00900     3CORRECT-4V14  CORRECT-APIC(4.94.     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 01300  .
0092     0 CR-18V0.                         IC2074
009300         04 CORRECT-18V0                     PIC -9(18).          IC207401DUMMY-RECORD (2.IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0302FILLER X()VALUE.2
050     F PIC() VALUESPACE80 IN..2
009600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.06 7ID1 ()  "IC208A".                             .2
009700 01  CCVS-C-1.                                                    IC2074.2
009800     02 FILLER00  .                                                    .2
00900              1TOTIMESIC2074.2
0000    "REMARKS"                                            .2
01002                     00                             X8VALUE
010200 01  CCVS-C-2.                                                    0  .                                                    .2
010300     02 FILLER                     PIC7002                    X       SPACE.
00FILLER 08       PIC8 ALUE.2
010500     02 FILLER                     PIC X(19" 8 VERSION 4.2, Apr 1993 ".IC2074
010600     000600     02P-OR-F X5 SPACEIC2074
0107110             COPYRIGHT
000 1REC-SKL-SUBPIC(2)      ZERO.2
000001                         PIC 9        06 3               XVALUE.IC2074
011000 01  DELETE-COUNTER4     FILLER()IS  EST-2
11102ID-AGAINX9
11015600     02 FILLER    5  SPACES
03 100  .
011400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IC2074.2
010001ERROR-HOLD 999      VALUE.       IC2074.2
011600 01  DUMMY-HOLD                    PIC X(120)   VALUE7      .                                               .
011700 01  RECORD-COUNT                  PIC 9(5)     VALUE 060     2.07600     03 COMPUTED-0V18 REDEF    -91)         .2
0118000 060         0FILLER XVALUE      IC2074
0  .
012000     02  FILLER                    PIC1500  .                                                    .2
012100     02  FILLER                    PIC070" OFFICIALUSE ONLY.IC20742
012200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IC2074.2
0123016800     0  FILLERPIC(1)  VALUE.      IC2074.
012400 01  016000  FILLER                       X(5)VALUEIC2074
150   2FILLER X(0  VALUE SPACE     2
1260   2                         PIC)VALUE800  TEST-CORRECTIC2074
      PIC   VALUE.2
180     4. .                                                      .2
01900                           X2)VALUE.2
013000            " COPY - NOT FOR DISTRIBUTION".                       IC207400 CORRECT-X.                                                .2
011     ILLERX(1VALUE      .2
013200                                                                  IC2074.2
013300 01  CCVS-H-2B0     2CCVS-E-4-190     3CORRECT-0V18       .()         IC2074
10                          X5V            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00920     3      REDEFINES00                        PIC0)VALUE2
030000                       PIC()                    2
01370   2  FILLER                         X(4)   VALUE.2
013800            " IN ".                                               IC2074.2
190   2FILLER (2)             .
01400090     3FILLERPIC ()  SPACEIC2074
1100  PIC4) VALUE     .2
4                                                            2
00   PIC (9     IS               2
014400     090      4FILLER ()    .      .2
0145015004XXCOMPUTEDX2)                   .2
014600     02  FILLER                      PIC X(34)  VALUE080        FILLER                      X()VALUE.      IC20740 "REMARKS"                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4" ONLY .IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014800     02  FILLER                      PIC X(58)  VALUE             IC2074.2
014900     "01080001 REC-SKL-SUB 9(2) VALUEZERO IC2074.2
015000     02  FILLER092-"******************* IC20742
11                 18" 2
05200 CCVS-E-1IC2074
0                        5 .IC2074
14        X(4 java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
015000160     " 2
0156015 1                    PICVALUE190  DIVISION.2
015700 0  .                                                    .2
100 FILLER X(31   SPACE.10OPEN-FILES.2
015900     02  FILLER                      PIC X(21)  VALUE SPACE.      IC2074.2
010000CCVS-H-1
0000MOVE  TEST-ID202                       (     SPACES2
020    SPACE.                               .2
016300         03 ENDER-DESC" COBOL VALIDATION ".                 .2
016400            "20 140CCVS-H-2A. IC2074.2
52  PICVALUEjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
016600     02  FILLER012700   02  FILLER                        FILLERPIC0000.
0160290TERMINATE-CALLIC207410                FOR" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016800     02  FILLER                      PIC X(12)  VALUE0          RUN.                                                2
060002  FILLERPICX(8  VALUE.2
017000     "ON-SITE VALIDATION,NATIONAL OF STD & TECH. "..2
03000                          PIC X(5)VALUEIC2074
30   2TEST-ID0DE-LETE "*** P-OR-F ADD1 .I.2
017300             " COPYRIGHT0100MOVE ***EST ***"TO    IC2074
017400 1  CCVS-E-4IC2074.2
017500     02 CCVS-E-4-1                   PIC0260 .                                                    .2
017600     02 FILLER90   2FILLERPIC(1)VALUE.2
017700     02 14000     " HIGH  8              .PARDOT-X
017800     02 FILLER                       PIC00   2FILLERPIC             IC2074
0790   "2
018000 01  XXINFO.                                                          FILLER20MOVE TO.  WRITE-LINEIC2074
018100     02 FILLER                       20         FAIL-ROUTINE FAIL-ROUTINE-EX                 .2
011460     2FILLERPIC34               IC2074.2
01040" OFFICIALUSEONLY".
80                      X8    SPACEIC2074
080       100COBOL8   42   99                        IC2074
0804F                      X()    .      IC2074
018700       0 XXCORRECT X(2)                   .2

018900 01  HYPHEN-LINE.                                                 IC2074.2
019000     02 FILLER  PIC IS X VALUE0 13      FILLER                       X5  S.      .
019100     02 FILLER  PIC IS X(65)    VALUE IS "******0500 TODUMMY-RECORDPERFORM TIMES IC2074.2
09200-   *************************" .2
019300     02 FILLER  PIC IS X(54)    VALUE IS "**********01230MOVECCVS-H-3 TO DUMMY-RECORDPERFORMWRITE-LINE 3TIMES.IC207422
   "**********************09000FPIC X1VALUE . IC2074.2
S-PGM-IDPIC()VALUE.2
0160"IC207A. IC2074.2
019700 PROCEDURE20      CCVS-C-2 DUMMY-RECORD  WRITE-LINE2TIMES.2
0100 ECTION.2
019900 OPEN-FILES.                                                      IC20740 0                    PICXVALUE.      IC2074
200          OUTPUT.                                  IC2074
020100     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN030160" USE".IC2074
02020016800     02  0390END-RTN-EXIT.                                                    .2
20       HEAD-ROUTINE.             .2
020400     GO TO CCVS1-EXIT.                                            IC2074.2
2250 .                                                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
260     PERFORM1730 COPYRIGHT" .2
0270TERMINATE-CCVSIC20742
020800     EXIT 040      . ADD DELETE-COUNTERTO.               IC2074
0290 TERMINATE-CALL.                                                  .2
021000     STOP     RUN.                                                IC2074.2
2110 INSPTMOVEINSPTTO. ADD 1 TO INSPECT-COUNTER.         IC20742
0 1 TO.           .2
021300 FAIL.  MOVE 2 CIC2074
240DE-LETE "**0100"TESTS EXECUTED" IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021500MOVE***TEST**  RE-MARK800                             (9)VALUE.2
021600 PRINT-DETAIL.                                                    IC2074.2
021700     IF REC-CT NOT EQUAL TO000      MOVES)" TO ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
280MOVE"TO IC20742
021900              REC-CT30 MOVENOTOIC2074
022000          TEST-RESULTS PRINT-REC.PERFORM.      IC207410       4FILLERPIC()VALUE.      .2
022100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IC2074.2
2220         FAIL-ROUTINETHRU                 IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
230ELSEPERFORMTHRU.IC2074
022400     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IC2074.2
022500     MOVE SPACE TO CORRECT-X.                                     IC2074.2
022600     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO80END-ROUTINE-13IC2074.2
220          SPACETO.                                   IC2074
0280 HEAD-ROUTINEIC2074.2
022900     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IC2074.2
023000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM060          DELETE-COUNTER ERROR-TOTAL.                     .2
02310      CCVS-H-2BTO. PERFORM WRITE-LINETIMES.2
023200     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IC2074.2
02330630MOVE TO DUMMY-RECORDPERFORM           IC2074
2340MOVETO. PERFORM .          .2
00MOVE 060          MOVENO java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
200MOVE TOjava.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 80
023700 END-ROUTINE.                                                            "TEST() REQUIREINSPECTION"TO.            IC2074
021900"".                                                    90MOVE TO.PERFORM.           IC2074
023900 END-RTN-EXIT.                                                          1TO.                                       IC2074.2
20MOVE TO DUMMY-RECORD WRITE-LINE.   IC2074
040 END-ROUTINE-1IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024200      ADD ERROR-COUNTER TO ERROR-HOLD200MOVE TO.  CCVS-PGM-IDID-AGAINIC20742
240      . ADD DELETE-COUNTERTO ERROR-HOLDIC2074
024400      ADD 027700         MOVE020     MOVESPACE.                               .
024500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IC2074.2
02460      MOVE TOC.                            IC2074
024700      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IC207400     PERFORM END-ROUTINE THRU. CLOSEPRINT-FILE.2
080MOVE TOCCVS-E-2-2.800WRT-LNIC2074
024900      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IC2074.280WRITE    DUMMY-RECORD ADVANCING1.               IC20742
02500 END-ROUTINE-12IC2074.2
025100      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IC2074.2
025200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IC2074.2
0200M "NO 080BLANK-LINE-PRINT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025400         ELSE                                                     IC2074100.  .   028700 FAIL-ROUTINE.
0255028900IF MOVE"** TO . ADD . IC2074.2
025600     MOVE     CCVS-E-202000     MOVEANSI-REFERENCETO INF-ANSI-REFERENCE250MOVE**EST**"TO RE-MARKIC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
LINEIC2074
025800 END-ROUTINE-13.                                                  IC2074.2
02900IF IS EQUAL TO                           IC2074.2
020         MOVENO                                .22
60MOVE .                      .2
0020      P-OR-F090 FAIL-ROUTINE-WRITEIC2074.2
026300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE220        PERFORM FAIL-ROUTINETHRU FAIL-ROUTINE-EXIC2074
IFINSPECT-COUNTER TOZERO                          .2
060          MOVENO OERROR-TOTALIC2074
026600      ELSE MOVE INSPECT-COUNTER0     MOVE0200IC2074
026700     MOVE"(S) REQUIRE INSPECTION" TOENDER-DESCIC2074
026800      MOVE CCVS-E-2270     MOVE      TO .                                   2900MOVESPACES.                         .
20MOVETO. PERFORM           .
027000 WRITE-LINE.023000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 .  IC2074000 BAIL-OUT                                                        2
                     .2
027200     IF RECORD-COUNTIFCORRECT-A2      T    3 .IC2074
020 DUMMY-RECORD230 COLUMN-NAMES-ROUTINEIC2074
027400         MOVE SPACE TO DUMMY-RECORD                               IC20740MOVE TO. PERFORM.05   XXCORRECTCOMPUTED-A IC2074
00WRITE30      HYPHEN-LINE PERFORM        .2
070          CCVS-C-1 DUMMY-RECORD3000 SPACESTO.                         IC20742
02770         MOVE TO DUMMY-RECORD WRT-LN      IC2074.2
027800         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IC2074.2
027900         MOVE DUMMY-HOLD TO DUMMY-RECORD300END-RTN-EXITIC2074.2
028000         MOVE ZERO TO RECORD-COUNT40     MOVECCVS-E-1TO DUMMY-RECORD PERFORMWRITE-LINE 2 TIMESIC2074.2
0040        TO ADD INSPECT-COUNTER TO.2
028200 WRT-LN30ERROR-HOLD DELETE-COUNTERTO ERROR-HOLDIC2074
220 ADDTO2
0284010      IN1 3.                                                .2
0850BLANK-LINE-PRINTIC20740460        TO                            2
028600     PERFORM WRT-LNIC2074.2
028700 FAIL-ROUTINE.                                                    07MOVETO.                                               .2
0800 COMPUTED-X EQUALTOSPACE TO. IC2074.2
028900     IF     CORRECT-X NOT EQUAL TO SPACE GO0490      MOVE TO DUMMY-RECORD PERFORM .020LINK-TEST-01IC2074
029000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE032200*        CORRECTLY PASSED 2100MOVETEST FAILED ENDER-DESC3300     MOVE """ TO PAR-NAME. .2
029100     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.0530MOVE TO                                IC2074
029200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 203260         PERFORM200         MOVE TO ERROR-TOTAL                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029303200PERFORM.                                                .2
0900GOO FAIL-ROUTINE-EXIC2074
029500 FAIL-ROUTINE-WRITE.                                              IC2074.2
029600     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IC2074.2
270MOVE                  .2
029800     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IC20740330LINK-WRITE-01IC2074.2
029900     MOVE   SPACESTO COR-ANSI-REFERENCE400    ERFORMIC20742
030  EXITIC2074
030100 BAIL-OUT.                                                        IC2074.2
030200          COMPUTED-A EQUAL  SPACE 03300*    ND LENGTH WERE CORRECTLY  THE.   IC2074.2
030300     IF06400         INSPECT-COUNTER TOZEROIC2074
3040 BAIL-OUT-WRITEIC2074.2
XXCORRECT. MOVE TO XXCOMPUTED  IC2074.2
03060MOVE TO.6      MOVE   ERROR-TOTAL.
000     310 LINK-TEST-02-01                                                 .
00    MOVE TO.                         2
3900BAIL-OUT-EX. .                                               60      TODUMMY-RECORDPERFORM.           .2
031000 CCVS1-EXIT.                                                      IC2074.2
031100     EXIT.                                                        IC2074.2
03600      .                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30      Z TOIC2074
031400     MOVE "ABCDEFGHIJKLMNO"03400      "VALUE OFDN2()" TO RE-MARKIC2074MOVETO               .2
031500     SET IN1 TO 3.                                                IC2074.2
0360     SET TOIN1.                                         20          DUMMY-HOLDDUMMY-RECORDIC2074
30 3TO.IC20742
031800     MOVE SPACE 03500 LINK-TEST-02-02                                                 IC2074
0100CALLI USING, , INDEX-1.             .2
032000 LINK-TEST-01.                                                    IC2074.2
032100*            THIS TEST CHECKS THAT AN INDEX DATA ITEM WAS         IC2074.2
032200*        CORRECTLY PASSED TO A SUBPROGRAM.                        IC2074.2
0 " . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032400     MOVE "INDEX DATA ITEM" TO830PERFORM.
5IF 1IS  ""IC2074
032600         PERFORM PASS                                             80IF NOT   FAIL-ROUTINE-WRITE.30..2
2   IC2074
032800 090       NO,SEE"TOINFO-TEXT IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032900     PERFORM FAIL.                                                IC2074.2
033000     MOVE DN2 (1) TO24      TO360IFDN2)EQUALOX
0100     MOVETEST-COMPUTED PRINT-RECPERFORM         IC2074
00      VALUE RE-MARK
033300 LINK-WRITE-010   060
033400     PERFORM PRINT-DETAIL.                                        IC2074.2
033500 LINK-TEST-02.                                                    IC2074.2
033600*        THIS TEST VERIFIES THAT THE VARIABLE LENGTH TABLE        IC2074.2
033700*    AND ITS LENGTH WERE PROCESSED CORRECTLY IN THE SUBPROGRAM.   IC2074.2
030                                              .2
033900     MOVE "LINK-TEST-02" TO PAR-NAME.                             IC2074.2
034000     MOVE "VAR. LENGTH TABLE" TO FEATURE .IC2074
0310LINK-TEST-02-01IC2074
034200     IF DN2 (200         TO.                 .2
0330          PASSIC2074
034400         GO70      DN25) EQUAL TO "G"                                      IC2074.2
034500 LINK-FAIL-02-01.                                                 IC2074.2
034600     PERFORM FAIL.                                                IC207408000         GO LINK-WRITE-02-04                                  .2
034700     MOVE DN2320SECT-IC207-0001.                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2
034900     MOVE350     SET TO3                                                .2
035000 LINK-WRITE-02-01.                                                IC2074.2
035100     PERFORM PRINT-DETAIL.                                        IC2074.2
0320LINK-TEST-02-02.                                                 03800     PERFORMPRINT-DETAILIC20742
0530      1 TO.                                             .2
00  (  B                                      .
035500         PERFORM 039100*    CORRECTLY.                                                   IC2074.2
0560         GOTO.                                  .2
370                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050      FAILIC2074
035900     MOVE DN2 (3) TO COMPUTED-A0 .                                                 26         PASS2
060      "B .380LINK-FAIL-01 .
036100     MOVE20     07                                                       0 TO2
036200 LINK-WRITE-02-02.                                                IC2074.2
036300     PERFORM PRINT-DETAIL.                                        IC2074.2
036400 LINK-TEST-02-03.                                                 IC2074.2
03650400     PERFORM.                                                .2
300IF (4) EQUAL "X"                                      .2
3* TEST THAT VARIABLE TABLE.2
036800         GO TO LINK-WRITE-02-03.                                  IC2074.2
0390 LINK-FAIL-02-03.                                                 .2
04 .                                                .2
0310      DN2TO400java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80
037200     MOVE "X" TO CORRECT-A.06.
0 "VALUE OF DN2(4)" TO.340GO LINK-WRITE-02-01IC2074
037400 LINK-WRITE-02-03.                                                IC2074.2
03750      PRINT-DETAILIC2074
037600 LINK-TEST-02-04.                                                 IC2074.2
037700     ADD 1 TO REC-CT.                                             IC2074.2
037800     IF DN2 (5) EQUAL TO "G"041200     PERFORM FAIL.
037900         PERFORM PASS                                             IC2074.2
038000         GO TO LINK-WRITE-02-04.                                  IC2074.2
038100 LINK-FAIL-02-046 .                                                .2
038200     PERFORM FAIL.                                                IC2074.2
038300     MOVE DN200190ADD1REC-CTIC2074
30 G" CORRECT-A00 DN2() "                                      2
038500     MOVE "VALUE OF DN2(5)" TO0PERFORM                                             .2
020 .                                                 2
038700     PERFORM PRINT-DETAIL.                                        IC2074.2
0380LINK-TEST-03IC2074.2
038900*        THIS TEST VERIFIES THAT THE CONDITION NAMES DEFINED      IC2074.2
039000*    IN THE LINKAGE SECTION OF THE SUBPROGRAM WERE PROCESSED      IC2074.2
039100*    CORRECTLY.                                                   IC2074.2
039200     MOVE "LINK-TEST-03" TO PAR-NAME.                             IC2074.2
03930     MOVETO.                                            .2
03943600 PRINT-DETAILIC2074.2
350 LINK-TEST-03-01
039600     IF DN2 340LINK-TEST-02-03420 INK-WRITE-03-03.2
039700         PERFORM04900     PERFORM.                                        IC2074.2
039800         GO TO LINK-WRITE-03-01.                                  0IF (4)EQUAL "X .2
039900 LINK-FAIL-03-0138         040     MOVECALLP"FEATURE IC2074java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040000     PERFORM FAIL.                                                043500*    WERE SET IN.                                       .2
040100     MOVE DN2 (6) TO COMPUTED-A.                                  IC2074.2
040200     MOVE "A" TO CORRECT-A.                                       IC2074.2
040300     MOVE "VALUE OF DN2(6)" TO RE-MARK.                           IC2074.2
04000     IF DN4 TOB
040500     PERFORM PRINT-DETAILIC2074.2
0060 LINK-TEST-03-02IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04000     ADD1 TOREC-CT.                                             .2
4000IF ()  TO"V"IC2074.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04 .IC2074
000           .                                 .2
041100 LINK-FAIL-03-02.                                                 0840     OVEG TO CORRECT-A                                       .2
0100     PERFORM.                                                0 LINK-WRITE-02-04IC2074
4100     MOVE N2(04480 LINK-WRITE-04-01                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0414038900*04500 LINK-TEST-04-02IC2074.2
041500     MOVE 039000*    IN THE LINKAGE SECTION OF THE SUBPROGRAM WERE PROCESSED      IC2074.2
041600 LINK-WRITE-03-0209200      "LINK-TEST-03" TO
041700     PERFORM PRINT-DETAIL.                                        IC2074.2
40LINK-TEST-03-03IC2074.
041900     ADD 1 TO REC-CT.                                             IC2074.2
042000     IF DN297                                                       .2
042100         PERFORM PASS                                             IC2074.2
0420         GO LINK-WRITE-03-03IC2074
042300 LINK-FAIL-03-03.                                                 IC2074.2
042400     PERFORMFAILIC2074.2
042500     MOVE DN2 (8) TO COMPUTED-A.                                  IC2074400     PERFORM.                                                IC2074
060     MOVE"TO CORRECT-A.04600 ADD1TO REC-CT. 2
042700     MOVE "VALUE OF DN2(8)" TO000      "VALUE OF DN2(6)"TO E-MARK.2
4200LINK-WRITE-03-03.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042900     PERFORM PRINT-DETAIL.                                        IC2074.2
043000 LINK-TEST-04.                                                    IC207400     ADD   REC-CT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043100     MOVE04400     MOVE TO DN5                                        .2
043200     MOVE "CALL PARAMETERS" TO FEATURE.                           406                                                       .2
430     MOVE4MOVE(  COMPUTED-A.2
043400*        CHECK THE INDEX DATA ITEM AND TABLE LENGTH WHICH         IC2074.2
043500*    WERE SET IN THE SUBPROGRAM AND RETURNED CORRECTLY            IC2074.2
043600*    TO THE CALLING PROGRAM.                                      IC2074.2
043700 LINK-TEST-04-01.                                                 IC2074.2
043800     SET IN1 TO INDEX-1.                                          IC2074.2
043900     MOVE DN10710 LINK-TEST-03-03.IC20742
400IF490ADD1TO
044100         PERFORM PASS                                             IC2074.2
042          .IC2074
044300LINK-FAIL-04-01IC2074.2
044400     PERFORM FAIL.                                                IC2074.2
0440          DN4 .                                      .2
044600     MOVE "B" TO CORRECT-A.                                       IC2074.2
044700     MOVE "VALUE OF DN1(IN1)" TO RE-MARK00MOVE DN2)TO.                                  .2
044800 LINK-WRITE-04-01.                                                IC2074.2
0440     PERFORM.                                        IC2074
045000 LINK-TEST-04-02.                                                 IC2074.2
045100     SET IN1 TO 1.                                                IC2074.2
0410MOVELINK-TEST-04 PAR-NAMEIC2074.
045300         AT END PERFORM PASSFEATUREIC2074
0500GO LINK-WRITE-04-02IC2074
045500         WHEN DN1 (IN1) EQUAL TO "J"                              IC2074.2
045600             PERFORM FAIL                                         IC2074.2
045700             MOVE DN1 (IN1) TO COMPUTED-A                         IC2074.2
04580  TO.                                          .2
00 .                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04000     ADD1  REC-CT                                             .2
046100     PERFORM PRINT-DETAIL.                                        IC2074.2
046200 LINK-TEST-04-03.                                                 IC2074.2
046300     ADD 1 TO REC-CT.                                             IC2074.2
046400     MOVE TABLE-01 TO DN5.                                        IC2074.2
046500     IF DN5 EQUAL TO "ABCDEFGHI "                            IC2074.2
04660         PERFORM PASSIC2074.2
046700         GO TO LINK-WRITE-04-03.                                  IC2074.2
046800 LINK-FAIL-04-03.                                                 IC2074.2
60 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047000     MOVE DN5 TO COMPUTED-APERFORM.                                        .2
047100     MOVE "ABCDEFGHI " TO CORRECT-A.                         IC2074.2
047200     MOVE "CONTENTS OF TABLE-01" TO RE-MARK.                      IC2074.2
047300 LINK-WRITE-04-03.                                                IC2074.2
047400     PERFORM PRINT-DETAIL.                                        IC2074.2
047500 EXIT-IC207.                                                      IC2074.2
04700      TO.                                             .2
0770 CCVS-EXIT SECTION.                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047800 CCVS-999999.                                                     IC20748              MATCHBE  RE-MARKIC2074.2
0       CLOSE-FILESIC2074

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

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.