Quelle nc102a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         NC1024.2
000200 PROGRAM-ID.                                                      NC1024.2
000300     NC102A.                                                      NC1024.2
000400                                                                  NC1024.2
000500****************************************************************  NC1024.2
000600*                                                              *  NC1024.2
000700*    VALIDATION FOR:-                                          *  NC1024.2
000800*                                                              *  NC1024.2
000900*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1024.2
001000*                                                              *  NC1024.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1024.2
001200*                                                              *  NC1024.2
001300****************************************************************  NC1024.2
001400*                                                              *  NC1024.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1024.2
001600*                                                              *  NC1024.2
001700*        X-55  - SYSTEM PRINTER NAME.                          *  NC1024.2
001800*        X-82  - SOURCE COMPUTER NAME.                         *  NC1024.2
001900*        X-83  - OBJECT COMPUTER NAME.                         *  NC1024.2
002000*                                                              *  NC1024.2
002100****************************************************************  NC1024.2
002200*                                                                 NC1024.2
002300*    THIS PROGRAM TESTS FORMATS 1, 2 AND 3 OF THE "PERFORM"       NC1024.2
002400*    STATEMENT, FORMATS 1 AND 2 OF THE "GO" STATEMENT AND         NC1024.2
002500*    THE "EXIT" STATEMENT.                                        NC1024.2
002600*                                                                 NC1024.2
002700 ENVIRONMENT DIVISION.                                            NC1024000700*    VALIDATION FOR:-                                          *  NC1024.2
002800 CONFIGURATION SECTION001100*    "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1024.2
002900 SOURCE-COMPUTER.                                                 NC1024.2
003000     Card0130.                                                    NC1024.2
003100 OBJECT-COMPUTER.                                                 NC1024.2
003200     Card0131.                                                    NC1024.2
003300 INPUT-OUTPUT SECTION001700*        X-55  - SYSTEM PRINTER NAME.                          *001800*        X-82  - SOURCE COMPUTER NAME.                         *  001900*        X-83  - OBJECT COMPUTER NAME.                         002000*                                                              *  NC1024.2
003400 FILE-CONTROL.                                                    80 CONFIGURATIONSECTION.                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000360     C0085NC1024.2
003600     "C0085" .                                                    NC1024.2
003700 DATADIVISIONNC1024.
003800 FILE SECTION.                                                    NC1024.2
003900 FD  PRINT-FILE.                                                  NC1024.2
004000 010380  SECTION.NC1024.2
004100 01  DUMMY-RECORD PICTURE X(120).                                 NC1024.2
0040 WORKING-STORAGE.                                         .2
0300      PIC9VALUE.2
004400 01  WRK-XN-18-1 PIC X(18).                                       NC1024.2
004500 01  WRK-AN-X-18-1, REDEFINES004200 WORKING-STORAGE SECTIONNC1024
004600 01  WRK-DU-X-18V0-140001     PIC9VALUENC1024
004700 01  WRK-DU-0V1-1 PIC040 0  WRK-XN-18-1 PIC1)NC10242
004800 01  WRK-DU-0V2-1 PIC V99 VALUE .25.                              NC1024.2
004900 01  WRK-DU-0V12-1 PIC V9(12) VALUE .00001.                       NC1024.2
005000 01  WRK-DU-1V0-1 PIC 9 VALUE ZERO.                               NC1024.2
005100 01  WRK-DU-1V1-1 PIC 9V9 VALUE 1.1.                              NC1024.2
005200 01  WRK-DU-1V1-2 PIC 9V9 VALUE 2.4.                              NC1024.2
005300 01  WRK-DU-1V3-1 PIC 9V999 VALUE 1.001.                          NC1024.2
005400 01  WRK-DU-1V3-2 PIC 9V999 VALUE 1.001.                          NC1024.2
005500 01  WRK-DU-1V5-1 PIC 00010 IDENTIFICATIONDIVISION                                         .2
005600 01  WRK-DU-1V17-1 PIC 9V9(17) VALUE 3.14159265358979323.         NC10240030     NC102ANC1024.2
005700 01  WRK-DU-2P6-1 PIC 9000                                                                  000500***000600*                                                              *  NC1024.2
00WRK-DU-2V0-1                                         .2
005900 01  WRK-DU-2V0-2 PIC 99.                                         NC1024.2
006000 01  WRK-DU-2V0-3 PIC 99.                                         NC1024.2
006100 01  WRK-DU-2V1-1 PIC 99V9.                                       NC1024.2
006200   PIC9V9NC1024
006300 01  WRK-DU-2V1-3 PIC 99V9.                                       NC1024.2
60    1.4                          .2
006500 01  WRK-DU-2V2-2 PIC 99V99 VALUE00 1WRK-DU-1V0-1 9VALUE.                               .2
006600 01  WRK-DU-2V2-3 PIC 99V99 VALUE 60.99.                          NC1024.20java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00   PIC VALUE                          .2
006800 01  WRK-DU-2V2-5 PIC 99V9900   PICV9NC1024
006900 01  WRK-DU-2V5-1 PIC 99V9(5).050 1WRK-DU-1V17-1  9V97  3.1419635873.        .2
000001WRK-DU-4P1-1 ()  .000.NC1024
007100 01  WRK-DU-5V1-1 PIC 9(5)V9 VALUE 12345.6.                       NC1024.2
007200 01  WRK-DU-6V0-1PIC96 VALUE999.                           NC1024
007300 01  WRK-DU-6V0-2 PIC 9(6) VALUE 99999.                           NC1024.2
007400 01  WRK-DU-16V2-1 PIC00590 01WRK-DU-2V0-2 99.                                         .2
007500 01  WRK-NE-X-1 PIC 9(16).99.                                     NC1024.2
007600 01  WRK-DS-1V0-1 PIC S9 VALUE -3.                                NC1024.2
007700 01  WRK-DS-1V0-2 PIC S9 VALUE 2.                                 NC1024.2
007800 01  WRK-DS-1V2-1 PIC S9V99 VALUE ZERO0   PIC9 VALUE.4NC1024
070001  WRK-DS-2V0-1 PICS99 ZERO                             .2
008000 01 WRK-DS-2V1-1PICS99V9 VALUE ZERO                           .2
001001  PICS99V99 .                          NC1024
020 1  WRK-DS-2V2-2 S99V99 -1.4                        .2
00830    PIC (16)V99 -999999999.9      NC1024
40001  WRK-NE-X-2 -(6.9                                    .2
08500  WRK-NE-1 .999/99999,.                           NC1024
008600 01  WRK-NE-2 PIC $**.99.                                         NC1024.2
008700 01  WRK-NE-3 PIC $99.99CR.                                       07300   PIC ()VALUE.NC1024
008800 01  WRK-NE-4 PIC $*9.99 VALUE ZERO.070 0   PIC 9()9.NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008900 77  WRK-DS-02V00                 PICTURE S99.                    NC1024.200WRK-DS-1V0-2  2.NC1024
0077                  PICTURE                      .2
010VALUENC1024
009200 77  P-COUNT                      PICTURE 9(6).                   NC1024.2
090 7                              PICTUREISVALUE IS .NC1024
0407                              PICTURE   IS .NC1024
0050 7  XRAYPICTURE X.NC1024
009600 77  ALTERLOOP                          PICTURE IS 9 VALUE IS     NC1024.2
00     ERONC1024
009800 01  NOTE-RECORD.                                                 NC1024.2
009900     02 A     PICTURE X VALUE00800 1  WRK-NE-X-2 -16.9                                    .2
000BPICTURE SPACE.2
010100     02 C     PICTURE X VALUE 07    PIC99.                                       .
010200     02 D     PICTURE X VALUE SPACE80 7WRK-DS-02V00PICTURE.                    NC1024
01030002 E      X VALUESPACENC1024.2
010400     02 F     PICTURE X VALUE SPACE.                              NC1024.2
010500     02 G     PICTURE X VALUE SPACE.                              NC1024.2
1002HPICTURE SPACE.NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100     2IPICTUREVALUE.                              NC1024
010800     2      PICTURE X VALUESPACE.                              NC1024
010900     02 K     PICTUREX VALUESPACE                              .2
011000     02 L     PICTURE X VALUE SPACE.                              NC102400500 7  XRAY                               PICTURE IS.             NC1024
011100     02 M     PICTURE X VALUE 0 1.
011200     02 N     PICTURE X VALUE SPACE.                              NC1024.2
011300     02 O     PICTURE X VALUE SPACE.                              NC1024.2
011400     02 P     PICTURE X VALUE SPACE.                              NC1024.2
011500 01  GO-TABLE.                                                    NC1024.2
002GO-SCRIPT TIMESNC1024
011700 01  GO-TO-DEPEND                       PICTURE IS 9 VALUE IS 0.  NC1024.2
0180 0  GO-TO-DEEP                         PICTURE IS9VALUE IS  NC1024
011900 01  PERFORM1                           PICTURE IS XXX            NC1024.2
012000     VALUE IS SPACE.                                              NC1024.2
012100 01  PERFORM2                           2   SPACE
012200090      K     X VALUE.                              .2
01200 1  PERFORM4PICTURE IS.         NC1024
012400 01  PERFORM5                           0100    0 MPICTURE SPACE.                              .2
012500      IS ZERONC1024
012600 01  PERFORM-KEY                        PICTURE IS 9.             NC1024.2
012700 01  PERFORM-HOLD.                                                NC1024.2
012800     02  TEST-LETTER130           PICTURE SPACE.                              .2
0290 1TEST-RESULTSNC1024
013000     02 FILLER                   PIC X      VALUE SPACE.          NC1024.2
013100     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC1024.2
0300                   PIC X      VALUE.          NC1024
013300     02 P-OR-F                   PIC X(5)   VALUE00                         PICTURE 9  IS 0  .2
013400     02 FILLER                   PIC X      VALUE IS            NC1024
05002  .                                                NC1024
10       0 FILLERPIC(19)   SPACENC1024.2
013700       03  PARDOT-X              PIC X      VALUE SPACE.          NC1024.2
013800       03 DOTVALUE               PIC 99     VALUE ZERO.           NC1024.2
013900     02 FILLER                   PIC X(8)   VALUE SPACE.          NC102414000                             PICTUREIS            .2
00     0 RE-MARK()                       .2
01402700  .                                                .2
     PIC(30  VALUE.          NC1024
014300     02 FILLER                   PIC X(17)  VALUE20 1TEST-RESULTS                                                .2
014400            " COMPUTED=".                                   01300     2 FEATURE                  PIC(20  VALUE.          NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014500     02 COMPUTED-X.                                               NC1024.2
14600     03 COMPUTED-A X(20  VALUE.          NC1024
014700     03 COMPUTED-N               REDEFINES COMPUTED-A             NC1024.2
014800                                 PIC -9(9).9(9).                  NC1024
014900     03 COMPUTED-0V18 COMPUTED-A -.9(18).         NC1024.2
015000     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1024.2
015100     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1024.2
015200     03       CM-18V0130003                PIC X      VALUE.          NC1024.
0530                             PIC -(1)          NC1024
015400         04 FILLER013900     02 FILLER                    ()VALUE.          NC1024
0500    0  PIC(0)VALUE .                             NC1024
015600040 1TEST-COMPUTEDNC1024
015700     02 FILLER PIC X(30) VALUE SPACE120     2FILLER X(30)   SPACE          .2
01580002FILLER (17 "CORRECT=.NC1024.
015900     02 CORRECT-X.                                                NC1024.2
10      CORRECT-A                  PIC)VALUE.         NC1024.
6          REDEFINES     PIC()99.NC1024
016200     03 CORRECT-0V18 CORRECT-APIC.9(.         NC1024.2
016300     03 CORRECT-4V141470     0 COMPUTED-N               REDEFINES             NC1024
016400     03CORRECT-14V4 CORRECT-A -91).()     .2
016500     03      CR-18V0 REDEFINES CORRECT-A.                         NC1024.2
060          CORRECT-18V0PIC1)          .2
016700         0050003COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1024.2
016800     03 FILLER PIC X(2) VALUE SPACE.                              NC1024.2
016900     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1024.2
0170001  CCVS-C-1NC1024
017100     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1024.2
070-    SS
017300-    " REMARKS".                                            NC1024.2
170     2FILLER X(2)VALUE.      .2
017500 01  CCVS-C-2.                                                    NC1024.2
017600    02 FILLERPICX         SPACE.      .2
017700     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC1024.2
017800     02 FILLER                     PIC X(15)    VALUE SPACE.      NC1024.2
0790     0                      PICX(4)VALUE     NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018000     02 FILLER0570     2FILLER X(30)VALUESPACE.2
018100 01050     2FILLER ()VALUE                .2
0120 0  REC-CT 9VALUENC1024
018300 01  DELETE-COUNTER                PIC 999      VALUE ZERO                   PIC  SPACE.2
0                   PIC ZERO.2
080 0               PIC       ZERONC1024
018600 01  PASS-COUNTER                  PIC 999      VALUE ZERO5     3CR-18V0.                         .2
018700 01  TOTAL-ERROR7         FILLERPICNC1024
018800 01  ERROR-HOLD                    60     3FILLER X2 VALUE.                              NC1024
018900 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC1024.2
019000 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC1024.2
019100 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC1024.2
019200 01  CCVS-H-1NC10242
019300     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1024.2
019400     02  FILLER                    PIC X(42)    VALUE             NC1024.2
019500     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC1024.2
019600     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1024.2
019700 01  CCVS-H-2A.                                                   NC1024.2
180   2                         PIC40)VALUE.      .2
019900   02  FILLER                        PIC X(7)   VALUE70                           PIC(15     SPACE      .2
000002                         XXXX             .2
020100     "4.2 ".                                                      NC1024.2
020200   02  FILLER                        PIC X(28)  VALUE             NC1024.2
020300            " COPY - NOT FOR DISTRIBUTION".                       NC1024.2
00400  FILLERPIC(41)   SPACENC1024
020500                                                                  NC1024.2
020600 01  CCVS-H-2B.                                                   NC1024.2
027002FILLERPIC(5               NC1024
020800            "TEST RESULT OF ".                                    NC1024.2
020900   02  TEST-ID                       PIC X(9).                    NC1024.2
021000   02  FILLER                        PIC X(4)   VALUE01800 01ERROR-HOLDPIC9       ZERO.       .2
021100            " IN ".                                               NC1024.2
021200   02  FILLER                        PIC X(12)  VALUE             NC1024.2
021300     " HIGH ".                                              NC1024.2
021400   02  FILLER                        PIC X(22)  VALUE             NC1024.2
021500            " LEVEL VALIDATION FOR ".                             NC1024.2
2600  02FILLERPIC(8)              NC1024
090     OFFICIAL SYSTEMNC1024
021800 01  CCVS-H-3.                                                    2FILLERPIC3)VALUE.     NC1024
000                         X3)VALUE.2
022000            " FOR OFFICIAL USE ONLY ".                         NC1024.2
022100     02  FILLER                      0 FILLER ( " ".  .2
022200     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1024.2
PIC X2)VALUE.2
022400            " COPYRIGHT 1985 ".                                NC1024.2
022500 01  CCVS-E-1.                                                    NC1024.2
022600     02 FILLER                       PIC X(52)  VALUE SPACE.      NC1024.2
022700     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC1024.2
022800     02 ID-AGAIN                     PIC X(9).                    NC1024.2
022900     02 FILLER                       PIC X(45)  VALUE SPACES.     NC1024.2
023000 01  CCVS-E-2.                                                    NC1024.2
023100     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1024.2
023200     02  FILLER                      PIC X09                            PIC().NC1024
023300     02 CCVS-E-2-2.                                               NC1024.2
0240                        PICXXX SPACE.2
023500         03 FILLER                   PIC X      VALUE SPACE.      NC1024.2
023600         03 ENDER-DESC               PIC X(44)  VALUE             NC1024.2
023700            "ERRORS ENCOUNTERED".                                 NC1024.2
0280 01CCVS-E-3NC1024.2
023900     02  FILLER                      PIC X(22)  VALUE             NC1024.2
024000            " FOR OFFICIAL USE ONLY".                             NC1024.2
024100     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1024.2
024200     02  FILLER                      PIC X(58)  VALUE             NC1024.2
024300     "ON-SITE VALIDATION 1600 FILLER PIC X5) VALUE .2
2400    2FILLERPICX13  VALUE SPACE.     NC1024
024500     02 FILLER                       100 1  CCVS-H-3NC1024
024600             " COPYRIGHT 1902190002 FILLER PIC X(34 VALUE NC1024.2
024700 01  CCVS-E-4.                                                    NC1024.2
024800     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC1024.2
PIC X(4)   VALUE  " NC1024.2
025000     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1024.2
010     0 FILLERPICX4)VALUE.2
025200      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1024.2
025300 01  XXINFO.                                                      NC1024.202   CCVS-E-1NC1024
0240     2 FILLERPIC19) VALUE.2
025500            "*** INFORMATION ***".                                NC1024.2
025600     02 INFO-TEXT.                                                20     2FILLER X(14) VALUE" OF ".              NC1024
02570 04FILLERPIC X8    SPACE      .2
025800       04 XXCOMPUTED                 PIC X(20).                   NC1024.2
025900       04 FILLER                     PIC X(5)   VALUE SPACE.      NC1024.2
026000       04 XXCORRECT                  PIC X(20).                   NC1024.2
026100     02 INF-ANSI-REFERENCE           PIC X(48).                   NC1024.2
026200 01  HYPHEN-LINE.                                                 NC1024.2
260     2   PIC X VALUE  SPACENC1024
026400     02 FILLER  PIC IS X(65)    VALUE IS "************************NC1024.2
0260-   ***********************" .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
026600     030            ERRORS.2
026700-    "*************030 1. NC1024.2
2800                       PIC                NC1024
026900     "NC102A".                                                    " OFFICIAL ONLY".                             .2
027000 PROCEDURE DIVISION.                                              NC1024.2
027100 CCVS1 SECTION.                                                   NC1024.2
027200 OPEN-FILES0240                             PIC3  VALUE SPACENC1024
02700OPEN PRINT-FILE                                  .2
027400     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID 040             " 1985"                                   .
02040     2CCVS-E-4-1 XXX SPACE.2
027600     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE00 FILLER                        X4   VALUE      .2
027700     GO TO CCVS1-EXIT.                                            NC10240                         X4               NC1024
027820                              X1               NC1024
290PERFORM THRU. CLOSE PRINT-FILE.2
028000 TERMINATE-CCVS.                                                  NC1024.2
028100     EXIT PROGRAM.                                                NC1024.2
028200 TERMINATE-CALL.050                         PIC0                   .2
028300     STOP     RUN.                                                NC1024.2
028400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC1024.2
028500 PASS.  MOVE "PASS " TO00  .                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028600 FAIL.  MOVE02600     02 FILLERPICISX65    VALUE "****************NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02870 DE-LETE "*****" TO.  ADD 1 TODELETE-COUNTER.2
028800     MOVE "****TEST DELETED****" TO RE-MARK.                      NC1024.2
2890 PRINT-DETAIL2
029000     IF REC-CT NOT EQUAL TO ZERO                                  NC10240*************.NC1024
029100             MOVE "." TO PARDOT-X                                 NC1024.2
029200             MOVE REC-CT TO DOTVALUE.                             NC1024.2
230     MOVE     TEST-RESULTS TO. PERFORM WRITE-LINENC1024
029400     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE02710 CCVS1.                                                   NC1024
029500        PERFORM07300OPENOUTPUT.                                  NC10242
029600          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC1024.2
029700     MOVESPACE TOP-OR-F SPACE TO COMPUTED-X              NC1024
029800     MOVE SPACE TO CORRECT-X.                                     NC1024.2
029900     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1024.2
030000     MOVE     SPACE TO RE-MARK0280 CLOSE-FILESNC1024
030100 HEAD-ROUTINE70      END-ROUTINE END-ROUTINE-13.CLOSE.   NC1024
030200     CCVS-H-1 DUMMY-RECORD WRITE-LINE.  NC1024
030300     MOVE0810      PROGRAMNC1024
030400     MOVE CCVS-H-2B TO DUMMY-RECORD. 0820 TERMINATE-CALL.                                                  NC10242
030500     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1024.2
030600 COLUMN-NAMES-ROUTINE.                                            NC1024.2
030700MOVECCVS-C-1 DUMMY-RECORD.PERFORM.           NC1024.2
030800     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1024.2
300      HYPHEN-LINE TO.WRITE-LINE2
031000 END-ROUTINE.                                                     NC1024.2
031100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1024.2
320 .
NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031400 END-ROUTINE-10890PRINT-DETAILNC1024.2
031500      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1024.2
03160      ERROR-HOLDADDDELETE-COUNTER ERROR-HOLD.NC10242
031700      ADD PASS-COUNTER TO ERROR-HOLD.                             NC1024.2
031800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1024.2
0100      MOVE TO CCVS-E-4-1                            NC1024.2
032000      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC1024.2
032100      MOVE CCVS-E-4 0920             MOVE TODOTVALUE.2
032200      0900         TEST-RESULTS PRINT-REC PERFORM.      NC1024
320  END-ROUTINE-12NC1024.2
032400      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC1024.2
03250     IF IS EQUAL TO                      NC1024.2
032600         MOVE "NO " TO ERROR-TOTAL260           PERFORMBAIL-OUTTHRU.NC1024
0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032800         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1024.2
032900     MOVE     CCVS-E-2 TO290IF EQUAL  ZEROSPACE .         NC1024
033000     PERFORM WRITE-LINE.                                          NC1024.2
033100 END-ROUTINE-13.                                                  .2
03320003010 HEAD-ROUTINENC1024.2
033300         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1024.2
033400         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1024.2
033500    MOVETESTS DELETED"TO ENDER-DESC NC1024.2
033600     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1024.2
033700      IF   INSPECT-COUNTER EQUAL TO03040     MOVECCVS-H-2B DUMMY-RECORD. PERFORMWRITE-LINETIMES.  NC10242
033800          MOVE" " TOERROR-TOTAL                               NC1024
033900      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1024.2
0400MOVE"ESTS)REQUIREINSPECTION"TO            2
034100      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC1024.2
3420     MOVE CCVS-E-3TO. PERFORM WRITE-LINE           NC1024
034303090     MOVE TO DUMMY-RECORD WRITE-LINE.        NC1024
034400     ADD03100 END-ROUTINENC1024.2
034500     IF RECORD-COUNT GREATER 42                                   NC1024.2
034600          DUMMY-RECORDDUMMY-HOLD.2
034700         MOVE SPACE TO DUMMY-RECORD                               NC1024.2
034800         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC1024.2
034900         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1024.2
050         MOVE TO DUMMY-RECORD WRT-LN   NC1024
30ADD TO ADD INSPECT-COUNTER      NC1024
3          CCVS-H-3  PERFORM 3 TIMESNC1024
035300         MOVE CCVS-C-1  TO0310       PASS-COUNTER ERROR-HOLD                             .2
340MOVE  TODUMMY-RECORD WRT-LNNC1024
035500         MOVE HYPHEN-LINE00MOVE TOCCVS-E-4-2.NC1024
035600         MOVE DUMMY-HOLD TO20 CCVS-E-4 CCVS-E-2-2NC1024
035700         MOVE ZERO TO RECORD-COUNT32       CCVS-E-2 DUMMY-RECORD WRITE-LINE.NC1024
3580     ERFORM.NC1024.
000 "(S" TONC1024
02IF  EQUAL                       .2
036100     MOVE SPACE TO DUMMY-RECORD.                                  NC1024.27
036200 BLANK-LINE-PRINT.                                                30PERFORM.                                          NC1024
036300     PERFORM WRT-LN.                                                    DELETE-COUNTER EQUAL ZERO.2
036400 FAIL-ROUTINE.                                                    NC1024.2
036500     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC1024.2
036600            GO TO FAIL-ROUTINE-WRITE.                             NC1024.2
036700     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE0IF EQUAL TO                           NC1024
036800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1024.2
036900     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC1024.2
037000     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1024.2
037100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1024.2
037200     GO TO  FAIL-ROUTINE-EX.                                      NC1024.2
037300 FAIL-ROUTINE-WRITE.                                              NC1024.2
037400     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC1024.2
037500     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE070MOVE  DUMMY-RECORD.2
30        TEST-CORRECT PERFORMWRITE-LINE. NC1024
370        SPACES .                         .2
3700 FAIL-ROUTINE-EX.NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0.
0300IF .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038100     IF     CORRECT-A EQUAL TO SPACE 00MOVECCVS-C-1   PERFORM           NC1024
038200 BAIL-OUT-WRITE.                                                  NC1024.2
038300     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A 060MOVE TO                          NC1024.
038400     MOVE   ANSI-REFERENCE TO035800     PERFORM WRT-LN.          NC1024
50       XXINFO . PERFORM 2 TIMES.2
038600     MOVE   SPACES TO INF-ANSI-REFERENCE00    WRITE    DUMMY-RECORD  LINES.2
038700 BAIL-OUT-EX. EXIT.                                               60      SPACE DUMMY-RECORDNC1024
038800 CCVS1-EXIT.                                                      NC1024.2
038900     EXIT.                                                        NC1024.2
039000 SECT-NC102A-001 SECTION.                                         NC1024.2
039100 GO--INIT-F1-1.                                                   NC1024.2
30MOVE614GR1 ANSI-REFERENCE               NC1024
039300 GO--TEST-F1-1.                                                   IF  EQUAL  GO FAIL-ROUTINE-WRITE.2
039400     GO380MOVEANSI-REFERENCE INF-ANSI-REFERENCE.                 .2
00600    MOVE   SEETO INFO-TEXT..2
039600     GO TO    INFO  DUMMY-RECORDPERFORM 2 TIMES.NC1024
039700 GO--DELETE-F1-1.                                                 NC1024.2
039800     PERFORM  DE-LETENC1024
039900037200      TONC1024
0GO--PASS-F1-1NC1024.
040100     PERFORM  PASS.                                               NC1024.2
040200 GO--WRITE-F1-1.                                                  NC1024.2
0430MOVEGO  TO.                                    .2
040400     MOVE "GO--TEST-F1-1" TO PAR-NAME.                            NC1024.2
040500     PERFORM  PRINT-DETAIL.                                       NC1024.2
040600 GO--INIT-F2-10IF NOT  SPACE BAIL-OUT-WRITE2
040700     MOVE    "V1-88 6.14.4 GR3"  TO ANSI-REFERENCE.               310     IF EQUAL SPACE .           .2
4         "" TONC1024
040900     MOVE4        ANSI-REFERENCE.                 .2
010MOVE TO  FEATURE.2
041100     MOVE  0 TO GO-TO-DEPEND.                                     NC1024.2
041200 GO--TEST-F2-1.                                                   NC1024.2
041300     PERFORM  PRINT-DETAIL.                                       NC1024.2
041400     MOVE9     .NC1024.2
041500     GO TO    GO--B                                               NC1024.2
010GO--INIT-F1-1NC1024
041700              GO--C90MOVE644" 2
041800*    NOTE GO--TEST-F2-1 THRU GO--E TEST THE GO TO                 NC1024.2
041900*    DEPENDING OPTION FOR GO-TO-DEPEND EQUAL TO 0,1,3,2,4.        NC1024.2
042000*    NOTE INITIAL VALUE OF GO-TO-DEPEND IS ZERO.                  NC1024.2
04210      TO.                                              .2
042200 GO--DELETE-F2-1.                                                 NC1024.2
042300     MOVE "GO--TEST-F2-1" TO PAR-NAME.                            NC1024.2
042400     PERFORM  DE-LETE.                                            NC1024.2
042500     GO TO    GO--WRITE-F2-1.                                     NC1024.2
042600 GO--A.                                                           NC1024.2
042700     MOVE "GO--A" TO PAR-NAME.                                    NC1024.2
042800     IF0       PASS2
042900              PERFORM.
043000              ADD 1 TO GO-TO-DEPEND                               4MOVE PAR-NAME.2
043100              GO TO60.
043200     IF40         "" TONC1024
040                GO--ENC1024
043400     PERFORM  FAIL                                                NC1024.2
043500              MOVE 1 TO GO-TO-DEPEND                              41       0TO                                     NC1024
043600              GO TO GO--TEST-F2-1.                                NC1024.2
043700*    NOTE CONTROL SHOULD FALL THRU TO GO--A FOR GO-TO-DEPEND      NC1024.2
043800*    EQUAL TO 0, 4.                                               NC1024.2
043900 GO--B.                                                           NC1024.2
044000     MOVE "GO--B" TO PAR-NAME.                                    0GO--C GO-TO-DEPEND.2
044100     IF       GO-TO-DEPEND NOT EQUAL TO 1                         NC1024.2
044200              PERFORMUE OF GO-TO-DEPEND IS ZERO.                  NC1024.2
0440               3 TO                              .2
044400              GO TO GO--TEST-F2-1.                                NC1024.2
044500     PERFORM  PASS.                                               NC1024.2
044600     ADD      2 TO GO-TO-DEPEND.                                  NC1024.2
044700     GO TO    GO--TEST-F2-1.                                      NC1024.2
044800 GO--C.                                                           NC1024.2
044900     MOVE "GO--C" TO PAR-NAME.                                    NC1024.2
045000     IF       GO-TO-DEPEND NOT EQUAL TO0280IFGO-TO-DEPEND TO                             .2
045100              PERFORM FAIL                                        NC1024.2
045200              MOVE 2 TO GO-TO-DEPEND                              NC1024.2
045300              GO TO GO--TEST-F2-1.                                30            GO-TO-DEPEND THAN                         .2
045400     PERFORM  PASS.                                               NC1024.2
045500     SUBTRACT 1 FROM GO-TO-DEPEND.                                NC1024.2
0460     GO    GO--TEST-F2-1.NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4700.                                                           .2
045800     MOVE "GO--D" TO PAR-NAME.                                    NC1024.2
045900     IF       GO-TO-DEPEND NOT EQUAL TO 2                         NC1024.2
046000              PERFORMFAILNC1024
046100              MOVE 4 TO GO-TO-DEPEND                              NC1024.2
046200              GO TO GO--TEST-F2-1.                                NC1024.2
046300     PERFORM  PASS.                                               NC1024.2
040ADD2TO .                                  NC1024
046500     GO TO    GO--TEST-F2-1.                                      40               FAILNC1024.2
046600 GO--E.                                                           NC1024.2
046700     MOVE "GO--E" TO PAR-NAME.                                    NC1024.2
046800     IF       GO-TO-DEPEND EQUAL TO 4                             NC1024.2
046900              PERFORM PASS                                        NC1024.2
400               TOGO--WRITE-F2-1.                               .2
047100000900*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1024.2
0420 .                                                  .2
0730     PERFORMPRINT-DETAILNC1024.
047400 GO--INIT-F1-2.                                                   NC1024.2
00490     MOVE" . NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0760 GO--TEST-F1-2.                                                   .2
047700     GO 0500             PERFORM FAILNC1024
047800*    NOTE THAT GO--PASS-F1-2 IS A SECTION-NAME.                   NC1024.2
2
048000     GO                                                           NC1024.2
048100 GO--DELETE-F1-2002400*    , FORMATS 1AND2OF "GO" STATEMENT         NC1024
048200     PERFORM DE-LETE.                                             NC1024.2
048300     GO TOGO--WRITE-F1-2NC1024.2
048002800CONFIGURATION.                                           NC1024
048500 GO--PAS-F1-2.                                                    NC1024.2
048600     PERFORM PASS.                                                0100 .                                                 .2
87 GO--WRITE-F1-2NC1024
04800     MOVE GO TOTOFEATURE.                                     NC10242
048900     MOVE "GO--TEST-F1-2" TO PAR-NAME.                            NC1024.2
04000PERFORMPRINT-DETAILNC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049100*                                                                 NC1024.2
049200*                                                                 NC1024.2
049300 GO--INIT-F2-2.                                                   NC1024.2
9         V1-88
049500     MOVE    1 TO000500******************00600*                                                              *  NC1024.2
0960 18-1 WRK-XN-18-11)              NC1024
0470     GO   GO--PASS-F2-2NC10240090    " VALIDATION, NATIONAL INSTITUTEOFSTD& . "0600PERFORM                                               00                                                              .2
049800             GO--FAIL-F2-2 DEPENDING ON060      00160*                                                             * .2
049900*    NOTE THAT GO--PASS-F2-2 IS A SECTION-NAME.                   NC1024.2
050000     GO*080       GO-TO-DEPEND 020NC1024
002300*    THISPIC  ZERONC1024
052      DE-LETE.2
030GO   GO--WRITE-F2-2NC10242
050400 GO--PASS-F2-202700 ENVIRONMENT DIVISION                                            .2
020 SOURCE-COMPUTERNC1024.2
050600     IF      0300     Card0130NC1024.2
05070              PASS                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05000             GOTO.                                NC10242
050900 030
01000MOVE TO COMPUTED-NNC1024
50        1TO                                      .2
051200     PERFORM FAIL00GO--INIT-F1-2NC1024.2
530 GO--WRITE-F2-2NC1024.2
051400     MOVE "GO0750 1 PICTURE X(120). NC1024.2
55      "" TO.NC10242
051600     PERFORM 070      TO.                                      .2
50GO--INIT-F2-3NC1024
010         "V1-886144 GR3 TOANSI-REFERENCE. .2
051900     MOVE    0 TO GO-TO-DEEP.                                     NC1024.2
5MOVE.NC1024
2java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
02           048200     PERFORM DE-LETE
052300             DEPENDING480     GO TOGO--WRITE-F1-2.                                      .2
052060    PIC9.                                       .2
020 GO--DELETE-F2-30    V9 1..NC1024
0526006300 0  WRK-DU-2V1-3 0NC1024
02GOGO--WRITE-F2-3.2
020 .                                                      2
0590MOVE GO-TO-DEEPNC10240  PIC(7  .49587332
053000     GO       0701 PICV990 0   PIC9                                         .
053100 GO--B-F2-3.                                                      NC1024.2
0520     MOVE     2 TO GO-TO-DEEP                                    .2
5300GOGO--F-F2-3NC10242
053400 GO--C-F2-3.                                                       1WRK-DU-2V2-1042*
2
053600     GO       TO 070 1  WRK-NE-X-1  95
0.                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04  .NC1024
590GO GO--F-F2-3NC1024
                                     0810 1WRK-DS-2V2-1 VALUEZERO90*NOTEGO--PASS-F2-2A SECTION-NAMENC1024
5TO2
0500 NC1024
054300 061 PIC9                                         .2
054400     IF       GO-TO-DEEP EQUAL TO 2                               9 0 PIC VALUE800 PIC 99 ZERO.2
5               50java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
0050001WRK-NE-1PIC99907             P                                         .
054800     MOVE     GO-TO-DEEP TO000.2
054900     0NC1024
527P-COUNT2
050          " " TO.                       .2
.                                       .2
0010      FAIL.2
055400     MOVE11     2CPICTURE  SPACENC1024
0      .NC1024
055609014      GO  .                           00       .
0570 .                                                   00CPICTURE.
055800    IF       GO-TO-DEPEND EQUAL TO2GO GO--A-F2-4 GO--B-F2-407 ...2
055900              DEPENDING ON GO-TO-DEPEND ELSE GO TO GO--C-F2-4     010     010     MOVEV1-884GR3ANSI-REFERENCE               .2
056000              GO--E-F2-4 GO-TO-DEPENDNC1024
560 .                                                 .2
060       DE-LETENC1024
056300     GO05200     IF       EQUAL 2  TO GO--B-F2-3.2
056400GO--A-F2-4NC1024.2
056500     MOVE     1 TO GO-TO-DEEP.                                    NC1024.2
056600     GO       TO GO--F-F2-4012300 0  PERFORM4PICTURE ISS99V9.         NC1024
50.
0580          2  GO-TO-DEEP.2
59      TO.2
0
50          VALUE.2
057200     GO05200     MOVE1 TOPIC XVALUE.          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057300 GO--D-F2-4.                                                      NC1024.2
057400     MOVE     4 TO GO-TO-DEEP.                                    NC1024.2
0 .NC1024
057600 GO--E-F2-4.                                                      NC1024.2
570          5 TO.013100     02 FEATURE                  PIC X(20)  VALUE SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
580           TO.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
70 GO--F-F2-4.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0500              TONC1024
058100              PERFORM1360       3 FILLERPIC X19)  VALUE.          NC1024
80GO--FAIL-F2-4NC1024
058300     PERFORM  FAIL.                                               01400                             102                   () .          2
0     GO-TO-DEEPPIC                 2
5MOVE1     3 .
058600 GO--WRITE-F2-4.                                                  3COMPUTED-A X20  VALUE SPACENC1024
PAR-NAMENC1024
10 COMPUTED-A8.NC1024
058900*                                                                 NC1024.2
059000*                                                                 NC1024.2
1
059200     00 X0VALUE
3MOVE421 TO.2
0MOVE05     " "  .                       .2
0950GO--TEST-F2-5.2
5900GO100                         X(20)  .         NC1024
                                 2
