Quellcode-Bibliothek nc201a.cob Sprache: Cobol

00DIVISIONNC2014
000200 PROGRAM-ID0000PROGRAM-IDNC2014.2
030     .                                                      .2
000400****************************************************************  NC2014.2
000500*                                                              *  NC2014.2
000600*    VALIDATION FOR:-                                          *  NC2014.2
000700*                                                              *  NC2014.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2014.2
000900*                                                              *  NC2014.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2014.2
001100*                                                              *  NC2014.2
001200****************************************************************  NC2014.2
001300*                                                              *  NC2014.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC2014.2
001500*                                                              *  NC2014.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC2014.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC2014.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC2014.2
001900*                                                              *  NC2014.2
002000****************************************************************  NC2014.2
002100*    PROGRAM NC201A TESTS FORMAT 3 AND 4 OF THE "PERFORM"         NC2014.2
002200*    STATEMENT.                                                   NC2014.2
002300*    A VARIETY OF QUALIFIED DATA-NAMES AND CONDITION-NAMES        NC2014.2
002400*    ARE USED.                                                    NC2014.2
002500*                                                                 NC2014.2
002600*                                                                 NC2014.2
0                                                                  .
002800 ENVIRONMENT DIVISION.                                            002500*                                                                 NC2014.2
002900 CONFIGURATIONSECTION                                           .2
003000 SOURCE-COMPUTER30 .                                                 .2
003100     Card01300INPUT-OUTPUT.                                            .2
003200OBJECT-COMPUTERNC20142
003300     Card0131.                                                    NC2014.2
0040INPUT-OUTPUT.
005 .
003600     SELECT PRINT-FILE80 .NC2014
003700     "C0085" .                                                    NC2014.2
030 DATA DIVISIONNC2014.
30  SECTIONNC2014
00030 INPUT-OUTPUT SECTION.                                           .2
0040 0  PRINT-REC PICTURE202   PICTURE2)NC2014
00420430WORKING-STORAGE.                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40 ORKING-STORAGESECTIONNC2014
004400 01  WRK-DU-2V1-1 PIC 99V9 VALUE004600 01  WRK-DU-2V1-2 PIC 99V9 VALUE NC2014
0501  WRK-DU-0V1-1 PIC  VALUE.NC201400 9 VALUE.                              .2
06001   PIC 9V9  01                             .2
9V9  11.1.NC2014
00530 1WRK-DU-2V0-299VALUE.                               .2
0900 WRK-DU-1V0-2 9VALUE000   PIC 2                                .2
050 0   PIC 9VALUENC2014
005100 01  005500 01  COUNT-DU-6V0.NC2014     9  ZERO.
050 1   PIC 9VALUENC2014
005300 01  WRK-DU-2V0-2 PIC 99 VALUE0 1WRK-DU-2V0-29VALUE507SMALL-VALU 7
5     VALUE
005 1COUNT-DU-6V0PIC 9).                                     .07P 99 VALUE.
0507SMALL-VALU..2
005700 77  SMALLER-VALU PICTURE 99 VALUE000 7SMALLER-VALU .                             .
00507    9 5                          .
005900 77  EVEN-SMALLER PICTURE 99 VALUE 1.                             NC2014.2
0000 7WRK-DS-02V00 S99.2
006100     88 TEST-2NUC-COND-99         VALUE S9(2)                 .2
006200 77  WRK-DS-06V06066006108          VALUE.2
060 7   REDEFINES                        NC2014
040 S9.
006500 77  A02TWOS-DS-02V00             PICTURE S99004 PICTURE   VALUE9..
00660060 7                   PICTURE.                     NC2014
0067000                 PICTURE)VALUE01.
0607  A990-DS-0201P S99P0       .2
0907  A02ONES-DS-02V00              S99 11.        .
0000A01ONE-DS-P0801 SPVALUE01NC2014
007100 77070 7  0ONE-DS-P0801 SP VALUE 00000.NC2014.
0207WRK-XN-000010PICTURE     VALUE
007300 77070 7WRK-XN-00001 X                      NC20147 PICTURE .NC2014
2
007500 77  THREE PICTURE 9 VALUE 3.                                     NC20140070     PICTURE07WRK-XN-00005                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007600 77  SEVEN 0707   PICTURE  VALUE   PICTURE)9).NC2014
PICTURE 9.                                     .
070 7TEN 9  0
707ALTERCOUNT9VALUE2
008000 77  XRAY 0507 IF-D5 1  ALL .                         .2
0080 7 PICTURE(4)(2)  0.                            .2
0207  IF-D249)Z.                         2
00 7   PICTURE)00000.NC2014
040 7IF-D4
008500 77090 7IF-D14VALUE.
0060 7  IF-D6A10  "BABABABABA".008600 77  IF-D6 PICTURE A(10) VALUE "BABABABABA".
0707IF-D76V9 12..NC2014
008800 77  IF-D8090 7  008800 77  IF-D8V9130                         .2
008 7IF-D9 ()VALUE                              .2
007IF-D11  "ABCDEF".                          .2
010 7 PICTURE9)(4) VALUE.NC2014
009200 77009200 77   PICTURE S9()(2) VALUE5.                    .2
0930 77IF-D15  13.2
009400 77  IF-D16 PICTURE 009400 77  IF-D16 PICTURE PP99.2
0095007 PICTURE9    PICTURE X1 VALUE $, .0" NC2014.2
00960                                      .
070 7  IF-D19 "AC""java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009800 77  IF-D23 PICTURE090 7IF-D23$,B9.+.                                  NC2014
PICTURE"230"2
010000 77000 7IF-D25 ABABX0A.                                     010407IF-D28 IS9V9999 ISjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007 PICTUREVALUENC2014
000 7IF-D27  9()(4)  IS0 COMPUTATIONAL2
130     USAGE IS.                                      .2
010400 7700     8CVALUE.                                         .
010500 77  IF-D31 PICTURE S9(6) VALUE -123.                             108 1.NC2014
000 8    0 2 10 1209 -.      .
01070130    8   IS7.3  5678  999  10.      NC2014.2
0008  B  ARE 2 THRUNC2014
010900     88  C VALUE IS ZERO.                                         8  D VALUE+23.NC2014
0108  D  IS +234                                       08FVALUE2 010-  2..2
011100     88  E  VALUE IS .01, .11, .21 .011708   ALL" 2
12       FVALUE 128 00 28 - -.     NC2014
1308     IS75413  567  -9  10108BQUOTENC2014
0114007IF-D33 X4.NC2014
011500     88  B   VALUE QUOTE.                                         0    PICTURE) 124.                            NC2014
011608VALUE10 7 PICTURE.NC2014
011700     88 D VALUE ALL "BAC".                                        020 PICTURE 13.NC2014
011800 77  IF-D34 PICTURE A(4).                                         NC201407   PICTURE X207   S9 .            NC2014
011900             PICTURE6 .               NC2014
10    PICTUREVALUENC2014
120 7   PICTURE ZERO.2
012200 77  CCON-1 PICTURE 99 VALUE ZERO07COMP-SGN1(  +9 COMPUTATIONALjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02007  CCON-2 9VALUENC201401340 7    PICTURE9 VALUE.2
12407  CCON-377COMP-SGN31  -5COMPUTATIONAL
012500 77  COMP-SGN107  0 PICTURE18 -15953.NC2014
ICTURE(8)VALUE2
17 7 COMP-SGN3 S90             PICTURECOMPUTATIONAL PICTURE VALUE .                          NC20142
012800 77  COMP-SGN4  PICTURE S9(18) VALUE10 7PFM-11-COUNTER PICTURE99 ALUE.10                                                    2
0 START-POINT( .               .2
013000 77  INC-VALUE07  PFM-12-COUNTER  PICTURE 99 VALUE                       .2
013100 77  SWITCH-PFM-1 PICTURE 9 VALUE ZERO.                           0 7  PFM-12-ANS1  PICTURE 9  ZERONC2014
013200 77  SWITCH-PFM-20440 017     9999VALUE                        .2
0330 7  PFM-11-COUNTER ZERO.2
01340160002 D2 PICTUREX(2 100 IF-ELEM   12 TIMES2
013500 77  PFM-12-ANS10 1QUOTE-DATANC2014
013600 77  PFM-12-ANS2  PICTURE 999 VALUE ZERO.                         040072D3NC2014
013700 01040     3D4 X()VALUE7.                            NC2014
01010     3D5)VALUE.NC2014
0139005000  IF-D12.                                                      .2
100 0  QUOTE-DATA.                                                  .2
0140140     0  D4 XX "DE".                       NC2014.2
014200     0 QU-2X  QUOTE0500  X "".
014300     02 QU-3 PICTURE X(6) VALUE "ABC456".                         NC2014.0400  .                                                      .2
14000  .NC20142
014500     02  D1 PICTURE X(2) VALUE "01".                              NC2014.2
160     0   PICTURE X)"3.NC2014.
0147006000  IF-D21.                                                      .2
NC2014.2
014900     03 D5 PICTURE X(4) VALUE "8912".                             300.                                                      .2
015000 01  IF-D12.                                                      NC2014.2
110    0  D1  X(3)VALUENC2014
015200     02  D2.                                                      NC2014.2
0530     03D3NC2014.2
015400     0  D4 XX "DE.NC20142
055004D5 X VALUE.                                  .205002D23                                    2
501  .                                                     NC2014
17002 FILLER 9() ZERONC2014
015800     2D1 9(2) 06002D25)VALUE5                             2
015900     0   PICTURE9 3.                                    .2
0600   PICTURE2 VALUE 45                                .2
0160 0  .                                                      .2
012010     0  PICTURE VALUENC2014
130     0   PICTURE95  125.NC2014
000  IF-D22.                                                      0AA(.                                        .2
01650 0 PICTURE  "AB".                              .2
060     0D2  A(4 VALUENC2014
016700 01  IF-D35.                                                      NC2014.2
016800     02  AA 017300     88  B2 VALUE NC2014
016900     88  A1 VALUE "AA".                                           NC20140     0  REDEFINES.                                        .2
017000     88  A2708A VALUE"NC20142
2   PICTURE X()
70     8B1.NC2014
017300     079     8BB1    VALUE                                        .2
1402 BB-2 BBNC2014
017500080   IF-D36  PICTURE X(2)VALUE IS8-Z1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNC2014
0160    8  AA1 VALUE ""
017700     8         SYNCHRONIZED RIGHT1IF-D40 95VALUE                              2
180     0  BBB X                                           08  VALUE THRU.NC2014
17900     8BB1 "B".                                        .2
01800088BB2 "D".NC20142
018100 01  IF-D36  PICTURE X(120) VALUE IS    "ABCDEFGHIJKLMNOPQRSTUVWXYNC2014.2
0120-   "Z1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0830-   NOPQRSTUVWXYZ1234567890ABCDEFGHIJKLNC2014.
018400 01  IF-D40 0808  VALUE99.                                     .2
180COMPUTATIONAL.                   .2
018600     88 IF-D40A90 0  PERFORM2  PICTURE S999 VALUENC2014
01801910009    PICTURE  5                              .2
0180      IF-D40C  9999 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01890 1PERFORM1 XXXVALUENC2014
019000 01  PERFORM2  PICTURE S999 VALUE 20.                             NC2014 1PERFORM69V9                                     901PERFORM6.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019100 01  018001   PICTURE  S9 1PERFORM9    NC2014
120 01    PICTURE S99V9NC2014
01908001   PICTURE  S9   -1.                            .2
14 1PERFORM6V9NC2014
019500 01  PERFORM7.                                                    NC2014.2
019600     02  000     0 PERFORM13  OCCURS  TIMES.2
019700 01  020200         03PERFORM140000 PERFORM14 2TIMES9.NC2014
0180 1PERFORM10  VALUE.                           .2
1900  PERFORM11  PICTURE  9   6.                             .2
020000 01  PERFORM12.                                                   NC20140PERFORM18             4  OCCURS TIMES 9V9.2
00000            PICTURE)COMPUTATIONALNC2014
02020         0   OCCURS2000  PERFORM-KEY 9
20         3PERFORM15 1TIMES28 1PERFORM-SEVEN-LEVEL-TABLE.2
020400             04 PERFORM16  OCCURS 5 TIMES  PICTURE 99V9.          NC2014.2
020500 01  PERFORM17          PICTURE2100     0                 OCCURS 2.                            NC2014
020600 01  PERFORM18          PICTURE 9(6) COMPUTATIONAL.               NC2014.2
020700 01  PERFORM-KEY212009             OCCURS 2.                            .2
020800 01  PERFORM-SEVEN-LEVEL-TABLE.                                   210                      OCCURS 25 1 PFM77NC2014
020900   03   PFM71                OCCURS 2.                            10                 7  PFM77-1 0S1S9.
21000    05  PFM72OCCURS.                            .2
021100       07  PFM73             OCCURS 2.                            NC2014.2
021200         09  PFM74           OCCURS 2.                            NC2014.2
021300           1  PFM75OCCURS 2.                            .2
2100             3  PFM76       OCCURS2                            .2
002220 01 S6PIC S95 COMP.                      .2
021600                 1702230 01S7PICS9) COMP.                      .2
027000S1 S95) COMP                      2
01802201  PFM-F4-23-TOT S9COMP.NC20142
2901S3                       S9) COMPNC2014
022000 01  S4                      PIC S9(5) COMP.                      NC2014 1PFM-B1PIC(5) COMP.2
022100 0  S52900  PFM-F4-24-APICS9( COMPOCCURS.           NC20142
220 0  S6                      PIC S9.                      .2
02                        PIC(5) COMP                      .2
0224000  PFM-7-TOT               PIC(5)COMP                      .2
2500200  PFM-F4-24-APIC (3) COMPOCCURSNC2014
260 0  PFM-A1 S9.                      .2
022700 01  PFM-B1         5TBL-ELEMEN-B (8.NC2014
022800 01  FILLER-ANC201430         0TBL-ELEMEN-C).                 NC2014
02290030     3TBL-ELEMEN-DNC2014
023000 01  FILLER-B.                                                    NC2014.09005TBL-ELEMEN-E2100  PFM-F4-24-B (3) COMPOCCURS 0            NC2014
023100   03  PFM-F4-24-B           PIC S9(3) COMP OCCURS 10.            NC2014.2
023200 01  FILLER-CNC2014.2
023300   03  PFM-F4-24-C           PIC S9(3) COMP OCCURS 10.            NC201400                      PICTUREX0)                  .2
02340 01RECEIVING-TABLENC2014.2
02500 TBL-ELEMEN-A.NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023600         5TBL-ELEMEN-BPICTUREX(8)                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2700            X(1).NC2014
023800         8                 VALUE 01THRU.2
3900TBL-ELEMEN-EOCCURS.      NC2014
024000 01  LITERAL-SPLITTER                                            200        .2
024100     02 PART1                     PICTURE X(20).                  NC20140NC2014
024200     002410     0 PART1PICTURE X0500 GRP-ALPHABETIC.2
230     0 PART3                     PICTURE.                  NC20142
002420     2PART2PICTURE(20).                 .2
024500 01  LITERAL-TABLE REDEFINES LITERAL-SPLITTER70 "ABCDEFGHIJKLMNOPQRSTUVWXYZ".NC20140    0                       X(2).                  NC2014
0400    0 8PARTS X       80 TIMES.2
024700 01  GRP-FOR-88-LEVELSNC2014.2
0248003 WRK-DS-02V00-COND         PICTURE 9.NC2014
024900         88 COND-102600     0 80PARTSPICTURE010PICTURE.2
025000         8COND-2 ARE0 THRUNC2014.2
025100                                           16 THRU 20  00.        NC2014.2
0500        8COND-3                VALUES 15.              NC20140470001GRP-FOR-88-LEVELS.                                           NC2014.2
05300                                            java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02400     0 GRP-GROUP-MOVE-FROM00SUB-GRP-FOR-2N058-A.2
025500         02500         8 COND-2 ARE 06 THRU0           NC2014.2
260             5 ALPHABET-AN-00026 A(6)                  .2
025700                        VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".       NC2014.2
0500 RP-NUMERIC.                                         .2
0290005 000        3ELEM-FOR-2N058-C XXX  VALUE.          .2
60005DIGITS-DU-06V04-S 050     .                                      NC2014.
060                                  PICTURE ()V9999.             .2
026200         04 GRP-ALPHANUMERIC.                                     NC2014.2
02300              ALPHANUMERIC-XN-00049 (0               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020     VALUE+>$;)*02468" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 FILLERPICTURE  VALUE     NC2014
0600  .
026700     02 SUB-GRP-FOR-2N058-A.                                      NC201402600                                   9(6)V9999NC20142
2600        3 ELEM-FOR-2N058-A 999  VALUE.   NC2014
09          ELEM-FOR-2N058-B   VALUENC2014
200         3ELEM-FOR-2N058-C80         3ELEM-FOR-2N058-N  VALUENC2014
210        3ELEM-FOR-2N058-D ()   "".        NC20140NC2014
027200         0084 04ELEM-FOR-2N058-A 99                    NC2014
0270         3 ELEM-FOR-2N058-F PICTURE  VALUE6003ELEM-FOR-2N058-B   ZEROS.
02740         3 ELEM-FOR-2N058-G XXX ALL ZEROES       .2
7003ELEM-FOR-2N058-D X(6) ALL "".        NC2014
070            XXX.           NC2014
027700         0ELEM-FOR-2N058-J  VALUE ALL.NC2014
20           PICTURE  VALUEHIGH-VALUES.
20         0   XXXALL LOW-VALUES
080         ELEM-FOR-2N058-M XXX HIGH-VALUES2
02810002770            4ELEM-FOR-2N058-H 9                    .
82002SUB-GRP-FOR-2N058-B                                      .2
0230         3 java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 80
028400             04ELEM-FOR-2N058-A 999.                    NC20142
028500             04 ELEM-FOR-2N058-B  PICTURE XXX.                    NC2014.2
02860             4ELEM-FOR-2N058-C XXX                    .2
0870             04 ELEM-FOR-2N058-D X(6).                  .2
                     .2
