Quelle nc133a.cob Sprache: Cobol

00IDENTIFICATION.2
00020 .
0030NC133A.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
20ENVIRONMENTDIVISION.                                            .2
00  .                                           NC1334
00290 .                                                 2
003000     Card0130.                                                    NC1334.2
003100 OBJECT-COMPUTER.                                                 NC1334.2
003200     Card0131.                                                    NC1334.2
003300 INPUT-OUTPUT SECTION.                                            NC1334.2
003400 FILE-CONTROL.                                                    NC1334.2
003500     SELECT PRINT-FILE ASSIGN TO                                  NC1334.2
003600     "C0085" .                                                    NC1334.2
003700 DATA DIVISION.                                                   NC1334.2
003800 FILE SECTION.                                                    NC1334.2
003900 FD  PRINT-FILE.                                                  NC1334.2
004000 01  PRINT-REC PICTURE X(120).                                    NC1334.2
004100 01  DUMMY-RECORD PICTURE X(120).                                 NC1334.2
004200 WORKING-STORAGE SECTION.                                         NC1334.2
004300 77  SGN-IDX                     PIC S9(18) VALUE ZERO.           NC1334.2
004400 77  UNSGN-IDX                   PIC 9(18)  VALUE ZERO.           NC1334.2
004500 77  USE-IDX                     USAGE0300     .                                                    NC1334030 OBJECT-COMPUTERNC1334
004600 77  COMP-U-IDX18  PICTURE 9(18) COMPUTATIONAL VALUE40FILE-CONTROL.                                                   .2
047077 COMP-S-IDX18 PICTURE(18) 00**  NC1334
004800 77  COMP-U-IDX1   PICTURE 9 COMPUTATIONAL VALUE000600*    VALIDATION FOR:-030     C0085.2
0040 7COMP-S-IDX1 S9 0007**  NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005000 01   INDEX-VALUE  PIC04000  PRINT-REC X).                                    NC1334
   NC1334.2
005200 01  TABLE-A.                                                     NC1334.2
50     0   PICTURE XXX 4TIMES.      NC1334050                                                                NC1334.2
040    02ENTRY-A-2 4TIMES0X-82 COMPUTER.                         *.2
0055003  ENTRY-A-3090
0000************ NC1334
005700 01  TABLE-A1 REDEFINES TABLE-A.                                  NC133406 7COMP-U-IDX188COMPUTATIONAL.        0030      USING, INDEX-NAMESNC1334IDENTIFIERSNC1334
005800     020407COMP-S-IDX18(18) VALUE070ENVIRONMENT.                                            NC1334
090002ENTRY-A-6 4  INDEXED04007COMP-U-IDX1 VALUE
    X.NC1334
