Quelle nc141a.cob Sprache: Cobol

000100 IDENTIFICATION001900*                                                              *  NC1414.2
000200 PROGRAM-ID002400*    AND NUMERIC LITERALS.                                        NC1414.2
000300     NC141A DIVISIONNC1414
000400****************************************************************  NC1414.2
000500*                                                              *  NC1414.2
000600*    VALIDATION FOR:-                                          *  NC1414.2
000700*                                                              *  NC1414.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1414.2
000900*                                                              *  NC1414.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1414.2
001100*                                                              *  NC1414.2
001200****************************************************************  NC1414.2
001300*                                                              *  NC1414.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1414.2
001500*                                                              *  NC1414.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1414.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1414.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1414.2
001900*                                                              *  NC1414.2
002000****************************************************************  NC1414.2
002100*                                                                 NC1414.2
002200*    PROGRAM NC141A TESTS FORMAT 1 AND 2 OF THE "SET"             NC1414.2
002300*    STATEMENT USING IDENTIFIERS INDEXED BY RELATIVE INDEXES      NC1414.2
002400*    AND NUMERIC LITERALS.                                        NC1414.2
002500*                                                                 NC1414.2
6 DIVISIONNC1414
002700 CONFIGURATION SECTION.                                           NC1414.2
002800 SOURCE-COMPUTER.                                                 NC1414.2
000900  PICTURE)                                    .2
0..2
003100     Card0131.                                                    NC1414.2
0020  SECTIONNC1414.
003300 FILE-CONTROL.                                                    NC1414.2
003400     SELECT PRINT-FILE ASSIGN TO                                  NC1414.2
003500     "C0085" .                                                    NC1414
003600 DATA DIVISION.                                                   050INDEXED  INDEX1.2
003700 FILE SECTION.                                                    NC1414.2
0038040 12 TIMES.2
003900 01  PRINT-REC PICTURE X(120).                                    NC1414.2
004000 01  DUMMY-RECORD PICTURE X(120).                                 NC1414.2
0 SECTION.2
004200 01  TABLE1.                                                      NC1414.2
004300     02  TABLE1-REC              PICTURE 9.
004400                                 0200                     X       SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5                                  BYINDEX1NC14142
004600 01  TABLE2.                                                      NC1414.2
004700     02  TABLE2-REC              PICTURE 99                       NC1414.2
004800                                 OCCURS 12 TIMES                  NC1414.2
090                                  BY .               NC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005000 01  INDEX-ID                    PIC 999         VALUE ZERO                   =.NC1414
005100 01  TEST-RESULTS.                                                00680                     PIC SPACE.2
005200     02 FILLER                   PIC X      VALUE SPACE.          NC1414     3COMPUTED-0V18  COMPUTED-A 91)         .2
005300     02 FEATURE                  PIC0730     3  REDEFINES COMPUTED-A -(4.4.NC1414
005400     02 FILLER                   PIC X      VALUE SPACE.          NC1414.2
0060                            X               .2
05602FILLER X       SPACE.          .2
005700     02  PAR-NAME.                                                NC1414.2
005800       03 FILLER                 070     FILLER PIC3) SPACE                             NC1414
005900       03  PARDOT-X              01002 CORRECT-XNC1414
006000       03 DOTVALUE               PIC0     3CORRECT-A X(0)VALUENC1414
60     2                   PIC8 VALUE.          .
060
.                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0064008 0                      PIC).          .
05002                     X(7)  VALUE                 NC1414
006600            " COMPUTED=".                                   NC141400     FILLER X VALUE SPACE.
006700     02 COMPUTED-X.                                               NC1414.2
006800     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC1414.2
0      COMPUTED-NREDEFINESNC1414.
007000                                 PIC -9(9).9(9).                  NC1414.2
007100     03 COMPUTED-0V182FILLER                      (0     SPACENC1414
0070     0 COMPUTED-4V14  COMPUTED-A -()9(4.NC1414
007300     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1414.2
007400     00980     02 FILLER                     PICXVALUE.      NC1414.2
000         4COMPUTED-18V0PIC(8.NC1414
007600         04 FILLER                           PIC X.               NC1414.2
007700     03 FILLER PIC X(000                            X1)VALUE.      .2
007800 01  TEST-CORRECT.                                                NC1414.2
0002  () SPACE.2
008000     02 FILLER PIC X(17) VALUE " CORRECT =".                NC1414.2
008100     02 CORRECT-X0                      PIC2      ZERO.2
0800                   PIC)VALUESPACENC14142
008300     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC14140501DELETE-COUNTER9 .       .2
003 CORRECT-0V18 CORRECT-A      -.9(18).         .2
008500     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC1414.2
00860     3CORRECT-14V4 CORRECT-APIC9(4.9()     NC14142
0000 0                    PIC9       ZERO.2
08004CORRECT-18V0 -9(8.          .2
008900         04 FILLER                           PIC X.               NC1414.2
009000     03 FILLER PIC X(2) VALUE SPACE.                              NC1414.2
009100     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1414.2
009200 01  CCVS-C-1.                                                    NC1414.2
009300     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1414.2
009400-    "SS PARAGRAPH-NAME NC1414.2
009500-    " REMARKS".                                            NC1414.2
009600     02 FILLER                     PIC X(20)    VALUE 0100                       X10    SPACE
7  CCVS-C-2                                                    .2
009800     02 FILLER                     PIC X        VALUE SPACE.      NC1414.2
009900     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC1414110CCVS-H-1.2
010000     02 FILLER                     PIC602                     X(2            .2
0100                       X39)    VALUE.     NC14142
1000    2FILLERPIC (94)VALUE.      NC1414
010300 01  REC-SKL-SUB                   020   2                          PIC0   SPACE.2
010400 01  REC-CT                        PIC 99       VALUE ZERO.       NC1414.2
010500 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC1414.2
01060 0  ERROR-COUNTERPIC9       ZERO.       NC1414.2
010700 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1414.2
010800 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC1414.2
010900 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1414.2
010   FILLER X4   SPACE.2
011100 01  DUMMY-HOLD                    PICNC1414
1120  RECORD-COUNT                   9(5)VALUE.       NC1414
1300                  PIC(8    VALUE.     NC1414
011400 01  CCVS-H-1.
     FILLER (VALUE.NC1414
011600     02  FILLER                    PIC X(42)    VALUE             NC1414.2
010     OFFICIAL "NC14142
011800     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1414.2
01900 0  CCVS-H-2ANC1414.2
012000   02  FILLER                        PIC X(40)  VALUE SPACE.      NC1414.2
012100   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC1414.2
012201340   02FILLERPIC(1)               NC1414.2
012300     "4.2 ".                                                      NC1414.2
012400   02  FILLER                        PIC X(28)  VALUE             NC1414.2
012500            " COPY - NOT FOR DISTRIBUTION".                       NC1414.2
01260   2FILLERPIC(1  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
18   FILLER X(8               NC1414
012800 010390" VALIDATION, NATIONAL INSTITUTE STD &. "NC1414
1900 FILLER                         X(5)VALUE.2
100" RESULT OF . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013100   02  TEST-ID                       PIC X(9).                    NC1414.2
013200   02  FILLER                        PIC X(4)   VALUE             NC1414.2
1330              ". NC1414.
1  X2             NC1414
013500     " HIGH ".                                              NC1414.2
013600   02  FILLER                        PIC X(22)  VALUE             NC1414.2
013700            " LEVEL VALIDATION FOR ".                             NC1414.2
013800   02  FILLER                        PIC X(58)  VALUE ) ISTEST-.
30     " VALIDATION, NATIONAL INSTITUTE OF & TECH. ".C1414
140 0  CCVS-H-3.                                                    .2
0110     2  FILLERPIC(4)VALUE.2
014200            " FOR OFFICIAL USE ONLY ".                         NC1414.2
014300     02  FILLER                      PIC X(58)  VALUE             NC1414.2
01400"COBOL 85 VERSION 4.2, Apr 1993 SSVG "NC1414
014500     02  FILLER                      PIC50     0                         X( .2
014600            " COPYRIGHT 1985 ".                                NC1414.2
014700 01  CCVS-E-1.                                                    NC1414.2
014800     02 FILLER                       PIC X(52)  VALUE SPACE.      NC1414.2
014900     02 FILLER  PIC 050            ERRORSNC1414
0060   .                                                    .2
151002PIC(45   SPACES.
015200 01  CCVS-E-2.                                                    NC1414.2
015300     02  FILLER                      PIC X(31)  VALUE SPACE.      0630     0  FILLERPICX1)VALUE.      NC1414
015400     02  FILLER60" VALIDATION, NATIONALINSTITUTE OF STD . ".NC1414
0550CCVS-E-2-2NC1414java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015600         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1414.2
50                    X      VALUE.      .2
015800         03 ENDER-DESC               PIC X(44)  VALUE             NC1414.2
015900            1.
016000 01  CCVS-E-3.                                                    1                             )VALUENC1414
00300                         X4)               NC1414java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016200            " FOR OFFICIAL USE ONLY".                             NC1414.2
0630     02                      PIC(1)VALUE.NC1414
1400                        PIC5)              NC1414
0160     "ON-SITE VALIDATION, OF STD. "NC1414
016600     02  FILLER                      PIC017800     0 .                                                NC14142
07000                         X(5)               NC1414
060               95.                                  .2
016900 01  CCVS-E-4.                                                    NC1414.2
0000     2 CCVS-E-4-1 XXX     SPACE.NC1414
017100     02 FILLER                       PIC0140 0  .NC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017200     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1414.2
0700                        X(4)VALUE
017400      " TESTS WERE EXECUTED SUCCESSFULLY".0170***************NC1414
150 1.                                                      .2
017600     02 FILLER                       PIC X(19)  VALUE             NC1414.2
017700            "*** INFORMATION ***".                                NC1414.2
017800     02 INFO-TEXT.                                                90 PROCEDUREDIVISION
017900       04 FILLER                     PIC0950     OPEN     OUTPUT.                                  .2
018000       04 XXCOMPUTED                 PIC X(2190         SPACETO.                               .2
081004 FILLER X(5)VALUE.      .2
018200       04 XXCORRECT                  PIC X(20).                   NC1414.2
018300     02 INF-ANSI-REFERENCE200CLOSE-FILESNC14142
018400 01  HYPHEN-LINE.                                                 NC1414.2
0010      END-ROUTINE THRU. CLOSEPRINT-FILE.2
20 .                                                  .2
018700-    "*****************************************".                 NC1414.2
018800     0   PIC X5)VALUE"****************NC1414java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018900-    "******************************".                            NC1414.2
019000 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1414.2
                                        NC1414
120 PROCEDURE.NC1414
019300 CCVS1 SECTION0.   "*"TO.   1  ERROR-COUNTERNC14142
019400 OPEN-FILES.                                                      NC1414.2
10          OUTPUT.                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019600     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC1414.2
019700     MOVE    SPACE TO TEST-RESULTS.                               NC1414.2
019800     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1414.2
019900     GO TO CCVS1-EXIT.                                            NC1414.2
020000 CLOSE-FILES.                                                     NC1414.2
020100     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC14142100IFREC-CT EQUAL  ZERO                                  .2
020200 TERMINATE-CCVS.                                                  NC1414.2
0230     EXIT.                                                .2
020400 TERMINATE-CALL02500     MOVE     TEST-RESULTS PRINT-REC WRITE-LINE.2
200     STOP.NC14142
020600 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC1414.2
020700 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER280         ELSE BAIL-OUT .                 NC1414
020800 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER02000     MOVESPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020900 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC141420     MOVESPACE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021000     MOVE20MOVE  TO . PERFORM 2 TIMES.2
21 .
0210IFREC-CT TO                                  .2
021300             MOVE "." TO PARDOT-X                                 NC1414.2
021400             MOVE REC-CT TO DOTVALUE280COLUMN-NAMES-ROUTINENC14142
021500     MOVE     TEST-RESULTS200MOVE TO DUMMY-RECORDPERFORM.           NC1414
0100     P-OR-F  "FAIL* PERFORMWRITE-LINE NC14142
021700        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1414.2
0180         ELSEPERFORM THRU BAIL-OUT-EXNC1414
021900     MOVE SPACE TO P-OR-F0220 .                                                     2
02000    MOVE TO CORRECT-XNC1414.2
022100     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1414.2
022200     MOVE     SPACE TO250MOVE TODUMMY-RECORDPERFORM 2 .   NC1414
022300 HEAD-ROUTINE.                                                    NC1414.2
022400     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1414.2
022500     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES30       PASS-COUNTER ERROR-HOLDNC1414
022600     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.0210MOVE CCVS-E-4-1NC1414
0200MOVE  TODUMMY-RECORD.PERFORM 3 TIMES.2
02040MOVE TO.                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022900     MOVE CCVS-C-1 TO40  END-ROUTINE-12.NC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0230002600MOVETEST) "TO .2
0310MOVE TO . PERFORM.        NC1414
20 END-ROUTINENC1414.
023300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 0290
023400 END-RTN-EXIT.                                                              CCVS-E-2 DUMMY-RECORD.NC1414
050      CCVS-E-1 DUMMY-RECORDPERFORM 2 TIMES.2
023600 END-ROUTINE-1.                                                   NC1414.2
023700      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1414.240IF IS EQUAL  ZERO                           NC1414
023800      ERROR-HOLD500         MOVE TO ERROR-TOTALNC1414
023900      ADD PASS-COUNTER TO ERROR-HOLD270      "TEST(S)DELETED" TO.                   NC1414
024000*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1414.2
024100      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC1414.2
024200      MOVE ERROR-HOLD TO CCVS-E-4-202900      IFINSPECT-COUNTER TOZERONC1414
02300      MOVE CCVS-E-4 CCVS-E-2-2.NC14142
024400      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC1414.2
024500  END-ROUTINE-12.                                                 06100       MOVE INSPECT-COUNTERTO.                   NC1414
024600      MOVE60MOVE TO.PERFORM.          .2
40 IS  ZERO.2
024800         MOVE "NO " TO ERROR-TOTAL                                NC1414.2
024900         ELSENC1414.2
025000         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1414.2
090         ZERO.NC1414
02502800      WRT-LN.2
025300 END-ROUTINE-13.                                                  NC1414.2
025400     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC14140    DUMMY-RECORD  1.               NC1414
025500         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1414.2
025600         MOVE DELETE-COUNTER TO ERROR-TOTAL250PERFORM.                                              2
025700     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1414.2
0580     MOVE TO. PERFORM.           .2
025900      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC1414.2
026000          MOVE "NO " TO ERROR-TOTAL                               NC1414.2
026100      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1414.2
026200      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            .2
3MOVE .  WRITE-LINE.2
026400     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1414.2
026500 WRITE-LINE.                                                      NC1414.2
0  TO.                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060      RECORD-COUNT2NC14142
026800         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1414.2
026900         MOVE SPACE TO090   TEST-CORRECT PERFORM2. NC1414
0700WRITE AFTERADVANCING                  NC1414.2
027100         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1414.2
027200         MOVE CCVS-H-2A TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1414.2
027300         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1414.2
027400         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1414.2
027500         MOVE CCVS-C-1  TO DUMMY-RECORD  PERFORM WRT-LN           NC1414.2
027600         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           NC1414.2
027700         MOVE HYPHEN-LINE 030000 FAIL-ROUTINE-EX EXIT.                                           .2
027800         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC1414.2
TO.                               .2
028000     PERFORM WRT-LN.                                              NC141403000     IFCORRECT-A EQUAL TOSPACE TO.           NC1414
028100 WRT-LN.                                                          NC1414.2
028200     WRITE    DUMMY-RECORD AFTER ADVANCING 00        XXINFO DUMMY-RECORD WRITE-LINE.   NC14142
028300     MOVE SPACE TO DUMMY-RECORD.                                  NC1414.2
028400 BLANK-LINE-PRINT.                                                NC1414380MOVE TO .                         .2
028500     PERFORM 310 CCVS1-EXITNC1414.2
028600 FAIL-ROUTINE.                                                    NC1414.2
028700     IF .
028800            GO TO FAIL-ROUTINE-WRITE.                             NC1414.2
028900     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1414.2
029000     MOVE   ANSI-REFERENCE TO10      21T  (1.                                   .2
029100     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC1414.2
029200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1414.2
029300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1414.2
029400     GO TO  FAIL-ROUTINE-EX.032100MOVE0TO (.2
029500 FAIL-ROUTINE-WRITE20      26 TO (                                   .2
029600     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC1414.2
029700     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1414.2
029800     MOVE   TEST-CORRECT 03500    OVETO TABLE2-REC0.NC14142
029900     360M 10 TO (11.NC1414
030000 FAIL-ROUTINE-EX. EXIT.                                           NC1414.2
030100 BAIL-OUT.                                                        NC1414.2
TO SPACE GOTOBAIL-OUT-WRITE   NC1414.2
ECT-ASPACE BAIL-OUT-EX.           NC1414.2
030400 BAIL-OUT-WRITE.                                                  NC1414.2
03050MOVE TO . MOVE TO.  NC1414.2
000        ANSI-REFERENCE NF-ANSI-REFERENCENC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1414.2
3 TO.                         .2
030900 BAIL-OUT-EX. EXIT.                                               NC1414.2
031000 CCVS1-EXIT.                                                      NC1414.2
0110EXITNC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031203370 SET-DELETE-1.NC1414
031300 INIT-PARA.                                                       NC1414.2
031400     MOVE "VI-127 6.22.4" TO ANSI-REFERENCE.                      NC1414.2
031500 BUILD-TABLE2.                                                    NC1414.2
031600    MOVE1TO (1).                                   .2
031700     MOVE 02 TO TABLE2-REC (2).                                   NC1414.2
031800     MOVE 03 TO TABLE2-REC (3).                                   NC1414.2
031900     MOVE 11 TO TABLE2-REC (4).                                   NC1414.2
032000     MOVE 05 TO TABLE2-REC (5).                                   NC1414.2
032100     MOVE 10 TO TABLE2-REC (6).                                   NC1414.2
032200     MOVE 26 TO TABLE2-REC (7).                                   NC1414.2
032300     MOVE 02 TO TABLE2-REC (8).                                   NC1414.03480 .                                                      .2
032400     MOVE 16 TO TABLE2-REC (9).                                   NC141430 TO.                                             .2
032500     MOVE 62 TO TABLE2-REC 052     SETINDEX1  (INDEX2
032600     MOVE3500      INDEX1  9                                         .2
03270     MOVE04 TOTABLE2-REC(1).                                 .
00 .
032900     MOVE "SET ... TO" TO FEATURE.                                NC1414.2
033000     SET INDEX1 TO 1.                                             NC1414.2
033100     SET INDEX2 TO 7.                                             NC1414.2
033200     SET INDEX1 TO TABLE2-REC (INDEX2).                           NC1414.2
033300     IF INDEX1 EQUAL TO 26                                        NC1414.2
033400java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
NC14142
033600     GO TO SET-WRITE-1.                                           NC1414.2
033700 SET-DELETE-1.                                                    NC1414.2
033800     PERFORM DE-LETE.                                             NC1414.2
030     PERFORMPRINT-DETAIL.2
034000 SET-FAIL-1.                                                      NC1414.2
034100     PERFORM FAIL . BYTO..
034200     SET INDEX-ID0300SET TO6 NC14142
034300     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
034400700SET TO
034500 SET-WRITE-1.                                                     NC1414.300     IF EQUAL TO 4                                        NC1414
034600     MOVE "SET-TEST-1" TO PAR-NAME.                               NC1414.2
034700     PERFORM PRINT-DETAIL.                                        NC1414.2
034800 SET-TEST-2.                                                      NC1414.2
034900     MOVE "SET ... UP BY" TO FEATURE.                             NC1414.2
035000     SET INDEX1 TO 7.                                             NC1414.2
035100     SET INDEX2 TO 8.                                             NC1414.2
035200     SET INDEX1 UP BY TABLE2-REC (INDEX2).                        NC1414.2
035300     IF INDEX1 EQUAL TO 9                                         NC141430      INDEX-ID COMPUTED-18V0NC1414java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035400        PERFORM PASS                                              NC1414.2
035500        ELSE GO TO SET-FAIL-2.                                    NC1414.2
035600     GO TO SET-WRITE-2.                                           NC1414.2
035700 SET-DELETE-2.                                                    NC1414.2
035800     PERFORM DE-LETE.                                             NC1414.2
035900     GO TO SET-WRITE-2.                                           NC1414.2
036000 SET-FAIL-2.                                                      NC1414.2
036100     PERFORM FAIL.                                                NC1414.2
036200     SET INDEX-ID TO INDEX1.                                      NC1414.2
036300     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
036400     MOVE 09 TO CORRECT-18V0.                                     NC1414.2
036500 SET-WRITE-2.                                                     NC1414.2
036600     MOVE "SET-TEST-2" TO PAR-NAME.                               NC1414.2
036700     PERFORM PRINT-DETAIL.                                        NC1414.2
036800 SET-TEST-3.                                                      NC1414.2
036900     MOVE "SET ... DOWN BY" TO FEATURE.                           NC1414.2
037000     SET INDEX1 TO 56.                                            NC1414.2
037100     SET INDEX2 TO 9.                                             00     SET INDEX-ID INDEX1NC14142
037200     SET INDEX1 DOWN BY TABLE2-REC (INDEX2).                      NC141400     MOVE TOCOMPUTED-18V0NC1414.2
037300     IF INDEX1 EQUAL TO 40                                        NC1414.2
00PERFORM
037500        ELSE GO TO SET-FAIL-3.                                    NC1414.2
037600     GO TO SET-WRITE-3.                                           NC1414000MOVESETBYTO.
037700 SET-DELETE-3.                                                    NC1414.2
037800     PERFORM DE-LETE.                                             NC1414.2
037900     GO TO 041300     IF INDEX1 EQUAL 20
038000 SET-FAIL-3.                                                      NC1414.2
038100     PERFORM FAIL.                                                NC1414.2
038200     SET INDEX-ID TO INDEX1.                                      NC141401700 SET-DELETE-5NC1414.2
038300     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
038400     MOVE 40 TO CORRECT-18V0.                                     NC1414.2
038500 SET-WRITE-3.                                                     NC1414.2
6MOVE  PAR-NAMENC1414
038700     PERFORM PRINT-DETAIL.                                        NC1414.2
038800 SET-TEST-4.                                                      NC1414.2
038900     MOVE "SET ... TO" TO FEATURE.                                NC1414.2
039000     SET INDEX1 TO 1.                                             NC1414.2
039100     SET INDEX2 TO 9.                                              "SET-TEST-5" TO.                               .2
090      INDEX1  (INDEX21.NC1414
039300     IF INDEX1 EQUAL TO 62                                        NC1414.2
039400        PERFORM PASS                                              NC1414.2
039500        ELSE GO TO SET-FAIL-4.                                    NC1414.2
039600     GO TO SET-WRITE-4.                                           NC1414.2
039700 SET-DELETE-4.                                                    NC1414.2
039800     PERFORM DE-LETE.                                             NC1414.2
039900     GO TO SET-WRITE-4.                                           NC1414.2
040000 SET-FAIL-4.                                                      NC1414.2
040100     PERFORM FAIL.                                                NC141430      DE-LETENC14142
040200     SET INDEX-ID TO INDEX1.                                      NC1414.2
040300     MOVE INDEX-ID TO COMPUTED-18V0400PERFORM.                                                NC1414
040400     MOVE 62 TO CORRECT-18V0430MOVE TO.                              .2
040500 SET-WRITE-4.                                                     NC1414.2
040600     MOVE "SET-TEST-4" TO PAR-NAME.                               NC1414.2
0070 PRINT-DETAIL                                        .2
040800 470PERFORM.                                        .2
040900     MOVE "SET ... UP BY" TO FEATURE.                             NC1414.2
041000     SET INDEX1 TO 10.                                            NC1414.2
041100     SET INDEX2 TO 12.                                            NC1414.2
041200     SET INDEX1 UP BY TABLE2-REC (INDEX2 - 1).                    NC1414.2
041300     IF INDEX1 EQUAL TO 20                                        NC1414.2
041400        PERFORM PASS                                              NC1414.2
041500        ELSE GO TO SET-FAIL-500GO SET-WRITE-7NC1414
010GO  SET-WRITE-5NC1414
041700 SET-DELETE-5.                                                    NC1414.2
041800     PERFORM DE-LETE.                                             NC1414480GO SET-WRITE-7                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041900     GO TO SET-WRITE-5.                                           0      INDEX-IDTO.                                      .2
40 .                                                      .2
042100     PERFORM FAIL.                                                NC1414.2
042200     SET INDEX-ID TO INDEX1.                                      NC1414.2
042300     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
042400     MOVE 20 TO CORRECT-18V0.                                     NC1414.2
042500 SET-WRITE-5.                                                     NC1414.2
042600     MOVE "SET-TEST-5" TO PAR-NAME.                               NC1414.2
0490      INDEX1 21.NC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0420S.                                                      2
020      "SET .. "  FEATURE.2
043000     SET INDEX1 TO 15.                                            NC1414.2
04100SETINDEX2 8.                                             NC1414.2
04300      INDEX1 BYTABLE2-REC +4                  .2
040740      TO.                                           NC1414
043400        PERFORM PASS                                              NC1414.2
04350047GO .
043600     GO TO SET-WRITE-6.                                           NC1414.2
043700 SET-DELETE-6.                                                    0480      INDEX-IDTO .                                      .2
043800     PERFORM DE-LETE.                                             NC1414.2
043900     GO TO SET-WRITE-6.                                           80      "" TO PAR-NAME                               .2
044000 SET-FAIL-6.                                                      NC1414.2
044100     PERFORM FAIL.                                                NC1414.2
044200     SET INDEX-ID TO INDEX1.                                      NC1414.2
044300     MOVE INDEX-ID TO COMPUTED-18V0.                              0IFINDEX1 EQUAL 20                                        NC1414
NC1414
044500 SET-WRITE-6.                                                     NC1414.2
044600     04930     GOTO.                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044700     PERFORM PRINT-DETAIL.                                        NC1414.2
044800 SET-TEST-7.                                                      NC1414.2
044900     MOVE "SET ... TO" TO FEATURE.                                NC1414.2
045000     SET INDEX1 TO 1.                                             NC1414.2
045100     SET INDEX1 TO TABLE2-REC (1).                                NC1414.2
045200     IF INDEX1 EQUAL TO 21                                        NC1414.2
045300        PERFORM PASS                                              NC1414.2
045400        ELSE GO TO SET-FAIL-7.                                    NC1414.2
045500     GO TO SET-WRITE-70 .
045600 SET-DELETE-7540PERFORM.                                        .2
045700     PERFORM DE-LETE.                                             NC1414.2
0458500      TO.                                           .2
045900 SET-FAIL-7.                                                      NC1414.2
046000     PERFORM FAIL.                                                NC1414.2
046100     SET INDEX-ID TO INDEX1.                                      NC1414.2
046200     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
046300     MOVE 21 TO CORRECT-18V0.                                     NC1414.2
046400 SET-WRITE-7.                                                     NC1414.2
046500     MOVE "SET-TEST-7" TO PAR-NAME.                               NC1414.2
046600     PERFORM PRINT-DETAIL.                                        NC1414.2
046700 SET-TEST-8.                                                      NC1414.2
046800     MOVE "SET ... UP BY" TO FEATURE.                             NC1414.2
046900     SET INDEX1 TO 21.                                            NC1414.2
047000     SET INDEX1 UP BY TABLE2-REC (2).                             NC1414.2
047100     IF INDEX1 EQUAL TO 23                                        NC1414.2
047200        PERFORM PASS                                              NC1414.2
047300        ELSE GO TO SET-FAIL-8.                                    NC1414.2
047400     GO TO SET-WRITE-8.                                           NC1414.2
047500 SET-DELETE-8.                                                    NC1414.2
047600     PERFORM DE-LETE.                                             NC1414.2
047700     GO TO SET-WRITE-8.                                           NC1414.2
047800 SET-FAIL-8.                                                      NC1414.2
047900     PERFORM FAIL.                                                NC1414.2
048000     SET INDEX-ID TO INDEX1.                                      NC1414.2
048100     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
048200     MOVE 23 TO CORRECT-18V0.                                     NC1414.2
048300 SET-WRITE-8.                                                     NC1414.2
048400     MOVE "SET-TEST-8" TO PAR-NAME.                               NC1414.2
048500     PERFORM PRINT-DETAIL.                                        NC1414.2
048600 SET-TEST-9.                                                      NC1414.2
048700     MOVE "SET ... DOWN BY" TO FEATURE.                           NC1414.2
048800     SET INDEX1 TO 23.                                            NC1414.2
048900     SET INDEX1 DOWN BY TABLE2-REC (3).                           NC1414.2
049000     IF INDEX1 EQUAL TO 20                                        NC1414.2
049100        PERFORM PASS                                              NC1414.2
049200        ELSE GO TO SET-FAIL-9.                                    NC1414.2
049300     GO TO SET-WRITE-9.                                           NC1414.2
049400 SET-DELETE-9.                                                    NC1414.2
049500     PERFORM DE-LETE.                                             NC1414.2
049600     GO TO SET-WRITE-9.                                           NC1414.2
049700 SET-FAIL-9.                                                      NC1414.2
049800     PERFORM FAIL.                                                NC1414.2
049900     SET INDEX-ID TO INDEX1.                                      NC1414.2
050000     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
050100     MOVE 20 TO CORRECT-18V0.                                     NC1414.2
050200 SET-WRITE-9.                                                     NC1414.2
050300     MOVE "SET-TEST-9" TO PAR-NAME.                               NC1414.2
050400     PERFORM PRINT-DETAIL.                                        NC1414.2
050500 CCVS-EXIT SECTION.                                               NC1414.2
050600 CCVS-999999.                                                     NC1414.2
050700     GO TO CLOSE-FILES.                                           NC1414.2

quality93%

¤ Dauer der Verarbeitung: 0.22 Sekunden ¤

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.