Quelle nc133a.cob Sprache: Cobol

0IDENTIFICATION                                         2
0000 PROGRAM-IDNC133400     .                                                      NC1334000400****000500*                                                              *  NC1334.2
0003001200***000700*                                                              001300*                                                              *00800*001400*      X-CARDS000900*                                                              *  NC1334.0001500*                                                              00001001001001900*                                                              001700*        X-82001800*        000190002100*                                                                 NC13340020000002100*                                                                 NC1334.002300*002200*     PROGRAM002300*     STATEMENT002400*     IDENTIFIERS.002002500*     REDEFINED SINGLE000070 ENVIRONMENT DIVISIONNC1334020ENVIRONMENT.                                            .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
  DIVISION.2
002800 CONFIGURATIONSECTION.2
0029050        OCCURSTIMESPICTURE ZERO
0000    3ENTRY-A-7NC1334
01 .                                                 NC133400 1INDEX-VALUE9                                      java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
8 PICTURETIMES
30 .                                            9     2 OCCURS                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00FILE-CONTROL.
30SELECT TO.
003600     "C0085" .                                                    NC1334              PIC 000java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
30DATA..2
003800 FILE SECTION5               .NC1334
00   PRINT-FILE.
004000 01  PRINT-REC PICTURE 00     2                    XVALUE
RD X1)
00  SECTION.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03 7SGN-IDX1) .           NC1334
004400 77  UNSGN-IDX                   PIC 9(18)  VALUEFILLER       SPACE
0407 USAGE
004600 7080     0 .                                               .2
004700 77  COMP-S-IDX18 PICTURE S900403PARDOT-XSPACENC1334050PIC99.()                  .2
0408003COMPUTED-0V18COMPUTED-A)NC1334
004900 77  008700     03 COMPUTED-4V14 COMPUTED-APIC(4.9(4).    NC1334
5001INDEX-VALUE99..2
00510  TABLE-A-VALUESX0 PIC1 NC1334
00520 0  .                                                     000     3CM-18V0.NC1334
0300  PICTURE OCCURS IDX-1java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00     2    OCCURS INDEXED0       PIC0VALUENC1334
0"COMPUTED"2
005600         04       PIC                                               .
0501TABLE-A1 TABLE-A2
005800     02  ENTRY-A-5  PICTURE XXX0     0COMPUTED-N              NC1334
005900     2  ENTRY-A-6 4 TIMES IDX-X2090     2CORRECT-X.2
0         ENTRY-A-7X NC1334
006100         03  ENTRY-A-8 PIC X008     3    REDEFINES -99).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0009             REDEFINES                       .2
030    0214REDEFINES     PIC)9)NC133400     3CORRECT-14V4 0904FILLER X               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
62 REDEFINES  0SPACE
00                IDX-3NC1334
006600 01                                           0600 .NC1334
060     2FILLER0CORRECT-A      CORRECT-ANC133400.                                                    2
010    REMARKSjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09 0                    0T-A94.1)NC1334
00     2110   .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
7002FILLER X       .          NC1334
0X               2
0730       3                  PIC0      PIC()VALUE.NC1334
040       3PARDOT-X SPACE72FILLERX(9)java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0070010700 01  CC
076                     ()VALUENC1334
020090SS
00701000                     99       ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007900     021301                  PIC       ZERO01.NC1334
01       PIC .      NC1334
008100            "020 1ERROR-HOLD PIC 999 VALUE ZERO. NC13342
008200     0 COMPUTED-X.                                              .2
0080     0                PIC X(0   PACE
00840005                           PIC     SPACE2
0800                                 PIC()16002FILLERPIC4     VALUEFAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080     3COMPUTED-0V18 COMPUTED-A..NC1334
008700     03 COMPUTED-4V14 REDEFINES COMPUTED-A110     REC-SKL-SUBPIC ()VALUE.2
100                          99       .       NC1334
09            CM-18V0.                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                             -()          2
00         4FILLERPIC               .2
02     3FILLER X10                             XXXX.2
0300  .                                                .2
02 () SPACE
009500     02 FILLER PIC X020 140" - NOTFORDISTRIBUTION"                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009600     02 CORRECT-X.                                                1CCVS-H-1NC1334
0090     3CORRECT-APICSPACES
009800     010    2FILLER X(2                 NC13340   2FILLER X(15) VALUE             .30     OFFICIAL.
090       REDEFINES     PIC-91).         .2
01000     03 CORRECT-4V14PIC41 NC1334
010100     03 CORRECT-14V4 REDEFINES CORRECT-A1700  FILLERPIC XXXX             NC1334
02 0       REDEFINES.                         .
0100         4CORRECT-18V0
01                              X4)VALUENC1334
NC133400FILLER2             NC1334
050" VALIDATION FOR"NC1334
01070010java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 80
010800     02 FILLER  PIC40" 050 . NC1334.2
190    SS
011000-    6   2                       PIC10  USE.2
011100     02 FILLER                     PIC (2)    VALUE.      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010 1CCVS-C-2
011300     02 FILLER.2
011400040   2FILLER                         X(1)0100CCVS-E-1..2
011500     02 FILLER                     PIC50      HIGH.2
0110     2FILLER 4      "FAIL .
1700011700     02 PIC               NC1334
01180500                           Xjava.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
011900 01  REC-CT5CCVS-H-3.2
01602FILLERPIC4VALUE                                                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1100  ERROR-COUNTERPIC9     8  .,Apr.2
012200 01  INSPECT-COUNTER00                      PIC               NC1334
      ZERO2
