Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/     Datei vom 4.1.2008 mit Größe 120 kB image not shown  

Quelle  nc102a.cob   Sprache: Cobol

 
000100 IDENTIFICATION001300*****001400*                                                              *  NC1024.2
00001600*                                                              *  NC1024.2
000300     NC102A.                                                      NC1024.2
000400                                                                  001900*        X-83  - OBJECT COMPUTER NAME002000*                                                              *  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.                                            NC1024.2
0020 SECTIONNC10242
002900 SOURCE-COMPUTER.                                                 NC1024.2
003000     Card0130.                                                    NC1024.2
003100 OBJECT-COMPUTER.                                                 NC1024.2
003200     Card0131.                                                    NC1024.2
003300 INPUT-OUTPUT SECTION.                                            NC1024.2
003400 FILE-CONTROL.                                                    NC1024.2
003500     SELECT PRINT-FILE ASSIGN TO                                  NC1024.2
6"" .                                                    2
003700 DATA DIVISION.                                                    .                                                   2
00FILE                                                    
003900 FD  PRINT-FILE20 SECTIONNC1024
004000 01  PRINT-REC PICTURE X040 1PERFORM3      5.                                NC1024
004100 01  DUMMY-RECORD PICTURE X(120).                                 NC1024.2
 .                                         .2