00300OBJECT-COMPUTER                                                 .2
006200 01  TABLE-B00TABLE-A-VALUES  X(20  "1122234452348"       .2
050 0  .                                                     .2
006400     02  ENTRY-B-2 REDEFINES    OCCURS INDEXED BY IDX-2NC1334
060  .                                          .2
006600 01  TEST-RESULTS             PICNC1334
0700                     XVALUE.2
0005000 ENTRY-A-5 XXX 4TIMESNC13342
006900300 INPUT-OUTPUTSECTIONNC1334000   OCCURSTIMESIDX-X22
007000     02060         3 PIC.NC1334
007100     02 FILLER010         0   PIC .NC1334
0072000 1TABLE-B0340 FILE-CONTROLNC1334
0050      PRINT-FILE ASSIGN                                  NC1334.
007400       03  PARDOT-X X      VALUE00ENTRY-B-1 X4  "1234. NC1334.2
007500       03 DOTVALUE               PIC 99     VALUE ZERO.           NC13344     2  ENTRY-B-2 ENTRY-B-1   4 0
..2
007700     02 RE-MARK006800     02 FEATUREPICTURE.NC1334
0                    SECTION2
007900     02 FILLER                   0 0                    040 7SGN-IDX (8 VALUE.2
0                     .          .2
0010"COMPUTED=0045 USAGE INDEX. .2
002002 COMPUTED-XNC1334
0300                  PICX(19)  VALUE SPACE.          NC1334.2
08700PARDOT-X SPACE.2
080                                  -()99.NC1334
06     3COMPUTED-0V18 PIC1)2
REDEFINES    -9)1) .2
8      000INDEX-VALUENC1334001  PIC (2)005100 01  TABLE-A-VALUES PIC X(20)  X()                      .2
090     0        REDEFINES.                      .2
000         0                     PIC-(8.NC133402ENTRY-A-1 XXX 4TIMES.     .
009100         04 FILLER                           PIC X.               NC1334.2
00920     0FILLER X(5)  SPACE.                             .2
005500                   "NC1334.2
094002FILLER0820     2COMPUTED-XNC1334
090     2FILLER X(17  " CORRECT "0501TABLE-A1                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00     2 NC1334
009700     03 CORRECT-A                  PIC X(20) VALUE800 COMPUTED-0V18 COMPUTED-A6000  ENTRY-A-7 PIC.2
09800 CORRECT-NCORRECT-APIC9().(.      NC1334
003CORRECT-0V18 CORRECT-A -91)         .2
4 CORRECT-A94.1..
01100  REDEFINES00FILLER                2
0100900  PIC5)VALUE.                             .2
010300         04 CORRECT-18V0                     PIC00400     0  ENTRY-B-2040     0 FILLERPIC3  .                             NC1334
010400         04 FILLERPICX.NC13340     2CORRECT-X.2
010500     03 FILLER PIC0700  07                        PIC0  SPACE.2
48) VALUE.     .2
01070 1  CCVS-C-1NC1334.2
1800   PICX9     IS FEATURE
010900-    "SS PARAGRAPH-NAME NC1334.2
0100-    " ".                                            NC1334.2
011100     00600    0 FILLER010000     03 CORRECT-4V14 REDEFINES CORRE -()94.2
00CCVS-C-2NC13342
02            REDEFINES.                         .2
01100     2FILLERPIC      SPACE.
011500     02 FILLER1400                            IC.2
6                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01170     0                      PICVALUE.      NC13342
011800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC133450VS-C-1.2
0190 0  REC-CT0    2FILLERX8   VALUE.          NC1334
1200 09-" PARAGRAPH-NAME NC1334.2
020 1ERROR-COUNTER9VALUE.       NC1334.2
0220 1  INSPECT-COUNTER 99      VALUE ZERONC1334
020 0  PASS-COUNTER 999      VALUE.01000 CCVS-C-2.2
012400 01  TOTAL-ERROR                   01002FILLER XVALUE2
0500  ERROR-HOLD..
012600 01  DUMMY-HOLD2COMPUTED-X.NC1334
170 01RECORD-COUNT8PIC2) .          .2
0002 (5    .      NC1334
012900 01  05                                  -9906     2                       X)VALUE2
0100002  003java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
030     REC-SKL-SUB 2     .       NC1334
0132010   PIC ZERO
0300  FILLER000        REDEFINESNC1334
00210                    PIC9VALUE.       NC13342
030004COMPUTED-18V08.NC1334
013600   02  FILLER09100 FILLER                            X.               NC1334
1 0FILLER XXXX             NC1334
013090 1TEST-CORRECTNC13344                      PIC 99      VALUE.       NC1334
0190   0  094 0 FILLER X30 .                             NC1334
10             COPY  DISTRIBUTION.
014100   00200 1  RECORD-COUNT 9(5)     VALUE.       NC1334
014200                                                                  1800 0  ANSI-REFERENCE                PIC X(8)     SPACES.NC1334
014300 01  CCVS-H-2B700 CORRECT-A30     2                       X39     SPACES.NC1334
01440002                         PIC)VALUENC1334    "NC1334
                               .2
