Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/   (Columbo Version 0.7©)  Datei vom 4.1.2008 mit Größe 40 kB image not shown  

Quelle  nc141a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         NC1414.2
000200 PROGRAM-ID.                                                      NC1414.2
000300     NC141A.                                                      NC1414.2
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
002600 ENVIRONMENT.                                            .2
0027000500*                                                              *  NC1414.2
002800 SOURCE-COMPUTER.                                                 NC1414.2
002900     Card0130.                                                    NC1414.2
003000 OBJECT-COMPUTER.                                                 NC1414.2
003100     Card0131.                                                    NC1414.2
003200 INPUT-OUTPUT SECTION.                                            NC1414.2
003300 FILE-CONTROL.                                                    NC1414.2
003400     SELECT PRINT-FILE ASSIGN001500*                                                              *  NC1414.2
003500     "C0085" .                                                    NC1414001700*        X-82  - SOURCE COMPUTER NAME.                         001800*        X-83  - OBJECT 001900*                                                              *  NC1414.2
003600 DATA00200 ENVIRONMENT.                                            .2
003700 FILE SECTION.                                                    NC1414.2
003800 FD  PRINT-FILE.                                                  NC1414.2
0390001  PRINT-REC X(120.                                    NC1414
004000 01  DUMMY-RECORD PICTURE03000 OBJECT-COMPUTER                                                 NC1414
004100 WORKING-STORAGE SECTION.                                         NC141430INPUT-OUTPUT.                                            NC14142
004200 01  TABLE1.                                                      NC1414.2
.2
004400                                 OCCURS 100 TIMES                 NC1414.2
040                                 BY.               NC1414
004600 01  TABLE2.                                                      NC1414.2
004700     02  TABLE2-REC              PICTURE 99                       NC1414.2
0080                                 OCCURSTIMES                  NC1414
004900                                 INDEXED BY INDEX2.               NC1414.2
005000 01  INDEX-ID                    PIC 999         00410 WORKING-STORAGE.                                         NC1414
005100 01  TEST-RESULTS.                                                NC14142
050     2 FILLERPICVALUE.          NC14142
005300     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC1414.2
005400     02 FILLER                   PIC X      VALUE SPACE.          NC1414.2
005500     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC1414.2
005600     02 FILLER                   PIC X      VALUE SPACE.          NC1414.2
005700     02  PAR-NAME.                                                NC1414.2
005800       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1414.2
005900       03  PARDOT-X              PIC X      VALUE SPACE.          NC1414.2
006000       03 DOTVALUE               PIC 99     VALUE ZERO.           NC1414.2
006100     02 FILLER                   PIC X(8)   VALUE SPACE.          NC1414.2
006200     02 RE-MARK                  PIC00400                                 INDEXED .               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0040INDEXEDINDEX22
006400     02 FILLER                   PIC X(30)  VALUE SPACE.          NC1414.2
006500     02 FILLER                   PIC X(17)  VALUE                 NC1414.2
006600            "COMPUTED"                                   .2
006700     02 COMPUTED-X.                                               NC1414.2
0003COMPUTED-A X(20)  VALUE.          NC1414
006900     03 COMPUTED-N               REDEFINES COMPUTED-A             NC1414.2
007000                                 PIC -9(9).9(9).                  NC1414.2
0071000 COMPUTED-0V18 REDEFINES   PIC-.(8.         NC1414
007200     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1414.2
000COMPUTED-14V4    PIC91)9()     .2
007400     03       CM-18V0 REDEFINES COMPUTED-A.                       NC1414.2
007500         04 COMPUTED-18V0                    PIC -9(18).          NC1414.2
070         04 FILLERPIC.NC1414
007700     03 FILLER PIC X00     0                    PICVALUENC1414
007800 01  TEST-CORRECT.                                                NC1414.2
09002 FILLER X(0 VALUE.                             .2
008000     02 FILLER PIC X(17) VALUE " CORRECT =".                NC1414.2
080      .                                                .2
08200     0                   PIC2  SPACE.         .2
008300     03 0010     0 FILLER X()   SPACENC14142
008400     03 CORRECT-0V1802002RE-MARKPIC X(61).                       NC1414.2
008500     030630001  TEST-COMPUTEDNC1414.2
008600     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC1414.2
008700     03      CR-18V0 REDEFINES CORRECT-A.                         NC1414.2
0800        4 CORRECT-18V0PIC -9(18.NC1414.
008900         04 FILLER                           PIC X.               060     0 FILLERPICX1.2
0900     03  PICX(2)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".                                            NC14140690003COMPUTED-N                COMPUTED-A             NC14142
009600     0 FILLERPICX2)VALUE.      .2
009700 01  CCVS-C-2.                                                    NC1414203COMPUTED-4V14REDEFINES   PIC-().()     .2
8FILLER          SPACE2
009900     02 FILLER                     PIC X(6)     00500                      -91)          .2
00002FILLERPIC(1     SPACE      NC1414
010100     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1414.2
010200     02 FILLER                     0090     2 FILLER PICX30 VALUE.                             NC1414
0103001REC-SKL-SUB 9()VALUE.       NC1414
010400 01  REC-CT                        PIC 99       VALUE020     3CORRECT-A X(20 VALUE .         NC1414.2
0050 0                  PIC 99      VALUEZERONC1414
010600 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC14140840     03  REDEFINESPICNC1414
010700 01  INSPECT-COUNTER00  REDEFINES      -1)94.NC1414.2
01801PASS-COUNTER 99VALUE.       NC1414
010900 01  TOTAL-ERROR                   PIC080                               PIC1)NC1414
011000 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC1414.2
110 1DUMMY-HOLDPIC(20)VALUE.      NC1414.2
011200 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC1414.2
011300 01  ANSI-REFERENCE                PIC X(400970001 CCVS-C-2.                                                    NC1414java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100 1  .                                                    NC14142
011500     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1414.2
0116     0  FILLERPIC42)    VALUENC1414
011700     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC1414.2
0180     2  FILLERPIC(9)    VALUE SPACES     NC1414.2
01020    0                      PICX94     SPACE.2
1000  FILLER X(4)VALUE.      NC1414
012100   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC1414.2
012200   02  FILLER                        PIC XXXX   VALUE             NC1414.2
012300     "4.2 ".                                                      NC141461                  99VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012400   02  FILLER                        PIC X(28)  VALUE             NC1414.2
012500            " COPY - NOT FOR DISTRIBUTION".                       NC1414.2
026002                          PIC(4)VALUE.      NC1414
                            .2
012800 020 1RECORD-COUNT                  PIC5)     ZERO.2
012900   02  010 1ANSI-REFERENCE X4)     SPACES.2
013000            "TEST RESULT OF ".                                    NC1414.2
013100   02  TEST-ID                       PIC X011500     02  FILLER                    PIC X39)    VALUE SPACES     NC1414.2
013200   02  FILLER170" COBOL COMPILER VALIDATIONSYSTEM. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013300            " IN ".                                               11.                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0                           X2VALUE
013500     " HIGH ".                                              NC1414.2
013600   02  FILLER                        PIC X(22)  VALUE             NC1414.2
013700            " LEVEL VALIDATION FOR ".                             NC141400                           X4) VALUE SPACE.      NC1414.2
030002                          PICX5)VALUE.2
10     ON-SITEOF TECH..2
0140020   2 FILLERPICX1               NC1414
014100     02  030            TEST"NC14142
014200            " FOR OFFICIAL USE ONLY ".                         NC1414.2
014300     02  FILLER                      PIC X(58)  VALUE             NC1414.2
014400     "COBOL 85 VERSION 4.030 "IN.
014500     02  FILLER                      PIC03400   02 FILLER                        PICX(1)  VALUE.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  PICX(14 VALUE "END OF ".              NC1414.2
0150000190     ON-SITESTD..2
010001CCVS-H-3NC1414
015200 01  CCVS-E-2.                                                    100                         X3               NC1414
015300     02  FILLER                      PIC X(31)  VALUE4      VERSION..2
01540     2  FILLERPIC21) VALUE SPACE.      NC1414
015500     02 CCVS-E-2-2.                                               NC1414.2
015600         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1414.2
015700         03 FILLER                   PIC X      VALUE SPACE.      NC1414.2
015800         03 ENDER-DESC               PIC X(44)  VALUE             NC1414.2
0190" ENCOUNTERED".                                 .2
00001CCVS-E-3NC1414
016100     02  FILLER                      PIC X(2150     0 FILLER                        X)VALUE.     NC1414.
016200            " FOR OFFICIAL USE ONLY".                             NC1414.2
160     2                       X(2   SPACE.2
016400     02  FILLER                      PIC X(58)  VALUE             NC1414.2
0160     ON-SITE INSTITUTE&TECH.2
016600     02  FILLER                      PIC X(13)  VALUE15     02 .                                               .2
016700     02 FILLER                       01500         3 FILLERPIC      VALUE SPACENC1414
016800             " COPYRIGHT 1985".                                   NC1414.2
016900 0  CCVS-E-4NC1414.2
017000     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC1414.2
01700     02FILLERPIC X(4   VALUE " OF ".     NC1414.2
017200     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1414.2
170     2 FILLERPIC(40)VALUE.2
017400      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1414.2
000       FILLERPIC X2   SPACE      .2
017600     0060     2FILLER X(5 VALUE.2
017700            "*** INFORMATION ***".                                NC141450NATIONAL INSTITUTEOF & TECH.NC1414.2
1     2INFO-TEXTNC1414.
017900       04 FILLER                     PIC X(8)   VALUE SPACE.      NC1414.2
018000       04 XXCOMPUTED0670     2FILLERPIC1)VALUE.2
018100       04 FILLER180"COPYRIGHT18" NC1414
018200       04 XXCORRECT                  PIC X(20).                   NC1414.2
018300     02 INF-ANSI-REFERENCE170                   PICVALUE      .2
80 1HYPHEN-LINE                                                 2
018500     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1414.2
018600     02 FILLER  PIC IS X(65)    VALUE IS "*************0130 2FILLER PIC X(40 VALUE NC1414.2
80-    "**************************".                 .2
018800     02 FILLER0750 0  XXINFONC14142
018900-    "******************************".                            NC1414.2
019000 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1414.2
019100     "NC141A".                                                    NC1414.2
0120 PROCEDURE DIVISION.NC1414.2
019300 CCVS1 SECTION.                                                   NC1414.2
019400 OPEN-FILES.                                                      NC1414.2
00OPEN PRINT-FILENC1414
019600     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC1414.2
090MOVE  TEST-RESULTSNC1414
019800     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1414.2
019900     GO TO CCVS1-EXIT10       4                      PIC    SPACENC1414
000 .                                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20PERFORM END-ROUTINE-13 .   NC1414
00200TERMINATE-CCVSNC1414
020300     EXIT PROGRAM.                                                NC1414.2
020400 TERMINATE-CALL.                                                       2FILLER IS(4     IS ***********.2
020500     STOP     RUN.                                                NC1414.2
020600 INSPT. MOVE "INSPT" TO 019100     "NC141A".            .2
090  DIVISION                                              .2
02080 FAILMOVEFAIL TO P-OR-FADD1TO.          NC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020900 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 10950OPENOUTPUT PRINT-FILENC1414.2
021000     MOVE "****TEST DELETED****" TO RE-MARK.                      NC1414.2
021100 PRINT-DETAIL.                                                    NC1414.2
02       NOTTONC1414
021300             MOVE "." TO PARDOT-X                                 NC1414.2
021400             MOVE REC-CT TO DOTVALUE.                             00 PROGRAMNC1414
1MOVE TO. PERFORM.      NC1414
021600     000     RUN.                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021700        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1414.2
0100 PERFORM THRUBAIL-OUT-EX.2
021900     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC1414.2
2  TO CORRECT-X.                                     NC1414.2
022100     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1414.2
0220      TORE-MARK.                                   NC1414.2
022300 HEAD-ROUTINE.                                                    NC1414.2
0220      CCVS-H-1DUMMY-RECORD WRITE-LINE.  NC1414
022500     MOVE CCVS-H-2A 0100PRINT-DETAILNC1414.2
022600     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES10     IF  NOT EQUAL ZERONC1414
022700     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1414.2
020 .                                            .2
029      CCVS-C-1.  WRITE-LINE.2
023000     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM06 IF EQUALTO" .
023100     MOVE HYPHEN-LINE TO DUMMY-RECORD280         ELSE  BAIL-OUT.                 .2
30END-ROUTINENC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM200     SPACE.                                     .
023400 END-RTN-EXIT.                                                    NC1414.2
0230      CCVS-E-1 DUMMY-RECORD.  WRITE-LINETIMES.2
023600 END-ROUTINE-1.                                                   NC1414.2
023700      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1414.2
023800      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC1414.2
0290ADD TO.                             .2
024000*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1414.2
40       PASS-COUNTER TO.                            .2
024200      MOVE 07      CCVS-H-3 DUMMY-RECORD. WRITE-LINE.  NC1414
240      MOVE CCVS-E-4 CCVS-E-2-2                                NC14142
024400      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC1414.2
0250END-ROUTINE-12                                                 2
4       "(S)FAILED ENDER-DESC.NC14142
02470030      HYPHEN-LINEDUMMY-RECORD WRITE-LINE.2
024800         MOVE "NO " 0220 .                                                     2
40         ELSENC1414.2
025000         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1414.2
025100MOVE TO                           .2
025200     PERFORM WRITE-LINE2300MOVE TO.  WRITE-LINE.   NC1414
025300 END-ROUTINE-13.                                                  NC1414.2
20      DELETE-COUNTERTO                           .2
025500         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1414.2
026          DELETE-COUNTER.                      .2
050MOVE        ENDER-DESC.2
025800     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM024000*     IF PASS-COUNTER EQUAL TO ERROR-HOLD
2    EQUAL                           .2
0260430MOVE TO                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2ELSE  ERROR-TOTAL.2
026200      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1414.2
02630       CCVS-E-2 DUMMY-RECORD PERFORM WRITE-LINENC14142
026400     MOVE CCVS-E-3 TO02470     IF       ERROR-COUNTER EQUALTO                      NC1414
026500 WRITE-LINE.                                                      NC1414.2
026600     ADD 1 TO RECORD-COUNT.                                       NC1414.2
026700     IF RECORD-COUNT GREATER 42                                   NC1414.2
026800         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1414.2
026900         MOVE SPACE TO DUMMY-RECORD                               NC1414.2
027000         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  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 TO DUMMY-RECORD PERFORM WRT-LN          NC1414.2
027800         MOVE DUMMY-HOLD                                                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070         MOVE TO RECORD-COUNT                               .2
0PERFORM.                                              NC1414
028100 WRT-LN.                                                          NC1414.2
02820     WRITE AFTERADVANCING  LINES.2
028300     MOVE SPACE TO DUMMY-RECORD.                                  NC1414.2
028400 BLANK-LINE-PRINT.                                                NC1414.2
080      WRT-LNNC1414.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028600 FAIL-ROUTINE.                                                    NC1414.2
028700     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC141420      CCVS-E-2 DUMMY-RECORD WRITE-LINENC1414
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 TO INF-ANSI-REFERENCE.                 NC1414.2
NC1414
029200     MOVE   XXINFO TO DUMMY-RECORD.02630      MOVE CCVS-E-2TO DUMMY-RECORDPERFORM.          NC1414
029300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1414.2
0294002660     ADD1TO RECORD-COUNTNC14142
029500 FAIL-ROUTINE-WRITE.                                              NC1414.2
029600     MOVE2670IF GREATER 4                                   .2
029700     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1414.2
0800    MOVE TO PRINT-REC WRITE-LINE 2TIMES.2
029900     MOVE   SPACES TO COR-ANSI-REFERENCE20          DUMMY-RECORD  PAGE
.NC1414
030100 BAIL-OUT.                                                        NC1414.2
030200     IF     COMPUTED-A NOT EQUAL027900         MOVE ZERO RECORD-COUNTNC1414
30          CORRECT-A  GO BAIL-OUT-EX.2
030400 BAIL-OUT-WRITE.                                                  NC1414.2
030500     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC1414.2
030600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1414.2
0370MOVE TO. PERFORM 2 TIMES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000        SPACESINF-ANSI-REFERENCENC1414
030900 BAIL-OUT-EX. EXIT.                                               NC1414.2
000CCVS1-EXIT.                                                      2
031100     EXIT.                                                        NC1414.2
031200 SECT-NC141A-001 SECTIONNC1414.2
031300 INIT-PARA.                                                       NC1414.2
031400     MOVE "VI-127 6.22.4" TO ANSI-REFERENCE.                      NC1414.2
031500 BUILD-TABLE2.                                                    NC1414.2
03160MOVE OTABLE2-REC)                                   NC1414
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
20      1  TABLE2-REC6).                                   NC1414
03220MOVE  TABLE2-REC7).NC1414java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032300     MOVE 02 TO TABLE2-REC (8).                                   NC1414.2
032400     MOVE 16 TO TABLE2-REC (9).                                   NC1414.2
2 M 62 TO (1)                                  .2
020     OVE TABLE2-REC1.                                  .2
032700     MOVE 04 TO TABLE2-REC (12).                                  NC1414.2
032800 SET-TEST-1.                                                      NC1414.2
032900     MOVE "SET ... TO" TO FEATURE  .NC1414
033000     SET INDEX1030300     IF     CORR EQUAL TO  GO TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033100     SET00      CORRECT-A XXCORRECT COMPUTED-A XXCOMPUTEDNC14142
03320000MOVE TOI.                 NC14142
033300     IF INDEX1 EQUAL TO 26                                        NC1414.2
033400        PERFORM PASS00800     MOVE   SPACES INF-ANSI-REFERENCE.                         NC1414
033500        ELSE GO TO SET-FAIL-1.                                    NC1414.2
033600     GO TO SET-WRITE-130     .                                                        2
0 SET-DELETE-1.                                                    .2
033800     PERFORM DE-LETE.                                             NC1414.2
033900     GO TO SET-WRITE-1.                                           NC1414.2
034000 SET-FAIL-1.                                                      NC14140 2  TABLE2-REC                                   NC1414
034100     PERFORM FAIL.                                                NC1414.2
034200     SET INDEX-ID TO INDEX1.                                      NC1414.2
034300     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
034400     MOVE 26 TO CORRECT-18V0.                                     NC1414.2
034500 SET-WRITE-1.                                                     NC1414.2
034600     MOVE "SET-TEST-1" TO PAR-NAME.                               NC1414.2
034700     PERFORM PRINT-DETAIL.                                        NC1414.2
30 SET-TEST-2NC1414
034900     MOVE "SET ... UP BY" TO FEATURE.                             NC1414.2
0500     SET INDEX1 7.                                             NC1414
035100     SET INDEX2 TO 8.                                             NC1414.2
320SET  UPBY TABLE2-REC).                        NC1414.2
0530     IF EQUALTONC1414
035400        PERFORM PASS0    2.NC14142
035500        ELSE GO3280SET-TEST-1NC1414.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
36200     SET INDEX-ID TO INDEX1.                                      NC1414.2
036300     MOVE INDEX-ID TO COMPUTED-18V0.033500        ELSE GO TO SET-FAIL-1.                                    .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
0670     PERFORM .                                        NC1414
036800 SET-TEST-3.                                                      NC1414.2
036900     MOVE"SET ..DOWN BY"  FEATURE                           NC14142
70      INDEX1 5.                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031      INDEX2 9.NC1414.2
037200     SET INDEX1 DOWN BY TABLE2-REC (INDEX2).                      NC1414.2
0373      INDEX1TO0                                       .2
037400        PERFORM PASS                                              NC1414.2
037500        ELSE GO TO SET-FAIL-3.                                    NC1414.2
037600     GO TO SET-WRITE-3.                                           NC1414.2
037700 SET-DELETE-3.                                                    NC1414.2
037800     PERFORM DE-LETE.                                             NC1414.2
037900     GO TO SET-WRITE-3.                                           NC1414.2
038000 SET-FAIL-3.                                                      NC1414.2
038100     PERFORM FAIL.                                                NC1414.2
038200     SET INDEX-ID TO INDEX1.                                      NC1414.2
03800MOVE TO.                              .2
038400     MOVE 40 TO CORRECT-18V0.                                     NC1414.2
038500 SET-WRITE-3.                                                     NC1414.2
038600     MOVE "SET-TEST-3" TO PAR-NAME.                               NC1414.2
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.                                             NC1414.2
039200     SET INDEX1 TO TABLE2-REC (INDEX2 + 1).                       NC1414.2
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.                                                NC1414.2
0420SET TO.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04030      INDEX-ID .                              NC14142
040400     MOVE 62 TO CORRECT-18V0.                                     NC1414.2
040500 SET-WRITE-4.                                                     NC1414.2
040600     MOVE3740        PERFORM PASSNC1414.2
040700     PERFORM PRINT-DETAIL.                                        NC1414.2
040800 SET-TEST-5.                                                      NC1414.2
4090     MOVE " ... UP "  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
 TONC1414.2
