Quelle nc102a.cob Sprache: Cobol

0 .NC1024
000200 PROGRAM-ID.                                                      NC1024.2
00     .
040NC1024.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
047300     PERFORM  PRINT-DETAIL.                                       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   .
0SECTION
002900 SOURCE-COMPUTER.                                                 NC1024.2
003000     Card01300 1 FROM.                                .2
030OBJECT-COMPUTERNC102450GO    GO--TEST-F2-1                                      .2
003200     Card0131.                                                    NC1024.2
03040..2
0300FILE-CONTROL.NC10242
003500     SELECT8""  FEATURE.
003600     "C0085" .                                                    NC1024.2
003700 DATA DIVISION.                                                   NC1024.2
4      .                                        .2
003900 FD  PRINT-FILE.                                                  NC1024.2
004000 01  PRINT-REC PICTURE X(120).                                    NC1024.2
010 1   PICTURE X120.                                 NC1024
004200 WORKING-STORAGE SECTION.                                         NC1024.2
004300 01  PERFORM3    PIC 9    VALUE 04000               FAIL0010 IDENTIFICATIONDIVISIONNC1024.                                                      MOVE"TOANSI-REFERENCE.
004400 01  WRK-XN-18-1 PIC X(060000*     FOR:-                                          NC1024
, REDEFINES  A(8.NC1024
004600 01  WRK-DU-X-18V0-1  REDEFINES WRK-XN-18-1 PIC 9(18).            90      TO                                        00*ON-SITE   TECH PASS000**  NC1024
004700 01  WRK-DU-0V1-1 PIC V9040ADD2TO.                                  040                                                              .2
004800 01  WRK-DU-0V2-1 PIC V99 VALUE .25.                              001800*        X-82  060 .                                                           .2
004900 01  WRK-DU-0V12-1 PIC V9(12) VALUE .00001.                       NC1024.2
DU-1V0-1 PIC 9 VALUE.                               .2
0100200*    "EXIT" STATEMENTNC10240PERFORMNC1024
005200 01  WRK-DU-1V1-2 002600*                                                                 NC1024.2000      TO.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000    PIC.NC1024
005400 01  WRK-DU-1V3-205   , REDEFINES         2 TO                                   .2
050001   PIC V9
050 1  WRK-DU-1V17-1 9V9)VALUE11526535899323.NC10242
00480 1WRK-DU-0V2-15200IF0NC1024
005800 01  WRK-DU-2V0-1 PIC 99.                                         NC1024.2
005900 01  WRK-DU-2V0-2 PIC00400 0  WRK-DU-0V12-1 V92)VALUE .001                       .2
00000   PIC9.NC1024.2
061001WRK-DU-2V1-1 9V9NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006200 01  WRK-DU-2V1-2 PIC 99V9550 GO--DELETE-F2-30101PIC
01 PIC80      PASSNC1024500 0   PIC9 VALUE4.NC1024
0500   PIC9 VALUE01                          050            TO.
0500  P 99 VALUE..NC1024
006600 01  WRK-DU-2V2-320          1 TO.                                    050 1WRK-DU-1V17-1 V9 314523933         .
060 0  WRK-DU-2V2-4 99 VALUE1WRK-DU-2V0-1 9.NC10242
00800 0091PIC.
006900 01  048900     MOVE "GO--TEST-F1-2java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
PICVALUE.
00750MOVE.NC102421 PICV9NC1024
0049100*                                                                 001 PIC        .                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007300 01  WRK-DU-6V0-2070    99V9909.
007400 01  WRK-DU-16V2-19V99VALUENC1024
0500   PIC99)NC1024
07600  PIC-NC1024
007700 01  WRK-DS-1V0-2 PIC S9 VALUE40 .                                                   .2
000PIC VALUE.2
007900 01  WRK-DS-2V0-1 PIC S9900WRK-DU-6V0-26VALUE8          GO-TO-DEEP
5       .
00     S99V99490   THAT  SECTION-NAME.2
008200 01  WRK-DS-2V2-2 PIC S99V99 VALUE -12.34.                        NC1024.2
030   000    .NC1024
008400 01  WRK-NE-X-2 PIC -9(16).99.                                    NC1024.2
008500 01  WRK-NE-100  WRK-DS-1V0-2 S9 VALUENC10240PDE-LETENC1024
0800 0  WRK-NE-2 $**.99.                                         NC1024
0070 0  WRK-NE-3 $99.99.                                       00    PICS9V99.NC1024
0080 1WRK-NE-4*99VALUENC1024
008900 77  WRK-DS-02V00                 PICTURE S99.                    NC1024.2
007                  PICTURES9                      .2
00910                                   2.                        .2
00900820001  WRK-DS-2V2-2PIC VALUE -12.34.                        .2
0030 7                              PICTURE 9VALUE40GO--FAIL-F2-3.2
009400 77  WS-FOUR                            PICTURE IS 9 VALUE IS 4.  NC1024.2
009500 77  XRAY800   PIC $*.9                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0960 750 GO--FAIL-F2-2
.
001NOTE-RECORD00PICTURE                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009900     02 A     PICTURE X VALUE SPACE.                              NC1024.2
0100002 BPICTURE VALUE SPACE.                              .2
010100      PICTURE XVALUE.                              .2
120     0 DPICTURE VALUE                              .2
010002 E      X VALUE                              2
01040     02F     X VALUE.                              .2
102GPICTURESPACENC1024
010600     02 H     PICTURE X VALUE SPACE.                              NC1024.2
LUENC1024
010800     02 J     PICTURE50 GO--TEST-F2-4NC10241     2C      X VALUENC1024
190     2 K    PICTUREVALUESPACENC1024
011000     02 L     PICTURE X VALUE SPACE.                              NC1024.2
0100C1024
011200     02 N     PICTURE00 PICTURESPACE.
0130     008         " .1. GR3"TO.NC1024
011400     02 P     10000  PICTURE SPACE10     MOVE  GO-TO-DEEP.2
011500 01  GO-TABLE.                                                    NC1024.2
01160000    2J     PICTURE  SPACE.                              .2
011700 01  GO-TO-DEPEND                       PICTURE000 L     052100 GO--TEST-F2-3.        .2
011800 01  GO-TO-DEEP                         PICTURE IS 9 VALUE IS 1.  NC1024.2
10 1  PERFORM1 IS             NC1024
012000     VALUE IS SPACE130     2OPICTURE   ELSE  TOGO--C-F2-3
0120001                            020             GO--E-F2-3.       NC10242
012200     VALUE IS 20.                                                 NC1024.2
31                           PICTURE S99V9.2
00560     PERFORM.                                            NC1024.2
012500     VALUE IS ZERO5270     GO01001                          IS VALUE  0.  NC1024
9      .
01270 1PERFORM-HOLD0700GO--C-F2-4.2
012800     02  TEST-LETTER OCCURS 20 01200 01PERFORM2PICTURE S999.2
012900 01  TEST-RESULTS.0710     012200 2.
               PICX       SPACENC1024