040   0  TEST-ID X(9.NC1334099003CORRECT-0V18 CORRECT-A .(8.NC1334
                        PIC X4)   VALUE.2
014800            " IN ".                                               01600   0  FILLERREDEFINES      -9(.94 .
014900   02  FILLER                        PIC X(12)  030     "2"                                                      .2
015000     " HIGH ".                                              000                      PIC0"COPY FOR ".                       .2
01510   2                          X(2)  VALUE.2
120             LEVEL " NC1334.2
030  2FILLERPIC(8  VALUE             .2
015400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. "040   2FILLER X(5               NC1334
050 1CCVS-H-32
015600     02  FILLER                      PIC X000-"SS PARAGRAPH-NAME NC1334.2
070"FOROFFICIAL ONLY ".                         NC1334
01X0     SPACENC1334
015900     "014700 02 FILLER X(4) VALUENC13342
60     02  FILLER X(2)VALUE1200CCVS-C-2NC1334
016100            " COPYRIGHT 1985 ".                                NC1334
012   CCVS-E-1
NC1334
016400     02 FILLER  PIC6002                      PICX()VALUE".NC13342
0170     20                         X(22)VALUE2
016600     050             LEVEL" NC13342
07001CCVS-E-2.2
016800     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1334.2
0169000500  .                                                    NC1334
017000CCVS-E-2-2.2
017100         03 ERROR-TOTAL              PIC015700            " FOR OFFICIAL USE ONLY    ".
017200         03 FILLER                   PIC 020 1  ERROR-COUNTER                 PIC00COBOLVERSION 19                      C1334
073003ENDER-DESCX      VALUE.       .2
0106201java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
017500 01  CCVS-E-301400 FILLER   X(4)VALUE020 01                     PICX10VALUENC1334
0106000 ID-AGAINPIC)                    .2
070              10 1ANSI-REFERENCE8    VALUE.2
017800     2  FILLER060 CCVS-E-2.2
017900     02  FILLER                      PIC060     2  FILLER0302PIC(9     SPACES.2
80     VALIDATION OF ."NC13342
018100     020720     " COMPILER VALIDATIONSYSTEM. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018200     02 FILLER                       130     2  FILLERPIC39     SPACES03                    X      VALUENC1334
001340001  CCVS-H-2A                                                   NC1334.
018400 01  CCVS-E-4.                                                    NC133430500  .                                                    NC1334
0          XXX SPACE.2
018600     02 FILLER80    2FILLER X(1)VALUE SPACE.2
0170     2CCVS-E-4-201700                              VALUENC1334
0880     02 FILLER X4               NC1334
0080     2FILLERPICVALUE.NC1334
09012     0 PIC5               NC1334
080"18".                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01920            "* INFORMATION *"                                .2
130     2INFO-TEXT.2
019400       04 FILLER140 1CCVS-H-2BNC1334
019500       04 XXCOMPUTED1700  PIC  VALUE             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0160004 FILLER018900      "  TESTS WERE EX". NC1334.2
01970004XXCORRECT X2)                   .2
18002INF-ANSI-REFERENCEPIC48.NC1334
019900 00102FILLERPIC08             IN.2
0000   PICX  IS.                          NC1334
0200            VALIDATIONNC1334
020200-    090       4FILLER   2                         (8               NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02302FILLER  X(5)VALUE*************NC1334
020400-    "***01900 04FILLER150 0 NC1334.2
0090502 PICNC1334
020600     2INF-ANSI-REFERENCE50 OFFICIAL
020700 PROCEDURE DIVISION X(001HYPHEN-LINE
020800 CCVS1 SECTION0" 8 ".NC1334
20.NC1334
021000     OPEN     2  PICX6     IS********.
210MOVETOMOVETONC1334
210MOVE    110"COPYRIGHT 95"                                2
021300     PERFORM06200    *********"NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1GO CCVS1-EXITNC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010.
260PERFORM010 OUTPUT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 NC1334
0220MOVETONC1334
29 .                                                  1       HEAD-ROUTINE             .2
0         .
0070.                                                  .2
020PASS 09.NC1334
230 .  MOVE"*" TO.  ADD1TO.          .2
0240java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 80
.2
022600 PRINT-DETAIL0 1CCVS-E-3FAIL.ADDTO
0270IF NOT EQUALTO                                   .2
022800             MOVE "." TO PARDOT-X25070"FOROFFICIALUSEONLY.NC13342
0290             MOVE TO DOTVALUE.2
023000     MOVE     TEST-RESULTS020 .                                                    NC1334
030IF TO"PERFORMNC13342
023200        PERFORM FAIL-ROUTINE10     ON-SITE   &TECH.2
030           PERFORM8              . TONC1334
023400     MOVE SPACE TO030          TEST-RESULTS PRINT-REC .      NC1334
0230      SPACE CORRECT-X.2
02360     IF      EQUAL TO  MOVE TOPAR-NAME.2
0270     SPACE .                                   NC1334
0280 .
2C  TO  WRITE-LINE  NC1334
040      CCVS-H-2A DUMMY-RECORD WRITE-LINE.  NC1334
210MOVE CORRECT-XNC1334
024200     MOVE CCVS-H-3  TO DUMMY-RECORD6 IF EQUAL TO SPACE.         .2
0240COLUMN-NAMES-ROUTINE
024400     MOVE CCVS-C-1 TO30 HEAD-ROUTINENC1334.2
4 CCVS-C-2
java.lang.StringIndexOutOfBoundsException: Range [15, 13) out of bounds for length 80
0.                                                     .
0HYPHEN-LINEPERFORM.NC1334
024900 END-RTN-EXIT.0470END-ROUTINE                  X(0.NC1334
02500      CCVS-E-1 DUMMY-RECORD. PERFORMWRITE-LINE TIMES.   NC1334.
010 END-ROUTINE-1NC1334
090        XXCORRECT                  PIC0.                   .2
230     .   ERROR-HOLD.
025400      ADD PASS-COUNTER0510END-ROUTINE-1NC133400
025500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1334.2
      MOVE     2  PIC IS
2500       ERROR-HOLD.   ERROR-HOLD
025800       CCVS-E-4.                                .2
09      MOVE  NC1334
0260003        PIC(4     IS********NC1334
210      MOVE()  TO.                        NC1334
220IF IS TOZERONC1334
3 " 2
60                                                     20       CCVS-E-2PERFORMNC1334
0265020 .                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02030          "NO"  "NO"TONC1334
00110MOVE060                                                              .2
026800 END-ROUTINE-13.                                                  60      TO.                           .2
026900     IF DELETE-COUNTER IS EQUAL TO0    IF  IS EQUAL ZERO230PERFORM THRU             NC1334
070          "NO" ERROR-TOTALNC1334
027100         MOVEDELETE-COUNTER ERROR-TOTAL.                      NC1334
220MOVE0250CLOSE-FILESNC1334
027300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE      "TEST210PERFORMEND-ROUTINETHRU CLOSEPRINT-FILE.NC13342
027400      IF   INSPECT-COUNTER EQUAL TO ZERO                          20      CCVS-E-2 DUMMY-RECORD0TERMINATE-CCVS.2
O"TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020900TERMINATE-CALLNC1334
2770      MOVETEST)REQUIRETO.            NC1334
020210  "INSPT TO P-OR-F.ADD1 INSPECT-COUNTER. NC1334.2
290      CCVS-E-3 TO. PERFORM WRITE-LINE8 MOVETO. PERFORM.          NC1334
0200WRITE-LINENC1334
020230 FAIL "FAIL* TOP-OR-F. ADD 1TO . NC1334.2
028200     IFRECORD-COUNT 42                                   .2
230         DUMMY-RECORDDUMMY-HOLD
0202200     "****TEST020IFRECORD-COUNT 4 NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028500         WRITE70     IF REC-CT EQUAL  ZERO                                  .2080MOVE  DUMMY-RECORD.2
26 MOVETO   PERFORM    NC1334
08029              EC-CT NC1334
028800          CCVS-H-2B80MOVE DUMMY-RECORD WRT-LN   NC1334
21      P-OR-F "FAIL"PERFORM.2
0202320         FAIL-ROUTINE  FAIL-ROUTINE-EX9          CCVS-H-3  PERFORM 3TIMES.2
02910MOVE  TO0ELSE BAIL-OUT.                 .2
90          HYPHEN-LINE PERFORM          NC1334
02930         MOVE250     MOVETO.
02940          ZERO.                               NC1334.2
029500     PERFORM WRT-LN.                                              40         MOVE ZERO TO.                               .2
029600 WRT-LNMOVEWRITE ADVANCINGLINES
029800  DUMMY-RECORD java.lang.StringIndexOutOfBoundsException: Range [62, 61) out of bounds for length 80
090     SPACE.                                  .2
090BLANK-LINE-PRINTNC1334
300PERFORM
030100 FAIL-ROUTINE          COMPUTED-X TO                         .2
000IF NOT5MOVETO WRITE-LINE   NC1334
03GO FAIL-ROUTINE-WRITE                             .2
030400     IF     CORRECT-X NOT EQUAL TO00        ANSI-REFERENCE INF-ANSI-REFERENCE.2
   ANSI-REFERENCE INF-ANSI-REFERENCE.2
030602480     300     MOVETO  WRITE-LINE   .2
070MOVE TO.PERFORM 2 TIMES.2
03000        FAIL-ROUTINE-EXNC1334
030900     0510 00 FAIL-ROUTINE-WRITENC1334
300F.                                              NC1334
10MOVETO PERFORMWRITE-LINE
0320     MOVE TO30MOVE TO PERFORM 2TIMES2
031300MOVE TO PERFORM 2 TIMES.2
031400     MOVE   SPACES0 . EXIT                                           .0240       TO                             NC1334
031500 FAIL-ROUTINE-EX.                                           37     COMPUTED-A GOTONC1334
01600 .NC1334
010BAIL-OUT-WRITENC1334
002590       CCVS-E-2 CORRECT-A   COMPUTED-ANC1334
010BAIL-OUT-WRITENC1334
0320      CORRECT-A XXCORRECT0MOVE DUMMY-RECORD 2 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20        ANSI-REFERENCE INF-ANSI-REFERENCE.                 NC1334.2
03203240 BAIL-OUT-EX. EXIT.                                               .2
0230     MOVESPACES INF-ANSI-REFERENCE.                         .2
032400 BAIL-OUT-EX. EXIT.                                               NC1334.2
032500200EXITNC1334
032600060 MOVE TO00   SECTIONNC1334
07  SECTIONNC1334
032800 .                                                       .2
39 .0   TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
300     MOVE "TO FEATURE. NC1334.2
  TABLE-A
033200     20MOVE30PERFORMNC1334
030          PASSNC1334.2
" CREATED CORRECTLY" TO RE-MARK                NC1334.2
0350GO INIT-WRITE.
033600     MOVE "TABLE CREATED INCORRECTLY" TO RE-MARK.                 NC1334.2
370     PERFORM .                                                .2
033800     PERFORM INIT-WRITE.0370PERFORM70      CCVS-E-2DUMMY-RECORDWRITE-LINE.
TO   CCVS-EXIT0       INIT-WRITENC1334
0400 INIT-WRITE.                                                       GOCCVS-EXIT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03410          "TABLE BUILD"TO.                          NC1334
0420     PERFORMNC1334
034300 IDX-TEST-1.                                                      0     PERFORM.                                        NC1334
340SET 3.NC1334
034500     IF ENTRY-A-1 (IDX-1) EQUAL TO "333"                          NC1334.2
034600         PERFORM PASS2900340     IF () EQUALTO3" NC13342
03700          TO IDX-WRITE-1NC13342
0380MOVE (IDX-1TO.                        .2
03900 "33 .N2
03500PERFORM.                                                .2
5      TO9M "3 . NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0.                                                           IDX-WRITE-1java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0330PERFORM                                             .2
0354005      " "  PAR-NAME.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035500     MOVE "IDX-TEST-1 " TO .                                                      .2
               .2
035700 IDX-TEST-2.                                                      50IF (IDX-1TO"NC13342
035800     SET IDX-1 TO1         60GO.
035900     IF ENTRY-A-1          DUMMY-HOLD() TO.                        .2
0300PERFORMNC1334
0309      WRT-LNNC1334
036200     MOVE 222060       IDX-WRITE-2.2
30     MOVEENTRY-A-1) TO.                        NC1334
340PERFORM.                                                .2
3650     GO IDX-WRITE-2NC1334.2
036600 IDX-DELETE-2.                                                    20      030 .
036700     10 IDX-TEST-3NC1334
036800 IDX-WRITE-2PERFORM70 IDX-100.NC1334
MOVE.NC1334
037000     PERFORM.                                        PERFORMPASS2
03710000IF  TO2
7SET 00.NC1334
037300     IF 03000        ANSI-REFERENCE8PERFORMNC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
NC1334
037500         GO TO IDX-WRITE-3.                                       NC1334.2
037600     MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A.                        NC1334.2
037700      111 TO.                                       NC1334
NC1334
070030PERFORMNC1334
038000 IDX-DELETE-3120        ANSI-REFERENCETO.                 NC13342
038100     PERFORM.                                             NC1334
038200 IDX-WRITE-3.                                                     NC1334.2
080      "" TO                               .
0840      PRINT-DETAILNC13342
038500 IDX-TEST-4.                                                      NC1334.2
3800     IDX-1  000000000000004.                            .2
038700     IF ENTRY-A-1 (IDX-1035080G TONC13342
038800         PERFORM PASS                                             NC1334.20900      ENTRY-A-1 IDX-1 COMPUTED-A.NC1334
038900         GO IDX-WRITE-4NC1334
0900     MOVEENTRY-A-1NC1334
0390380     IF     CORRECT-Ajava.lang.StringIndexOutOfBoundsException: Range [13, 11) out of bounds for length 80
039200     000MOVE TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039300     GO TO IDX-WRITE-4     PRINT-DETAIL
0java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
039500     PERFORM DE-LETE 3 TO.
36 .NC1334
039700     MOVE "IDX-TEST-4" TO PAR-NAME0025 .                                                      .2
0304GOIDX-WRITE-5NC1334
039900 IDX-TEST-5.                                                      NC13340MOVE (IDX-2020  SECTIONNC1334
040000     MOVE 3 TO SGN-IDX00800     GO TO0     MOVE"TOFEATURE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040100     SET IDX-2 TO SGN-IDX.330PERFORM010 IDX-WRITE-5.2
4020IF (IDX-2 TO7                            030         MOVECREATED RE-MARK
04000        PERFORM010PERFORM.NC1334
040400         GO TO IDX-WRITE-540MOVE " ..
0400     MOVE (IDX-2 .                        .2
040600     MOVE 7 TO CORRECT-A0     ERFORM.041600     MOVE 1 TO UNSGN-IDX.
400 .
01PERFORMNC1334
040900 IDX-DELETE-5.                                                    NC1334.000GO IDX-WRITE-6NC1334
400      DE-LETE          "BUILD TO. NC13342
041100 IDX-WRITE-50MOVE TO.                                       .2
0420     MOVE"" TO.                               .2
0410     PERFORM                                        2
041400     MOVE   FEATURENC1334
450IDX-TEST-6NC1334
041600     MOVE 1 TO UNSGN-IDX0PERFORM.                                             .2
041700     SET  .NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1IFIDX-2 "5 .
04190
042000         GO TO IDX-WRITE-6.                                       NC13340     GOT .                                           .2
0410 ENTRY-A-2) TO.                        .2
042200     MOVE 15 TO CORRECT-A.                                        NC1334.2
042300033      IDX-250 IDX-TEST-1PAR-NAME
042400     GO TO5030 PASS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0450GOIDX-WRITE-7NC1334
042600     PERFORM DE-LETE.                                             030      4 TO.                                         .2
0420 .                                                     0MOVE NC1334
042800     MOVE  IDX-WRITE-7.2
0420     41 .                                                    .
043000 IDX-TEST-7.                                                      NC1334.2
043100     040MOVEIDX-TEST-72 CORRECT-Ajava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 IDX-2.NC1334
400IF EQUAL070 IDX-1 4.NC1334
030          PASSNC1334
43500          TO.                                       .2
043600     MOVE DE-LETENC1334
EX-VALUE IDX-2NC1334
0480     INDEX-VALUE COMPUTED-18V0.2
4300    PERFORM FAILNC1334.2
044000     GO TO600     "IDX-TEST-2"" TO0500 8TO CORRECT-A. NC1334.2
044100 IDX-DELETE-70      PRINT-DETAILNC1334
044200     PERFORM.                                             NC1334
040440PERFORM.                                                .2
04440050 GO IDX-WRITE-8NC1334
044500     PERFORM PRINT-DETAIL.                                        0IDX-DELETE-8.                                                    .2
044600 IDX-TEST-8.                                                      NC1334.2
044700     SET800IDX-WRITE-8NC1334.2
044800     SET IDX-2 TO IDX-1.                                          NC133450      "IDX-TEST-8"TO.070          TO.NC1334
044900     IF ENTRY-A-4 (IDX-2)046100 IDX-TEST-9.                                                      .2
04037700     MOVE1 TO  TO0      FAIL.
510         GO IDX-WRITE-8.                                       046400     SET IDX-2 TO USE-IDX.                                        NC1334
045200MOVETO.                                         NC1334
430          ENTRY-A-4) TO.                    NC1334
04500 FAILNC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
45      TO.                                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045600 IDX-DELETE-8.                                                    0      "IDX-TEST-3" TO.                               NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5      DE-LETENC1334
045800 IDX-WRITE-8.                                                     047300 IDX-DELETE-9.                                                    NC1334
4.
000PERFORM.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060 .
04620 IDX-X2NC1334
060      USE-IDXTOIDX-X2NC1334
046400     SET IDX-2 TO USE-IDX.000      ENTRY-A-1TO                        .
450IF  TONC1334
0600PERFORM                                             .2
047TO.
046800     MOVE  )   ()             .2
            TO.
0470350      DE-LETE.80          TONC1334
047100     PERFORM FAIL.                                                NC1334.080      ENTRY-A-4)096 .
42       .                                           .2
047300 IDX-DELETE-9.                                                    NC1334.2
047400     PERFORM DE-LETE.                                             NC1334490     GO  IDX-WRITE-10NC1334
0700IDX-WRITE-9NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.                               .2
T-DETAILNC1334
047800 IDX-TEST-10.                                                     NC1334.2
047900     SET IDX-2440     PERFORM.                                        NC1334
048000     SET040400        GOTO.                                       NC13342
048100     SET IDX-X2 TO USE-IDX.                                       NC1334.2
048200     IF ENTRY-A-800     PERFORM.                                                .2090                                              .2
04830          PASSNC1334
048400         GO TO IDX-WRITE-10.                                      000PERFORM.                                             .2
04850MOVE IDX-2.                        NC1334
048600     MOVE ENTRY-A-8 (IDX-X2) TO CORRECT-A.                        0120MOVEIDX-TEST-5 PAR-NAMENC1334
048700     MOVE "TABLE ENTRIES SHOULD BE EQUAL" TO RE-MARK.             NC1334.2
048800     PERFORM100 IDX-TEST-600     GO TO.                                          NC1334
048900     GO TO IDX-WRITE-10.                                          NC1334000      DE-LETENC1334
049000 IDX-DELETE-10.                                                   NC1334570MOVE" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0010      ENTRY-A-2) EQUAL TO "15"                           NC13342
049200 IDX-WRITE-10.                                                              PASSNC13342
MOVE  PAR-NAME.2
0 .                                        0MOVE)  .                        2
0450IDX-TEST-110          TONC1334
04030PERFORMNC1334540MOVE (IDX-3 TO COMPUTED-A.2
050MOVE CORRECT-ANC1334
049800         PERFORM PASS                                             NC133440160PERFORMNC1334
04990          .                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050000     MOVE ENTRY-B-2 (IDX-30301     DE-LETE
10     4  CORRECT-ANC1334
050200     PERFORM  PAR-NAME
02      PRINT-DETAILNC1334.                                        .2
0500IDX-DELETE-11
0020java.lang.StringIndexOutOfBoundsException: Range [14, 12) out of bounds for length 80
560IDX-WRITE-11
050030          TO.
050800     PERFORM PRINT-DETAIL.                                        NC1334.2
590 IDX-TEST-12NC1334
500    SET  TO0002                                        NC1334
510 ENTRY-B-2) EQUALTO490PERFORMNC1334
520PERFORM                                             .2
0501 .                                                    .2
051400     MOVE ENTRY-B-2 (IDX-3) TO300    PERFORM.                                                .2
051500     MOVE 2 TO CORRECT-A.                                         NC1334.2
051600     PERFORM FAIL.                                                NC1334.2
051700     GO0 IDX-TEST-8.                                                     NC1334.2
05180IDX-DELETE-12 .
051900     PERFORM DE-LETE.                                             NC1334.2
00
"" PAR-NAMEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0530     000 PASS
0523000540PERFORM.                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052400     SET IDX-3 TO 000000000000000003.                             NC1334.2
00040.
052600         PERFORM PASS60PERFORMNC1334
5          .                                      240java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052800     MOVE ENTRY-B-2 (IDX-3) TO 04620     SET TO 02.                                           40      DE-LETENC1334
2
060SET TO40     MOVEIDX-TEST-14.                              .2
NC1334
05320060                                                       .50
05IF (  TONC1334
50 .                                                    .2
3  "" TO.2
053600     047000     MOVE  COMPUTED-18V0NC1334.2
05700 IDX-TEST-14.2
053800     SET IDX-3 TO 0004700     FAILNC1334.2
053900     IF ENTRY-B-2 (IDX-3700    GO IDX-WRITE-9NC1334.2
054000         PERFORM PASS                                             .                                                    .2
05100         TO.                                      60.NC1334
054200     MOVE (IDX-3) TO.                        NC13342
054300     MOVE070     0600IDX-WRITE-15.2
054400     PERFORM FAIL60     MOVEIDX-TEST-15 PAR-NAME.                              NC1334
054500     GO TO IDX-WRITE-14.                                          NC1334.0560      070 IDX-TEST-10.2
05460 .                                                   .2
PERFORM.                                             NC1334
054800 IDX-WRITE-14NC1334.2
5MOVETO.
055000     PERFORM PRINT-DETAIL048200     IF ENTRY-A-8IDX-X2 TO ENTRY-A-4IDX-2)             .2
050 .
055200     SET IDX-3 TO 000000000000000002.                             40  (IDX-2.                        .2
055300     IF ENTRY-B-2 (IDX-3) EQUAL TO 2                              40      TABLE  RE-MARK.
05540          PASS.2
055500         GO80     GO IDX-WRITE-10                                          2
055600     MOVE ENTRY-B-2 (IDX-3090 IDX-DELETE-10NC1334.2
055700     MOVE 2 049100     PERFORM DE-LETENC1334RM                                             .
FAIL                                                .2
050       TONC1334
056000 IDX-DELETE-15.                                                   743     MOVETO                              NC1334
056100     PERFORM DE-LETE.                                             NC1334.2
6 .                                                    .2
MOVE.NC1334
.                                        .2
.
056650PERFORMNC1334
09           IDX-WRITE-11NC1334  IDX-WRITE-17.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 ENTRY-A-3)EQUAL ENTRY-B-2)              .2
0560          PASSFAIL
057000         GO TO IDX-WRITE-16051009 GO.                                          2
057100     MOVE (IDX-2 COMPUTED-A.2
057200     MOVE ENTRY-B-2 (IDX-3) TO CORRECT-A.059300 IDX-WRITE-17.                                                    .2
057300MOVETABLESHOULD"TORE-MARK NC1334.
057400     PERFORM5      PRINT-DETAILNC1334
05750GO IDX-WRITE-16 ..
057600 IDX-DELETE-16.                                                   00      "IDX-TEST-11" TO.                              .2
0700PERFORM.                                             NC1334ENTRY-A-2 EQUAL4"NC13342
057800 IDX-WRITE-16.                                                    NC1334.2
70MOVE"TOAR-NAME .2
058000     PERFORM PRINT-DETAIL.                                        NC1334.2
51 .                                                     010      ENTRY-B-2IDX-3 TONC1334
00520          PASS                                             .2
0830     SET IDX-1 COMP-U-IDX18NC1334
05840      ENTRY-A-1) EQUAL "33 NC13342
550          PASS0PERFORM.
058600         GO TO IDX-WRITE-17.                                      NC1334.2
058700MOVE "333 TO . NC1334.2
05880MOVE (IDX-1 COMPUTED-A.2
058900     PERFORM FAIL.                                                NC1334.2
059000     GO TO IDX-WRITE-17.                                          NC1334.2
05100     GO IDX-WRITE-12.2
059200     PERFORMDE-LETENC1334.2
059300 IDX-WRITE-17.                                                    NC13340690      "IDX-TEST-18" TO.                              NC133405100     PERFORMNC1334.2
540      "IDX-TEST-17" TO.                              NC1334
059500     PERFORM.                                        NC1334
059600 IDX-TEST-18.                                                     .2
05970     MOVE TO.                                      NC13342
059800     SETIDX-23     SET                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
NC1334
060000         PERFORM0SET0 " .
0  .
000MOVE CORRECT-ANC1334
0630 ENTRY-A-2TONC1334
06040PERFORM .NC1334
65       IDX-WRITE-18.2
0052800     MOVE (IDX-3TO.                        .2
000      DE-LETE.2
060800 IDX-WRITE-18PERFORM.NC1334
060900     MOVE "IDX-TEST-18" TO TO
.NC1334
13.NC1334
62      1TO.NC1334
061300     SET IDX-30      PRINT-DETAILNC1334
640IF (IDX-3 030IDX-TEST-14NC13342
061500         PERFORM PASS0      IDX-3 00000000004                             NC13342
061600         GO TO IDX-WRITE-19.                                      NC1334.2
061700     MOVE "1" TO CORRECT-A.                                       NC133430040PERFORM                                             NC1334
6     MOVE (IDX-3 TO.00MOVE(COMPUTED-A
9PERFORM.
062000     GO TO IDX-WRITE-19.                                          550     GOTO .                                          .2
06210 .
062200     PERFORM.                                             .2
4MOVETO.                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064 MOVE" .2
062500     PERFORM PRINT-DETAIL.                                        1.                                                     .2
0620.NC1334
062700     MOVE 2 TO COMP-S-IDX1.                                       06050 ENTRY-B-2EQUAL 2                              2
062800     SET IDX-2 TO COMP-S-IDX1.                                    NC1334.2
062900     IF ENTRY-A-3 (IDX-20 ENTRY-B-23.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80

060GO.
0300MOVE  CORRECT-A560 IDX-DELETE-15.NC1334
06300      ENTRY-A-3(DX-2 COMPUTED-ANC1334      .                                             .2
06340060 IDX-WRITE-15NC1334.2
6300    GO IDX-WRITE-20NC13342
06360 IDX-DELETE-20NC1334.2
063700     PERFORM DE-LETE640     MOVEIDX-TEST-21 PAR-NAMENC1334
0380 IDX-WRITE-20INT-DETAIL.2
063900     MOVE 0660 IDX-TEST-22NC1334
04000PRINT-DETAILNC1334
06100 .                                                     .2
620SET TO                                              NC1334
06400 COMP-S-IDX18 IDX-1NC1334.2
064400     IF COMP-S-IDX18 EQUAL TO +3                                  NC1334.2
064500         PERFORM PASS                                             NC1334.2
064600         GO TO IDX-WRITE-21.                                      6100GOTONC1334
064700     MOVE +3 TO CORRECT-N.                                        NC1334.2
064800     MOVE COMP-S-IDX18 TO COMPUTED-N.                             NC1334.2
064900      FAILNC1334.2
0650      TO.                                          .2
065100 IDX-DELETE-21.                                                   NC1334.2java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05200MOVE DE-LETE.
0630.                                                          TABLE  TO
040MOVE" .2
065500     PERFORM PRINT-DETAIL.                                        NC1334.2
0NC1334.2
0670SET TONC1334
0680     SET TO.                                    NC1334.2
065900     IF COMP-U-IDX1 EQUAL TO 2                                    NC1334.2
066000         PERFORM PASS6740     IFCOMP-S-IDX18 TO                                NC1334.0570 IDX-WRITE-16NC13342
06600          TO.                                      0     MOVE""TO                              NC1334
06620      COMP-U-IDX1TO.                              80     .
066300     MOVE 2 TO CORRECT-N.                                         NC1334.2
064FAILjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
066500     GO TO IDX-WRITE-22MOVEINDEX  EQUAL RE-MARK.2
066600 IDX-DELETE-22.                                                   6810     PERFORM.                                                NC133480      ENTRY-A-1) EQUAL "32 TOIDX-WRITE-23 .
060      DE-LETENC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
066800 IDX-WRITE-22.                                                    NC1334080 IDX-WRITE-23.                                                    .2
066900     MOVE "IDX-TEST-22" TO PAR-NAME0     PERFORM.                                        .2
067000     PERFORM PRINT-DETAIL.                                        NC1334058800MOVEENTRY-A-1 (IDX-1 COMPUTED-ANC13348      2 TO.                                       .2
06710IF EQUAL TO                                .2
067200     MOVE 4 TO COMP-S-IDX18.                                      NC133450 IDX-DELETE-17NC133403         GO .                                      .2
63      IDX-2.                                   .209 .
09PERFORMNC1334
06090 .
067600         GO TO IDX-WRITE-23.                                      900GO IDX-WRITE-24NC1334
0670SET
067800059900       (IDX-2TONC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
067900     MOVE    COMP-S-IDX18 TO CORRECT-18V007000IDX-DELETE-24PERFORMNC1334
60MOVE    " .NC1334
068000 .                                                    .2
0620GOIDX-WRITE-23.2
068300 IDX-DELETE-23.                                                   NC1334.2
068400     PERFORM DE-LETE.                                             NC1334.2
068500 IDX-WRITE-23.                                                    NC13340      TO.2
068600     MOVE "IDX-TEST-23" TO PAR-NAME070700*    APPLY TO THE REVISED000PERFORM.                                             .2
068700     PERFORM PRINT-DETAIL.                                        NC1334070900*    THIS TEST 090MOVE" PAR-NAME. .2
60.NC1334
NC1334
069000     0  .                                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01     IF  TONC1334
069200         PERFORM PASS                                             NC133400SET TO.                                    .2
069300         GO0 PASS.2
069400     MOVE     COMP-U-IDX1 TO CORRECT-18V0.                        NC1334.0100GO IDX-WRITE-19.NC13342
6900SET TO IDX-3NC1334
06010      ENTRY-B-2) TOCOMPUTED-A.2
00      FAIL.2
069800     PERFORM FAIL.                                                NC1334.2
069900     GO TO IDX-WRITE-24.                                          NC1334.2
070000 IDX-DELETE-24.                                                   NC1334.2
0701062300IDX-WRITE-19NC1334.2
070200 IDX-WRITE-24.                                                    NC1334.2
070300     MOVE "IDX-TEST-24" TO PAR-NAME.                              NC1334.2
070400     PERFORM6250     PERFORMPRINT-DETAIL                                        NC13342
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
0070MOVE COMP-S-IDX1NC1334
071200 CCVS-999999.                                                     NC1334.2
071300     GO06280     SETIDX-2 COMP-S-IDX1.                                    NC1334

quality92%

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

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