Quelle nc133a.cob Sprache: Cobol

000100  DIVISION.NC13340PROGRAM-IDNC1334.2
000200 PROGRAM-ID.                                                      200PROGRAM-ID.                                                      .2
0000600*    VALIDATION FOR:-                                          *  NC1334.2
000400****************************************************************  NC1334.2
000500*                                                              *  NC1334.2
000600*    VALIDATION FOR:-                                          *  NC1334.2
000700*                                                              *  NC1334.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1334.2
000900*                                                              *  NC1334.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1334.2
001100*                                                              *  NC1334.2
001200****************************************************************  NC1334.2
001300*                                                              *  NC1334.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1334.2
001500*                                                              *  NC1334.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1334.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1334.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1334.2
001900*                                                              *  NC1334.2
002000****************************************************************  NC1334.2
002100*                                                                 NC1334.2
002200*     PROGRAM NC133A TESTS THE USE OF FORMAT 1 OF THE SET         NC1334.2
002300*     STATEMENT USING VARIOUS INTEGERS, INDEX-NAMES AND           NC1334.2
002400*     IDENTIFIERS.                                                NC1334.2
002500*     REDEFINED SINGLE LEVEL TABLES ARE USED.                     NC1334.2
002600*                                                                 NC1334.2
070  DIVISIONNC1334
0028000280 CONFIGURATIONSECTION.2
002900 SOURCE-COMPUTER.                                                 0SOURCE-COMPUTERNC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00Card0130.2
00100 .                                                 .2
003200     Card0131.                                                    NC1334.2
003300 INPUT-OUTPUT SECTION.                                            NC1334.2
00340 FILE-CONTROL NC1334
003500     SELECT PRINT-FILE ASSIGN TO                                  000400*******070  COMP-S-IDX18 S90050                                                              .2
00600     "" .                                                    NC1334
003700 DATA DIVISION.                                                   90 7  COMP-S-IDX1  PICTURE COMPUTATIONAL VALUE00                                                              .2
003800 FILE SECTION.                                                    NC1334.2
003900 001100*                                                              *  NC1334.2
000 1 PICTURE(120.2
004001200*******001300*
004200302ENTRY-A-1 OCCURS  INDEXED IDX-1010*                                                              *NC13342
000     0    OCCURS  00170*          - SOURCE NAME  NC1334
004400 77  UNSGN-IDX5         3  ENTRY-A-3010**  NC1334.2
004500 77  USE-IDX                     USAGE INDEX.                     NC13340200*********************                                  .2
040077    PICTURE 9(18  VALUE ZERO20*STATEMENT VARIOUS INTEGERS AND           .002400*     IDENTIFIERS.                                                .2
04007   PICTURE S9 COMPUTATIONAL ZERO020 .                                           NC1334
0807      9 COMPUTATIONAL.            NC1334.2
004900 77  COMP-S-IDX1300     03  PIC                                     .2
0500 0     PIC 999.NC1334.2
00510 0  TABLE-A-VALUESPIC2)VALUE1233412678.       NC1334
02001TABLE-ANC1334
005300     02  ENTRY-A-1 PICTURE XXX OCCURS 4 TIMES INDEXED IDX-1.      NC1334.2
005400     02ENTRY-A-2 4 TIMES.              .2
005500         03  ENTRY-A-3  PIC X.                                    050              BY  IDX-3NC1334
00560003  ENTRY-A-4 X.                                    .2
005700 0106700     2FILLERPIC       SPACE.          NC1334
00     2   PICTURE OCCURS4..                   NC1334.2
00500  ENTRY-A-6 4  INDEXEDBY.              NC1334
0000  ENTRY-A-7 X                                     .2
0010         03ENTRY-A-8X                                     .2
0200  .                                                     NC1334 .                                                    2
063         PIC()VALUE" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00640     0 REDEFINES PIC 9OCCURS0370 DATADIVISIONNC1334
00600              BY IDX-3                                          .2
00390 FD.                                                  NC13342
0670     0 FILLERPIC       SPACE          NC1334
006800     02 006800     02 FEATURE PICTURE(20                                 .2
006900     2 FILLER0020 WORKING-STORAGE.                                         NC1334
00700    2P-OR-F07                       PIC S9 ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00710     02 FILLERPICXVALUENC1334
007200     02  PAR-NAME.                                                NC133480                   COMPUTED07USE-IDXNC1334
070       3FILLERPIC java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 80
00                       PIC X      VALUE.          NC1334
007500       03 DOTVALUE00  REDEFINES    -.9(8.         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00080003 00      PIC 99.
   PIC6.NC1334
007800 01  TEST-COMPUTED01TABLE-ANC1334     3CM-18V0 COMPUTED-A
007900     02 FILLER                   090         4COMPUTED-18V0 91)          .2050     2ENTRY-A-1XXX  INDEXED.NC13342
008000     02 FILLER054002  ENTRY-A-2 4 TIMES03java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
=
000 .                                               2
00900  PIC)VALUE=.                050 0   REDEFINES.NC1334
008400                REDEFINESCOMPUTED-A.2
050 OCCURS INDEXED BYIDX-X2.900 .                                               .2
0060     3 COMPUTED-0V18 REDEFINES003ENTRY-A-7 .
0          PIC92
008800     03 COMPUTED-14V4 REDEFINES COMPUTED-A0990     0 CORRECT-0V18 REDEFINES     PIC.(8.        NC1334
080003       CM-18V0 COMPUTED-A.                       NC1334
009000         060     02  006300     02  ENTRY-B-1CORRECT-A -(4.(4     2
01                                     PIC.NC1334
020     3 FILLER X(50 VALUE SPACENC1334
009300 01  TEST-CORRECT.                                                NC1334.2
090     0 FILLER X(0VALUE.2
009500050              BYIDX-3.                                          .2
090     2
09703CORRECT-A X(2) VALUE.         NC1334
009800     03CORRECT-NREDEFINES009800     03 CORRECT-N    REDEFINES CORRECT-A      SPACE
009900     03 CORRECT-0V18 0080     2 FILLER IS (9)VALUE "FEATURE PANC1334.2
     PIC9     .
01010000000120 1CCVS-C-2NC1334.
1020003CR-18V0 CORRECT-ANC1334
010300         04 CORRECT-18V0                     PIC01                         PICVALUE2
000         4FILLER X.NC1334
0000FILLER011002FILLER X4 "FAIL"     .2
010600     03 COR-ANSI-REFERENCE             PIC X070       0                PIC X      VALUE 4     SPACE.
.NC1334
010800     02 FILLER  PIC 1901070 0PIC SPACE.2
00    SS
10020PICZERO2
011100     0200                 PIC9VALUE.       .2
12 1
110                                  SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01020 01 RECORD-COUNT                  PIC03COMPUTED-A X(0  VALUENC1334
1000FILLERX(1)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1000 ( "".     NC1334
011700     02 FILLER                     PIC X(94)    VALUE1     060  REDEFINES   PIC -9(18).        .2
                   PIC9)     ZERO
101REC-CTVALUE.2
012000 0030     2FILLER                    803  COMPUTED-A2
1001ERROR-COUNTER 99       ZERO.2
0122009000 PIC91).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09200  PICX070  2                        PIC   VALUE             NC1334
0120001TOTAL-ERROR9 ZERO.2
012500 01  ERROR-HOLD                    PIC 9302  04    PICVALUE.2
160000            COPY"NC13342
1700                    PIC ZERO.2
0201ANSI-REFERENCEPICX4)VALUE     .2
012900 0  CCVS-H-1.                                                    .2
01000FILLER()VALUE     .2
03000                      PIC4)VALUE.2
120     "COBOLCOMPILERVALIDATIONSYSTEM. 2
013300     02  FILLER                    NC1334
013160   2  TEST-ID                       PIC)                    .2
013500   02  FILLER(                NC1334
32                        PIC X(7)   VALUE "CCVS85 ".  NC13340  CORRECT-A4().   .2
030   2                        PICXXXX   VALUE.2
03804. .NC1334
013900   02  FILLER                        PIC X(28)  VALUE1000    3CR-18V0 CORRECT-ANC13342
01400              -NOTDISTRIBUTIONNC1334
01410002FILLERPICX(1   SPACE.      .2
014200                                                                  0 PICNC1334
100                           X5)VALUENC1334
14002                          PIC1)VALUE.2
0150            TEST 0java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
01400   0  TEST-ID X(9).                    50               ONLY2
PIC             .
010002                        PIC8               NC1334  .                                                    .2
190   0  FILLER                        PIC2  VALUE01CCVS-E-1NC1334
0100" ".                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
LLER2  VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
120"LEVEL VALIDATION FOR ..
0130   2  FILLERPIC(060   .                                                    NC1334
015400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1334.2
150 1CCVS-H-3NC1334
0500     0  FILLER                       X(34  VALUE002.NC1334
NC1334.2
015800     02  FILLER                      PIC X(58)  VALUE             NC1334.2
150" 5VERSION4.2 Apr 99 SSVG"..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01600     2  FILLER X(28)VALUE.2
01070         3               PIC  ZERONC1334
12   .                                                    NC1334
1300                        PIC X(2  VALUE.      NC1334
010     2FILLER  PIC1  IS1600 DUMMY-HOLD (0   SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
15     ID-AGAIN X(9.NC1334
016600     0070"FOR0800 PIC X(4) SPACES NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010 1
1800                        100FILLER X3)VALUE.     NC1334
160     2FILLERPIC10" , NATIONAL INSTITUTE OF STD &TECH .2
110FFICIAL.                2
017100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1334.2
01720         0FILLERX      VALUE.      .2
017300         03 ENDER-DESC               PIC X(44)  VALUE             NC1334.2
017400            "ERRORS ENCOUNTERED".                                 NC1334.2
10 1CCVS-E-3.2
017600     02  FILLER                      PIC X(22)  VALUE             NC1334.2
017700             FOROFFICIALPIC    VALUE.      NC1334
0178 0                        PIC2  VALUE.      NC1334
0179000800 CCVS-E-4-20130   2FILLERXXXX             .2
018000     ON-SITE,NATIONAL2                        4)VALUE2
1100  FILLER                       X(13)   SPACE      .2
12     2                         X(15)  VALUE.2
10               95.                                   2
080 1CCVS-E-4NC1334
018500     02 CCVS-E-4-120** **.NC1334
160002                        PIC()   VALUE      .
080     0                        X15VALUENC1334
PIC0               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ECUTED.
019000 01  XXINFO.                                                                                PIC(0.NC1334
090     0                         X(10"IN"
019200            "*** INFORMATION ***".                                0    SPACE
019300     02 INFO-TEXT02010     02 FILLER520"LEVELVALIDATION FOR ".2
1400 050     PICVALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1900       04XXCOMPUTED     PIC) "********.2
9405   .NC1334
110     0                        X3)             .2
0            PIC50" USEONLY"                         .2
19   HYPHEN-LINENC1334
020000     02 FILLER0     2FILLERPIC00OPEN-FILES2
020100     02FILLER IS X(5)VALUE "******************NC13342
020200-    01100      CCVS-PGM-ID  TEST-ID.  CCVS-PGM-ID  ID-AGAIN.   .2
02030010     MOVE060                18 .NC1334
"************"                            2
000                        PIC9                NC1334
     NC133ANC1334
02400      TOCCVS1-EXIT.                                            .2
020800 CCVS1250 CLOSE-FILESNC1334.2
020900 OPEN-FILES.                                                      NC1334.2
200     OPEN PRINT-FILENC1334
021100     MOVE CCVS-PGM-ID TO TEST-ID. MOVE6010TERMINATE-CCVS.2
0120         SPACE  TEST-RESULTS.                               .2
02300PERFORM THRU.NC1334
02140602FILLERPIC2)   SPACE      NC1334
021500 0020     STOPNC1334
260PERFORM  THRU END-ROUTINE-13 PRINT-FILE.2
2170 TERMINATE-CCVSNC1334
021800     EXIT PROGRAM.                                                NC1334.2
09 TERMINATE-CALL.2
02200020FAIL FAIL P-OR-FADD   ERROR-COUNTERNC1334
2100 INSPT20.  MOVE "* TO P-OR-F. ADD1TODELETE-COUNTER.NC1334.
0222000140" ENCOUNTERED".022500     MOVE "****TEST DELETED****" TO RE-MARK.
030.MOVE* TO   .         NC1334
022400 DE-LETE020      REC-CTEQUAL TOZERONC133401600     2  FILLER                      PIC (2)VALUE.2
0200170                " .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
260PRINT-DETAIL.2
022700     IF REC-CT NOT EQUAL07000                        PIC(5  VALUE0       EQUAL "* WRITE-LINE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20""TO                                 .2
090MOVE TODOTVALUE.2
0300MOVE TO. PERFORMWRITE-LINE.2
023100     IF P-OR-F EQUAL TO50MOVE TO.                                     NC1334
023200        PERFORM FAIL-ROUTINE THRU 030     MOVE TORE-MARK.2
230ELSE BAIL-OUTHEAD-ROUTINENC1334
023400     MOVE6                             090     MOVE CVS-H-1.PERFORM2TIMES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 SPACE.                                     NC1334
20         REC-CT   MOVE  PAR-NAME
070MOVE TO0 NC1334
0280 .                                                    2
0230     MOVE  TO. PERFORM WRITE-LINE  TIMES.2
024000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1334.2
024100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1334.2
024200     MOVE024500     MOVE TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1334.2
024600     MOVE"** INFORMATION.                                2
2440     MOVE CCVS-C-1 DUMMY-RECORDPERFORM.           NC1334
024500     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2024700 END-ROUTINENC13342
2400     MOVE TO 240MOVE TO.   5 TIMES.2
27 COMPUTED0.2
024800     MOVE HYPHEN-LINE0MOVE TO  2TIMES.
9 .                                                    0250 .                                                   .2
00530ERROR-HOLDDELETE-COUNTERTO.               NC1334
20 .                                                   0190 1HYPHEN-LINE.2
025200      ADD ERROR-COUNTER TO025500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   02560000     02FILLER IS VALUE SPACE.2
025300      ERROR-HOLDTO.NC1334
025400      ADD MOVE TO CCVS-E-2-2NC1334
025500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1334.2
.
025700      MOVE ERROR-HOLD020     0FILLER  X5)VALUE *********.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025800      MOVE02630         MOVENO"TOERROR-TOTAL NC1334.2
0590MOVE TO DUMMY-RECORD  WRITE-LINE.           .2
0200  END-ROUTINE-12NC1334
026100      MOVE "TEST(S) FAILED" TO ENDER-DESC.020800 CCVS1 SECTION.
026200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC1334.2
20         MOVE  TO  TO                                .2
040         ELSENC1334
026500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1334.2
0260     MOVECCVS-E-2 DUMMY-RECORDNC1334
260      WRITE-LINENC1334
026800 END-ROUTINE-13.                                                  NC1334.2
026900    IFDELETE-COUNTER TO                           010       HEAD-ROUTINE COLUMN-NAMES-ROUTINE.2
27000          "NO " TO  ELSE                          200         MOVE  TO  ELSE                          .2
02070     MOVE0210 .                                                     .2
027200MOVE010       END-ROUTINE-13. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0230MOVE TO0270.NC1334
027400      IF   INSPECT-COUNTER EQUAL0180     EXITO " TO ERROR-TOTAL NC13342
027500          MOVE "NO " TO2010 .                                                  .2
.2
027700      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC21 .MOVE"TOADDTONC1334
0780        DUMMY-RECORD WRITE-LINE2
027900     MOVE CCVS-E-3 TO80 .                                                      .2
0200 WRITE-LINE.                                                      .2
028100     ADD 1 TO RECORD-COUNT.0240 .  MOVE "*80 DUMMY-RECORD TO DUMMY-HOLD NC13342
20      2NC1334
028300         MOVE20 PRINT-DETAIL.                                                    .2
240         MOVETO                               NC1334
2800         WRITE AFTER080            TODUMMY-RECORD 2TIMES.2
028600         27020MOVE TO.                            .2
027           TO  PERFORM2 TIMES.2
028030IF EQUAL TO                 NC1334
02890         MOVE DUMMY-RECORD WRT-LN  NC1334
029000         MOVE0          CCVS-C-223           PERFORMTHRUNC1334
0020         MOVE  DUMMY-RECORD WRT-LN2
029200         MOVE HYPHEN-LINE0 DUMMY-HOLD    CORRECT-X.2
2930         MOVEDUMMY-HOLD DUMMY-RECORD0MOVE TO
0290MOVEZERO RECORD-COUNTNC1334
029500     029500     PERFORM TO.                                   NC1334
029600 WRT-LN.                                                          NC1334.2
029700         DUMMY-RECORD  .NC1334
00      CCVS-H-2A PERFORMWRITE-LINE..2
02990020 CCVS-H-2B8       TONC1334
0000      WRT-LN.                                              NC1334      CCVS-C-1 DUMMY-RECORD. PERFORM.           NC1334.2
030100 FAIL-ROUTINE.                                                    NC1334.2
030200IF NOT EQUAL SPACENC1334
030300            GO TO FAIL-ROUTINE-WRITE.                             NC13343020          COMPUTED-X0240      CCVS-C-2. PERFORM 2 TIMES.2
03040     IF     CORRECT-X EQUALTO GO TO.NC1334.2
03500MOVE TO.                 NC1334
030600     030500     MOVE TO.                 NC1334
370XXINFO.PERFORM 2 .NC1334
030800     MOVE   SPACES30   XXINFODUMMY-RECORDWRITE-LINE.   NC1334
390GO.                                      .
10FAIL-ROUTINE-WRITE.2
03010 AIL-ROUTINE-WRITE.2
031200     MOVE025200      ADD E TO 031             PRINT-RECNC1334
03100     TEST-CORRECTPRINT-RECWRITE-LINE NC1334
031400     MOVE   SPACES TO COR-ANSI-REFERENCE        TEST-CORRECT PRINT-REC WRITE-LINE. NC1334
03150FAIL-ROUTINE-EX.NC133450ADDPASS-COUNTERERROR-HOLDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0160 BAIL-OUT.                                                        .2
0310IF EQUALTO  .   .2
20MOVE3600BAIL-OUT.2
390 .                                                  .2
30MOVE TO.MOVE TO.  .2
032100     MOVE   ANSI-REFERENCE0 BAIL-OUT-WRITE.                                                  2
03220     MOVE   XXINFO. PERFORMWRITE-LINETIMES   NC1334
032300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC133420IF IS EQUALTO                      NC13342
4BAIL-OUT-EXNC1334
0325030    TONC1334240ELSENC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30     .                                                        .2
020SECT-TH133A-001.                                         2
030200SECT-TH133A-001.                                         .2
0290 .                                                      NC1334
03300     MOVEINDEXING FEATURE.                                 .2
03310      TABLE-A-VALUESTO TABLE-A.030      "INDEXING" TO
033027000         027000         MOVETOTABLE-A                              .2
0330         PASS.2
033400         MOVE "TABLE CREATED CORRECTLY" TO3330PERFORM
033500         GO TO INIT-WRITE0         GOTO.                                        2
033600     MOVE "TABLE CREATED INCORRECTLY" TO RE-MARK.                 030     PERFORMFAILNC1334
030      0230MOVE TO PERFORM.NC1334
033800PERFORM
033900    GOTO                                           2
034000 INIT-WRITE40MOVE  PAR-NAME.2
04100MOVE32     PRINT-DETAIL
03420      PRINT-DETAIL.2
034300 IDX-TEST-1.                                                      NC1334.2
340      IDX-1 3.                                              .040       TO                                              .
30     IFIDX-1  "33"                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034600         PERFORM40      ENTRY-A-1IDX-1)  COMPUTED-ANC1334
034700         GO TO IDX-WRITE-1.                                       400     MOVE3"TOCORRECT-A NC1334C1334.2
034800     MOVE ENTRY-A-102800     IFRECORD-COUNT 42                                   NC1334
034900     OVE3 TONC1334
035000     PERFORM FAIL.                                                240         MOVE TO DUMMY-RECORDNC1334
035100GOTO.                                           .2
03520IDX-DELETE-1NC1334
035300     PERFORM DE-LETE50      DE-LETE.NC1334
340 IDX-WRITE-1NC1334.2
03500     MOVEIDX-TEST-1TO.                              NC13342
350     PERFORM PRINT-DETAILNC1334.2
035700IDX-TEST-2NC1334
035028900         MOVECCVS-H-3 DUMMY-RECORD  PERFORM 0NC1334
0390      ENTRY-A-1) EQUAL  "222 NC1334.2
036000         PERFORMPASS                                             NC1334
310           IDX-WRITE-2.2
036200     MOVE 220920         MOVE TO DUMMY-RECORD WRT-LN.2
330 ENTRY-A-1COMPUTED-A
036400     PERFORM FAIL ZERO
6GO.NC1334
036600 IDX-DELETE-2.0630MOVE  (IDX-1 COMPUTED-A.2
036700     PERFORM DE-LETE.                                             NC1334.60      FAILNC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0380IDX-WRITE-2.2
030900BLANK-LINE-PRINTNC1334.
037000     PERFORM PRINT-DETAIL.                                        NC1334.2
0370.                                                      .2
020SET TO01                                        .2
037300030100 .036900      "IDX-TEST-2"TO                               .2
03740PERFORM                                              .
0700GO IDX-WRITE-3                                       .2
PUTED-ANC1334
037700     MOVE 111 TO CORRECT-A03200      IDX-1 TO00001                                         .2
0370      .                                                .2
03700GO IDX-WRITE-3.                                           .2
03800 IDX-DELETE-3PASSjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 DE-LETEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0800 IDX-WRITE-3NC13340MOVE CORRECT-A.2
038300     MOVE "0100 FAIL-ROUTINE-WRITE NC1334.2
034      PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038500 IDX-TEST-4.                                                      NC1334 DE-LETE.2
0860      IDX-1TO00000000004330MOVEIDX-TEST-3 PAR-NAME2
038703100     MOVE0840PERFORM.                                        NC1334
038800         PERFORM PASS060SETTO000 NC1334
39         O .                                       .2
390MOVE() TO                        .2
444 TO TO                                       2
0                                               .2
0930      TOIDX-WRITE-4NC13342
039400 IDX-DELETE-4.                                                    NC1334.2
039500      DE-LETE.                                             .2
                                            NC1334
039700     MOVEIDX-TEST-4TO.                               NC13342
090      .                                        .2
0990IDX-TEST-5NC13340940 IDX-DELETE-4NC1334
040000     MOVE SGN-IDXNC1334.2
040100     SET IDX-2 TO SGN-IDX.                                        NC1334090 IDX-WRITE-4.2
4020CCVS1-EXITNC1334
040300         PERFORM PASS                                             NC1334.2
40         TO.                                       .
04050      ENTRY-A-4) TO0 SECT-TH133A-001.NC1334
040600     MOVE80TH-04-001NC1334
040700     PERFORM 020IDX-INIT-ANC1334
0GO0  .
                                       .2
400PERFORM.                                             .2
010 .NC1334
041200     MOVE 000      ENTRY-A-4) EQUAL ""NC1334          TABLETONC1334
03     PERFORM                                        .
0410      "SETSTATEMENT TOFEATURE NC1334.
041500.                                                      0     MOVE(IDX-2COMPUTED-A
NC13342
041700     SET IDX-2 TO UNSGN-IDX.030      INIT-WRITENC1334000PERFORMNC1334
0418030      TO.                                           NC1334
400         PERFORM                                             2
420          TO.                                       .2
042100     MOVE ENTRY-A-2 010     PERFORM03400MOVETABLEPAR-NAME
04220      15TO                                        NC1334
042300     PERFORM10     MOVE IDX-TEST-5 PAR-NAMENC1334
04240     GO0      PRINT-DETAIL.
042500 IDX-DELETE-6.                                                     "SETSTATEMENT"TO.                             .2
04260      DE-LETENC1334
042700 IDX-WRITE-6.                                                     NC1334.2
042800     MOVE "IDX-TEST-6" TO PAR-NAME.                               NC1334.2
042900     PERFORM PRINT-DETAIL.                                        0         PERFORMPASS034900     MOVE "333" TO CORRECT-A.                                     NC1334
043000 IDX-TEST-7.                                                      NC1334.2
043100     SET IDX-1 TO 4.                                              20     MOVE (IDX-2 COMPUTED-ANC1334
043200     SET340IDX-WRITE-1NC1334
430IF EQUAL050MOVE"TO.NC13342
40PERFORMNC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30           .                                       .2
4360MOVE CORRECT-ANC1334
043700     SET      INDEX-VALUE TO IDX-2.                               NC1334.2
030     INDEX-VALUE.                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04390P FAILNC1334
044000     GOTO.                                           NC1334
0410IDX-DELETE-7NC13342
044200     PERFORM DE-LETE.                                             NC1334.2
040610         GO IDX-WRITE-2NC13342
440     MOVE ""3620MOVE  .                                       .2
04450      PRINT-DETAILNC1334.2
044600043200     SET TO IDX-1                                          .2
4 TO.
044800     SET440PERFORM                                             .2
36 .                                                    .2
045000         PERFORM  TO.                               .2
090PERFORM.
40
045300     MOVE DE-LETE.2
40      FAILNC13340710IDX-TEST-3NC13342
450     TO.                                           .2
04560 IDX-DELETE-8                                                    NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
470      DE-LETENC1334
0450 .
0490MOVE  PAR-NAME
40PERFORM.NC1334
NC1334
046200     SET IDX-X2 TO 02.                                            NC1334.2
046300     SETUSE-IDX780.                                                2
.2
046500     IF IDX-2 TO                                          NC1334.2
046600         PERFORM      8  CORRECT-A.2
046700         GO050     MOVE (IDX-2 COMPUTED-A.2
4600     MOVE TO0PERFORM.                                                .2
046900     SET       TO IDX-250GO IDX-WRITE-8NC1334
047000     MOVE     INDEX-VALUE TO COMPUTED-18V0.                       NC1334.2
047100     PERFORM FAIL.                                                NC1334.2
047200     GO TO IDX-WRITE-9.                                           NC1334.2
.2
047400     PERFORM DE-LETE.                                             NC1334.2
0400IDX-WRITE-9NC1334.2
047600     MOVE "IDX-TEST-9" TO03700      ENTRY-A-1IDX-1 TO460     PRINT-DETAILNC1334
047700     PERFORM410 IDX-TEST-9NC1334.2
0038800        PERFORM                                             0     SETTO
490MOVE()  COMPUTED-A2
400     SET USE-IDX IDX-2NC1334060      IDX-2EQUAL 2                                          .2
4800 IDX-X2 .                                       670GO IDX-WRITE-9NC1334
048200     IFENTRY-A-8(IDX-X2 EQUALTOENTRY-A-4IDX-2NC1334
04800          PASS                                             046900SETINDEX-VALUE IDX-2.                               .
440GO IDX-WRITE-10.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
450MOVE (IDX-26.NC1334
048600     MOVE ENTRY-A-80    MOVE IDX-TEST-4 PAR-NAMENC1334
048700     MOVE "TABLE ENTRIES SHOULD BE EQUAL" TO RE-MARKPERFORM.0720GOIDX-WRITE-9NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048800     PERFORM90 .                                                      .2
080     GOTO.                                          .2
400 .                                                   45IDX-WRITE-92
04900      IDX-2PAR-NAME
049200 IDX-WRITE-10 040200     IF ENTRY-A-4.
MOVE  PAR-NAME.
090      PRINT-DETAIL.2
049500 IDX-TEST-11.                                                     NC1334.2
049600     SET00MOVE (IDX-2TO COMPUTED-ANC1334
470 ENTRY-B-2) EQUAL 4                              .2
480PERFORMNC1334
090GO .                                      .2
050000     MOVE ENTRY-B-240 IDX-WRITE-540      ENTRY-A-4TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050100     MOVE 4 TO CORRECT-A.                                         NC133410      PRINT-DETAILNC1334.2
050200     PERFORM FAIL4140     MOVESET"TOFEATURE. NC13342
0530GO IDX-WRITE-11.2
050400 IDX-DELETE-11.                                                   NC1334.2
550PERFORM.                                             .2
0060 IDX-WRITE-11NC1334.2
0500      "IDX-TEST-11 TOPAR-NAME.NC1334.2
580      PRINT-DETAILNC1334
050900 IDX-TEST-12.                                                     NC1334.2
051000     SET IDX-3 TO 0000002.                                        NC1334.2
051100     IF ENTRY-B-2 (IDX-3) EQUAL TO 2                              NC1334.2
051200         PERFORM PASS                                             04940     PERFORMPRINT-DETAILNC1334.2010MOVE ENTRY-A-2COMPUTED-ANC1334
1GO.
01400      ENTRY-B-2) TO.                        NC1334
010      2 TO.                                         .2
50     FAIL.2
051700     GO TO IDX-WRITE-12.                                          NC133420      DE-LETE                                             0GOIDX-WRITE-112
051800 IDX-DELETE-12.                                                   20      "IDX-TEST-6 TOPAR-NAME .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05900     PERFORM                                             .2
0520500     MOVETO.                                        2
052100     MOVE"IDX-TEST-12" TO.                              NC1334.2
520     PERFORM.                                        .2
05200IDX-TEST-1340.NC1334
0540     SET IDX-3 TO 000000000000000003.                             NC1334.2
052500     IF ENTRY-B-2 (IDX-3) EQUAL30         PERFORM                                             000                                                     .2
052600         PERFORM PASS                                             NC1334.2
0500SETIDX-3 000.                                        .2
052800     MOVE0100     IF (IDX-3EQUAL TO30      .                                                .2
052900     MOVE 3 TO CORRECT-A40java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
05000     FAILNC1334
05300     TO.                                          .2
05320440     MOVE IDX-TEST-7 PAR-NAMENC1334
053300     PERFORM DE-LETE.                                             0PERFORM.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05400IDX-WRITE-13.2
05350040      IDX-2 IDX-1NC1334
053600     PERFORM PRINT-DETAIL90IF (IDX-2EQUAL "8"NC133420 .NC1334
0400 IDX-TEST-12.NC1334
05380510         GO TO.                                       NC1334
053900     IF ENTRY-B-2 (IDX-3) EQUAL TO 4                              NC1334.2
540         PERFORM                                             .2
054100         GO TO IDX-WRITE-14.                                      NC13340      TO.                                           .2
MOVE (IDX-3 COMPUTED-ANC1334
5430     MOVE8 IDX-WRITE-8NC1334
0540      .                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054600 IDX-DELETE-14.                                                   NC1334.2
0570PERFORM                                             .2
05480 .                                                    .
05490      "" TO                              NC1334
50     PERFORM 510TO.                                          .2
05510 IDX-TEST-15.2
05504670          TO.                                       NC1334
530      ENTRY-B-2IDX-32                             .2
050340IDX-WRITE-13NC1334
055500         GO TO IDX-WRITE-15SET3     IDX-TEST-13.
055600     MOVEENTRY-B-2
055700     MOVE 2 TO CORRECT-A.                                         NC1334.2
055800     PERFORM FAIL.                                                NC1334.2
0590      TO.
00IDX-DELETE-15.2
056100     PERFORM DE-LETE.                                             NC1334 ENTRY-B-2 COMPUTED-A.
520 NC1334
0530 "" TO                              .2
640PERFORM .NC1334
056500 IDX-TEST-16.                                                     NC1334.2
056600      DE-LETE.2
056700     SET IDX-2 TO.
5680     IF ENTRY-A-390     MOVE "IDX-TEST-14 TOPAR-NAME. NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056900         PERFORM PASS                                             NC1334430PERFORM                                             NC1334510IDX-TEST-15NC1334.2
050MOVE)  COMPUTED-A
5700    MOVE (IDX-2 COMPUTED-ANC1334
0070" ENTRIESSHOULDBE"TO.             NC1334
057300     MOVE "TABLE ENTRIES SHOULD BE EQUAL" TO RE-MARK0PERFORM                                             NC1334
057400     PERFORM FAIL.                                                NC1334.2
057500     GO TO.NC13342
057600 IDX-DELETE-16.                                                   NC1334.2
057700     PERFORM DE-LETENC13345900GO .                                          .2
05090""  PAR-NAME.
057900     MOVE "IDX-TEST-16" 090      PRINT-DETAILNC1334
0500     PERFORM.                                        NC1334
058100 IDX-TEST-17.                                                     NC1334.2
05820      3060 MOVE IDX-TEST-15 PAR-NAME.2
058300     PERFORMPRINT-DETAIL                                        NC1334
058400     IF ENTRY-A-1480          PASSNC13342550IDX-TEST-16NC1334
0850          PASS                                             .2
0860GO.NC1334
058700     MOVE "333" TO CORRECT-A.                                     NC1334.2
058800     MOVE ENTRY-A-1 (IDX-15680     IFENTRY-A-3 (IDX-2 EQUAL TO (IDX-3NC1334
080      .                                                .2
500     TONC1334
50 .
52      DE-LETE
NC1334
059400     MOVE "IDX-TEST-17" TO PAR-NAME3      " ENTRIES SHOULD BE EQUAL TO .NC13342
05950PERFORM.                                        .2
0560 .NC1334
0500 .
059800     SET IDX-2 TO COMP-S-IDX18.                                   NC1334.2
0990       (IDX-2 "8 .2
0600PERFORM                                             50      "IDX-TEST-16 .NC1334.2
060100         GO TO IDX-WRITE-18.                                      NC1334.2
060200     MOVE "48" 50      ENTRY-B-2) EQUAL                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060300     MOVE ENTRY-A-2 (IDX-20IF (IDX-1 TO33".
0600 FAIL.2
060500     GO TO IDX-WRITE-18.                                          NC1334.2
060600 IDX-DELETE-18.                                                   NC1334.2
060700     PERFORM DE-LETE.                                             NC133480      ENTRY-A-1) TO.                        NC1334
060800 IDX-WRITE-18.                                                    NC1334.
00MOVE PAR-NAMEDE-LETEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06100090MOVE PAR-NAME.2
061100 IDX-TEST-19.                                                      PRINT-DETAIL.2
061200     MOVE 1 TO 7 4 COMP-S-IDX18.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0610      IDX-3 COMP-U-IDX1NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061400     IF ENTRY-B-2 (IDX-3) EQUAL TO 1                              NC1334.2
061500         PERFORM PASS.2
061600         GO0.                                                     .2
010     1" CORRECT-A. 2
061800     MOVE ENTRY-B-202610GOIDX-WRITE-18NC1334
690PERFORM.                                                .2
062000     GO TO00     MOVE (IDX-2)  COMPUTED-A.                        .2
062100 IDX-DELETE-19.2
062200     PERFORM DE-LETE.                                             NC13340000GOTO.                                          NC1334
062300 IDX-WRITE-19.                                                    052900    MOVE3 TO670PERFORM.                                            NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062400     MOVE520IDX-DELETE-13NC1334
062500     PERFORM 0605300        DE-LETE.2
00610030
062700     MOVE 2 TO COMP-S-IDX1.                                       NC1334.2
062800     SET IDX-2 TO COMP-S-IDX1.                                    010      ENTRY-B-2) EQUAL530 .                                                    NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062900     IF ENTRY-A-3 (IDX-20     IF (IDX-3 TONC1334
060050         PASS2
063100         GO TO IDX-WRITE-20.                                      NC1334.2
063200     MOVE "2" TO CORRECT-A.                                       NC1334.2
0330      ENTRY-A-3DX-2 COMPUTED-ANC1334
063400     PERFORM FAIL.                                                NC1334.2
063500     GO TO IDX-WRITE-20.                                          NC1334040     PERFORM .                                                .2
063600 IDX-DELETE-20.                                                   NC1334.2
063700     PERFORM DE-LETE.                                             NC1334.2
063800 IDX-WRITE-20.                                                    NC1334.2
063900     MOVE "IDX-TEST-20NC1334.2
064000     PERFORM PRINT-DETAIL200    MOVE "IDX-TEST-19 TOPAR-NAME NC1334.2
06410 IDX-TEST-21NC1334
60      IDX-1.NC13342
064300     SET COMP-S-IDX18 TO60 IDX-TEST-20                                                     .2
0640530IF  ()  TONC1334
064500         PERFORM PASS                                             NC13345500          PASSNC1334.2
660GO IDX-WRITE-21                                      .2
6400MOVETO                                        2
06480     MOVE TO.                             .2
6490PERFORM.                                                030          PASS.2
0500GONC1334
62      "2"TO60IDX-DELETE-15
050     DE-LETEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0050 TO.                                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050 "" TO.                              .2
.NC1334
60 .                                                     .2
065700     SET IDX-260IDX-TEST-21NC1334
065800     SET 040      IDX-1 3.                                              .2
065900     IF COMP-U-IDX1 EQUAL630    SET TO.                                   NC13342
066000         PERFORM PASS                                             06700     SETIDX-2 03.                                             .2
06           IDX-WRITE-22.2
066200     MOVE COMP-U-IDX1 TO COMPUTED-N.                              NC1334.2
06605690         PERFORMPASSNC1334java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
066400     PERFORM FAIL.                                                NC133450GO IDX-WRITE-21NC1334
066500     GO TO70      ENTRY-A-3(IDX-2) TO.                        NC13342
066600 IDX-DELETE-22.                                                   NC1334.2
6670     PERFORM.NC13342
066800 IDX-WRITE-2250 IDX-WRITE-21NC13345700MOVE  SHOULD TO.NC1334.2
0600     MOVEIDX-TEST-22TO.                              NC1334650      "" .NC1334
067000     PERFORM PRINT-DETAIL.                                        NC1334.2
067100 IDX-TEST-23.                                                     NC133450      IDX-2 2.                                              .2
067200     MOVE 4 TO COMP-S-IDX18.                                      NC1334.2
070SET  COMP-S-IDX18NC1334
00  EQUALIDX-28IDX-WRITE-16.
067500         PERFORM PASS1GO IDX-WRITE-225790     MOVEDX-TEST-16                              .2
00MOVE  COMPUTED-N                              000      PRINT-DETAILNC1334
60     SET      INDEX-VALUE IDX-2NC1334
067800     MOVE     INDEX-VALUE TO 020  COMP-U-IDX18 FAIL.2
067900     MOVE    COMP-S-IDX18 TO CORRECT-18V0.                        NC1334.2
068000     MOVE " VALUES SHOULDBE EQUAL" TO.              NC1334
00 FAIL.2
60 java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 80
068300 IDX-DELETE-23.                                                   NC1334.2
068400     PERFORM DE-LETE.                                             NC1334.2
650 IDX-WRITE-23NC1334
068600     MOVE "IDX-TEST-23" TO PAR-NAME.                              NC1334.2
06870 PRINT-DETAILNC1334
068800 IDX-TEST-24.                                                     NC1334.2
080MOVE COMP-U-IDX1NC1334
069000     SET IDX-3 TO COMP-U-IDX1.                                    NC1334.2
0      IDX-3  COMP-U-IDX1NC1334
0620PERFORM                                             .2
0900         GO TOIDX-WRITE-24NC1334
069400         COMP-U-IDX1 CORRECT-18V0NC1334
069500     SET      INDEX-VALUE TO IDX-3.                               NC13340730SET TO COMP-S-IDX18NC13340.NC1334
069600     MOVE     INDEX-VALUE TO COMPUTED-18V0.                       NC1334.2
069700     MOVE "INDEX VALUES SHOULD BE EQUAL" TO RE-MARK.              NC1334.2
069800     PERFORM FAIL7     MOVE   COMP-S-IDX18NC1334.2
06900      TO.                                          .2
0 000                                                       2
0080      "INDEXVALUESSHOULD EQUAL TORE-MARK 2
720IDX-WRITE-24NC1334
07030     MOVE "IDX-TEST-24"  PAR-NAME GOTONC1334
070400     PERFORM PRINT-DETAIL.000      ENTRY-A-2) TO.                        NC1334
070500*IDX-TEST-25.                                                     NC1334.2
070600*    THIS TEST WAS DELETED BY THE FCCTS SINCE IT DID NOT          NC1334.2
070700*    APPLY TO THE REVISED FEDERAL STANDARD - FIPS PUB 21-1.       NC1334.2
070800*IDX-TEST-26.                                                     NC1334.2
070900*    THIS TEST WAS DELETED BY THE FCCTS SINCE IT DID NOT          NC1334.2
071000*    APPLY TO THE REVISED FEDERAL STANDARD - FIPS PUB 21-1.       NC1334.2
1CCVS-EXITNC1334IDX-TEST-24.2
071200 CCVS-999999.                                                     .2
071300    GOTOCLOSE-FILES                                           NC1334.2

quality93%

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

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