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.                                                &n;    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 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%

                                           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.18Bemerkung: (vorverarbeitet) ¤

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