9805            .                                    2
059900     PERFORM
060000     GO       TO GO--WRITE-F2-5.                                  NC1024.0601803FILLER X2  SPACENC1024580IFGO-TO-DEPEND EQUAL60    0COR-ANSI-REFERENCE(860     COR-ANSI-REFERENCE X(8  SPACE     NC1024
0 .NC1024
000MOVE .NC1024
06017400     02 FILLER                     PIC X(0)    VALUE.      NC1024700    0FILLERPIC(2)                 .2
060400 GO--B-F2-5.                                                      60GO70 )017600     02 FILLER                     PIC X        VALUE SPACE.                       X()VALUENC1024
060500     MOVE     2 TO GO-TO-DEEP.                                    NC102480                            X()VALUE.NC1024
060     TO                                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060700 GO--C-F2-5.                                                      NC1024.2
060800     MOVE     3 TO GO-TO-DEEP.                                    NC1024.2
690           TO.NC1024
60
0110java.lang.StringIndexOutOfBoundsException: Range [11, 7) out of bounds for length 80
06100PERFORM GO TO.                  08 1ERROR-HOLD99VALUE.       .2071          TO
600GO--FAIL-F2-5.2
40     PERFORM0                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0150     MOVE TO                           .2
061600     MOVE     2 TO CORRECT-N.                                     NC10244002FILLERPIC X(42)    VALUE             NC1024.2
670 GO--WRITE-F2-56 GO--E-F2-4.NC1024
"070100 .NC1024.2
061900     PERFORM.                                       2
062000*                                                                 NC1024.2
062100*                                                                 NC1024.2
8  GO GO--WRITE-F2-4
062300*==--> SINGLE PROCEDURE GO DEPENDING <--==                        NC1024.2
0620         "V1-8861. GR3"  TO.               NC1024
5    TO.
062600 GO--TEST-F2-6.                                                   85          5 TO.                                     .2
062700     GO TO   GO--PASS-F2-6 DEPENDING ON 570MOVE "060CCVS-H-2B.2
062800*    NOTE THAT GO--PASS-F2-6 IS A SECTION-NAME.                   NC1024.2
062900     GO TO   GO--FAIL-F2-6.                                       NC1024.2
00GO--DELETE-F2-6.50
01      DE-LETE.2
030     GO   GO--WRITE-F2-6NC1024
063300 GO--PASS-F2-619900   2  FILLER X(7)VALUE HIGH0520MOVE.14   .               NC1024
60GO--PAS-F2-6
063500     IF      GO-TO-DEEP0602PIC)VALUE
0360PERFORMNC1024
030010CCVS-H-32
30GO--FAIL-F2-6PICVALUE
21CCVS-H-2B
0000COBOL29 "java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
610      .                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2 .                                                  .2
60MOVEDEPENDING                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04 MOVE90FILLER4 SPACES
064500     PERFORM PRINT-DETAIL.                                        NC1024001CCVS-E-2java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064600*                                                                 NC1024.2
064700*                                                                 NC1024.2
0603     FILLER (3          PICVALUE
60     MOVE8   060400 GO--B-F2-5
065000*    ==--> OPTIONAL "TO"  <--==                                   NC1024.2
065100     21     2FILLERPIC)VALUE      .2
MOVE.NC1024
0653004     209     2.NC1024
0GO--C-F2-7
5                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065600 GO--DELETE-F2-7.                                                 04200FILLER.      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
NC1024
0650     TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
650 .                                                      .2
00", NATIONALINSTITUTE STD &TECH NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
61            TONC1024
                                NC1024704                      8    SPACE2