0030  PERFORM3 9    5.                                .2
04001WRK-XN-18-1 X(8.                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004500 01  WRK-AN-X-18-1, REDEFINES WRK-XN-18-1 PIC05800 1   PIC 99.                                         NC10242
004600 01  WRK-DU-X-18V0-1  REDEFINES WRK-XN-18-1 PIC 9(18).            NC1024.2
004700 01  WRK-DU-0V1-1 PIC V9 VALUE .3.                                NC1024.2
004800 01  WRK-DU-0V2-1 PIC V99 VALUE0 1WRK-DU-2V1-2 99.                                       .2
004900 01  WRK-DU-0V12-1 PIC V9(12) VALUE00400 1  WRK-DU-2V2-1PIC99V99VALUE54.                          NC1024
05000   PIC  ZERONC1024
005100 01  WRK-DU-1V1-1 PIC 9V9 VALUE 1.1.                              NC1024.2
05200 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 100670 1  WRK-DU-2V2-4 99V99 60.99.                          NC1024
00550 1  WRK-DU-1V5-1 9(5).                                     .2
0600  WRK-DU-1V17-1PIC(1)VALUE52559923.NC1024
005700 01  WRK-DU-2P6-1 PIC00    PICP49VALUE01                         .2
005800 01  WRK-DU-2V0-1 PIC 99.                                           96  99.                           .2
0   PICNC10242
006000 01  WRK-DU-2V0-3 PIC 99.                                         NC1024.2
006100 01  WRK-DU-2V1-1 PIC 99V9.                                       NC1024.2
006200 01  WRK-DU-2V1-2 PIC 99V9.                                       NC1024.2
006300 01  WRK-DU-2V1-3 PIC 99V9.                                       NC1024.2
006400 1  WRK-DU-2V2-1 9V99 1544                          .2
006500 01  09 1WRK-DS-2V0-1  VALUE.NC1024
006600 01  WRK-DU-2V2-3 PIC1  S99V9.NC1024
006700 01  WRK-DU-2V2-4 PIC 99V9900 1 WRK-DS-2V2-1  VALUEZERO.2
006800 0800   PIC VALUE23.NC1024
006900 01  WRK-DU-2V5-1001WRK-DS-16V2-1S9 VALUE999999999.      .2
0070  PIC-1)9.NC1024
007100 01  WRK-DU-5V1-1 PIC 9(5)V9 VALUE 1234080 1WRK-NE-1 PIC9/99,9999                           .2
007200 01  WRK-DU-6V0-1 PIC 9(6) VALUE 99999.                           NC1024.2
00 1WRK-DU-6V0-296)  99999                           .2
007400 01  WRK-DU-16V2-1 PIC 9(16)V99 VALUE 9999999999999999.99.        NC1024.2
050 1WRK-NE-X-116.9                                     .2
007600 01  WRK-DS-1V0-1 PIC S9 VALUE -3.                                NC1024.2
00770 1   PIC S9VALUE                                 .2
007800 01  WRK-DS-1V2-1 PIC S9V99 VALUE ZERO0900 ATWO-DS-01V00PICTURE S9NC1024
007900 01  WRK-DS-2V0-1 PIC0900                                   2.                        .2
008000 01  WRK-DS-2V1-1 PIC03077  THREEPICTURE  9 VALUE IS3  .2
008100 01  WRK-DS-2V2-1 PIC S99V99090 7WS-FOUR IS9VALUE4  .2
008200 01  WRK-DS-2V2-2 PIC S99V99900 7  XRAY                                IS             .2
008300 01  WRK-DS-16V2-1 PIC S9(16)V99 VALUE -9999999999999999.09700.                                                        .2
40   PIC9(69.NC1024
008500 01  WRK-NE-1 PIC .9999/99999,99999,99.                           NC1024.2
008600 01  WRK-NE-2 0100     2       X VALUE.                              NC1024
080001WRK-NE-3 $9.9CRNC1024.
008800 01  WRK-NE-4 PIC $*9.99 VALUE ZERO.                              NC1024.2
00907                    S99.2
009000 77  ATWO-DS-01V00                PICTURE S9                      0     PICTURE .                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0060            X VALUE                              .2
009200 77  P-COUNT000       X  SPACE.2
009300 77  THREE0JPICTURE SPACE.2
009400 77  WS-FOUR                            PICTURE IS 9 VALUE   .NC1024
97XRAY X.2
009600 77  ALTERLOOP                          PICTURE IS 9 VALUE IS     NC1024.2
009700     ZERO.                                                        NC1024.2
09800 01 NOTE-RECORDNC1024.2
009900     02 A     PICTURE X VALUE SPACE.                              NC1024.2
010000     02 B     PICTURE X VALUE SPACE.                              NC1024.2
010100     02 C     PICTURE X VALUE SPACE.                              NC1024.2
010200     02 D     PICTURE X VALUE SPACE.                              NC1024.2
010300     02 E     PICTURE X VALUE SPACE0160     0 GO-SCRIPT OCCURS8  PICTURE 9.                       .2
0101GO-TO-DEEPPICTURE  VALUE 1..2
010500     02 G     PICTURE X VALUE SPACE.                              NC1024.2
010600     02 H     PICTURE X VALUE SPACE.                              NC1024.2
010700     02 I     PICTURE X VALUE SPACE.                              NC1024.2
010800     02J     PICTUREX VALUE.                              NC1024.2
19002 PICTURE SPACENC1024
011000     02 L     PICTURE X VALUE120                            S99V9.2
110    0 M      X VALUENC1024
011200     02 N     PICTURE X VALUE SPACE.                              NC1024VALUE.                                               .2
01002O X VALUENC1024
011400     02 P     PICTURE X VALUE SPACE100  .                                                .2
011500 01  GO-TABLE.                                                    NC1024.2
011600     02 GO-SCRIPT OCCURS 8 TIMES PICTURE 9.                       120     0 FILLERPICX SPACE.2
01170 1GO-TO-DEPEND ISVALUE.NC1024
011800 01  GO-TO-DEEP                         PICTURE IS 9 VALUE IS 1.  NC1024.2
011900 01  PERFORM1                           PICTURE XXX.2
012000     VALUE IS SPACE.030     PAR-NAME.2
01210003603                  X1VALUE.          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012200     VALUE IS 20.                                                 NC1024.2
012300 01  PERFORM4                           PICTURE IS S99V9.         NC1024.2
020 1PERFORM5  999NC1024
012500     VALUE IS ZERO.                                               NC1024.2
012600 01  PERFORM-KEY14002                  PIC X61.NC1024
10 1PERFORM-HOLDNC1024
012800     02  TEST-LETTER OCCURS014200     02 FILLER               X0 SPACE.2
01900  .NC1024
013000     02 FILLER                   PIC X      VALUE SPACE.          NC1024.2
10FEATURE X) SPACE.2
013200     02 FILLER                   PIC X      VALUE SPACE.          NC1024.2
013300     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC1024.2
013400     02 FILLER                   PIC X      VALUE SPACE.          06              PIC) SPACE          .2
.2
013600       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1024 REDEFINES   PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07       PARDOT-X       SPACENC10242
013800       03 DOTVALUE               PIC 99     VALUE13 04COMPUTED-18V0 98.         .2
PICX8    SPACE.2
014000     02 RE-MARK                  PIC X(61)150    3FILLER X5)VALUESPACE.2
1100  .                                               .2
0400                    PICVALUE.NC1024
014300     02 FILLER                   PIC X(17)  VALUE       PICX) VALUE        " .
0144060003CORRECT-A                   X(20  SPACENC1024.
014500     02 COMPUTED-X01100     03CORRECT-N CORRECT-A -99.()      .2
014600     03 COMPUTED-A      REDEFINES      -(1)NC1024
0403COMPUTED-N COMPUTED-A.2
014800                                 PIC -9(9).9(9).                  NC1024  REDEFINES     PIC -(4.4.NC1024
01416004                      -9(8.NC1024
10     3RENCE700  .                                                    .2
015100     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1024120-    " PARAGRAPH-NAME NC1024.2
015200     03       CM-18V0 REDEFINES04002                      PIC0     SPACENC1024
015300         04 COMPUTED-18V0                    PIC -9(18).          NC10240                       VALUENC1024
015400         04 FILLER                           PIC X.               NC1024.2
015500     03 10     2FILLER X4      "FAIL".NC10242
015600 01  TEST-CORRECT.                                                NC1024.2
000  PIC)VALUE .                             NC1024
1800  PICX17  " CORRECT =".NC1024
015900     02 CORRECT-X1201REC-CT                        PIC9        ZERO.       NC1024.2
016000     03 CORRECT-A X(20)VALUE.         NC1024
016100     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC1024.2
016200     01840 01ERROR-COUNTER 999      VALUE.       NC1024
016300     03 CORRECT-4V14 REDEFINES0150 0  INSPECT-COUNTER 999VALUE.       .2
016400     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC1024.2
016000       REDEFINES CORRECT-ANC1024
016600         04 CORRECT-18V0                     PIC -9(18).          NC1024.2
0160004                             X.               .2
0180     0  PIC()  SPACE                              .2
016900     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1024.2
017000 01  CCVS-C-1.                                                    NC1024.2
017100     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1024.2
017200-    "SS PARAGRAPH-NAME NC1024.2
017300-    " REMARKS".                                            .                                                    .2
017400     02 FILLER                     PIC X(20)    VALUE SPACE.      NC1024.2
017500 01  CCVS-C-2.                                                    NC1024.2
017600     02 FILLER                     PIC X        VALUE SPACE.      NC1024.2
017700     02 FILLER                     PIC X(6)0900 FILLER X(   SPACENC1024
0178002FILLER X)VALUE.NC1024
017900     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1024.2
018000     02 FILLER                     PIC X(94)    VALUE SPACE.      NC1024.2
018100 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO00   2  FILLERPIC   VALUENC1024
018200 01  REC-CT                        PIC 99       VALUE ZERO.       NC1024.2
018300 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC1024.2
018400 01  ERROR-COUNTER                 PIC 900   2FILLER                         X)VALUE.      .2
018500 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1024.2
018600 01  PASS-COUNTER                  PIC000                              X1)VALUE.2
018700 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1024.2
8                        99VALUENC1024
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-1.                                                    NC1024.2
019300     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1024.2
0110  0                           X5)VALUE.2
150" COBOL COMPILER VALIDATION ".                 .2
019600     0                       X(39     SPACES     .2
019700 01  CCVS-H-2A.                                                   NC1024.2
019800   02  FILLER                        PIC X(40)  VALUE SPACE.      NC10242190     2  FILLERPIC(4  VALUE             NC1024
01990   02                         PICX7)   VALUECCVS85NC1024
020000   02  FILLER022300     02  FILLER                      (8               NC1024
020100     "4.2 ".                                                      NC1024.2
020200   02  FILLER                        PIC X(28)  VALUE             NC1024.2
020300            " COPY - NOT FOR DISTRIBUTION".                       NC1024.2
020400   02  FILLER                        PIC X(41)  VALUE SPACE.      NC1024.2
020500                                                                  NC1024.2
020600 01  CCVS-H-2B.                                                   NC1024.2
020700   02  FILLER                        PIC X(15)  VALUE             NC1024.2
020800            "TEST RESULT OF ".                                    NC1024.2
009002TEST-ID X9.                   .2
021000   02  FILLER                        PIC X(4)   VALUE             NC1024.2
021100            " IN ".                                               3003ERROR-TOTAL     VALUE.      NC1024
021200   02  FILLER                        PIC X(12)  VALUE             NC1024.2
021300     " HIGH ".                                              NC1024.2
021400   02  FILLER                        PIC X(22)  VALUE30   .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021500            " LEVEL VALIDATION FOR ".                             NC1024.2
20   2FILLER(8  NC1024
021700400                         ()VALUE .2
02100.                                                    .2
9      X)             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022000            " FOR OFFICIAL USE ONLY ".                         NC1024.2
022100     02  FILLER024900     02 FILLER                        "OF..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022200     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1024.2
022300     020510     2                         (0               NC1024
022400            " COPYRIGHT 1985 ".                                NC1024.2
050001.                                                    .2
022600     02 FILLER                       PIC X(52)  VALUE SPACE.500                        X(              NC1024
02700   PIC  IS ENDTEST-.2
022800     02 ID-AGAIN                     PIC X(9).                    NC1024.2
022900     02 FILLER5700                            PICX()VALUE.NC1024
023000 01  CCVS-E-2.                                                    NC1024.2
023100     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1024.2
023200     02  FILLER                      PIC X(21)  VALUE SPACE.      NC1024.2
023300     02 CCVS-E-2-2.                                               NC1024.2
023400         03 ERROR-TOTAL              PIC XXX    VALUE 03002FILLER ISVALUEIS.                          .2
023500         03 FILLER                   PIC60-"******************.NC10242
023600         03 ENDER-DESC               PIC X(44)  VALUE             NC1024.2
270" ENCOUNTERED".                                 NC1024
238001  CCVS-E-3
023900     02  FILLER                      PIC X(22)  060 1CCVS-PGM-ID X(9)VALUE.2
024000             FORUSENC1024
024100     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1024.2
024200     02  FILLER                      PIC X(58)  VALUE             NC1024.2
024300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1024.2
4002FILLER X(1)  VALUE.      .2
024500     02 FILLER                       PIC3          OUTPUT.NC1024
260              COPYRIGHT.NC10242
024700 01  CCVS-E-4.                                                    NC1024.2
2800                    PIC    VALUE.      NC1024
02490     2FILLERPIC() " OF".NC1024
025000     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1024.2
025100     2 FILLERPIC(4)VALUE.2
025200      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1024.2
025300 01  XXINFO.                                                      NC1024.2
05400     02FILLERPICX(9)  VALUE.2
025500            "*** INFORMATION ***".                                NC1024.070      END-ROUTINE END-ROUTINE-13.   NC1024
025600     02 INFO-TEXT.                                                NC1024.2
025700       04 FILLER                     PIC X(8)   VALUE SPACE.      NC1024.2
28004XXCOMPUTED X(20.NC1024
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
02620 1HYPHEN-LINENC10242
026300     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1024.2
4     () IS********2
026500-    "*****************************************".                 20.  MOVE P-OR-F .      NC1024
026600     02 FILLER  PIC IS X(54)    VALUE IS "************************NC1024.080 PRINT-DETAIL. NC1024.
02670-    "******************".                            .2
026800 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1024.2
026900     "NC102A".                                                    NC1024.2
027000 090MOVE  PRINT-REC.      .2
20 SECTION.2
027200 OPEN-FILES.                                                      NC1024.2
2           PRINT-FILE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027400     MOVE CCVS-PGM-ID TO TEST-ID. MOVE SPACE . MOVETO.              .2
027500     MOVE    SPACE TO TEST-RESULTS.                               NC1024.2
027600     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1024.2
027700     GO TO CCVS1-EXIT.                                            NC1024.2
20 .                                                     .2
0290PERFORM THRU  PRINT-FILE.2
028000 TERMINATE-CCVS00MOVE  TO. PERFORM 2 TIMES.2
01EXIT.                                                .2
20TERMINATE-CALL                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028300     STOP     RUN.                                                NC1024.2
028400 INSPT. MOVE "INSPT"3       TO  WRITE-LINEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028500 PASS.  MOVE "PASS 090MOVE DUMMY-RECORD.PERFORM . NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028600 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC1024.2
028700 DE-LETE.  MOVE "*****" 010END-RTN-EXITNC1024.2
028800     MOVE "****TEST DELETED****" TO RE-MARK.                      .2
20 .                                                    
029000     IF REC-CT NOT0.   TO               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029100             MOVE "." TO PARDOT-X031800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD39 PASS-COUNTER.                            
20              REC-CT .                             NC1024
23 MOVE TOPRINT-REC.PERFORM WRITE-LINE.2
0294030.                                                 
029500        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1024.35       ERROR-COUNTER ZERO
090ELSE   BAIL-OUT-EX                 .2
029700     MOVE SPACE TO P-OR-F. MOVE SPACE32700         ELSE                                                     NC1024.2
029800     MOVE SPACE TO CORRECT-X.                                     NC1024.2
090          REC-CTTO  MOVE  TOPAR-NAME.2
030000     MOVE     SPACE TOEND-ROUTINE-13NC1024
0.                                                    
030200     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1024.2
030300     MOVE CCVS-H-2A TO DUMMY-RECORD0 "() .java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
0  TO  3 TIMES.
030500     MOVE CCVS-H-3  TO DUMMY-RECORD NO ERROR-TOTAL.2
030600 COLUMN-NAMES-ROUTINE.                                            NC1024.2
030700     MOVE CCVS-C-1 TO30       "( ENDER-DESC.NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030800     040MOVE  DUMMY-RECORD.           .2
9 HYPHEN-LINE. PERFORM        .2
0.                                                     
031100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMESMOVE TO                           NC1024
031200 END-RTN-EXIT.                                                    NC1024.2
031300     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1024.2
031400 300          CCVS-H-2A  PERFORM 2 TIMES.2
0150       ERROR-COUNTER ERROR-HOLD TO.2
031600      ERROR-HOLD03200MOVE  TO DUMMY-RECORD WRT-LN   .2
370ADD TO.NC1024
031800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1024.2
050          CCVS-C-2   PERFORMWRT-LN           .2
03200       ERROR-HOLD CCVS-E-4-2                              .2
0310      MOVE TO.                                .2
0200MOVE TO PERFORMWRITE-LINE           .2
032300  END-ROUTINE-12080P WRT-LN                                              .
3240      MOVETEST) FAILED ENDER-DESC.                        .2
03500     IF       ERROR-COUNTERIS TO ZERONC1024
032600         MOVE "NO " TO ERROR-TOTAL                                NC1024.2
03200         ELSENC1024.2
032800         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1024.2
032900     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC1024.2
0300      WRITE-LINE                                          .2
033100 END-ROUTINE-13.                                                  NC1024.2
033200IF IS  TO                           NC1024
033300         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1024.2
033400         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1024.2
033500     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1024.2
033600     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1024.2
033700        INSPECT-COUNTERTO ZERO.2
033800          MOVE "NO " TO ERROR-TOTAL                               NC1024.2
033900      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1024.2
034000      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1024.2
034100      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC1024.2
034200     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1024.2
034300 WRITE-LINE.                                                      NC1024.2
034400     ADD 1 TO RECORD-COUNT.                                       NC1024.2
034500     IF RECORD-COUNT GREATER 42                                   NC1024.2
034600         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1024.2
0470          SPACETO                               NC1024
0760MOVE TO PRINT-REC  2 TIMES.2
0770MOVE TOCOR-ANSI-REFERENCENC1024
035000         MOVE CCVS-H-2A TO 07 . EXIT                                           2
035100         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 03790 BAIL-OUTNC1024.2
035200         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN80          COMPUTED-ANOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC10242
3530         MOVE   TODUMMY-RECORD WRT-LN.2
035400         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           NC1024.2
035500         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC1024.2
350          DUMMY-HOLD DUMMY-RECORDNC1024.2
035700         MOVE ZERO TO RECORD-COUNT.                               NC1024.2
                                    NC1024.2
035903850 MOVE TO DUMMY-RECORD WRITE-LINE.   NC1024
03600    WRITE AFTER ADVANCING1.               NC1024
0310MOVE TO.                                  .2
036200 BLANK-LINE-PRINT.                                                NC1024.2
036300     PERFORM WRT-LN.                                              NC1024.2
036400 FAIL-ROUTINE.                                                    NC1024.2
036500     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC1024.2
036600            GO03920         "V1-88 .4. "  TOANSI-REFERENCE.               NC1024.2
036700          CORRECT-XNOT TOSPACE TO.NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060         TONC1024
390      "NOFURTHERINFORMATION,SEE PROGRAM." TOINFO-TEXT   NC1024
INFOTO.  WRITE-LINETIMES   .2
037100     MOVE.                                            .2
GO  FAIL-ROUTINE-EX.                                      .2
037300 FAIL-ROUTINE-WRITE.                                              NC1024.2
037400     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM 04000 GO--PASS-F1-1.                                                   2
037500     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1024.2
037600     MOVE   TEST-CORRECT TO PRINT-REC PERFORM040      " TO" FEATURENC1024
037700     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC1024.2
037800 FAIL-ROUTINE-EX. EXIT.                                           NC1024.2
037900 BAIL-OUT.                                                        NC1024.2
038000          COMPUTED-ANOT EQUALTO GO TO.   NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03810          CORRECT-A TO GO TOBAIL-OUT-EXNC1024
038200 BAIL-OUT-WRITE.                                                  NC1024.2
038300     MOVE CORRECT-A TO00800     MOVEGO--TEST-F2-1 PAR-NAME.                         .2
03800MOVE TO INF-ANSI-REFERENCENC1024
038500     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE400      "GOTO DEPENDING"TO.                           NC1024
038600     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1024.2
038700 BAIL-OUT-EX. EXIT.                                               NC1024.2
038800 CCVS1-EXIT.                                                      NC1024.2
03800EXIT                                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039000 SECT-NC102A-001 SECTION.                                         NC1024.2
390 GO--INIT-F1-1.                                                   .2
039200    MOVE    "V1-88 .1. GR1 TOANSI-REFERENCE.NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039300 GO--TEST-F1-1.                                                   NC1024.2
039400     GO TO    GO--PASS-F1-1.                                      NC10240GO    GO--ANC1024
039500     PERFORM  FAIL.                                               NC1024.2
039600     GO TO    GO--WRITE-F1-1.                                     NC1024.2
039700 GO--DELETE-F1-1.                                                 NC1024.2
039800     PERFORM  DE-LETE.                                            NC1024.2
039900     GO TO    GO--WRITE-F1-1.                                     NC1024.2
040000 GO--PASS-F1-1.                                                   NC1024.2
040100PERFORM.                                               NC1024.2
040200 GO--WRITE-F1-1NC1024.2
040300     MOVE "GO TO " TO FEATURE.                                    NC1024.2
04040      "GO--TEST-F1-1" TO.                            NC1024
040500     PERFORM  PRINT-DETAIL.                                       NC1024.2
04000 GO--INIT-F2-1NC1024.2
040700     MOVE    "V1-88 6.14.4 GR3"  TO ANSI-REFERENCE.               NC1024.2
0080     MOVEGO--TEST-F2-1TO PAR-NAME.                         .2
040900     MOVE     SPACE TO P-OR-F430GOTO.                                        .2
041000     MOVE "GO TO DEPENDING" TO FEATURE.                           NC1024.2
0110MOVE  GO-TO-DEPEND.                                     NC1024.2
041200 GO--TEST-F2-1.                                                   NC1024.2
041300     PERFORM  PRINT-DETAIL.                                       NC1024.2
041400     MOVE     SPACE TO FEATURE.                                   NC1024.2
041500     GO TO043800*    EQUAL TO 0, 4.                                               NC1024.2
041600              GO--D                                               NC1024.2
04170               DEPENDING ON.                    NC1024
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
042100     GO TO    GO--A.                                              30MOVE GO-TO-DEPENDNC1024
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
48             EQUAL 0NC1024
042900              PERFORM PASS                                        NC1024.2
043000              ADD 1 TO GO-TO-DEPEND                               NC1024.2
043100              GO TO GO--TEST-F2-1.                                NC1024.2
0420IF GREATER 3NC1024
043300              GO TO GO--E.                                        NC1024.2
043400     PERFORM  FAIL                                                NC1024.2
043500              MOVE 1 TO50 TO                                      2
043600              GO 050 GO--DNC1024
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.                                                                                                    .2
044000     MOVE "GO--B" TO PAR-NAME.                                    NC1024.2
044100     IF       GO-TO-DEPEND NOT EQUAL460            GO-TO-DEPEND.2
0420PERFORM                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044300              MOVE 3 TO GO-TO-DEPEND                              NC1024
044400              GO TO GO--TEST-F2-1.                                NC1024.2
044500     PERFORM  PASS.                                               NC1024.2
044070GO GO--WRITE-F2-1000800*                                                              *  NC1024
044700     GO70GO--WRITE-F2-1NC1024
044800 GO--C.                                                           040  .                                       2
40      "GO--C TOPAR-NAME2
045000     IF       GO-TO-DEPEND NOT EQUAL TO460GO--TEST-F1-2NC1024
41 PERFORM                                        .2
045200              MOVE 2 TO GO-TO-DEPEND                              NC1024.
045300              GO TO GO--TEST-F2-1002300*    THIS PROGRAM.                                                 STATEMENT  2 THE AND.2
045400     PERFORM  PASS.                                               NC1024 SECTION.2
04550     SUBTRACT GO-TO-DEPENDNC1024
0460      TOGO--TEST-F2-1.                                      NC1024
045700 GO--D.                                                           NC1024.03000                                                  04                                                     .
045800     MOVE "GO--D049100* NC1024.2
045900     IF       GO-TO-DEPEND0492000400DUMMY-RECORD()                                 .2
60PERFORM                                        0 .                                         00PROGRAM-IDNC1024" 14 TO .NC10242
4070*VALIDATION*  .2
046200              460004500 01  WRK-AN-X-PIC             .2
43       .010                                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4640             GO-TO-DEPEND010**  NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
450GO0*                                                             *NC1024
460GO--ENC1024
046700     MOVE "002000* * NC1024.2
460     IF EQUAL 0020*                                                                 .2
0469050050*THE.                                        50 .                                             
047000              GO TO GO--WRITE-F2-1.                               NC1024.2
047100     PERFORM  FAIL.                                               0310OBJECT-COMPUTERNC1024PERFORM                                         2
047200 0004.NC102430SELECT ASSIGN TO.2
047300     PERFORM  PRINT-DETAIL0DATA.01MOVE.NC1024
0474 .                                                   
400PRINT-RECNC1024
710 GO--TEST-F2-2                            .
470GO    GO--PASS-F1-2NC1024
047800*    NOTE THAT GO--PASS-F1-2 IS A SECTION-NAME.                   NC1024.2
047900     PERFORM580MOVE .. " .NC10242
053004 1java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80
0410 .                                                  .05 19(.N.2
..2
0430GO   GO--WRITE-F1-2NC1024
048400 GO--PASS-F1-2 0   PICVALUENC1024java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
045019 VALUE2
460PERFORM.                                                2 1java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
048700 GO--WRITE-F1-2.                                                  5 1 PIC ICjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048800     00 00   PIC .2
" TO PAR-NAME. NC1024.2
049000     007000 01  WRK-DU-4P1-149.00.                        NC1024
049100*                                                                 NC1024.2
049200*                                                                 NC1024.2
0430GO--INIT-F2-2NC1024.2
04067 1WRK-DU-2V2-4 VALUE9                          
0070 1WRK-DS-1V0-1 VALUE2
0960GO--TEST-F2-2NC1024
090     GOTO070     S9V99.                           
0498000080030     TO.2
049900*    NOTE THAT GO--PASS-F2-2 IS A SECTION-NAME.                   NC1024.2
0     GOGO--FAIL-F2-2.2
510GO--DELETE-F2-2.2
0520ERFORM
050300     GO TO   GO--WRITE-F2-2.001 PIC9CR01WRK-DS-1V2-1 ZERO
00900 7ATWO-DS-01V00 S9NC1024
005 .                                                    .2
566                                                   
00PERFORMNC1024
0580GO GO--WRITE-F2-2NC1024
.                                                   0  WRK-DS-02V00 S99.2
00980 0  .0509076.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1    NT-DETAIL
1     .NC10240            XVALUENC1024
051300 GO--WRITE-F2-2.                                                  096002      X SPACE
54      "TO"TO00     XVALUE
550MOVE"010700 02 I PICTURE X VA SPACE .
5600           X  SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1 .                                                   
0MOVE 64   ANSI-REFERENCE
5     NC1024
052000     MOVE    2 TO                DEPENDING.2
                                           
2IFGO-TO-DEPEND TOGO GO--A-F2-3  NC1024
ONGO NC1024
540GO--D-F2-3 GO-TO-DEPEND.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052500.                                                 .2
20      DE-LETE
00java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0      IS.                                              0  .                                                0GO--C-F2-4
9     TO2
30       .                                      
053100 GO--B-F2-3001PERFORM-KEY ISNC1024
NC1024
5010070GO                                      
0534000 .NC1024
05350770MOVE GO-TO-DEEP.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0530     70GOGO--F-F2-42
053700 GO--D-F2-3.                                                      30     2FILLER 030        PIC99    ZERO                                                      
05304200FILLER X3)VALUENC1024
                           0     PICNC1024
054000 14100 01  TEST-COMPUTEDNC1024
5040"=.NC10242
10     2FILLER()VALUE
50GO--F-F2-3
054400     180PIC999                  NC1024
550PERFORM  TO.NC1024REDEFINES2
054600 GO--FAIL-F2-3.                                                   NC1024.2
054700     PERFORM  FAIL.                                               NC1024.2
048          GO-TO-DEEP.                           .2
054900     MOVE150 1TEST-CORRECT50                                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                                   NC1024
50OVEPAR-NAME
05500      PRINT-DETAIL.                                       NC1024.2
06     0600CORRECT-A SPACE
055400     MOVE    "1 CORRECT-0V18 059700 GO-SCRIPT (7). .2
5     TO
56006     03     REDEFINES                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05570 GO--TEST-F2-4         FILLERNC1024
050            GO-TO-DEPEND9               X003java.lang.StringIndexOutOfBoundsException: Range [45, 32) out of bounds for length 80
500                                                      
000017300-    "       REMARKS
             2
0560       DE-LETE2
0530            TO                     (VALUE
0540.                                                      
0560 1REC-SKL-SUB) .       NC1024
060        .NC1024
057 ...2
0       GO-TO-DEEP.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1 TOTAL-ERROR 9       ZERO 90.2
0500.                                                                        9  .       .
50  ..2
057200     GO GO--F-F2-4                                      NC1024
0570 GO--D-F2-42
057400     MOVE     4 TO GO-TO-DEEP.                                    NC1024020 0CCVS-H-1MOVE .NC1024
0700     GOTO.                                      NC1024
5GO--E-F2-4.2
091 NC1024
.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057900170 1CCVS-H-2A.2
058000     062100*                                                                 NC1024.2
50              PASS                  .2
NC1024
0530      FAILNC102440MOVE .44GR3 ANSI-REFERENCENC1024.2
058400     000             COPY                       60     1 GO-TO-DEEP2
0550MOVE CORRECT-NNC1024
058600 GO--WRITE-F2-4.                                                  NC1024.2
080          "GO--TEST-F2-4000CCVS-H-2B.NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058800     PERFORM  PRINT-DETAIL8            TEST                                    .2
058900*                                                                 NC1024.2
059000*                                                                 NC1024.2
059100 GO--INIT-F2-5.                                                   6300     PERFORM.                                             NC1024
5    61.GR32
0     "631 206400GO--PAS-F2-6. NC1024.2
9200FILLER5) .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059500 GO--TEST-F2-56723001   CCVS-H-3.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059600     GO       TO20500020500                                                                  020020906  CCVS-H-2B
0 (7.040PERFORMNC1024.                                                    
059800 GO--DELETE-F2-5.                                                 00                          PIC)             NC1024
059900     PERFORM00                          40   "09 PICX5 SPACES..2
0    TO.
060100 GO--A-F2-5.                                                      NC10240CCVS-E-2-200             OFFICIAL
060200     MOVE     1 TO3         FILLER 02"8VERSION2Apr 193 ..2
06030030" ENCOUNTERED".NC1024
.                                                     
0600          2 TO.                                    .2
600            TO.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.NC1024
060800     MOVE2                       64  GO--B-F2-7NC1024
00                                        
061000 080                   PIC     SPACE                        PIC .NC1024
061100     IF       025100     02 FILLER  0                  2
061200PERFORM3                       ()VALUE     TO.2
009 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061400     PERFORM  02FILLERPIC 20"INFORMATION*.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10      TO.2
061600     MOVE     2                  X0..2
061700 GO--WRITE-F2-5.                                                  NC1024.2
0100     MOVE"00 X)" .NC1024
090PERFORM                                       .2
062000*                                                                 NC1024.2
062100*                                                                 NC1024.2
.NC1024EQUALNC1024
062300*==--> SINGLE PROCEDURE GO DEPENDING <--==                        NC1024.2
062400     MOVE5800                  PIC)NC1024
06250000                         X0..2
66 .                                                   1                                                 
062700     GO TO    DEPENDING  GO-TO-DEEPMOVE2 .                                     .2
062800*    NOTE THAT GO--PASS-F2-6 IS A SECTION-NAME.                   NC1024.2
9      NC1024
0081CCVS-PGM-ID          GO--TEST-F2-7java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0620  .NC1024
06320G    GO--WRITE-F2-6.2
.2
063423          OUTPUTNC1024GO--INIT-F1-3.java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
3     GO-TO-DEEP
063600             PERFORM PASS07         02 .                                                 
NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063800 GO--FAIL-F2-6.                                                   290PERFORM THRU. CLOSEPRINT-FILE      .                                                .08 .MOVEP-OR-Fjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080INSPTP-OR-F.         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0640000260 FAIL9PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
6      .2
0620 GO--WRITE-F2-6.2
06430      " TO " TO.080PRINT-DETAIL.                                                   .2
0220              REC-CT.                             .2
064500     PERFORM PRINT-DETAIL.                                                 FAIL-ROUTINE90     TEST-RESULTS WRITE-LINE     "" PAR-NAME
064600*                                                                 NC1024.2
064700*                                                                 NC1024.2
60 .                                                   .2
690MOVE.. "TOANSI-REFERENCENC10242
065000*    ==--> OPTIONAL "TO"  <--==                                   NC1024.2
06506900GO    EXIT-CHECK-GF-1NC1024
065200300MOVE0          SPACE.                                   .
050GO--TEST-F2-7-0java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065400     GO      GO--A-F2-7   TO  DUMMY-RECORDTIMES
000 .                                            2
60 .                                                 
60  .NC10240END-ROUTINENC1024
065800     070600     PERFORMNC1024
5.                                                      ..2
066000     MOVE     1 TO GO-TO-DEEP.                                    NC1024. ADD TO.NC10240MOVE TO. PERFORM2.   NC1024 ""  PAR-NAME .NC1024
60101      CCVS-E-4
06630MOVE CCVS-E-4-2
3MOVE GO-TO-DEEPjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60        GO--D-F2-7
0010*NOTE OPTION  OUTNC1024
60          3  GO-TO-DEEP.2
0660            TO06MOVETO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60GO--D-F2-7NC1024
066900     IF       GO-TO-DEEP00MOVE .                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0600 PERFORM GO GO--WRITE-F2-7.03     DELETE-COUNTER                           .
070 GO--FAIL-F2-7NC1024
70       FAIL30    TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2     GO   PFM-WRITE-F1-1.
067400     MOVE20PFM-DELETE-F1-1           NO.
0030ELSE  TO20 034100      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          
067600     MOVEWRITE-LINE CCVS-E-2 .          .
03440     ADD1TO.                                       NC1024
067800*                                                                 NC1024.2
067900*                                                                 NC1024.2
00WRITE3901 .NC1024
610         " 6.1. "  TONC1024
068200 GOTO-TEST-F1-3.                                                  NC1024   TOPERFORM    NC1024073300*    NOTE0MOVE 30          CCVS-C-1            .2
63      P2NC10245050  TONC1024
068400 GOTO-FAIL-F1-3.                                                  
5java.lang.StringIndexOutOfBoundsException: Range [18, 16) out of bounds for length 80
2
060 .                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
068800     PERFORM DE-LETE30020                                                         
068900     GO TO.                                       .
NC1024   130  NO, . INFO-TEXT
     PASS
090GOTO-WRITE-F1-3FAIL-ROUTINE-EX2
069300     6     MOVEINFORMATION INFO-TEXT
0640      "GO-NOOPTIONAL " TO  INF-ANSI-REFERENCE               PRINT-DETAIL
06950070 MOVE TOGO.                                2
069600 EXIT--INIT-GF-1.                                                 70MOVE TO77                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06970         " 6.3 .00 03NC10242
0900 .                                                  .2
069900     GO TO    EXIT-CHECK-GF-1.                                    NC1024      EQUAL  GO BAIL-OUT-EX
7 .                                                .2
0701000.2
070200     GO TO    EXIT-WRITE-GF-1.070200     GO TO    EXIT-WRITE-GF-1.                                    0.                                                      
3.NC1024
04     .                                                        .
.NC1024043800*    EQUAL TO 0, 4.                                               NC1024.30GO--BNC1024
0760PERFORM.03 .01NOTNC1024
770EXIT-WRITE-GF-1.2
8     "" .NC1024
070900     MOVE "EXIT-TEST-GF-1" TO.                                                   
071000     PERFORM PRINT-DETAIL.                                        NC10240460     ADD0870     THIS 00TO2
0711048 .                                                           
70MOVE2.GR10       NOT                         .
0730 MOVE PERFORM-KEYNC1024
071400 PFM-TEST-F1-1.                                                   
045400     PERFORM  PASS.                                               NC1024.2
071600*    LINE PERFORM.                                                NC1024.2
071700     PERFORM PFM-A0 .                                                           .2
780IF EQUAL TO 00 GO--DNC1024
.2
700                                                             NC1024.2
072100             PERFORM FAIL.                                        NC1024.2
0720440             GO-TO-DEPENDNC1024 .NC1024
072300 PFM-DELETE-F1-1.                                                 0 GO    GO--TEST-F2-1NC1024
020PERFORM                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
072500 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
6       ""  FEATURENC1024
072700     MOVE  "PFM-TEST-F1-1" TO0720GO--WRITE-F2-1NC1024.2
07200PERFORMNC1024
072900 PFM-INIT-F1-2.                                                   0730PERFORM.                                       .2
3    " 6.20.4GR10" ANSI-REFERENCENC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0730047900       FAILNC1024
7320080     THAT ASECTION-NAMENC1024
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.                                              NC1024400      TO.                                     .2
760.NC10242
PERFORM.                                            .2
70 TO.                                     .2
073900 PFM-A.                                                           NC1024.2
074000     IF       PERFORM-KEY EQUAL TO 1                              NC1024.2
074100              MOVE "460 PASS. NC1024.
074200     ELSE                                                         NC1024.2
4MOVEPERFORM1java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
074400 PFM-B.                                                           NC1024.2
074500     IF       PERFORM-KEY EQUAL TO 1                              NC1024.2
074600              PERFORM FAIL                                        NC1024.2
074700              490         1 TO.                                     NC1024
074800              GO TO PFM-TEST-F1-2.                                NC1024.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
07510            PERFORM1 ""                             .2
075200              PERFORM00GO   GO--FAIL-F2-2NC1024
7500ELSENC1024.2
075400              PERFORM FAIL.                                       NC1024.2
05 .                                                    .2
075600     000              PASS CORRECT-N
770 ""  PAR-NAMEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
075800 FAIL.2
07590 .                                                   .20100GO--WRITE-F2-2NC10242
7600     MOVE 62."TO .50 GOTODEPENDING"TONC1024
0765      "GO--TEST-F2-2"  .                            NC1024
076200 PFM-TEST-F2-1
     PFM-C.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
076400     PERFORM PFM-CGO--D-F2-3 GO--E-F2-3NC1024
076500*    NOTE THIS TEST IS FOR OPTION 2.                              NC1024.2
0760560       DE-LETENC10242
076700              PASS070            OGO--WRITE-F2-3NC1024.
7600ELSENC10242
0690.                                        .2
077000     GO TO   PFM-WRITE-F2-1050590MOVE GO-TO-DEEP.2
0100PFM-DELETE-F2-10       DE-LETE.2
0720      DE-LETENC1024
0778 .                                                      
077400     MOVE   "PERFORM TIMESNC1024.2
077500     MOVE   "PFM-TEST-F2-1" TO PAR-NAME030     -3.                                                      2
077600     PERFORM PRINT-DETAIL.                                        NC1024.2
077.                                                   004TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0    "3 NC10242
7PFM-TEST-F1-34.                                                      
00 PFM-Ejava.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
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     
0 ..
078700              MOVE.                                                   .2
078800              PERFORM FAIL                                        NC1024.2
80GO.                               
079000     IF       PERFORM4 EQUAL TO 70.0                              NC1024.2
079100              PERFORM PASS                                        NC1024.2
079200              ELSE                                                .2
079300              MOVE 70.0 TO CORRECT-N                              NC1024.2
090                   PERFORM4 COMPUTED-N.2
05               FAIL.2
079060 .                                                     NC1024
0790 .                                                 
079800     PERFORM  DE-LETE.2
079900 PFM-WRITE-F1-3.                                                  NC102460     1TO.NC1024      GO-TO-DEEP.
08      GO-TO-DEEP
080100     MOVE080GO .                                      0                                                      
0  .                                       .2
080300 PFM-INIT-F1-4TO2
84         " 62. "   ANSI-REFERENCEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
08MOVENC1024
080600     PERFORM             EQUAL                                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

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

94%


¤ Dauer der Verarbeitung: 0.37 Sekunden  ¤

*© Formatika GbR, Deutschland




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.