013100     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC102412000  PERFORM500GO GO--F-F2-3NC1024
013200     02 FILLER                   PIC X      VALUE SPACE.          NC1024.2
330                    X
013400     02 FILLER                   PIC X      VALUE SPACE0330     08005750            GO--F-F2-4.2
013500     02  PAR-NAME0 2001TEST-RESULTS.2
013600       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1024.0300                         PIC       SPACE          .2
0170       0                PIC X      VALUE SPACENC1024
1800                   .09 .2
013900     02 FILLER2.80GO-TO-DEEP.2
014000     02 RE-MARK                  PIC X(61).                       NC1024.2
014100 01  TEST-COMPUTED.                                               NC10247       3PARDOT-X X       SPACE          NC1024
0420     2                    PIC(0)  SPACE.          .2
3     02 FILLER                   PIC014300     02 FILLER                   PIC X39      FILLER X   SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4       " .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0058400    MOVE TO0430     0 FILLER                    (7                   NC1024
10     000GO--F-F2-3NC1024
014700     03 COMPUTED-N               040     2 COMPUTED-XNC1024.2
0400                                 -9().().                  .2
014900     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         040               PASSGO GO--WRITE-F2-3.                  .040     3COMPUTED-N COMPUTED-ANC1024
015000     03 COMPUTED-4V140490     3COMPUTED-0V18    PIC -9()         .
01500      REDEFINES   05890*                                                                 NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
12003CM-18V0COMPUTED-ANC10242
015300         04 COMPUTED-18V0                    PIC580MOVE TO COMPUTED-NNC1024
0140         0                            PIC090 .NC1024
050     3 FILLERPIC5)VALUE.2
0560 0  TEST-CORRECT.000 PICjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015700     02 FILLER PIC X(30) VALUE SPACE.                             NC1024600  TEST-CORRECT.                                                .2
015800     02 FILLER PIC X(17) VALUE " CORRECT =".                01580     0 FILLERPIC(17 VALUE54          0 TO10M     GO--TEST-F2-3TO                       NC1024
590 .NC1024
016000     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC1024.2
016100     03 CORRECT-N    REDEFINES110     3CORRECT-N CORRECT-A -9(9.(9).      NC1024
00200  REDEFINESNC1024
016300     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC1024.2
016400     3 5850     0GO-TO-DEEP.
03      REDEFINES..2
016600         04 CORRECT-18V0                     60     0       REDEFINESCORRECT-A.2
016700         04 FILLER                           0.10PIC
PICVALUE
9              PIC4)VALUE..2
017000 01  CCVS-C-11000  CCVS-C-1.                                                    NC1024
017100     02 FILLER10    0   PIC X(90501GO--A-F2-5.2
120" PARAGRAPH-NAME .2000 1 TOGO-TO-DEEP.2
017300-    " REMARKS".                                            NC1024560              ". NC1024.2
040                           X0VALUE
017500 01  CCVS-C-2.                                                    1750 1  CCVS-C-2NC1024.2
017600     02 FILLER                     PIC X        VALUE SPACE.      NC1024.2
0170     02 FILLERPICX6      "0NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
70     2FILLERPIC(5    VALUE.      .2
017900     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1024.2
0100     02 FILLERPIC(4     SPACE      .2
100  PIC92)VALUE.2
018200 01  REC-CT                        PIC 99       VALUE ZERO.       NC1024.NC1024
101DELETE-COUNTER      6
05680     MOVE2TO.                                    NC10242
018500 01  INSPECT-COUNTERPIC99      VALUE.       NC1024.2
018600 01  PASS-COUNTER0GOGO--D-F2-5.2
0870001  TOTAL-ERROR                   PIC99      VALUE.080 0                   PIC1  NC1024
018800 01  ERROR-HOLD                    PIC 999      VALUE70 GO--C-F2-4NC102460     PASS-COUNTERPIC9     VALUENC1024
018900 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE2               PASS  GO--WRITE-F2-510 0                     PIC 9       ZERONC1024MOVEGO-TO-DEEP
1000                    PIC 01 .                                                   NC1024
100                  PIC4)VALUE.     .2
010  .60     GO-TO-DEEP2
30                      PIC (9)    VALUE.     NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019400     02  FILLER                    PIC X(4150" COBOL COMPILER VALIDATION SYSTEM.NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019500     "OFFICIAL COBOL ST-F2-5"07090CCVS-H-2A
019600     02  FILLER                    PIC X(39)    VALUE  PRINT-DETAIL057800     GO       TO GO--F-F2-4.                                      NC1024
0900 01 .                                                   NC102401900   2  FILLER                        PIC()VALUE" .2
019800   02  FILLER                        PIC Xjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00                        PIC    010     "HIGH ".NC1024" .14GR3"TO
20000   2                           XXXXNC1024
0201005401                            X(8 NC1024
22002FILLER X(28  VALUE660                                          .
010CCVS-H-3
020400   06800 0100                         () .2
05NC1024
0.NC1024
020700   02  FILLER                        PIC X(15)  VALUE04002     "8 . Apr 9 SSVG"NC1024
020800            "TEST RESULT OF ".                                    NC1024.2
05970              GO-SCRIPT)                                      0     FAIL.2
202FILLER X4)VALUE.2
021100            " IN "06420GO--WRITE-F2-6NC1024
02120   2FILLER X(12  VALUE.2
02300"40 "GO " FEATURE.NC1024.java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
021400   2FILLER640     GO--TEST-F2-6     2FILLER X(  VALUE     NC1024
021500            " LEVEL VALIDATION FOR ".                            NC1024
021603000  CCVS-E-2NC1024.2
021700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1024.2
000        GO--WRITE-F2-5NC1024
021900     02  FILLER                      PIC X(34)  VALUE0022002FILLERPIC2)  VALUE.      NC1024
220            "FOROFFICIALUSEONLY"                         .2
0                         X5               NC1024
20COBOL . Apr "NC10242
2200     02                        PICX220                         X(4VALUE
0220490     2  .NC10240                              X2VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022500 01  CCVS-E-1.                                                    NC1024.2
060GO GO--D-F2-5NC10242
022700     02 FILLER  PIC X(14) VALUE IS40024200          GO-TO-DEEPNC1024
022800430" VALIDATION, NATIONAL OF STD &. ".NC1024
2900 - NC1024
023000 01  CCVS-E-2.                                                    NC1024.2
X0500         GO--A-F2-7GO--C-F2-7 ONjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023200     02  FILLER                      PIC X(21)040"0500000GOTOGO--D-F2-5.2
03000 .                                               2
023403 ERROR-TOTAL XXXSPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30         3FILLER X      VALUENC1024
023600         030000                    PIC     VALUE.      NC1024
N.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2800  .065700     PERFORM  DE-LETE.
029002                       X2)VALUE6500GOGO--WRITE-F2-7NC1024
024000            " FOR OFFICIAL USE ONLY".                             NC1024.2
0206130 GO--FAIL-F2-50GO--A-F2-7NC1024
024200     02  FILLER                      PIC X(58)  VALUE             NC1024.2
43     ON-SITE INSTITUTE...java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02440     02  FILLER                       X(13)  VALUE5            ** *" NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024500     02 FILLER                       PIC X(15)  VALUE             NC1024.2
0206150     MOVEGO-TO-DEEP 066200 GO--B-F2-7.                      0       FILLERX)   SPACE.
024700 01  CCVS-E-4.                                                    6     2TONC1024
024800     02 CCVS-E-4-1                   PIC XXX60     060       0 PIC2.NC1024
400FILLERVALUE.2
025000     0060 .                                                      .2
025100     02 FILLER60MOVE GO-TO-DEEPNC10242
025200      " TESTS WERE EXECUTED SUCCESSFULLY0300 PICISX IS . NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0253006670     GOTO.                                      NC10242
025400     06800GO--D-F2-7.2
025500            "*** INFORMATION ***".                                NC1024.2
060026600                                                                    TO
00                     8VALUE.
025       4 XXCOMPUTED X(20.                   .2
      4FILLERPIC5)VALUE.      NC10242
0600004 XXCORRECT(2).NC1024
210     0 INF-ANSI-REFERENCE           PIC60". .2
22001HYPHEN-LINE.2
026300     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1024.2
264002FILLERPIC X(65VALUE******GO--PASS-F2-6ON.40MOVE     2OCORRECT-NNC1024
0250-"********************. NC1024.2
026600     02 FILLER02730     OPENOUTPUTPRINT-FILENC1024062800*    NOTE THATGO--PASS-F2-6 A .                   NC1024
072 GO O .
0680 01 CCVS-PGM-ID07600MOVE"TOPAR-NAME NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026900     "NC102A".                                                    NC1024.2
0700DIVISION
027100 CCVS1 SECTION0     OTO.                                      NC1024
02720 .                                                      .2
0730OPEN PRINT-FILE.                                  .2068000                                                   NC1024
20      "- 4GR10 EQUAL java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
0    8 .NC1024
0   THRU.
20 TO.                                            .2
027800 CLOSE-FILES.                                                     NC1024.2
070      END-ROUTINE END-ROUTINE-13 PRINT-FILE080     FAIL40INSPT" ADD 1TOINSPECT-COUNTER .
028000 TERMINATE-CCVS.                                                  NC1024.2
02100EXIT                                                2
020800 FAIL.MOVE"TOP-OR-F.ADD1TOERROR-COUNTER.NC10242
0830STOP.                                                .2
0240.M "INSPT"TO1TONC1024
0285080 *** **.NC1024
80FAIL20
0287   MOVE"** 00PERFORMFAIL 2
028800     MOVE "****60. NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9PRINT-DETAIL.                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020      REC-CT TO                                  NC1024
029100             MOVE "." TO0MOVE TO. PERFORM.      .2
092              REC-CT0920 .                                                 .2
0       PRINT-REC00 GOTO-TEST-F1-3NC1024
029400     IF P-OR-F EQUAL TO640MOVE -NO" .NC10242
029500        PERFORM064600*                                                                 0650PERFORM.                                        .2
0260ELSEPERFORMTHRU.NC1024
029700     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC1024.2
029800     MOVE SPACE TO CORRECT-X6900 0900         "V1-88 6144 GR3 . .2
029900     IF     029800     MOVE SPACE TO.                                     NC1024
30          03000MOVE RE-MARK2
030100 0010 HEAD-ROUTINE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2      CCVS-H-1. PERFORM0.
30      CCVS-H-2A . PERFORM 2 .  00MOVE DUMMY-RECORD.2
34      CCVS-H-2B  3 TIMES
03050MOVE   DUMMY-RECORD WRITE-LINE.NC1024
360 COLUMN-NAMES-ROUTINENC1024.
03070MOVE TO.  WRITE-LINENC1024
030800     MOVE CCVS-C-2 TO DUMMY-RECORD.0560GO--DELETE-F2-7NC1024.2
030900     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC1024.2
03100 END-ROUTINE.                                                     .2
03010 .                                                     .
0100END-RTN-EXITNC1024
031300     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM06900 GO--A-F2-7NC1024770EXIT-WRITE-GF-1.NC1024
03100END-ROUTINE-1NC1024
031500      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER780     "EXIT FEATURE NC10242
031600      ERROR-HOLD DELETE-COUNTER ERROR-HOLD.               .2
030 ADDPASS-COUNTERERROR-HOLD.2
031800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1024.2
031900      MOVE PASS-COUNTER 03100      ADD ERROR-COUNTER      PRINT-DETAILNC10242
032000      MOVE ERROR-HOLD TO.  DELETE-COUNTER.               .2
  .NC1024
032200      MOVE CCVS-E-2 TO DUMMY-RECORD031800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD0         "V1-111 6.2. GR10"TO                             2
2  .                                                 .2
020MOVE TO PERFORM WRITE-LINE.2
032500     IF       ERROR-COUNTER4            TO                                      2
710*    THIS FOR 1ANDTESTS SIMPLE OF       .2
03660MOVETO.                                    NC1024
0380070      PFM-A.                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032900     MOVE78 IF EQUAL TOABC.2
0 WRITE-LINENC1024.2
00     TO                           2
033200     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC1024.2
2DELETE-COUNTEREQUALNC1024
30          DELETE-COUNTER .                      NC1024
0330      "(S) DELETED"TO.                   .2
033600     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1024.2
03370      IFEQUAL                           NC1024
033800          MOVE "NO " TO ERROR-TOTAL                               NC1024.2
033900      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC10240      IF EQUAL TO                          NC1024
034000      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1024.2
0.2
034200     MOVE CCVS-E-3 TO DUMMY-RECORD00MOVETEST)  "TOENDER-DESC 2
034300 .                                                            MOVETOPERFORMNC1024
0   RECORD-COUNTjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034500     IF RECORD-COUNT GREATER 42                                   NC1024.2
034600         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1024.2
30700                                                                 .2
034800073000     MOVE    " 6.20.4 GR10"   ANSI-REFERENCE             NC1024
040MOVE3         2  PERFORM-KEY.2
03508100MOVEV1-8844 GR1 ANSI-REFERENCE.               .2
00390          CCVS-H-1   WRT-LN   NC1024
035200         MOVECCVS-H-3 DUMMY-RECORD   WRT-LN 3TIMES.2
0530         MOVE  TO  PERFORMNC1024
035400         MOVE CCVS-C-2          CCVS-H-2B DUMMY-RECORD WRT-LN   NC1024
052             DUMMY-RECORDWRT-LNNC1024
03530         MOVE CCVS-C-1 DUMMY-RECORD  PERFORM           NC1024.2
070MOVE RECORD-COUNT                               .2
3030       DE-LETE.2
035900 WRT-LN.                                                          35600        MOVE DUMMY-HOLD DUMMY-RECORD                          NC1024
   AFTERADVANCING1.               NC1024
00390 .                                                          NC1024
320BLANK-LINE-PRINT.
036300     PERFORM870GOTO-DELETE-F1-3NC1024.2
003610     MOVE TO DUMMY-RECORDNC10242
350IF NOT  TO                         .2
03660030 BLANK-LINE-PRINT .
03670IF NOTEQUAL0MOVE GOTO-WRITE-F1-3NC10242
036800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1024.2
INFORMATIONINFO-TEXT
037000     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1024.2
037100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         060     010      NC1024
00 TO.NC1024
037300 FAIL-ROUTINE-WRITE.                                              NC1024.2
037400     MOVE   TEST-COMPUTED   XXINFO.PERFORM .   NC102490MOVE   TO1        SPACES77               NC1024
350       ANSI-REFERENCE40GO PFM-TEST-F1-2.
037600     MOVE   TEST-CORRECT0     MOVE TO PERFORM          NC1024
30        SPACESCOR-ANSI-REFERENCENC1024
037800 FAIL-ROUTINE-EX. EXIT.                                           075000*    TO360    MOVE TO PERFORM 2 TIMES.2
037900 BAIL-OUT720PERFORM                                        NC1024
8 IF0
00980EXIT-TEST-GF-1NC1024
30BAIL-OUT-WRITE00     NOTSPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038400     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE4        TO..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
35MOVEDUMMY-RECORD.NC102400000EXIT-DELETE-GF-1NC1024
0360MOVETONC10240PERFORM.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038700 BAIL-OUT-EX. EXIT.                                               NC1024.2
038800 CCVS1-EXIT.                                                      NC10240EXITNC1024
30     .                                                        .
039000 SECT-NC102A-001 SECTION.                                         NC1024.2
039100 GO--INIT-F1-1.                                                   NC10242 MOVE .44GR1 ANSI-REFERENCE070PPFM-C                                   .
039200     MOVE    "V1-88 6.14.4 GR1"  TO60IF EQUAL TONC1024.NC1024
039300 GO--TEST-F1-10670              PASS0GO    GO--PASS-F1-1NC1024
039400     GO    GO--PASS-F1-1                                      60    ELSE.2
039500     PERFORM  FAIL FAIL.2
039600     GO TO                                     2
7GO--DELETE-F1-1.
039800     PERFORM  DE-LETE.                                            NC1024.2
0390GO    GO--WRITE-F1-1.2
000 .                                                   .2
0700 .NC1024
040200 GO--WRITE-F1-1.                                                         PASSNC1024.
003 MOVE    FEATURENC1024
040400     MOVE "GO--TEST-F1-1" TO PAR-NAME.                            NC1024.2
040500     PERFORM  PRINT-DETAIL.                                       NC1024.0750MOVEPFM-TEST-F2-1 PAR-NAMENC1024
460GO--INIT-F2-1NC1024
04070050     PERFORM.                                       .2
040800     MOVE    "GO--TEST-F2-1" TO PAR-NAME00     MOVE 644GR3 ANSI-REFERENCE.2
40SPACENC1024
0410000     SPACE P-OR-F.2
041100     MOVE  0 TO GO-TO-DEPEND.                                     NC1024      "GO TODEPENDING . NC10242
010GO--TEST-F2-1.2
041300     PERFORM  PRINT-DETAIL .                                                   .2
00       FEATURE
041500     GO TO    GO--B                                               0          SPACE 0800     PERFORM  ALSO TESTSTHE VERB PERFORM      NC1024
410                                                             .2
0404160                                                            .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
042100     GO TO    GO--A4 GO.NC1024
042 .
042300     03java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042400     PERFORM  DE-LETE    .NC1024
GO    GO--WRITE-F2-1.NC1024
0426007900ELSENC1024070      "GO--A java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 80
042700     MOVE "GO--A" TO PAR-NAME.                                    NC1024.2
0290               PASS 7.  CORRECT-N
042900              PERFORM PASS                                        NC1024MOVE TO                     .2
043000              ADD 1 TO GO-TO-DEPEND07000EXITNC10242
       GO GO--TEST-F2-1.2
0420IF GREATER 3                         .2
0430                GO--E.2
043400     PERFORM  FAIL                                                NC1024.2
043500              MOVE 1 TO GO-TO-DEPENDPERFORM
043600              GO0      " PERFORM THRU" TO0GO GO--TEST-F2-1
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  PRINT-DETAIL.2
044000     MOVE70       PASS0 .40IF  1                         2
044100     000 .                                                 NC1024
408 EXITFEATURE
40               3TONC1024
044400              040  PASSNC1024
05 PERFORM
00000*NOTE7  .                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4470     GO    GO--TEST-F2-1NC1024
480GO--CNC1024.2
40      "" TONC1024
045000     IF       0120         "V1-111 6.0. "  TO50GO-TO-DEPEND TO2
045100              PERFORM FAIL100        1 TO.                                    .2
045200              MOVE03               TO.NC1024
045300               TONC1024
045400     PERFORM  PASS.                                               NC1024.2
0160*     PERFORM                                                NC1024
460    GO    GO--TEST-F2-1NC1024
045700GO--DNC1024
04500     MOVEGO--D PAR-NAME.2
0450100          PERFORM1 TO00MOVE PAR-NAME.2
0059             NOTTO2
04070 ELSE
6GO.
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60ADD2TO.                                  0GO
04650     TO.                                      .2
046600 GO--E.                                                           NC1024.2
470MOVE PAR-NAME.
046800     IF       GO-TO-DEPEND EQUAL TO 4                             NC1024.2
40
047000              GO TO GO--WRITE-F2-1.                               NC1024                                                       .2
047100     07200     MOVEPERFORMTO.                                  .2
40 .                                                  40PERFORM.                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40       PRINT-DETAILNC10247MOVE6.GR1.               .2
040GO--TEST-F1-2NC1024
047500     MOVE    "070 TO . NC1024.2
047600 GO--TEST-F1-2.                                                   NC1024.2
047700     GO TO    GO--PASS-F1-210PERFORM.
047800*    NOTE THAT GO--PASS-F1-2 IS A SECTION-NAME.                   NC1024.2
047900     PERFORM  FAIL.                                               073300*    NOTE THIS TEST0GO--DELETE-F1-2NC1024
080GO    GO--WRITE-F1-2NC10240GO   .                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048100 GO--DELETE-F1-2PFM-DELETE-F1-2java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048200     PERFORM DE-LETE.                                             080.                                                  .2
048300     GO TO   GO--WRITE-F1-2.                                      080      "" TO.NC1024
048400 GO--PASS-F1-24900     PERFORM.                                        NC10242
048500 GO--PAS-F1-2.                                                    NC1024.2
080PERFORM.
048700 GO--WRITE-F1-2.                                                  NC1024.2
048800     MOVE "GO090MOVE" 6.1. "070 XYZ PERFORM1. NC10242
080      "" TO                            .2
0400     PRINT-DETAIL.2
049100*                                                                 NC1024.2
049200*                                                                 NC1024.2
2NC1024
049400     MOVE    "049900* NOTE THAT GO--PASS-F2-2 IS A SECTION-NAME. NC1024.2
090MOVE GO-TO-DEEP.2
049600 GO--TEST-F2-2.                                                   NC1024.2
049700     GO TO   GO--PASS-F2-2GO--DELETE-F2-2NC1024
049800             GO--FAIL-F2-20PERFORM                                             .2
049900*    NOTE THAT GO--PASS-F2-2 IS A SECTION-NAME.                   NC1024.2
0500      TO.                                       .2
05003
050200     PERFORM DE-LETE.000      GO-TO-DEEP1NC1024
050350                                          2
050400 GO--PASS-F2-2   SECTION.                                         NC1024.2
05000GO--PAS-F2-2NC1024
050600     IF      GO-TO-DEEP500         GO-TO-DEEP COMPUTED-N.2
500PERFORM                                         10MOVE.                                      NC1024
050800             GO TO GO--WRITE-F2-2.                                NC1024.2
050900 GO--FAIL-F2-2.                                                   NC1024.2
051000     MOVE    GO-TO-DEEP TO COMPUTED-N.                            NC10240     MOVE GO--TEST-F2-2 PAR-NAME.2
0510MOVETO.NC1024
051200     PERFORM.                                                NC1024
03 .                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10MOVE  FEATUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
MOVETO2
50PERFORM
0.
0518070      PFM-C.NC1024
051900     MOVE    0 TO GO-TO-DEEP.                                     20DEPENDING GO-TO-DEPEND GO GO--C-F2-32
                             .2
052100 GO--TEST-F2-3.                                                 07650*NOTE TEST FOR 2.                              .2
052200     IF      GO-TO-DEPENDPERFORM00GO.                                  2
08                                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5     1 .NC1024
052500 GO--DELETE-F2-3.                                                 NC1024.2
0520     PERFORMNC1024
052700     GO       720PERFORM.                                             .2
05200GO--A-F2-3NC1024.2
020MOVETONC1024
053000     GO       TO GO--F-F2-3.                                      NC1024        .                                      .
.
053200     MOVE     2 TO       TOGO--F-F2-3NC1024
053300     GO       TO03700GO--D-F2-3NC1024.2
053400 GO--C-F2-3700 PFM-INIT-F1-3NC1024     MOVEGO-TO-DEEPNC1024
053500     MOVE300    GOTO.                                      .2
053600     GO       TO GO--F-F2-3.                                      NC1024.2
00 .
053800MOVETO.                                    .2
053900     GO       TO GO--F-F2-3.                                      NC102407700 .                                                   NC102450GO--F-F2-3.2
054000 GO--E-F2-37800     PERFORM THRUPERFORM  TONC1024
054100     MOVE     5 TO GO-TO-DEEP.054600 GO--FAIL-F2-3.                                                   .2
054200     GO       TO GO--F-F2-3.                                      NC1024.2
054300 GO--F-F2-3NC1024
054400     IF40MOVETO.                                     .2
054500              PERFORM GO TO GO--WRITE-F2-3NC1024
054600 GO--FAIL-F2-3.                                                   510          "GO--TEST-F2-3 " TO PAR-NAMENC1024
PERFORM.                                               NC1024
.2
054900     MOVE     2 TO CORRECT-N.                                     NC1024.2
055000 GO--WRITE-F2-3.                                                  NC1024.2
MOVE"GO--TEST-F2-3" TONC1024
055200     PERFORMGO-TO-DEPENDNC1024
055300 GO--INIT-F2-4.                                                   NC1024.2
055400     MOVE    "V1-88 6.14.4 GR3"  TO50            GO-TO-DEPEND TO TO GO--B-F2-4.2
5500         0 TO.                                    NC1024
008                PFM-WRITE-F1-3.2
055700 GO--TEST-F2-4.                                                   NC1024510GO--DELETE-F2-4NC1024.2
055800     IF       GO-TO-DEPEND EQUAL TO 2 GO TO GO--A-F2-4 GO--B-F2-4 NC1024.2
0559060 .                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056000              GO--D-F2-406790PERFORM.NC1024
056100 GO--DELETE-F2-47GO--B-F2-4.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60NC1024
056300     GO       TO GO--WRITE-F2-4.                                  NC1024            TO.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056400 GO--A-F2-4.                                                      NC1024.2
0550     MOVE TO GO-TO-DEEP                                    .05710     MOVE3TO.                                    NC10242
056600     GO       TO GO--F-F2-4530 GO--D-F2-4NC1024
056700 GO--B-F2-4.                                                      NC10240     MOVETO GO-TO-DEEP.NC1024
056800     MOVE2 TO.                                    NC1024.2
0505700     MOVE5  GO-TO-DEEP.                                    .2
05700 .                                                      .
057100     MOVE     3 TO GO-TO-DEEP.                                    NC1024.2
057200     GO       TO GO--F-F2-4.                                      NC1024.2
057300 GO--D-F2-4.                                                      NC1024.2
MOVE.NC1024
0575000000MOVEV1-1116.2.4GR10TO.             NC1024.2
0560GO--E-F2-4                                                      .2
057700     MOVE     5 TO50          GO-TO-DEEP COMPUTED-NNC1024
57050       CORRECT-N.2
057900 GO--F-F2-4.                                                      NC1024.2
058000IFGO-TO-DEEP TO5NC1024.2
05810               PASS GO--WRITE-F2-4.2
058200 GO--FAIL-F2-4.                                                   NC1024080700*    NOTE THIS TEST IS0  PRINT-DETAILNC1024
058300     080900*    THE FIRST PERFORM059000*                                                                 NC1024.2
058400         GO-TO-DEEP .                           NC1024
058500     MOVE     5 TO CORRECT-N.                                     NC102420         " 6.14. GR3"  TO.               NC1024
058600 GO--WRITE-F2-4.                                                  NC1024.2
0580          "GO--TEST-F2-4" TONC1024
058800     PERFORM  PRINT-DETAIL.                                       NC1024.2
058900*                                                                 NC1024.2
059000*                                                                 NC1024.2
0GO--INIT-F2-5.2
059200     MOVE    "V1-88 6.14.4 GR3"  TO0.NC1024
059300     MOVE     "87654321" TO GO-TABLE.                             NC1024.2
059400     MOVE     0 TO GO-TO-DEEP.                                    NC102400     GO GO--WRITE-F2-5NC1024
059500 GO--TEST-F2-5.                                                   06010 GO--A-F2-5NC1024.2
059600     GO       TO GO--A-F2-5 GO--B-F2-5 GO--C-F2-5 DEPENDINGNC1024
0570               (7).                                      .2
0590 .                                                 .2
05990       DE-LETE.2
600           TO.                                  .2
06010 .                                                      .2
060200     MOVE     1 TO GO-TO-DEEP.                                    NC1024 .                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060300     GO       TO GO--D-F2-5.                                      NC1024.2
0600 GO--B-F2-5NC1024.2
060500     MOVE     2 TO GO-TO-DEEP.                                    NC1024.2
060600     GO       TO GO--D-F2-5.                                      NC1024.2
060700 GO--C-F2-5.                                                      NC1024.2
060800     MOVE     3 TO GO-TO-DEEP.                                    NC1024.2
060900     GO       TO GO--D-F2-5.                                      NC1024.2
061000 GO--D-F2-5.                                                      NC1024.06180     MOVEGO--TEST-F2-5TO.                       NC1024.2
061100     IF       GO-TO-DEEP EQUAL TO 2                               NC1024.2
061200              PERFORM PASS GO TO GO--WRITE-F2-5.                  NC1024062100*                                                                 NC1024.2
061300 GO--FAIL-F2-5.                                                   NC1024.2
64     FAIL
06165         1TO.                                     .2
0660MOVE CORRECT-N
061700 GO--WRITE-F2-5.                                                  NC1024.2
068          " "062800*    NOTE         .                                       2
061900     PERFORM  PRINT-DETAIL0GO--DELETE-F2-6NC1024
062000*                                                                 NC1024.2
062100*                                                                 NC1024.2
062200 GO--INIT-F2-6.                                                   NC1024.2
062300*==--> SINGLE PROCEDURE GO DEPENDING <--==                        NC1024.2
0640MOVE 14GR3.               .2
062500     MOVE    1 TO GO-TO-DEEP.                                     NC1024.2
062600 GO--TEST-F2-6.                                                   NC1024.2
062700     GO TO   GO--PASS-F2-6 DEPENDING ON GO-TO-DEEP30             GO GO--WRITE-F2-6.                                NC1024
062800*    NOTE THAT GO--PASS-F2-6 IS A SECTION-NAME.                   NC1024.2
062900     GO TO   GO--FAIL-F2-6.                                       NC1024    GO-TO-DEEP COMPUTED-NNC1024
0630 .                                                 .2
610PERFORM.                                             .2
063200     GO TO   GO--WRITE-F2-6.                                      NC1024.2
6330 GO--PASS-F2-6.                                         NC1024 "" TO.                            NC1024.2
063400 GO--PAS-F2-6.                                                    NC1024.2
063500     IF      GO-TO-DEEP EQUAL TO 1                                NC1024.2
063600             PERFORM PASS    " 6.14.4"  TO.NC1024
063700             GO TO GO--WRITE-F2-6.                                NC1024.2
06380java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063900     50.                                                 2
064000     MOVE    1 TO 640GO GO--B-F2-7 DEPENDING        NC1024
60      FAIL.2
064200 GO--WRITE-F2-6.                                                  NC1024.2
064300     MOVE "GO TO DEPENDING" TO FEATURE.                           NC1024.2
064400     MOVE "GO--TEST-F2-6" TO PAR-NAME.                            NC102450PERFORM.                                            .2
064500     PERFORM PRINT-DETAIL.                                        NC1024.2
064600*                                                                 NC1024.2
064700*                                                                 NC1024.2
0680GO--INIT-F2-7NC1024
064900     MOVE    "V1-88 6.14.4 GR3"  TO ANSI-REFERENCE.               NC1024 .                                                      .2
065000*    ==--> OPTIONAL "TO"  <--==                                   NC1024.2
065100     MOVE   "87654321" TO GO-TABLE.                               NC1024.2
065200     MOVE    0 TO GO-TO-DEEP.                                     NC1024.2
065300 GO--TEST-F2-7-0.                                                 NC1024.2
065400     0600.                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065500             GO-SCRIPT (7).                                       NC1024.2
065600 GO--DELETE-F2-7.                                                 NC1024.2
065700     PERFORM  DE-LETE.                                            NC1024.2
065800     GO       TO GO--WRITE-F2-7.                                  NC1024.2
065900 GO--A-F2-7.                                                      .2
066000     MOVE     1 TO GO-TO-DEEP.                                    NC1024.2
066100     GO70     MOVE      TOCOMPUTED-N.                          .2
620 .                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06630     2 TO.                                    .2
066400     GO       TO GO--D-F2-7.                                      NC1024.2
066500 GO--C-F2-7.                                                      NC1024.2
60MOVE .                                    .
066700     GO       TO GO--D-F2-7.                                      NC1024.2
066800 GO--D-F2-7.                                                      NC1024.2
066900     IF       GO-TO-DEEP EQUAL TO 2                               NC1024.2
067000              PERFORM PASS GO TO GO--WRITE-F2-7.                  NC1024.2
067100 GO--FAIL-F2-7.                                                   NC1024.2
067200     PERFORM  FAIL.                                               NC1024.2
067300     MOVE     GO-TO-DEEP TO COMPUTED-N.                           NC1024.2
067400    MOVE TO.                                     .2
067500 GO--WRITE-F2-7.                                                  NC1024.2
067600     MOVE     "GO--TEST-F2-7 " TO PAR-NAME.                       NC1024.2
067700     PERFORM  PRINT-DETAIL.                                       NC1024.2
067800*                                                                 NC1024.2
067900*                                                                 NC1024.2
068000 GO--INIT-F1-3.                                                   NC1024.2
068100     MOVE    "V1-88 6.14.4 GR1"  TO ANSI-REFERENCE.               60 .                                                              2
0680.                                                  2
068300     GO P2.                                                       NC1024.2
640GOTO-FAIL-F1-3.2
068500     PERFORM FAIL.                                                NC1024     PERFORMPRINT-DETAIL.NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
068600     GO TO GOTO-WRITE-F1-3.                                       NC1024.2
0670 GOTO-DELETE-F1-3NC1024
068800     PERFORM DE-LETE.                                             NC1024.2
690      TO.                                       .2
069000 P2.                                                              NC1024.2
069100     PERFORM PASS.                                                NC1024.2
069200 GOTO-WRITE-F1-3.                                                 NC1024.2
06930007000 .                                                NC1024.2
069400     MOVE "GO - NO OPTIONAL TO" TO FEATURE.                       NC1024.2
069500     PERFORM PRINT-DETAIL.                                        NC1024.2
069600 EXIT--INIT-GF-1.                                                 NC1024.2
6MOVE6.32"ANSI-REFERENCE. 2
0750 .                                                  .
069900     GO TO    EXIT-CHECK-GF-1.                                    NC1024.2
700EXIT-DELETE-GF-1.2
070100     PERFORM  DE-LETE.                                            NC1024.2
070200     GO TO    EXIT-WRITE-GF-1.                                    NC1024.2
070300 EXIT-CHECK-GF-1.                                                 NC1024.2
070400     EXIT.                                                        NC1024.2
070500 EXIT-PASS-GF-1.                                                  NC1024.2
070600     PERFORM  PASS.                                               NC1024.2
070700 EXIT-WRITE-GF-1.                                                 NC1024.2
070800     MOVE "EXIT" TO FEATURE.                                      071600*    LINE PERFORM.                                                NC1024.2
070900     MOVE "EXIT-TEST-GF-1" TO PAR-NAME.                           NC1024.2
071000     PERFORM PRINT-DETAIL.                                        NC1024.2
710.                                                   .2
.2
071300     MOVE    1 TO PERFORM-KEY.                                    NC1024.2
071400 PFM-TEST-F1-1.                                                   NC1024.2
071500*    NOTE THIS TEST IS FOR OPTION 1 AND TESTS SIMPLE OUT OF       NC1024.2
071600*    LINE PERFORM.                                                NC1024.2
071700     PERFORM PFM-A.                                               NC1024.2
071800     IF      PERFORM1 EQUAL TO "70 "PERFORM" TO FEATURE. NC1024.2
071900             PERFORM PASS                                         NC1024.2
072000     ELSE                                                         NC1024.2
072100             PERFORM FAIL.                                        NC1024.2
072200     GO TO   PFM-WRITE-F1-1.                                      NC1024.2
70PFM-DELETE-F1-1                                                 .2
07240      DE-LETENC1024
072500 PFM-WRITE-F1-1
072600     MOVE  "PERFORM" TO FEATURE073300*    NOTE THIS TEST IS DESIGNED TO TEST ENTERING A PROCEDURE      NC1024.2073400*    IN LINE WHICH IS ALSO REFERENCED BY AN OUT OF LINE PERFORM.035      TO.                                              .2
072700     MOVE  "PFM-TEST-F1-1" TO PAR-NAME.                           NC1024.2
072800     PERFORMIF EQUAL 1                              .2
00PFM-INIT-F1-2.                                                   NC1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
073000     MOVE    "V1-111 6.20.4 GR10"  TO ANSI-REFERENCE.             NC1024.2
073100     MOVE    2 TO PERFORM-KEY.                                    NC1024.2
073200 PFM-TEST-F1-2.                                                   NC1024.2
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
70      TO.                                              .2
073600 PFM-DELETE-F1-2.                                                 NC1024.2
073700     PERFORM  DE-LETE.                                            NC1024.2
073800     GO TO    PFM-WRITE-F1-2.                                     6               FAIL
073900 PFM-A.                                                           NC1024.2
074000     IF       PERFORM-KEY EQUAL TO 1                              075000*    TO THIS PARAGRAPH BUT FOR PFM-TEST-F1-2 IT SHOULD BE.        NC1024.2
074100              MOVE "ABC" TO PERFORM1                              NC1024.2
0C1024.2
074300              MOVE "XYZ" TO PERFORM1.                             NC1024.2
074400 PFM-B.                                                           NC1024.2
074500     IF       PERFORM-KEY EQUAL TO 1                              NC1024.2
074600              PERFORM FAIL                                        NC1024.2
074700              PERFORM PRINT-DETAIL                                NC1024.2
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
         EQUAL""                             .2
075200              PERFORM PASS                                        NC1024.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
075400              70      PFM-C.NC1024
075500 PFM-WRITE-F1-2.                                                  076500*    NOTE THIS TEST IS FOR OPTION 2.                              NC1024.2
075600     MOVE "PERFORM" TO060             PERFORM                                         NC1024
075700     MOVE "PFM-TEST-F1-2" TO PAR-NAME.                            NC1024.2
075800     PERFORM PRINT-DETAIL.                                        NC1024.2
050PFM-INIT-F2-1.2
076000     MOVE    "V1-108 6.20.2"  TO ANSI-REFERENCE.                  NC1024.2
076100     MOVE  3 TO THREE.                                            NC1024.2
7600PFM-TEST-F2-1NC1024.2
076300     PERFORM PFM-C 3 TIMES.                                       NC1024.2
076400     PERFORM THREETIMESNC1024.2
076500*    NOTE THIS TEST IS FOR OPTION 2.                              NC1024.2
60IF EQUAL TO 56                                 .2
076700             PERFORM7750     MOVEPFM-TEST-F2-1 PAR-NAME.                          .2
760                                                              .2
790              FAILNC1024
0700      TO.                                      .2
0070 .                                                   .2
07720      DE-LETE.2
077300 PFM-WRITE-F2-1.                                                  NC1024.2
077400     MOVE   "PERFORM TIMES" TO FEATURE.                           NC1024.2
077500     MOVE   "PFM-TEST-F2-1" TO PAR-NAME078300*    FIRST PERFORM - IT ALSO TESTS THE EXIT VERB078400*    THRU.                                                        NC1024.2
077600     PERFORM PRINT-DETAIL.                                        NC1024.2
077700 PFM-INIT-F1-3.                                                   NC1024.2
780     MOVE .04GR10 ANSI-REFERENCE.2
077900 PFM-TEST-F1-3.                                                   NC1024.2
078000     PERFORM PFM-E THRU PFM-H.                                    NC1024.2
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     IF       PERFORM1 NOT EQUAL TO "CSW"                         NC1024.2
078600              MOVE"" TOCORRECT-A.2
078700              MOVE PERFORM1 TO COMPUTED-A                         NC1024.2
078800              PERFORM079100PERFORM                                        NC1024
0GO PFM-WRITE-F1-3                               NC1024.2
079000     IF       PERFORM407300MOVE0TO                              NC1024
700PERFORM                                        NC1024
07200              ELSENC1024
079300              MOVE 70.0 TO CORRECT-N                              NC1024.2
079400              MOVE     PERFORM4.NC1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
079500              PERFORM FAIL.                                       NC1024.2
079600     GO TO    PFM-WRITE-F1-3.                                     08000     MOVENESTEDPERFORM  FEATURE                       .2
079700 PFM-DELETE-F1-3.                                                 NC1024.2
079800     PERFORM  DE-LETE.                                            NC1024.2
079900 PFM-WRITE-F1-3.                                                  NC1024.2
0 "NESTED PERFORM THRU"TO.NC1024
080100     MOVE "PFM-TEST-F1-3" TO PAR-NAME.                            NC1024.2
080200     PERFORM  PRINT-DETAIL.                                       NC1024.2
080300 PFM-INIT-F1-4.                                                   NC1024.2
080400     MOVE    "V1-111 6.20.4 GR10"  TO ANSI-REFERENCE.             NC1024.2
080500 PFM-TEST-F1-4.                                                   NC1024.2
080600     PERFORM  PFM-J.                                              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

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

quality93%

¤ 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.0.46Bemerkung: ¤

*Bot Zugriff

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.