041400        PERFORM PASS                                              NC1414.2
041500        ELSE GO TO SET-FAIL-5.                                    NC1414.2
041600     GO TO SET-WRITE-5.                                           NC1414.2
400 .                                                    
041800     PERFORM DE-LETE.                                             NC1414.2
041900     GO TO SET-WRITE-5.                                           NC1414.2
042000 SET-FAIL-5.                                                      NC1414.2
042100     PERFORM03800      "SET-TEST-3"TO.                               .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     MOVESET-TEST-5 PAR-NAMENC1414
042700     PERFORM PRINT-DETAIL.                                        NC1414.2
042800 SET-TEST-6.                                                      NC14143920SET TO TABLE2-REC + 1)                       .2
042900     MOVE "SET ... DOWN BY" TO FEATURE.                           NC1414.2
043000     SET INDEX1 TO 15.                                            NC1414.2
043100     SET INDEX2 TO 8.                                             NC1414.2
043200     SET INDEX1 DOWN BY TABLE2-REC (INDEX2 + 4).                  NC1414.2
043300     IF INDEX1 EQUAL TO 11                                        NC1414.2
043400        PERFORM PASS                                              NC1414.2
043500        ELSE GO TO SET-FAIL-6.                                    NC1414.2
043600     GO TO SET-WRITE-6.                                           NC1414.2
043700 SET-DELETE-6.                                                    NC1414.2
0480PERFORM.                                             .2
043900     GO TO SET-WRITE-6.                                           NC1414.2
044000 SET-FAIL-6.                                                      NC1414.2
0410     FAIL.2
044200     SET INDEX-ID TO INDEX1.                                      NC1414.2
0440      INDEX-ID COMPUTED-18V0NC1414
044400     MOVE 11 TO CORRECT-18V0.                                     NC1414.2
044500 SET-WRITE-6.                                                     NC1414.2
044600     MOVE "SET-TEST-6" TO PAR-NAME40     PERFORM.NC1414
040      PRINT-DETAILNC1414
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
0550      TOSET-WRITE-7.                                           .2
045600 SET-DELETE-7410     GO TO.                                           .2
045700     PERFORM DE-LETE.                                             NC1414.2
050      TO.                                           NC14142
045900 SET-FAIL-7.                                                      NC1414.2
046000     PERFORM FAIL.                                                NC1414.2
046100SET  INDEX1NC1414
046200     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
046300     MOVE 21 TO CORRECT-18V0.                                     NC1414.0200 SET-FAIL-5                                                      NC1414
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
060     SET TO                                            .
047000     SET INDEX1 UP BY TABLE2-REC80 ET-TEST-6NC1414.
047100     IF INDEX1 EQUAL TO 23                                        NC1414490MOVE .DOWNBYTO.                           NC14142
3       TONC1414
047300        ELSE GO TO SET-FAIL-82SET DOWN  (INDEX2 4.                  NC1414
4740GOTO SET-WRITE-8                                           .2
047500 SET-DELETE-8.                                                    NC1414.2
047600     PERFORM DE-LETE.                                             NC1414.2
4700     GO TOSET-WRITE-8                                           NC1414.2
047800 SET-FAIL-8.                                                      NC1414.2
047900     PERFORM FAIL.                                                NC1414.2
000SET TO INDEX1NC14142
048100     MOVE INDEX-ID TO COMPUTED-18V0.                              NC1414.2
048200     MOVE 23 TO CORRECT-18V0.                                     NC1414.2
048300 SET-WRITE-8.                                                     NC1414.2
0440MOVE SET-TEST-8TOPAR-NAME.NC1414
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     INDEX1 TO                                        .2
049100        PERFORM PASS                                              NC1414.2
049200        ELSE GO TO SET-FAIL-9.                                    .2
0GO  SET-WRITE-9NC14142
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
050200SET-WRITE-9NC1414.2
050300     MOVE "SET-TEST-9" TO PAR-NAME.                               NC1414.2
000      PRINT-DETAILNC1414
050500 CCVS-EXIT SECTION.                                               NC1414.2
050600 CCVS-999999.                                                     NC1414.2
0570GO CLOSE-FILES                                           NC1414

93%


¤ Dauer der Verarbeitung: 0.23 Sekunden  ¤

*© Formatika GbR, Deutschland




Normalansicht

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.