012400 01  TOTAL-ERROR00CCVS-E-1.2
012500 01  ERROR-HOLD                    PIC 99060     2FILLER5) SPACE.2
0                    2 .      2
012700 01  RECORD-COUNT02                     .
2 ANSI-REFERENCE.2
012900 01  CCVS-H-10                      10 .NC1334
3                           2
010900                         X(0ON-SITE STD.
30OCOBOL "NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030     0                       X()VALUE PIC SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0.                                                   2
011
013600   02  FILLER                        " 18500 02 CCVS-E-4-1 java.lang.StringIndexOutOfBoundsException: Range [47, 46) out of bounds for length 80
   PIC2
010" VALIDATION 102PIC(.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013900   01000FILLER
014000            3             COPYRIGHTNC1334
014100   01400  .                                                    .2
014080     2FILLER X4    0900.NC1334
0300  .                                                   .2
FILLER()VALUE2
014500            "TEST RESULT018800 02 FILLER X(4)VALUENC13342
014600   02  TEST-ID90       4FILLER                      SUCCESSFULLYjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0147090     2INF-ANSI-REFERENCE            X()                   .2
40  .NC1334
014900   02  FILLER                        PIC X(12)  VALUE             NC1334.2
01520     2FILLERISVALUESPACE.2
015100   02  FILLER                        PIC X(22)  VALUE             NC1334.2
12               FOR                             .
130   0FILLERX5)VALUE.2
015400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1334.05                         PIC000   IS(4    IS***2
5 1CCVS-H-3
5     2FILLER(4  VALUE
0157            FOR     .NC1334
                  PIC5190  .                                                 .2
01590     COBOL85VERSION4.2, Apr  1993 SSVG.2
016000                         X029                                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
COPYRIGHT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
120    ************.NC1334
016300     02 FILLER25001CCVS-PGM-ID X()VALUE.2
01020600"NC133A".                                                    .2
016500     02 ID-AGAIN                     PIC X(9).                    NC1334.2
0160210      END-ROUTINE         OUTPUT.                                  2
01727 ..
016800     0100 TERMINATE-CALL COLUMN-NAMES-ROUTINE
0190     0                         X(1  VALUE..2
120      RUN.2
017100         03 020     PERFORMEND-ROUTINE . CLOSE.   NC1334
017200         020 .  MOVE "PASS"00
010200INSPT0DE-LETE "***"TO         .
10            ERRORSNC1334
0175000  .020    "FAIL* TO P-OR-F 1ERROR-COUNTER. .2
10FILLERPICX2               NC1334
0FOR 2
017800     02  FILLER                      PIC X20              REC-CT.                             NC1334
190    2FILLER X(8)              21P-OR-FFAILNC1334
0800" VALIDATION, NATIONALINSTITUTEOFSTD . ".NC1334
018100     02030ELSE0200MOVE PARDOT-X
018200     020              REC-CT .                             NC1334
018300             " COPYRIGHT 1985".                                   NC1334.2
018400 01  CCVS-E-4.                                                    NC13340IFREC-CT ZERO SPACE .         NC1334
018030           PERFORM30HEAD-ROUTINE.2
0186002FILLER30MOVECCVS-H-1 DUMMY-RECORD  .2
0180200MOVE TO. PERFORM 2 TIMES.2
01880410      TO                                     .2
0200     REC-CTZEROTONC1334
019000 01  XXINFO030          SPACE23 .                                           .2
019100     02 FILLER                       PIC X(19)  VALUE             NC133490     CCVS-H-1 DUMMY-RECORD2.  NC1334
   * ***"NC1334.
019300     02 00     MOVE TO.  WRITE-LINE.2
019400       04 FILLER06      HYPHEN-LINE08       DUMMY-RECORDWRITE-LINENC1334
COMPUTEDPIC2                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019600       04 FILLER                     PIC X(024900END-RTN-EXITNC1334.2
17004XXCORRECT X(2)NC1334
019800     02 INF-ANSI-REFERENCE           PIC ADD 2
91.NC1334
020002FILLER XVALUE.NC1334
020100     02 FILLER  0570MOVE TO       ADDDELETE-COUNTER               .2
020200-    "***************************0500 MOVE CCVS-E-2 TO DUMMY-RECORDPERFORMWRITE-LINE.025600 MOVE PASS-COUNTER TO CCVS-E-4-1. .
000PIS      IS"*********2
020400-    0600 "TESTS) FAILED" ENDER-DESC.2
020500 01  CCVS-PGM-ID                     PIC060            ERROR-COUNTER EQUALTO ZERO                      NC1334.2
020600     "NC133A".                                                    0240         ELSENC1334.2
020700 PROCEDURE60  .                                                 .2
NC1334.2
0090 OPEN-FILESNC13342
021000     OPEN     OUTPUT20MOVE ERROR-TOTAL
20      CCVS-PGM-ID                                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021200     MOVE    SPACE 070PERFORM.                                          .2
PERFORM.NC1334
021400     GO000MOVE ERROR-TOTAL  TO.2
0
6  . .java.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 80
2
28      021800     EXIT PROGRAMjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20TERMINATE-CALL
02200 "(S INSPECTION"  ENDER-DESC
2INSPT   .
0222070MOVE DUMMY-RECORD.20     CCVS-E-2          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
230.  MOVE* .1ERROR-COUNTER80WRITE-LINENC1334  GREATERNC1334
20DE-LETE0 MOVE.
250MOVE 8 GREATER2
0260PRINT-DETAILNC1334
0220     IF NOTTONC1334 SPACE2
022800             MOVE 05          DUMMY-RECORD0CCVS-H-1 WRT-LN
20R  DOTVALUE
023000     MOVEMOVE20CCVS-H-2A 2TIMES
20P-OR-F* WRITE-LINE
220PERFORMTHRU  TO     NC1334
030ELSE  BAIL-OUT-EX
023400     MOVE SPACE20 TO          .2
030     SPACENC1334
0230  TO  RECORD-COUNTjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
  SPACE RE-MARK.2
023800 HEAD-ROUTINE.                                                    NC1334.2
023900      CCVS-H-1 AFTER1               .2
240     MOVETO. PERFORM 2 TIMES. NC1334
0410     MOVE TO080MOVE DUMMY-RECORDNC1334
024200     MOVE090 .                                                .2
024300 COLUMN-NAMES-ROUTINE.                                            NC1334.2
024400     MOVE TO DUMMY-RECORD WRITE-LINE
0  DUMMY-RECORD.2
024600     MOVE3000             TOFAIL-ROUTINE-WRITE.NC13340IF NOT  SPACE FAIL-ROUTINE-WRITE
024700 END-ROUTINEMOVEINF-ANSI-REFERENCE
20000     DUMMY-RECORDTIMES
0240        WRITE-LINE
025000     MOVE00TO.
20 30.
RROR-COUNTER0TEST-COMPUTED          .2
30   ANSI-REFERENCE      ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
        ..2
025500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1334.2
00BAIL-OUTNC1334
025700      MOVE ERROR-HOLD . EXITNC13340      NOT  SPACEBAIL-OUT-WRITE
0580       CCVS-E-4
0MOVE0200     CORRECT-AXXCORRECT XXCOMPUTED
39BAIL-OUT-WRITE.2
026100      MOVE20MOVE TO. MOVEMOVE TO WRITE-LINE..2
0260            ERROR-COUNTER  ZERO.
02630310MOVE TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060                                                              .2
026500306NC1334
260         CCVS-E-22SECT-TH133A-001.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026700     PERFORMTH-04-001NC133430IDX-INIT-A.2
026800 END-ROUTINE-130290 IDX-INIT-A0""TONC1334
026900     IF10MOVE
0LE-A-VALUES.NC1334
0710          DELETE-COUNTER
027200     MOVE "033400 MOVETABLE0 INIT-WRITE NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
   .            .
027400      033900     GO..2
0275030INIT-WRITENC1334    .NC1334
027600      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1334.2
027700      MOVE "TEST(S) REQUIRE INSPECTION" TO310          "TABLE040 . .2
027800      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE040SET TONC1334     IDX-1                                              2
07035      ENTRY-A-1 TO.
028000 WRITE-LINE3GO .                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028100     ADD0      FAILNC1334
8  GREATER.2
03100GO IDX-WRITE-1      33"CORRECT-A2
080 SPACE                               .2
0285003520 IDX-DELETE-1NC1334TONC1334
028600         MOVE CCVS-H-12 .                                                    .2
0050.
028800         MOVE CCVS-H-2B050PERFORM.                                        .
0   TO035600     PERFORM PRINT-DETAIL.
029000         MOVE CCVS-C-1  TO DUMMY-RECORD PASS.2
02900         060         TONC1334
220 HYPHEN-LINE  PERFORM          NC1334
029300MOVE 060     MOVE IDX-1 COMPUTED-ANC1334
029400         MOVE TO RECORD-COUNT360          PASS.2
2900     PERFORM.                                              .2
20350     TO                                           java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
0260      TO.
0280MOVE .NC1334
290 .                                                2
030000     PERFORM 02      IDX-1 000 NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
FAIL-ROUTINE  PAR-NAME
030200      PRINT-DETAIL0         PERFORMNC1334
030300            35          TO.NC1334
340          CORRECT-XNOTEQUAL TO.                        .2
5MOVE0FAIL
030600     MOVE9      TONC1334
030700     MOVE   XXINFO00 037400         PERFORM                                             .2
030800     MOVE   SPACES TO INF-ANSI-REFERENCE03810     PERFORM.                                             NC1334.2
030900     GO TO38 .                                                     .2
30FAIL-ROUTINE-WRITE2
031100     MOVE390.                                        2
0320MOVE  COR-ANSI-REFERENCE.
030SET  0000000 .NC1334
4        30PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10IDX-WRITE-4java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031600 BAIL-OUT ..
031730 039200     PERFORM FAIL.
30IF30GO .                                           .
031900 BAIL-OUT-WRITEPERFORMNC1334
320     MOVE CORRECT-A.2
032100     MOVE ""  PAR-NAME.
03080PERFORMNC1334
032300     MOVE   SPACES TO30 .                                                      0.                                                    .2
00.
30java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
032600     EXIT.                                                        900  IDX-WRITE-52
3200SECT-TH133A-001                                         .2
0320 .                                                       .2
320 .                                                      .2
0330"INDEXING . NC13342
033100     MOVE TABLE-A-VALUES TONC1334
033200     IF0400      DE-LETENC1334
030          PASS
340" CORRECTLY"                  .2
033500         GO TO INIT-WRITE.                                        00        PERFORM43 PRINT-DETAIL2
033600     MOVE "TABLE CREATED INCORRECTLY" TO RE-MARK IDX-TEST-6NC13345 ENTRY-A-4) TONC1334
03370P FAIL0NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
380PERFORM.                                          07      FAIL.2
390GO   CCVS-EXIT.2
034000 INIT-WRITE.                                                      NC1334409          PASS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4      " ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
INT-DETAIL2
034300 IDX-TEST-1.                                                      NC1334.2
034400     SET IDX-1 TO 3.                                              0GO30PERFORM.NC1334
034500     IF ENTRY-A-1 (IDX-1) EQUAL 010 .                                                      .2
034600         PERFORM PASS                                             NC1334.2
034700         GOTOIDX-WRITE-1                                       .2
034800     MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A.04100      ENTRY-A-2 (IDX-2) EQUAL TO1"NC13342
.2
035000     PERFORM FAIL.                                                NC1334.2
03510     GO OIDX-WRITE-1NC1334
035200 IDX-DELETE-1.                                                    NC1334.2
035300     PERFORM DE-LETE.                                             NC1334.2
050 .                                                     .2
35     " .
03604                                                      2
035700 IDX-TEST-2.                                                      TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035800     SET IDX-1 TO70IDX-WRITE-6NC133448      TOCOMPUTED-18V02
035900     IF ENTRY-A-1 (IDX-1) EQUAL30     ERFORM.                                                .2
036000         PERFORM PASS                                             90PERFORM0IDX-DELETE-7NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30          TO.                                       .
060      22TONC1334
036300     MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A0PERFORM.                                        NC13342
00330      IDX-240     SETTO                                              2
036500     0GO IDX-WRITE-7NC1334
0660 IDX-DELETE-2NC13342
036700     PERFORM.                                             .2
036800 IDX-WRITE-2.                                                     30     MOVE TO.                       NC1334
03900    MOVEIDX-TEST-220MOVETO
03700PERFORM.                                        .2
31 .                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037200     SET IDX-1 TO 000001.                                         NC1334.2
037050PERFORM.                                             .2
037400         PERFORM PASS                                             NC1334.2
350GO IDX-WRITE-3.2
037600     MOVE ENTRY-A-1 (IDX-1) TO COMPUTED-A.0400      PRINT-DETAIL                                        .2
0 11TO CORRECT-A.                                       NC1334.2
00PERFORMNC1334
037900     GO TO IDX-WRITE-3041 TO EQUAL 2NC1334
038000 IDX-DELETE-3java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03808      204     FAIL
038200 IDX-WRITE-3.                                                     NC1334INDEX-VALUE.00 TO.2
03830MOVE PAR-NAME2
038400     PERFORM PRINT-DETAIL.                                        NC1334.2
038500 IDX-TEST-4.                                                      NC133404700PERFORM.                                             .2
038600     SET IDX-1 TO 000000000000000004050IDX-WRITE-9
8IF () EQUALTO60.                                        .2
0 PASS  02..2
038900         430SET TO .                                       .2
30  IDX-1.NC1334
0080SET TO.                                        .2
039200     PERFORM46          PASSNC1334
039300     GO TO IDX-WRITE-40800     SET TOUSE-IDXNC1334          TO.                                       NC13342
039400 8PERFORMNC1334TONC1334
900PERFORM.                                             NC133480         GO.                                      2
30IDX-WRITE-4.2
039700    MOVE"" TO.                               .2
039800      PRINT-DETAILTONC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0390IDX-TEST-5NC1334
040000     090 IDX-DELETE-10NC13340.
4000SET TO 047600     MOVE "IDX-TEST-9" TONC1334
040200     IFENTRY-A-4.                                        2
040300049300      "IDX-TEST-10" TO.                              NC13342
0  IDX-WRITE-5.
0450      ENTRY-A-4) TO.                        .2
090     IF (IDX-3 TONC1334
0470 FAILNC13340        PASS
040800     GO TO490          TOIDX-WRITE-11NC13342
040900 IDX-DELETE-50PERFORM                                             .2
010      DE-LETENC1334
04100.                                                     MOVE()  COMPUTED-A2
010      "IDX-TEST-5" TO.                               .2
04130PERFORM.
00 " STATEMENT .
045java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041600     MOVE00.
041700     SET000PERFORM.                                        .2
480IF (IDX-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041900PERFORM                                             .
042000049300      "IDX-TEST-10"TO.                              NC1334
20     MOVE (IDX-2TO                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042200     MOVE 15 TO CORRECT-A950 IDX-TEST-110530         GO IDX-WRITE-12.2
420      FAIL.                                                .2
042400     GO TO IDX-WRITE-6
021  .
0460PERFORM.                                              TONC1334
042700 IDX-WRITE-6.                                                     NC1334.2
0480MOVE" .NC13342
042900     PERFORM PRINT-DETAIL.                                        NC1334.2
405      .NC1334
043100     SETMOVE .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043200     SET2     PRINT-DETAILNC1334
043300     IF IDX-2 EQUAL3 .                                                     0                                                   .2
0440 PASS .NC1334
0450GO IDX-WRITE-7NC1334.2
043600     MOVE 4 TO CORRECT-A.                                         NC1334.2
043700     SET      INDEX-VALUE TO000 .                                                     .2
043800     MOVE     INDEX-VALUE TO COMPUTED-18V0.                       NC1334.2
00FAIL
044000     GO TO IDX-WRITE-7010          PASSNC1334
41IDX-DELETE-7NC1334
044200     PERFORM DE-LETE.                                             NC1334.2
044300 IDX-WRITE-7.                                                     NC133451 GO IDX-WRITE-13NC1334
40     MOVE"" TO.                               .2
04450      PRINT-DETAILNC1334.2
04460 IDX-TEST-8
044700     SET IDX-1 TO0 .050IDX-WRITE-13NC1334
480SET TO.                                          .2
0440      ENTRY-A-4)  TO                            500IDX-WRITE-12.2
050         ""TOPAR-NAME. .2
410GO IDX-WRITE-8.2
045200     MOVE 8 TO CORRECT-A.                                         NC1334.2
40MOVENC1334
40      FAILNC1334.2
04550GO IDX-WRITE-8NC1334
045600 IDX-DELETE-8.                                                    NC1334.2
045700054200      ENTRY-B-2) TO.                        .2
04580IDX-WRITE-8.2
045900     MOVE "IDX-TEST-8" TO PAR-NAME40PERFORMFAILNC1334.2
0400      PRINT-DETAIL.                                        NC1334.2
046100 IDX-TEST-9.                                                      NC133405700GO TOIDX-WRITE-13NC1334.550     GOTOIDX-WRITE-14.                                          NC13342
2 IDX-X2.NC1334PERFORM.
046300     SET0IDX-WRITE-14NC1334
4640      IDX-2 USE-IDX     MOVEIDX-TEST-14 PAR-NAME.2
0500     PERFORM 0300     GO IDX-WRITE-13NC1334
460PERFORMPASSNC1334..NC1334
7GO IDX-WRITE-9.2
046800     MOVE 2 TO000     ENTRY-B-2)EQUAL 2                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046900     SET0530     MOVEIDX-TEST-13 PAR-NAMENC1334
     INDEX-VALUETO.                       NC1334 3.NC1334
410PERFORM.
0420     TO.
047300 IDX-DELETE-9NC1334
047400     PERFORM DE-LETE590GO IDX-WRITE-15NC1334.2
047500 IDX-WRITE-9.                                                     NC1334.20400        GO IDX-WRITE-14NC133400
460MOVE .
047700     PERFORM PRINT-DETAIL.                                        NC1334.2
080
047900     SET0IDX-DELETE-14NC1334
048000     SET java.lang.StringIndexOutOfBoundsException: Range [80, 26) out of bounds for length 80
04810000IF040 " 2
0       () EQUAL (IDX-2NC1334
080          PASS.2
048400         GO TO IDX-WRITE-10.                                      NC1334.2
8     ENTRY-A-4TONC1334
048010 ENTRY-A-3) TO.                        .2
80MOVE   EQUAL.
048800     PERFORM FAIL.                                                NC1334.2
04890 TO.NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
400.
.                                             . DE-LETE
049200 055800     PERFORM.NC1334.                                             IDX-WRITE-15
3      IDX-TEST-10.                              2
440PERFORM.                                        .2
080 PRINT-DETAIL.2
049600     SET05200 IDX-WRITE-15NC1334
049700     IF ENTRY-B-2 (IDX-3) EQUAL TO 4                              0     MOVE530    MOVE"" TO                              NC1334
090PERFORM                                             .060 .                                                    ..2
04900GOTO.                                      50          TO                                      2
050000     MOVE ENTRY-B-290PERFORM090PERFORMNC1334
500     90      IDX-WRITE-17.2
050910IDX-DELETE-17NC1334.2
050300     GO TO IDX-WRITE-11.                                          0      ENTRY-A-3) TO.                        NC13340900PERFORM.                                             NC1334.2
050400 IDX-DELETE-11.                                                   NC1334.2
050500     PERFORM DE-LETE570      TO090IDX-TEST-18.2
5060IDX-WRITE-11NC1334.2
05070     MOVEIDX-TEST-11 PAR-NAMENC1334
050800     57      DE-LETE50IF)  TOjava.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
050900 IDX-TEST-12.                                                     NC133400          PASSNC1334090MOVEP java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
051000     SET IDX-3 05800 IDX-TEST-17NC1334.2
50IF (EQUAL 2                             .2
10PERFORMNC1334
051300         00     SET TO.                                   .2
051400     MOVE ENTRY-B-2 (IDX-3) 080         PERFORM                                             0      FAILNC1334
051500     080     MOVE"CORRECT-A java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051600     PERFORM FAIL.                                                NC1334.2
570      TONC1334
      .
1 .                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052000 IDX-WRITE-12.                                                    IDX-TEST-18NC1334
052100     MOVE "IDX-TEST-12" TO   TO0 TO.                                    .2
052200     PERFORM PRINT-DETAIL059900     IF ENTRY-A-2 (IDX-2) EQUAL TO "48"
052300 IDX-TEST-13NC1334
05240     SET IDX-370MOVETONC1334
5000         TO.2
0010      FAILNC1334620      "48" TO.                                      NC1334.2
052700         GO TO IDX-WRITE-130      FAIL
8      ENTRY-B-2)  COMPUTED-ANC1334
0 TO.NC1334
053000      FAIL                                                .2
053100     GO IDX-WRITE-13.NC1334.2
030 .                                                   .2
3 PERFORM
540IDX-WRITE-13.2
05350100MOVE  COMP-U-IDX1                                       .2
05360     PERFORM.                                        .2
570.
05380SET TO00000000.                             NC1334.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053900 ENTRY-B-2) EQUAL 4                              .2
40        PASS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054100         GO TO IDX-WRITE-14.                                      NC1334.2
054200     MOVE ENTRY-B-201800      ENTRY-B-2) COMPUTED-AMOVE () TO.                        .2
054300     061900     PERFORM FAILNC1334.2
540     PERFORMFAILNC1334
0550 TOIDX-WRITE-14NC1334
054600 IDX-DELETE-14.                                                   NC1334.2
054700     PERFORM DE-LETE00IDX-DELETE-19NC1334.2
054800 IDX-WRITE-14.                                                    PERFORM DE-LETENC1334
05900      "IDX-TEST-14" TO PAR-NAMENC1334.2
055000     PERFORM PRINT-DETAIL.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055100 IDX-TEST-15.                                                     NC1334.2
055200     SET IDX-3 0420SET TO 3                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     IDX-3.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040PERFORM
055500         0400          TO.NC1334
05560     MOVE 040      +  CORRECT-NNC1334
055700     MOVE 2 TO0 COMP-S-IDX18 COMPUTED-NNC1334
055800     PERFORM FAIL040      FAILNC1334600PERFORMNC1334
055900     GO TO IDX-WRITE-15.                                          NC133406310               TO IDX-WRITE-21.2
0IDX-DELETE-15.2
056100     0630MOVE I) TO.                        050PERFORMNC1334
520 .
056300     MOVE0.
060.065500     PERFORM PR
056500 IDX-TEST-16.                                                     NC1334.600     PERFORM.                                        .2
056600     SET IDX-3 TO 03.                                             NC1334
5  TONC1334
056800     IF ENTRY-A-3 (IDX-26 .
0                                              .2
057000         GO TO IDX-WRITE-16.                                      NC1334PERFORM.
0510MOVE IDX-2 COMPUTED-A.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
7      00
030"ENTRIES BE EQUAL" RE-MARK
05769      ""  PAR-NAME"IDX-TEST-21TOPAR-NAMEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057500     GO TO IDX-WRITE-16.065600 IDX-TEST-22.
057600 IDX-DELETE-16.                                                   50      COMP-U-IDX1 IDX-2NC1334java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057700     PERFORM630     SET IDX-2TO.                                   .2
0.
070      " PAR-NAME.java.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 80
5PERFORM.2
058100 IDX-TEST-17.                                                     NC13340770     SET TOIDX-2.                               .2
05800     MOVE3 TO.                                      600     PERFORM.                                                NC1334
058300     SET IDX-1 TO COMP-U-IDX18.                                   NC1334.2
0540IF (IDX-1 TO33" 080GO . NC13342
058500         PERFORM PASS                                             NC1334.2
058600         GO TO IDX-WRITE-17.                                      670PERFORM.                                             .2
058700     MOVE "333" TO CORRECT-A
5      ENTRY-A-1) TO.                        .60MOVETO
058900     PERFORM FAIL.                                                NC1334.2
059000     GO90          PASSNC1334
0910IDX-DELETE-17.                                                   .2
059200     PERFORM DE-LETE.                                             0MOVE TO.                        .2
0530IDX-WRITE-17.2
059400     MOVE "IDX-TEST-17" TO PAR-NAME.                              NC1334.2
05500      PRINT-DETAIL.                                        .2
5600IDX-TEST-18NC1334.2
05970MOVE4TO.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059800     SET70           INDEX-VALUE TO IDX-2.                               NC1334.2
IFENTRY-A-2) EQUAL  "48"                           C1334.2
600         PASS.
060100         GO TO IDX-WRITE-18.                                      NC13340MOVEINDEXBE              .
060200     MOVE "48" TO00TO.062    GO  .
630MOVE (IDX-2 COMPUTED-A.2
060400     PERFORM FAIL.                                                NC1334.2
06050GO IDX-WRITE-18.                                          NC1334
060600 IDX-DELETE-18.                                                   NC1334.2
670      DE-LETENC1334
060800 IDX-WRITE-18.                                                    NC1334.2
000      "IDX-TEST-18"TONC1334
061000     PERFORM 07100  SECTION.                                               0880
061100 IDX-TEST-19.                                                     NC1334.2
061200     MOVE 1 TO COMP-U-IDX1.                                       6900     IF IDX-3EQUAL COMP-U-IDX1                                .2
0130      IDX-3 COMP-U-IDX1NC1334
061400     IF ENTRY-B-2 (IDX-3) EQUAL TO 1                              NC1334.2
06150         PERFORM                                             NC1334
66          TO                                      .
06105           INDEX-VALUE.                               .2
080MOVE (IDX-3 .                        NC1334
6190     PERFORM.                                                NC1334
062000     GO TO IDX-WRITE-19.                                          NC1334.2
062100 IDX-DELETE-19.                                                   NC1334.2
062200     PERFORM DE-LETE.                                             NC1334.2
0.
062400     MOVE "IDX-TEST-19" TO PAR-NAME.
00 .                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062600 IDX-TEST-20.                                                     070700*    APPLY TO THE REVISED FEDERAL 070800*IDX-TEST-26.                                                     NC1334.2
020      2 TO.                                       .2
0  TO.2
062900     IF ENTRY-A-3 (IDX-2) EQUAL TO "2"                            NC1334.2
063000         PERFORM PASS                                             NC1334.2
063100         GO TO IDX-WRITE-20.                                      NC1334.2
063200     MOVE "2" TO CORRECT-A.                                       NC1334.2
063300     MOVE ENTRY-A-3 (IDX-2) TO COMPUTED-A.                        NC1334.2
063400     PERFORM FAIL.                                                NC1334.2
063500     GO TO IDX-WRITE-20.                                          NC1334.2
063600 IDX-DELETE-20.                                                   NC1334.2
063700     PERFORM DE-LETE.                                             NC1334.2
063800 IDX-WRITE-20.                                                    NC1334.2
063900     MOVE "IDX-TEST-20" TO PAR-NAME.                              NC1334.2
064000     PERFORM PRINT-DETAIL.                                        NC1334.2
064100 IDX-TEST-21.                                                     NC1334.2
064200     SET IDX-1 TO 3.                                              NC1334.2
064300     SET COMP-S-IDX18 TO IDX-1.                                   NC1334.2
064400     IF COMP-S-IDX18 EQUAL TO +3                                  NC1334.2
064500         PERFORM PASS                                             NC1334.2
064600         GO TO IDX-WRITE-21.                                      NC1334.2
064700     MOVE +3 TO CORRECT-N.                                        NC1334.2
064800     MOVE COMP-S-IDX18 TO COMPUTED-N.                             NC1334.2
064900     PERFORM FAIL.                                                NC1334.2
065000     GO TO IDX-WRITE-21.                                          NC1334.2
065100 IDX-DELETE-21.                                                   NC1334.2
065200     PERFORM DE-LETE.                                             NC1334.2
065300 IDX-WRITE-21.                                                    NC1334.2
065400     MOVE "IDX-TEST-21" TO PAR-NAME.                              NC1334.2
065500     PERFORM PRINT-DETAIL.                                        NC1334.2
065600 IDX-TEST-22.                                                     NC1334.2
065700     SET IDX-2 TO 2.                                              NC1334.2
065800     SET COMP-U-IDX1 TO IDX-2.                                    NC1334.2
065900     IF COMP-U-IDX1 EQUAL TO 2                                    NC1334.2
066000         PERFORM PASS                                             NC1334.2
066100         GO TO IDX-WRITE-22.                                      NC1334.2
066200     MOVE COMP-U-IDX1 TO COMPUTED-N.                              NC1334.2
066300     MOVE 2 TO CORRECT-N.                                         NC1334.2
066400     PERFORM FAIL.                                                NC1334.2
066500     GO TO IDX-WRITE-22.                                          NC1334.2
066600 IDX-DELETE-22.                                                   NC1334.2
066700     PERFORM DE-LETE.                                             NC1334.2
066800 IDX-WRITE-22.                                                    NC1334.2
066900     MOVE "IDX-TEST-22" TO PAR-NAME.                              NC1334.2
067000     PERFORM PRINT-DETAIL.                                        NC1334.2
067100 IDX-TEST-23.                                                     NC1334.2
067200     MOVE 4 TO COMP-S-IDX18.                                      NC1334.2
067300     SET IDX-2 TO COMP-S-IDX18.                                   NC1334.2
067400     IF COMP-S-IDX18 EQUAL TO IDX-2                               NC1334.2
067500         PERFORM PASS                                             NC1334.2
067600         GO TO IDX-WRITE-23.                                      NC1334.2
067700     SET      INDEX-VALUE TO IDX-2.                               NC1334.2
067800     MOVE     INDEX-VALUE TO COMPUTED-18V0.                       NC1334.2
067900     MOVE    COMP-S-IDX18 TO CORRECT-18V0.                        NC1334.2
068000     MOVE "INDEX VALUES SHOULD BE EQUAL" TO RE-MARK.              NC1334.2
068100     PERFORM FAIL.                                                NC1334.2
068200     GO TO IDX-WRITE-23.                                          NC1334.2
068300 IDX-DELETE-23.                                                   NC1334.2
068400     PERFORM DE-LETE.                                             NC1334.2
068500 IDX-WRITE-23.                                                    NC1334.2
068600     MOVE "IDX-TEST-23" TO PAR-NAME.                              NC1334.2
068700     PERFORM PRINT-DETAIL.                                        NC1334.2
068800 IDX-TEST-24.                                                     NC1334.2
068900     MOVE 2 TO COMP-U-IDX1.                                       NC1334.2
069000     SET IDX-3 TO COMP-U-IDX1.                                    NC1334.2
069100     IF IDX-3 EQUAL TO COMP-U-IDX1                                NC1334.2
069200         PERFORM PASS                                             NC1334.2
069300         GO TO IDX-WRITE-24.                                      NC1334.2
069400     MOVE     COMP-U-IDX1 TO CORRECT-18V0.                        NC1334.2
069500     SET      INDEX-VALUE TO IDX-3.                               NC1334.2
069600     MOVE     INDEX-VALUE TO COMPUTED-18V0.                       NC1334.2
069700     MOVE "INDEX VALUES SHOULD BE EQUAL" TO RE-MARK.              NC1334.2
069800     PERFORM FAIL.                                                NC1334.2
069900     GO TO IDX-WRITE-24.                                          NC1334.2
070000 IDX-DELETE-24.                                                   NC1334.2
070100     PERFORM DE-LETE.                                             NC1334.2
070200 IDX-WRITE-24.                                                    NC1334.2
070300     MOVE "IDX-TEST-24" TO PAR-NAME.                              NC1334.2
070400     PERFORM PRINT-DETAIL.                                        NC1334.2
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
071100 CCVS-EXIT SECTION.                                               NC1334.2
071200 CCVS-999999.                                                     NC1334.2
071300     GO TO CLOSE-FILES.                                           NC1334.2

quality92%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.22Angebot ¤

*Eine klare Vorstellung vom Zielzustand

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.