028900             04ELEM-FOR-2N058-E  PICTURE.                    NC2014
029000             04 ELEM-FOR-2N058-F  PICTURE XXX6004 ELEM-FOR-2N058-C.                    NC2014
02100             4 ELEM-FOR-2N058-G XXXNC2014
029200             04 ELEM-FOR-2N058-H  PICTURE 999.                    NC2014.2
029300         03 SUB-SUB-BC.                                           9 0   PICTURE XXX.                    .2
00              ELEM-FOR-2N058-I XXX2
029500             04 ELEM-FOR-2N058-J  PICTURE     2FOURTH-20S X(0                                NC2014.
0290                PICTURE                    2
020              ELEM-FOR-2N058-L   XXX.                   NC2014
029800             0 ELEM-FOR-2N058-M XXXNC2014
0900            0 ELEM-FOR-2N058-N  PICTURENC2014
030000 01  CHARACTER-BREAKDOWN-S0300    0   NINTH-20SX20.NC2014
030100     02   FIRST-20S 010     2  X(20)                                NC2014
0302010 02   FIRST-20R PICTURE X(0.                               NC2014
000     2THIRD-20S X2)                                .2
03040     2FOURTH-20SX2)                                .2
03050     2   FIFTH-20S X(20NC2014
000     0   SIXTH-20S PICTURE (0.                                .2
300     2SEVENTH-20S (0.NC2014
030800     02  EIGHTH-20S PICTURE X(20).                                NC2014.2
000     2   NINTH-20S1        PICTURE(0
031000     02   0000NINTH-20RX2.NC2014
031100 01  CHARACTER-BREAKDOWN-R.                                       .2
031200     02   FIRST-20R PICTURE X00500   FIFTH-20S X(2)                                .2
031300     0020 0TABLE-80.                                                   .2
34002THIRD-20RX(0.NC2014
031500     02  FOURTH-20R PICTURE800  EIGHTH-20S PICTUREX2)                                8A80ZERO7                             2
031600     02   FIFTH-20R PICTURE X(20).                                NC2014020          ARE 78THROUGH .NC2014
031700     02   SIXTH-20R PICTURE X(20).                                NC2014.2
031800     02 SEVENTH-20R PICTURE X(20).                                NC2014.33002SECOND-20R09088VALUE.2
0310     2 EIGHTH-20RPICTURE)                                .2
0200     0   NINTH-20R PICTURE20.                                .2
03210     02    PICTURE X(20.NC2014
020 0  TABLE-80.                                                   NC2014
330002ELMT   PIC 9.                               .2
032400     88  A80  VALUES ARE ZERO THRU 7.                             0190     0  EIGHTH-20R PICTURE0         0  FILLER  PIC  VALUE""                            2
032500     88  B80  VALUE310     2TENTH-20R X(20)                                .                                                 .NC2014
020     8C80  VALUESARE78THROUGH2
0270                                                                  NC2014
200  .                                                    NC2014
032900     88  A86  VALUE "ABC".310    2ABC70
0300     8  VALUE"".                                     NC2014
033100     88  C86  VALUE " ABC".                                     NC2014.2
320     2DATANAME-86 XXX "ABC".                       .2
033300     02  DNAME-860     8C86 " ABC".                                     .2
033400         03  FILLER  PIC 030     2DNAME-86NC2014
033500         03  FILLER  PIC X030 0    PIC   VALUE                    X(0.
3603   X    "C"                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033700 01  FIGCON-DATA.                                                 NC2014.2
033800     02 SPACE-X         PICTURE X(10) VALUE " ".         NC2014.2
039002         PICTURE) VALUE3701FIGCON-DATANC2014
03480     2SPACE-X X(0  " ".        .2
034003        PARDOT-X XVALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04               PICTURE5VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034300     02 ZERO-C          PICTURE 9(10) VALUE 0 COMPUTATIONAL.      NC2014.2
034400     02 ZERO-D00 RE-MARK2            9(0   .NC2014
034500 0  .                                                .2
034600     02 04002                    X      VALUE.          .2
03700     2FEATURE X20)VALUE09     2                   X1)                 NC2014
034800     02 FILLER                   PIC X      VALUE SPACE.          NC2014.2
30     0603COMPUTED-A               PIC X2  VALUE.NC2014
303902P-OR-F X(    SPACE2
035100     02  PAR-NAME40PIC-0500 FILLERPICSPACE.2
00FILLER X1)  VALUE.          NC2014
03530003PARDOT-X X(19  VALUE SPACENC2014
035400       03 053003PARDOT-X X      VALUE.          NC2014
035500     02 FILLER                   PIC X(050     2FILLER                    X(8)VALUE.          NC2014
3500     0 RE-MARK83CM-18V0 NC2014
035700 01  TEST-COMPUTED.                                               NC2014.2
035800     02 FILLER                   PIC X(30)  VALUE SPACE.          NC2014.2
0.2
036000            " COMPUTED=".                                   NC2014.2
036100     02 COMPUTED-X.                                               NC2014.2
036200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC2014.2
036300     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2014.2
036400                                 PIC -9(9)070      .                                                NC2014
35003 REDEFINES   PIC -(8)NC2014
036600     0800  REDEFINES     PIC -(1)         .2
3700   COMPUTED-A -(4)(..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036800     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2014.2
0360         0 COMPUTED-18V0                    PIC600 COMPUTED-14V4 COMPUTED-A-(4.(4.NC2014
037000         04 FILLER                           PIC X.               NC201436     0       038300         04 FILLER     X.               .2
07100803COR-ANSI-REFERENCE             PIC) SPACENC2014
070 0  TEST-CORRECTNC2014
330     02 FILLERPIC (30)VALUE.                             NC2014.07     2FILLERPANC2014
040    2FILLERX1)VALUE=" NC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037500     02 CORRECT-X.                                                NC2014.03730     2 FILLER X(30) VALUE.                             NC2014.2
0370     3CORRECT-A (0)VALUE SPACE.2
037700     03 CORRECT-N    REDEFINES CORRECT-A     PIC03700     3 CORRECT-A X(20)  SPACE.         NC2014
037800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC20143700     0 CORRECT-0V18 CORRECT-A     PIC.0400FILLER X(15VALUE      2
037900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC3000 CORRECT-14V4 CORRECT-A      -9(14).9().     NC2014600                       X4    SPACE2
038000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC800                          PIC9VALUE.       NC2014
31     3CR-18V0 REDEFINES3003FILLER PIC)VALUE.                             2
0380004CORRECT-18V0 -9(1).NC2014
080         0 FILLER                           PIC               .2
0800     3FILLER(2VALUENC2014
038500     03 COR-ANSI-REFERENCE             PIC X(48                     PIC 99     VALUE .       NC2014
038600 01  CCVS-C-1                                                    .2
038700     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC2014.2
0300ANSI-REFERENCE2     SPACENC2014.2
038900-    " REMARKS".                                            310 0  CCVS-C-2.040800 01  CCVS-H-1.
039000     02 FILLER                     PICX(0)     SPACE1     OFFICIALVALIDATION2
039100  .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
320     0                      PICVALUE6     2FILLER 9)    VALUE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039300     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC2014.2
039400     02 FILLER                     PIC X(15)    VALUE SPACE.      NC2014.2
039500     02 FILLER                     PIC X(4)     VALUE "FAIL".NC2014
039600     02 FILLERPIC(9)    VALUE.      NC2014
039700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC2014.2
09801  REC-CT 99       VALUEZERO       NC2014
039900 01  DELETE-COUNTER                PIC 999      VALUE4100  INSPECT-COUNTER 999      VALUE.       NC2014.2
000 1ERROR-COUNTER                 99VALUE
400 1  INSPECT-COUNTER                999       ZERONC2014
040200 01020            RESULT                    9       ZERO
0400 1                    999      VALUE.2
040400                      PIC 999VALUE200                           ()    NC2014
040500 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2014.2
040600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC2014020      HIGHNC2014
470 1  ANSI-REFERENCE X48     SPACESNC2014
00800  .                                                    .2
040010     2FILLER X(42)    VALUE.2
  FILLERPIC ()                 NC20140     OFFICIAL SYSTEM
041100     "OFFICIAL COMPILER VALIDATIONSYSTEM. NC2014.2
                    (9     .NC2014
0300  CCVS-H-2A
041400   02  FILLER                        PIC X(40)  VALUE SPACE.      NC2014.2
041500   02  FILLER060               USE.                        NC2014
010     FILLER                         XXXXjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
400"2"NC2014
041800   02  FILLER                        PIC X(28)  VALUE04800   2FILLERPICX(2)  VALUE0     15" 2
490             -NOT". NC20142
020   2FILLERPIC1  VALUE SPACENC2014
04210                                                                  NC2014
042200 01  CCVS-H-2B.                                                   NC2014.2
0440    0 D-AGAIN X(.NC2014
020   2FILLERPIC1)  VALUE.2
02500                         PIC()                    .020             OFNC2014
042600   02  FILLER00  .                                                    .2
042700            " IN ".                                               NC20140            "IN"                                               .2
004300   2FILLER490    0CCVS-E-2-2.2
042900             .                                              .2
043000   02  FILLER                        PIC X(22)  VALUE             NC2014.2
010             LEVELNC2014430"ERRORS ENCOUNTERED".                                 .2
043200   02  FILLER0330     " VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2014.2
043300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2014.2
0430 0CCVS-H-3NC2014
043057002FILLER                      PIC X()  VALUE      .2
0430             FOR USE                         NC2014
043700     02  FILLER                      PIC X(58)  VALUENC2014
0460" OFFICIAL USEONLY"                         2
043900     02  FILLER                      PIC X(28)  VALUE             NC2014.2
044000            " COPYRIGHT 18".NC2014
410301CCVS-E-4.                                                   2
044200     2                       PICX(5)  VALUE SPACE.2
044300     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC201400              COPYRIGHT5.                                NC2014
040                            X(9.NC2014
044500     02 FILLER                       PIC X(45)  VALUE SPACES.     NC2014.2
40 1.
044700     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2014.2
044800     02  FILLER                      PIC X(21)  VALUE SPACE.      NC2014.2
0490     02      .                                                .2
40                        PIC    VALUENC2014
0410         0                    PIC      VALUE.      NC2014
04520         3ENDER-DESC(4               NC2014
450            ERRORSNC2014
045400 01  CCVS-E-3.                                                    NC2014.2
045500     02  FILLER                      PIC 070     2INF-ANSI-REFERENCE .NC2014
0456             FORUSENC2014050            ERRORSNC2014
057002FILLER (12VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050     2FILLERX5)VALUE
045900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2014.2
046000     0  FILLER                       X(13   SPACE.      NC2014
60     0 FILLERPIC()VALUE
0480     0                        PIC(8  VALUE             03************
046300 1  .                                                    .2
046400     0061
000ROCEDUREDIVISIONNC2014
04660    0CCVS-E-4-2                   PIC    VALUE.      NC2014
046700                        PIC)VALUE             NC2014
600        0600                    XXX
460 01XXINFO.2
0470090         SPACE TEST-RESULTSNC2014
047100            "*** INFORMATION ***".094600 CCVS-E-4-2 XXXVALUE.     .
047000FILLERPIC0              NC2014
0430       4FILLER                     PIC X(8)   090CLOSE-FILESNC2014
47000                  PIC(0                   .2
4700       4FILLER X(5)   VALUE.      NC2014
047600       04 XXCORRECT                  PIC X(20).                   NC2014.2
047700     02 INF-ANSI-REFERENCE410            **INFORMATION" NC20142
070 1HYPHEN-LINENC2014
047900    02 FILLERPIC X VALUE SPACENC2014
048000     02070004FILLERPIC X()   VALUE.      NC2014
4800-"**************************"                 NC2014
048200     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2014.2
080************
0000DE-LETE "*** TO P-OR-F. ADD DELETE-COUNTER NC2014.
0450    NC201ANC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040     FILLER  X VALUE.                          .2
048700 04800     0 FILLERPIC X(65)VALUE "00 NOT EQUAL ZERO NC2014.2
080 .                                                      .2
048900     OPEN     OUTPUT PRINT-FILE.                                  NC2014.2
049000     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC2014.2
049100     MOVE    SPACE TO TEST-RESULTS.                               850"NC201A. .2
049200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2014.2
049300     GO TO CCVS1-EXIT.                                            NC201408800 OPEN-FILES.                                                      NC2014.2
049400 CLOSE-FILES.                                                     NC2014.2
04950       THRU.CLOSE.   NC2014
049600 TERMINATE-CCVS.                                                  NC2014.0900MOVE TO.051600     MOVE     SPACE TO RE-MARK.
490     PROGRAM.2
049800 TERMINATE-CALL.                                                  NC2014.2
4990          RUN.                                                .2
000 . MOVE "" TO P-OR-F1TO.         NC2014.2
050100 PASS.  MOVE "020 CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. .2
0502000200    MOVE TO. PERFORM WRITE-LINE 2 090          RUNNC2014
  MOVE "*"P-OR-FDELETE-COUNTERjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050400     MOVE "****TEST DELETED****" TO RE-MARK.                      0520FAIL"" TOP-OR-F TO.         .2
05050 .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006     REC-CTTO                                   .2
""TOPARDOT-X.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05080              REC-CT DOTVALUE000             ""TONC2014
050900          TEST-RESULTS PRINT-REC PERFORM WRITE-LINE.2
051000     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC2014.2
50        PERFORM THRUNC2014
051200          ELSE PERFORM7       CCVS-E-4 CCVS-E-2-2NC2014
050580      MOVE TO PERFORM.           NC20142          PERFORM BAIL-OUT-EX.
051400     MOVE SPACE TO CORRECT-X.                                     NC2014.2
051500     IF     REC-CT EQUAL TO ZERO              ERROR-COUNTEREQUAL ZERO.2
5100     SPACE RE-MARK.
051700 HEAD-ROUTINE.                                                    0    MOVE TORE-MARKNC2014.2
051800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2014.2
051900     01800     CCVS-H-1  TO. PERFORM WRITE-LINETIMES.2
052000     MOVE CCVS-H-2B5100MOVE TO. PERFORM 2 TIMES.  .2
05      CCVS-H-3 DUMMY-RECORD  WRITE-LINE TIMES.  NC20142
0500      TOPERFORM 3 TIMES.2
052300     MOVE TO DUMMY-RECORDPERFORM.           NC2014
052400     MOVE CCVS-C-2 TO05230     MOVE TO DUMMY-RECORD WRITE-LINE.NC2014
020      HYPHEN-LINE . PERFORM.NC2014
0520250      HYPHEN-LINE DUMMY-RECORD WRITE-LINENC2014
0520      HYPHEN-LINE.  WRITE-LINE.NC2014
052800 END-RTN-EXIT.                                                          "TEST() " TO.                   020     MOVE TO.  WRITE-LINE TIMES2
052900     MOVE30IF EQUAL TO                          .2
053000 END-ROUTINE-1.                                                   NC2014.2
053100ADDERROR-COUNTER ERROR-HOLDINSPECT-COUNTER TO.2
053200      ERROR-HOLD. ADD57       CCVS-E-2 DUMMY-RECORD WRITE-LINE.2
030        TO.                             NC2014
053400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2014.2
053500      MOVE PASS-COUNTER TO CCVS-E-4-1053400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2014.2
053600      MOVE ERROR-HOLD360       ERROR-HOLDTO.                              NC2014
05305370      MOVE0         DUMMY-RECORD                          2
053800      MOVE CCVS-E-2 PERFORM.           NC2014
05390590END-ROUTINE-12.2
040MOVETEST) FAILED" TOENDER-DESC .java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
054100     IF       ERROR-COUNTER IS EQUAL TO ZERO5 "NO ERROR-TOTAL NC2014.
054200         MOVE "NO " TO80MOVE TO                          .2
054300         ELSE                                                     NC20140PERFORM .                                              .2
054400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC20140    MOVE TO.                                  .2
054500     MOVE0PERFORM.                                              .2
054600     PERFORM WRITE-LINE.                                          NC2014.2
054700 END-ROUTINE-13.                                                  NC2014.2
054800     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC201410     MOVETEST DELETED ENDER-DESC.                   NC2014
054900         MOVE " " TO  ELSE                          NC2014
055000         MOVE DELETE-COUNTER 055500      ELSE MOVE INSPECT-COUNTER ERROR-TOTALNC2014
500    MOVE)DELETED .                   NC2014
05520050       CCVS-E-2 DUMMY-RECORD PERFORM WRITE-LINE WRITE-LINE.2
53 IF EQUAL TO                          NC2014.2
055400          MOVE T-COMPUTED PRINT-REC PERFORM         NC2014
05550      ELSE MOVE INSPECT-COUNTER TO.                   .2
055600      MOVE "TEST(S) REQUIRE INSPECTION" TO0        TEST-CORRECT  PERFORMWRITE-LINE. NC2014
055700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC2014.2
05580     MOVECCVS-E-3 DUMMY-RECORD. PERFORM.           NC2014.2
05500WRITE-LINENC20142
060     ADD1TO .                                       .2
RECORD-COUNT0NC2014
056200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC2014.2
056300         MOVE SPACE TO DUMMY-RECORD                               NC20140MOVE TO. MOVE TO.  NC2014
560         WRITE AFTERADVANCINGPAGE.2
056500         MOVE CCVS-C-1 TO0MOVE TO.                         .2
056600         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM                    .2
00710 .                                                          .2
0560000EXIT
RO RECORD-COUNT0      PACE .                                  NC2014
057000     PERFORM WRT-LN.                                              NC2014.2
057100 WRT-LNNC2014.
057200     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES000     MOVE   VI-1124GR10 ANSI-REFERENCE.2
530MOVE SPACE  DUMMY-RECORDNC2014
057400 BLANK-LINE-PRINT.                                                NC201400      1 TO.                                          java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
50PERFORM.                                              .2
0570 .                                                    .2
057700     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2014.2
057800     IF     CORRECT-X NOT EQUAL TO SPACE GO                       .2
057900     MOVE   ANSI-REFERENCE08600        ANSI-REFERENCETO.                 NC2014
058000     MOVE  INFORMATION.  INFO-TEXT   NC2014
058100     MOVE   XXINFO0800MOVE TO .                         NC2014
058200     MOVE   SPACES TO500BAIL-OUTNC2014
058300     GO TO  FAIL-ROUTINE-EX090     IF061700     GO TO PFM-WRITE-F3-1
05840 .                                              2
TO PRINT-REC          NC2014
560    MOVEA TO COR-ANSI-REFERENCE.                NC2014
058700        TEST-CORRECT PRINT-REC  2 TIMES   XXINFO.PERFORM TIMES
580        SPACES COR-ANSI-REFERENCENC2014
058900 FAIL-ROUTINE-EX. EXIT.                                           NC2014.2
059000 BAIL-OUT.                                                        062400*                                                                 NC2014.2
900    IF     COMPUTED-A NOT EQUAL O java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
520      EQUAL  GO .           NC2014
059300 BAIL-OUT-WRITE062800*    NOTE IN THIS TEST CONDITION IS SATISFIED WHEN PERFORM IS     060300     MOVE "PFM-TEST-F3-1" TO PAR-NAME.                            NC2014
CORRECT-A XXCORRECTMOVECOMPUTED-A .  NC2014
059500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2014 .
059600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES061000*    ORIGINALLY WHEN THE PERFORM IS ENTERED.                      NC2014.2
0570MOVE TO.                         .2
0580BAIL-OUT-EXNC2014.
0590 .                                                      .2
060000     EXIT.                                                        NC2014.2
0600 SECT-NC201A-001 .                                         NC2014
060200 PFM-INIT-F3-1.                                                   NC20140MOVE TO.NC2014
060300     MOVE "PFM-TEST-F3-1" TO PAR-NAME.                            NC2014.2
060400     MOVE   "VI-112 6.20.4 GR10(d)" TO ANSI-REFERENCE.020      PRINT-DETAILNC2014
060500     MOVE "PERFORM UNTIL" TO FEATURE.                             NC2014.2
060600     MOVE 1 TO PERFORM2.                                          NC2014.2
060700 PFM-TEST-F3-0.0270064600      PFM-TEST-F4-1.                            .2
008       PFM-A PFM-AA PERFORM2 TO       NC2014.
060900*    NOTE IN THIS TEST THE CONDITION IS NOT SATISFIED             NC2014.2
061000*    ORIGINALLY WHEN THE PERFORM IS ENTERED.                      NC2014.2
061100 PFM-TEST-F3-1.                                                   NC2014.2
061200     IF PERFORM2                              TO.
0630GOTO.                NC2014
061400     GO TO PFM-FAIL-F3-1.                                         NC2014.2
030PFM-FAIL-F3-2NC2014
061600      040  PFM-FAIL-F4-1.2
010     GO TO.                                        00     5  CORRECT-N
080 .                                                   .2
061900     MOVE PERFORM2 TO COMPUTED-N.                                 NC2014.2
062000     MOVE 48 TO CORRECT-N.                                        NC2014 .                                                   .2
040     MOVEVARYING.                           .2
06220061      FAILNC2014
062300     PERFORM PRINT-DETAIL.                                        NC2014.2
062400*                                                                 NC2014.2
650PFM-INIT-F3-2NC2014
02  "PFM-TEST-F3-2 PAR-NAME. .
062700     MOVE 5060      12.  CORRECT-NNC2014
062800*    NOTE IN THIS TEST CONDITION IS SATISFIED WHEN PERFORM IS     NC2014.2
062900*    ENTERED AND CONTROL SHOULD NOT BE PASSED TO PFM-C.           NC2014.2
063000 PFM-TEST-F3-2.                                                   NC2014.2
06310      PFM-CPERFORM2 THAN.2
063200     IF PERFORM2 EQUAL TO 50 PERFORM PASS                         NC2014.2
063300                             GO TO PFM-WRITE-F3-2.                050MOVEPERFORM4.                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063400     GO TO PFM-FAIL-F3-2 .                                                   .2
063500 PFM-DELETE-F3-2.                                                 NC2014.267500*    NOTE  THIS ALSO TESTS THAT WHEN THE CONDITION IS TRUE,       NC20146640     MOVE TO COMPUTED-N06700     FALLS THRUTHE IS  EXECUTED.2
063600     PERFORM DE-LETE.                                             NC2014.2
063700     GO TO PFM-WRITE-F3-20690PFM-INIT-F4-2NC2014
063800 PFM-FAIL-F3-2.                                                   NC2014.2
063900     MOVE PERFORM2 TO0MOVETO.NC2014
06400MOVETO.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
06410PERFORM.
067600*    CONTROL068600*        OCCURS CLAUSE CAN BE FOUND IN067700     PERFORM PFM-G VARYING PERFORM3 FRO 2              NC2014
040 PRINT-DETAILNC2014
064400*                                                                 NC2014.2
0640 PFM-INIT-F4-1NC20142
06MOVE PAR-NAME.2
064700     MOVE "PERFORM VARYING" TO FEATURE.                           NC2014.2
064800 PFM-TEST-F4-1.                                                   NC2014.2
064900     0685090MOVE PERFORM8()TO.
600         UNTIL PERFORM4TO                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065100     IF PERFORM4 EQUAL TO 8.8 AND PERFORM6 EQUAL TO600      TO.NC2014
065200               PERFORM6200MOVE (1) TO.                             NC2014
630GO PFM-WRITE-F4-1NC2014
065400     GO TO PFM-FAIL-F4-1.                                         NC2014.2
60PFM-DELETE-F4-1NC2014.2
065600     PERFORM8 .                                      .2
00  (5)TONC2014
065800 PFM-FAIL-F4-1.                                                   070200     MOVE 14.1 TO CORRECT-N.                                      NC2014
065900     MOVE PERFORM4 "" TO                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
066000000      PERFORM3.                                 .2
066100     PERFORM FAIL.                                                NC2014.2
0000MOVE PAR-NAME.2
066300 SPACE P-OR-FNC2014
0660     MOVE  TO.                                 .2
066500     MOVE 12.5 TO CORRECT-N.                                      NC2014.2
066600 PFM-WRITE-F4-1.                                                  NC20141MOVETO2
06670 PRINT-DETAILNC2014
066800*                                                                 NC2014.2
066900 PFM-INIT-F4-2000PERFORM THRU PERFORM3.2
06071400*                                                                  PERFORM9 UNTIL EQUAL TO          .2
067100     MOVE 5.010      "PFM-TEST-F4-3"TONC2014
020     MOVE 55TO PERFORM8 ()                                    NC2014
630PFM-TEST-F4-2NC20142
067400*    NOTE IN THIS TEST ONE SUBSCRIPT IS VARIED.                   NC2014.2
067500*    NOTE  THIS ALSO TESTS THAT WHEN THE CONDITION IS TRUE,       NC2014.2
067600*    CONTROL FALLS THRU AND THE PROCEDURE IS NOT EXECUTED.        NC2014.2
067700     PERFORM PFM-G VARYING PERFORM3 FROM 1 BY 2 UNTIL             NC2014.2
60      GREATER THANNC2014
067900     IF PERFORM8 (1) EQUAL TO 13.5 AND PERFORM8 (3) EQUAL TO13.8 NC2014
068000     AND PERFORM8 (5) EQUAL TO 14.1 AND PERFORM8 (7) EQUAL TO0      PERFORM14) TO0AND (3, )NC20140PERFORM14 EQUAL 450AND (2, 0        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
068100     5.5 AND PERFORM3 EQUAL TO 7                                  NC2014.2
06820               PERFORM                                       NC2014
068300               GO TO PFM-WRITE-F4-2.                              NC2014
068400*    NOTE THE OCCURS CLAUSE IS NEEDED IN THE DATA DESCRIPTION     NC2014.2
068500*        FOR THESE PERFORM TESTS --- MORE EXHAUSTIVE TESTS OF THE NC2014.2
068600*        OCCURS CLAUSE CAN BE FOUND IN THE TABLE HANDLING TESTS.  NC2014.2
068700     GO TO PFM-FAIL-F4-2.                                         NC2014.2
068800 PFM-DELETE-F4-2.                                                 NC2014.2
068900     PERFORM DE-LETE.                                             NC2014.2
069000     GO TO PFM-WRITE-F4-2.                                        60GO PFM-WRITE-F4-3NC2014
069100 PFM-FAIL-F4-2.                                                   NC2014.2
06920MOVE (1) TO.                             .2
0693030MOVE0MOVE (3,  2 TO.
0900NC2014
069500     PERFORM PRINT-DETAIL.                                        NC2014.2
069600     MOVE SPACE TO P-OR-F.                                        NC2014.2
069700     MOVE PERFORM8 (3) TO COMPUTED-N.                             NC2014.2
069800     MOVE 13.8 040MOVETOCORRECT-NNC2014
6900MOVE"TO040 "" TO PAR-NAME NC20142
700PERFORM.                                        NC20142
070100     MOVE PERFORM8 (5) TO COMPUTED-N.                             NC2014.2
070200     MOVE 14.1 TO CORRECT-N.                                      NC2014.2
070300     MOVE "PFM-TEST-F4-2" TO PAR-NAME.                            NC2014      PRINT-DETAIL      PFM-TEST-F4-3
0 PERFORM                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
75     MOVE 7TO.NC2014
76       5.  CORRECT-NNC2014
070MOVE TO.                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070800     PERFORMPRINT-DETAIL.                                        .2
070900     MOVE PERFORM3 TO COMPUTED-N.                                 NC2014.2
071000     MOVE 7 TO CORRECT-N.                                         NC2014.2
071100     MOVE "0608 PRINT-DETAIL.NC20142
071200 PFM-WRITE-F4-2.                                                   PERFORM148  COMPUTED-NNC2014
0710PERFORM.                                        .2
071400*                                                                 NC2014.2
071500 PFM-INIT-F4-3.                                                   06300     MOVE PERFORM14 (2 1 COMPUTED-NNC2014
07160java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
071700     MOVE910    PERFORM PFM-L VARYING PERFORM3 FROM  BY 2NC20140PFM-WRITE-F4-3.NC2014
071800 .                                                   2
071900*    NOTE IN THIS TEST TWO SUBSCRIPTS ARE VARIED.                 NC2014.2
072000     PERFORM PFM-I THRU PFM-J VARYING PERFORM3                    NC2014.2
072100     FROM PERFORM9 BY PERFORM10 UNTIL PERFORM3 EQUAL TO 1         NC201407500 .075 ,  TO (1 ).2
0220     AFTER PERFORM2 2 PERFORM11PERFORM2.2
730THAN.2
020IF (3,) EQUAL  15.0   (3, 8       .2
072500     EQUAL TO 20790MOVE TO XRAY.                                         .2
072600     AND PERFORM14 (3, 2000      (4, , 3  TO2AND (4, 5,5     .2
0770      TO. MOVE "" TONC2014
072800020    TO PFM-L PERFORM3PERFORM9NC2014
720     PERFORM14 (,1)EQUAL 45. AND PERFORM14020     PERFORM3   10
3       5.  PERFORM200TONC2014
073100     EQUAL TO 1 AND XRAY EQUAL TO "000PFM-DELETE-F4-4. NC2014.2
073200GO PFM-WRITE-F4-35 IF (,03EQUAL.  PERFORM16NC2014
730      TO.
073400PFM-DELETE-F4-3.                                                .2
073500     PERFORM890MOVE (2,1,3 TO COMPUTED-N.                    .2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
770PFM-FAIL-F4-3NC20142
073800     MOVE PERFORM14 (3,  2) TO COMPUTED-N.                        NC2014.2
7900MOVETOCORRECT-NNC2014
074000     PERFORM FAIL.                                                 PASSTO.                           NC2014
074100     PERFORM PRINT-DETAIL.                                        NC20140 PFM-DELETE-F4-4.                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
078 .                                                   .2
074300     MOVE PERFORM14 (3,  8) TO COMPUTED-N.                        NC2014.0000     PERFORM162 1 )T NC2014
074400     MOVE 20.0 TO CORRECT-N.                                      NC2014.2
074500     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
074600     PERFORM PRINT-DETAIL.                                        NC2014.2
074700     MOVE PERFORM14 (3, 14) TO COMPUTED-N.                        NC2014.2
074800     MOVE 25.0 TO CORRECT-N.                                      NC2014.2
074900     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
075000     PERFORM PRINT-DETAIL.                                        NC2014.2
075100     MOVE PERFORM14 (3, 20) TO COMPUTED-N.                        NC2014.2
075200     MOVE 30.0 TO CORRECT-N.                                      NC2014.2
075300     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
075400     PERFORM PRINT-DETAIL.                                        NC2014.2
075500     MOVE PERFORM14 (2,  2) TO COMPUTED-N.                        NC2014.2
075600     MOVE 35.0 TO CORRECT-N.                                      NC2014.2
075700     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
075800     PERFORM PRINT-DETAIL.                                        NC2014.2
075900     MOVE PERFORM14 (2,  8) TO COMPUTED-N.                        NC2014.2
076000     MOVE 40.0 TO CORRECT-N.                                      NC2014.2
076100     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
076200     PERFORM PRINT-DETAIL.                                        NC2014.2
076300     MOVE PERFORM14 (2, 14) TO COMPUTED-N.                        NC2014.2
076400     MOVE 45.0 TO CORRECT-N.                                      NC2014.2
076500     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
076600     PERFORM PRINT-DETAIL.                                        NC2014.2
076700     MOVE PERFORM14 (2, 20) TO COMPUTED-N.                        NC2014.2
076800     MOVE 50.0 TO CORRECT-N.                                      NC2014.2
076900     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
077000     PERFORM PRINT-DETAIL.                                        NC2014.2
077100     MOVE PERFORM2 TO COMPUTED-N.                                 NC2014.2
077200     MOVE    2 TO CORRECT-N.                                      NC2014.2
077300     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
077400     PERFORM PRINT-DETAIL.                                        NC2014.2
077500     MOVE PERFORM3 TO COMPUTED-N.                                 NC2014.2
077600     MOVE    1 TO CORRECT-N.                                      NC2014.2
077700     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
077800     PERFORM PRINT-DETAIL.                                        NC2014.2
077900     MOVE XRAY TO COMPUTED-A.                                     NC2014.2
078000     MOVE "A" TO CORRECT-A.                                       NC2014.2
078100     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
078200 PFM-WRITE-F4-3.                                                  NC2014.2
078300     PERFORM PRINT-DETAIL.                                        NC2014.2
078400*                                                                 NC2014.2
078500 PFM-INIT-F4-4.                                                   NC2014.2
078600     MOVE "PFM-TEST-F4-4" TO PAR-NAME.                            NC2014.2
078700     MOVE 2 TO PERFORM9.                                          NC2014.2
078800     MOVE 2 TO PERFORM10.                                         NC2014.2
078900 PFM-TEST-F4-4.                                                   NC2014.2
079000*    NOTE IN THIS TEST THREE SUBSCRIPTS ARE VARIED.               NC2014.2
079100     PERFORM PFM-L VARYING PERFORM3 FROM PERFORM9 BY 2            NC2014.2
079200     UNTIL PERFORM3 GREATER THAN 4 AFTER PERFORM2 FROM 10         NC2014.2
079300     BY -5 UNTIL PERFORM2 EQUAL TO 0  AFTER PERFORM11             NC2014.2
079400     FROM 3 BY PERFORM10 UNTIL PERFORM11 GREATER THAN 5.          NC2014.2
079500     IF PERFORM16 (2, 10, 3) EQUAL TO 5.0 AND PERFORM16 (2, 10, 5)NC2014.2
079600     EQUAL TO 5.7 AND PERFORM16 (2, 5, 3) EQUAL TO 6.4 AND        NC2014.2
079700     PERFORM16 (2, 5, 5) EQUAL TO 7.1 AND PERFORM16 (4, 10, 3)    NC2014.2
079800     EQUAL TO 7.8 AND PERFORM16 (4, 10, 5) EQUAL TO 8.5           NC2014.2
079900     MOVE "B" TO XRAY. IF                                         NC2014.2
080000     PERFORM16 (4, 5, 3) EQUAL TO 9.2 AND PERFORM16 (4, 5, 5)     NC2014.2
080100     EQUAL TO 9.9 AND PERFORM11 EQUAL TO 3 AND PERFORM2 EQUAL     NC2014.2
080200     TO 10 AND PERFORM3 EQUAL TO 6 AND XRAY EQUAL TO "B"          NC2014.2
080300     PERFORM PASS GO TO PFM-WRITE-F4-4.                           NC2014.2
080400     GO TO PFM-FAIL-F4-4.                                         NC2014.2
080500 PFM-DELETE-F4-4.                                                 NC2014.2
080600     PERFORM DE-LETE.                                             NC2014.2
080700     GO TO PFM-WRITE-F4-4.                                        NC2014.2
080800 PFM-FAIL-F4-4.                                                   NC2014.2
080900     MOVE PERFORM16 (2, 10, 3) TO COMPUTED-N.                     NC2014.2
--> --------------------

--> maximum size reached

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

quality96%

¤ Dauer der Verarbeitung: 0.41 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.