60MOVE.                                    .2
0640GO                   X0                  .2
650GO--C-F2-7NC1024
0660          3 TO.                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0        GO--D-F2-7.

6            GO-TO-DEEP.
70PERFORM  TO20         X8VALUE..
067100 0                       X(    SPACE.2
060600INF-ANSI-REFERENCE 09     "NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06730MOVE 04           IS) S"*************NC1024.2
670     MOVE2     ********** java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
067500 GO--WRITE-F2-70000 T ..2
66     " .NC10242
670       PRINT-DETAILNC1024
067800*                                                                 NC1024.2
067900*                                                                 NC1024.2
80 .                                                   .2
610MOVE 14"5 NC10242
60GOTO-TEST-F1-3
068300     GO P202770     GOTO CCVS1-EXITNC1024
.NC1024
050PERFORMNC1024  INSPT  2
068600     GO0850 PASS PASS8     .NC1024
0080          RUNNC1024
068800     PERFORM DE-LETE.                                             020MOVE*  RE-MARK
690     GOTO.                                       0DE-LETE *** 00  NC1024
NC1024
069100     PERFORM PASS.                                                NC1024900IF NOT EQUAL ZERO.2
6
9GOTO-TEST-F1-3
090      "GO NO OPTIONAL TO TOFEATURE .
90      PRINT-DETAILNC1024
660EXIT--INIT-GF-1NC10240*NC10249             BAIL-OUT-EX
0480GO--INIT-F2-7NC1024
08 4java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9      TO.                                    .2
0000 .                                                2
0701003000     MOVE  TO DUMMY-RECORD653 GO--TEST-F2-7-0NC1024.2
070200330MOVE TODUMMY-RECORD WRITE-LINETIMES40MOVE  TO  WRITE-LINE.  NC1024
070300 EXIT-CHECK-GF-1.                                                 0      CCVS-H-3TO. PERFORM360COLUMN-NAMES-ROUTINE.2
070400     EXIT.                                                        NC1024.2
07000EXIT-PASS-GF-10570PERFORM
  PASS.                                               .2
000 EXIT-WRITE-GF-1
0708     MOVE"TO..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070900     MOVEEXIT-TEST-GF-1TO370       TO.
0100PERFORM.                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
730MOVE CCVS-E-2-2.2
07120MOVE.04  TONC1024
071300     MOVE    11  TO60MOVE GO-TO-DEEP03300  END-ROUTINE-12NC1024
.
071500*    NOTE THIS TEST IS FOR OPTION 1 AND TESTS SIMPLE OUT OF       NC1024.2
071600*    LINE PERFORM.                                                NC1024.2
7PFM-ANC102470GO GO--D-F2-736          NO                                  NC1024
0100          PERFORM1 ""                              NC1024
071900             PERFORM PASS03300     PERFORM.                                          CCVS-E-2.
072000     ELSE                                                         700              PASSGO TO.                  NC1024002     IFISTONC1024
072100             06200PERFORM.                                               NC10240       INSPECT-COUNTERZERO.2
70GO TO.                                      .
0730 .                                                 0MOVE" .
0720      DE-LETE
072500 PFM-WRITE-F1-1.                                                  NC1024.2
00   DUMMY-RECORDNC1024
030     1TO.                                       .2
072800     PERFORM PRINT-DETAIL.                                        NC1024.2
072900069*NC1024
V1-111TO..2
70      java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 80
073200 035100     TOPERFORM 2TIMES2
073300*    NOTE THIS TEST IS DESIGNED TO TEST ENTERING A PROCEDURE      NC1024.2
073400*    IN LINE WHICH IS ALSO REFERENCED BY AN OUT OF LINE PERFORM.  NC1024.2
073500     GO TO    PFM-A.                                              NC10240CCVS-H-3PERFORMTIMES
0800GO.                                                       .2
30     PERFORM
073800     GO TO    PFM-WRITE-F1-2.                                     NC10243500MOVEZERO TO RECORD-COUNTNC1024
073900 PFM-A.                                                           NC1024.2
040            PERFORM-KEY.
074100              MOVE "ABC"060          COMPUTED-X EQUAL SPACENC1024
740    NC1024
730              "" TO.                             NC1024
06IF NOT  SPACE.2
074500             EQUAL 090MOVEFURTHER.  .   .2
074600              690 GOTO-WRITE-F1-37TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07800               TONC10243 .                                              .2
074900*    NOTE FOR PFM-TEST-F1-1 CONTROL SHOULD NOT BE TRANSFERRED     NC1024.2
075000*    TO THIS PARAGRAPH BUT FOR PFM-TEST-F1-2 IT SHOULD BE.        NC1024.2
075100     000     MOVE TO.                         .2
050               PASS.2
50ELSEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008200 BAIL-OUT-WRITE.                                                  COMPUTED-A  GO   NC1024
075500 PFM-WRITE-F1-2.                                                  NC10240332.                                                  NC1024
3ANSI-REFERENCE2
075700     MOVEMOVE TO. PERFORM0850 TO  WRITE-LINE   NC1024
075800    PERFORM PRINT-DETAILNC10242
090PFM-INIT-F2-1NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
NC1024.2
076100     MOVE  3 TO THREE.                                            NC1024.2
076200PFM-TEST-F2-1NC1024.2
076300     PERFORM PFM-C 3 TIMES.                                       NC1024.2
0740    ERFORM TIMESNC10242
076500*    NOTE THIS TEST IS FOR OPTION 2.                              NC1024.2
0760           PERFORM2 56                                 0930 GO--TEST-F1-1.2
70PERFORM0940 TO.                                      2
0760 NC1024
076900             PERFORM.                                        NC1024
077000     .                                                 0.                                                 .
077100 PFM-DELETE-F2-190      TO.                                     NC1024
077200     PERFORM400GO--PASS-F1-1NC1024
740 GO--PASS-F1-1NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
077400     MOVE   "PERFORM TIMES" TO 000 .                                                  0000java.lang.StringIndexOutOfBoundsException: Range [16, 12) out of bounds for length 80
70        "" TO.                          .2
0006 .                                                   .2
07000 .                                                   NC1024
077800     MOVE    "V1-111 6.200480 "GO--TEST-F2-10            ..
077900 PFM-TEST-F1-3.                                                   NC1024.2
01         40.
078100*    NOTE THIS TEST IS FOR A NESTED PERFORM WITH THE INCLUDED     NC1024.2
078200*    PERFORM TOTALLY INCLUDED IN THE SEQUENCE REFERENCED BY THE   NC1024.2
078300*    FIRST PERFORM - IT ALSO TESTS THE EXIT VERB AND PERFORM      NC1024.2
078400*    THRU.                                                        NC1024.2
078500     IF10              GO--Djava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
CORRECT-ANC1024
041800*    NOTE GO--TEST-F2-1042000*    NOTE INITIAL VALUE OF GO-TO-DEPEND IS ZERO.                  NC1024.2
078800              PERFORM0 TO                                              2
078900              GO TO PFM-WRITE-F1-3.                               NC1024.2
079000     IF       PERFORM4 EQUAL TO 70.0                              NC10240       DE-LETENC10242
079100              PERFORM PASS                                        NC1024.2
2                                                              .40MOVE .                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
079300MOVE0TO                              .2
079400                   PERFORM4 COMPUTED-NNC1024
079500              PERFORM FAIL.                                       NC1024.2
079600     GO TO.                                NC1024
079700 PFM-DELETE-F1-3.                                                 NC1024.2
079800     PERFORM  DE-LETE.                                            NC1024.2
079900 PFM-WRITE-F1-3.                                                  NC1024.2
080000MOVENESTEDTHRU FEATURE0TO.                                .2
080100     MOVE "PFM-TEST-F1-3" TO PAR-NAME04380070500 EXIT-PASS-GF-1.                                                 .2
080200     PERFORM.                                       NC1024
800 PFM-INIT-F1-4     GO-TO-DEPENDTO                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04700     MOVE TO                                      .2
080500 PFM-TEST-F1-4NC1024.2
080600     PERFORM  PFM-J4400      PASS.NC1024.2
080700*    NOTE THIS TEST IS FOR A NESTED PERFORM WITH THE INCLUDED     NC1024.2
080800*    PERFORM TOTALLY EXCLUDED FROM THE SEQUENCE REFERENCED BY     NC1024.2
080900*    THE FIRST PERFORM.                                           NC1024.2
--> --------------------

--> maximum size reached

--> --------------------

quality95%

¤ Dauer der Verarbeitung: 0.35 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.