Quellcode-Bibliothek nc201a.cob Sprache: Cobol

000 IDENTIFICATION01  DIVISIONNC2014
0000.                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000300     NC201A.                                                      NC2014.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
002700                                                                  NC2014.2
002800 ENVIRONMENT DIVISION.                                            NC2014.2
00  SECTIONNC2014
003000 SOURCE-COMPUTER.                                                 NC2014.2
030Card0130NC2014
003200 OBJECT-COMPUTER.                                                  .                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030 DATA .                                                   2
40 INPUT-OUTPUT SECTION.                                           NC2014
003500 FILE-CONTROL.                                                    401  PRINT-REC  X(1040  PICTURE1)NC2014
00     SELECT ASSIGN TO.2
003700     "C0085" .                                                    NC2014.2
8 .
00  SECTION.2
004000 FD  PRINT-FILE.                                                  NC2014.2
004100 01  0047000  WRK-DU-2V1-3 99V9  11.1.                         .2
0042000   PICTURE(20.NC2014
004300 WORKING-STORAGE SECTION.                                         NC20140490 1WRK-DU-1V0-2 9VALUENC2014
0040 1WRK-DU-2V1-19  ZERO.2
0030WORKING-STORAGE .                                         .2
0.1.                             .2
004700500  WRK-DU-0V1-1 PIC V9 .1                                .01 1WRK-DU-1V0-4VALUE.
004800 01  WRK-DU-1V0-1 PIC 9004700 01  WRK-DU-2V1-3  PIC 9  VALUE                         .2
004900 01  WRK-DU-1V0-2 PIC 9 VALUE 040 1  PIC9VALUE501WRK-DU-2V0-31.NC2014
005000 01  WRK-DU-1V0-3 0001WRK-DU-1V0-3  3.                                  .2
0500WRK-DU-1V0-4ZERO.
005200 01  WRK-DU-2V0-1 PIC0200  WRK-DU-2V0-19  10.                                .2
005300   PIC 9  11.                                07SMALL-VALU  7                             .2
5000    99.2
00505000    (6.                                     NC2014EVEN-SMALLERVALUE.
0507     0607PICTURE
07 7 PICTURE6                             .
00580 7SMALLEST-VALU 99VALUE5 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0907 EVEN-SMALLER 99 VALUENC2014000 7                   PICTURE.                    NC2014
060 7  WRK-DS-02V00PICTURE.                    .2
0108 TEST-2NUC-COND-99.NC2014
006200 77  WRK-DS-06V060307WRK-DS-12V00-S WRK-DS-06V06.2
006300 77  WRK-DS-12V00-S REDEFINES607006400                   0PICTURE.NC2014
040                                  S99P       2
NC2014.2
060 7WRK-DS-01V00 S9.2
006700 77  A02TWOS-DS-03V02             PICTURE S999V99 VALUE +022.00.  NC2014007                 (8)VALUE0N2
0068060 7A02ONES-DS-02V00PICTURE    VALUE.
090 7A02ONES-DS-02V00 7A01ONE-DS-P0801 SPVALUE00..2
070 7A0              PICTURE(8)9 VALUE.0001NC2014.
00                    S9         .2
07207                   PICTURE.                     .0507THREE3
0073  PICTURENC2014
007400 77  08 7TENVALUENC2014
007500 77  THREE PICTURE 9 VALUE 3.                                     NC2014ALTERCOUNTVALUE                           .2
060 7SEVEN90107   S9VALUE
007700 77  NINE  PICTURE00207  9 VALUENC2014
007800 77  TEN0307 0707TEN 9VALUE.
007900 7   PICTURE1)VALUE               00    PICTURE9  .                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008000 7   PICTURE(6V9   PICTURE()2VALUE.
03 77IF-D3VALUE.NC2014
0080807   PICTURE X(1500   PICTURE 1"NC2014
07 PICTURE "0000"2
00 7 PICTURE6(4)VALUE                        .2
X(10 VALUE.                         2
NC2014.2
008700 77  IF-D7 PICTURE S9(6)V9(4) VALUE0930 708   PICTURE(6V9+24.NC2014
PICTURE)(4)  20.NC2014
007IF-D93 VALUE.NC20149007   PICTUREX3  "123".NC2014
000    PICTURE0   PICTURE)VALUENC2014
0091000907  IF-D13 96V9 12300                        .2
IF-D14 S9(V9 +123.4.                    NC2014
00900 7  IF-D19 PICTURE0   PICTURE VALUENC2014
B9NC2014
009500 77  IF-D17 7  IF-D17007IF-D24(1)VALUE"12340. NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009600 77  IF-D18 PICTURE X(1090 7  PICTUREVALUEC" .2
90    PICTURE0 VALUE    .NC2014
00807   PICTURE $,B9.0                                   .2
97009900 77  IF-D24VALUE"NC2014.
0007   PICTURE ABABX0A.                                     NC2014007IF-D28 IS9V9999  174.NC2014
0100 7IF-D26(  "AC ".                         .2
0100 7  PICTURE9601 7  X()" ".                         .2
10      ISNC2014
010400 010     USAGE  COMPUTATIONALNC2014
010500080    8B ARE   4.                                   .2
0106001008  IS1.4                                       NC2014
108AVALUE.2
010800     88  B VALUES ARE 2 THRU 4.                                   NC20141608F IS 18 10  1209-.      2
010900     88  08     8 BVALUES .                                   .2
011000     8    IS +.4                                       .2
     EVALUE.1,1,.2.1                           NC2014
011208    IS 1810  18 9THRU
011300     88  G  VALUE 06088 VALUE.                                         2
011400 77  IF-D33 PICTURE X(4).                                         NC20147IF-D3408F 10THRU 18 9THRU.2
10     8    QUOTE.2
011600     88  C   VALUE 7   PICTURE ()                                         .2
011700     88 D VALUE11    PICTURE(  "13 "NC2014
01180 7IF-D34.NC2014
011900     88  B VALUE "A A ".                                          6     8  C    SPACE3    99 VALUE.2
1007 PICTURE  12345                             NC2014
01210 7IF-D38X(10   PICTURE8)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
12 7 PICTURE 11.                                  .
012310            PICTURE.               NC2014
012400 77  CCON-3 PICTURE 90107  java.lang.StringIndexOutOfBoundsException: Range [31, 23) out of bounds for length 80
0207COMP-SGN1( VALUE COMPUTATIONALjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012600 77  COMP-SGN2  PICTURE S9(1803 7   PICTURE9  12.                                  .2
0127     PICTURE()VALUENC2014
1 PICTURE() -17961.NC2014
012030 1012600 77  COMP-SGN2  P S9 + .            NC2014
307INC-VALUE)COMPUTATIONAL2
013100 77  SWITCH-PFM-1 9 VALUEZERO.                          NC2014.
03077  PICTUREVALUE.                           .2
03307  PFM-11-COUNTER PICTURE 9V ZERO00  .                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01340 7  PFM-12-COUNTER  PICTURE 99  100.                       NC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
135007PFM-12-ANS1  PICTURE 99VALUE.                         .2
013600 77  PFM-12-ANS2 999 VALUE.                         NC20142
3701SUBSCRIPT-699VALUE.                       NC2014
030001IF-TABLEPICTURE VALUE.                       NC2014
10IF-ELEMXOCCURS.                        NC2014
014000  .                                                  .2
0400400D3.2
014200     02 QU-2 PICTURE X VALUE QUOTE.                               NC2014.2
014300     02 QU-3 PICTURE X(6) VALUE "3190 0 X(4 "912
01400  .                                                      .2
014500     02  D101530003  D3.                                                      .2
014600     02  D2 PICTURE X(2) VALUE "23".                              NC20142 PICTURE XVALUE100D5VALUENC2014
040     2D3NC2014
048003  D4 X() ALUE" 2
014900     03 0500     2D1 9()VALUE.                                .2
015000 0  IF-D12                                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010        PICTUREX3 VALUE "ABC".                             .040     2 PICTURE (  2" NC2014.
015200     02  D2.014800     03  D4 PICTURE X(4) VALUE "4567".
0150     3  D3NC2014
015400     04  D41630     2  2 PICTURE)VALUE 135.                             NC2014
0150     4D5 PICTUREVALUE.NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015600 01500    2  D1 PICTURE  "ABC".                             .2
01500     0  FILLER 9(5)   VALUE.                     NC2014
015800     02  D1 PICTURE 9(2) VALUE4      PICTURE     VALUE" .
050       9 VALUENC2014
016000     02  D3 PICTURE 9(2) VALUE 45.                                NC2014.2
060  .                                                     .2
050     2     PICTURE5   VALUE                     .2
13        PICTURE  1234.NC2014
016400 01  IF-D22.                                                      NC20142D2 9VALUENC2014
016500     02  D1 PICTURE A(2) VALUE "AB".                              NC201460 1IF-D21NC2014
10     0    A(4)VALUENC2014
01670060     2D2 ()VALUE34                             .2
016800   PICTURE X2.NC2014
016900     88  A1 VALUE "AA".                                           NC2014.2
017000     8  A20    2  D1(2VALUENC2014
017100     02  BB PICTURE IS X(2).060     0  D2 PICTURE4  "CDEF".                            .2
017200     8  B1 VALUE.NC20142
"CD".                                           .2
01740     0 BB-2 BBNC2014
017500     01750     0  AAA X.                                           .2
0160     8  AA1 "A".                                           .2
0170     8  A2 "C. NC2014.
1800  PICTURE 2)                                      .2
0170     02        "CC"                                           2
018000     0800     8   VALUE"D"
11001 IF-D36  PICTURE X(2)VALUE IS80"2
01820    Z1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNC201470 8  AA1 VALUE ". NC2014.2
180-"NOPQRSTUVWXYZ1234567890ABCDEFGHIJKL".                       NC2014
08000IF-D40 95)VALUE                              NC2014
018500              COMPUTATIONAL SYNCHRONIZED RIGHT.070     3   PICTURE.                                          080    8 IF-D40A  10000                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018600     88 IF-D40A VALUE ZERO80    "Z1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNC20142
018700     88 IF-D40B VALUE 100001890 01  PERFORM1NOPQRSTUVWXYZ1234567890ABCDEFGHIJKLNC20142
080     8IF-D40C 999.                                     NC2014
0050               SYNCHRONIZED                   NC2014
0100 0  PERFORM2  PICTURE S999  20.                             .2
110 1PERFORM3.                              NC2014
019200 0118088IF-D40CVALUE9.                                     NC2014
901PERFORM5S99V9 10.0.                         NC2014000    PICTUREXXX SPACES.2
019400 01    PICTURE  9V9.NC201400  PICTUREV9NC2014
01950 0  .                                                    .2
019600     02  PERFORM8  OCCURS 7 TIMES  PICTURE  99V9.                 NC20141700 1PERFORM9 9VALUENC2014
019001PERFORM9     3.                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090 1PERFORM10S9VALUENC2014
019900 01  PERFORM11  PICTURE  99  VALUE20009000    PICTUREV9.2
020000 01PERFORM12NC2014.2
000     2PERFORM13  OCCURS 4.                                NC2014
0200 PERFORM14 0TIMES  9 .2
020300         03 PERFORM15900    PICTURE  S9 -1.NC2014
020400             0090 1PERFORM11PICTURE  9VALUENC2014
2050 1  PERFORM17PICTURE 9(6) COMPUTATIONAL               .2
020600 1  02040004PERFORM16 TIMES 99.          NC2014
0270 0  PERFORM-KEY 9.                                      NC2014.2
000601PERFORM1896 COMPUTATIONAL.2
020900   03   PFM71                OCCURS0         3PERFORM1400 1PERFORM-KEY .NC20142
021000     05  PFM72               OCCURS 202300   OCCURS1 .                           0000  .NC2014
021100       07  PFM73             OCCURS0090   03                   OCCURS 2.                            NC2014
02120         0  PFM74OCCURS 2.                            NC20142
021300           11  PFM75         OCCURS 2.                            NC2014.2
021400             13013011PFM75 2.                            .2
010              5       2.                            2
021600                 25015PFM77 2                            .2
0170 0S1 (5) COMP.2
021800 01  S2                      PIC S9(5) COMP.                      NC201402170 0                        PIC (5) COMP                      .2
02190 01  S3PIC(5) COMP.                      NC2014
02200 01  S4                      PIC S9(5) COMP.                      NC2014.2
022100 01  S5                      PIC S9(5) COMP.                      NC2014.2
022200 01  S6                      PIC S9() COMP                      .2
022300 01  S7                      PIC S9(5) COMP.                      NC2014.2
022400 01  PFM-7-TOT               PIC S9(02240 01  PFM-7-TOT.NC2014
21800200  PFM-F4-23-TOT (5) COMP.NC20142
002900  S3                      PIC(5) .                      .2
0220001PFM-B1PIC S9.NC2014
022800 01  FILLER-A.                                                    NC2014.2
020   3PFM-F4-24-APICS9( COMP 10.           NC2014.
023000 01  FILLER-B.020 0  S6                      PIC (5) COMPNC2014
2300   03  PFM-F4-24-B30 0S7 S9.NC2014
02200 0  FILLER-CNC2014.2
023300   03  PFM-F4-24-C00  PFM-7-TOT                S9 .                      NC2014
0220290     PFM-F4-24-APICS9  10            2
02350020 1                    PIC(5) COMPNC2014
023600         0           PICTUREX1)                  .2
0270         0            X(18                  NC2014
28003 .                                            .2
030          TBL-ELEMEN-E030     PFM-F4-24-BPIC  OCCURS1.           .2
0200 01  LITERAL-SPLITTERNC2014.2
024100     02 PART1                     PICTURE X(20).                  NC2014.2
024200     02 PART2                     PICTURE2330   03 PFM-F4-24-C S9(3)COMP OCCURS1.            NC2014.2
02430     2PART3 (2)NC2014
024400     02 PART4                     PICTURE X(20).                  NC2014.2
04500 1  LITERAL-TABLE REDEFINES LITERAL-SPLITTER                    .2
024600     00300    0 TBL-ELEMEN-A                                             2
024700 01  GRP-FOR-88-LEVELS.                                           NC20140 TBL-ELEMEN-BPICTURE X(.NC2014
02480030         5TBL-ELEMEN-C8                  .2
    8 COND-1 IS  05.            NC2014
0250020                    PICTURE 36TIMES
02101 THRU  0.NC2014
0220         8COND-3 11 THRU.              NC2014.2
05300 01  GRP-MOVE-CONSTANTS0001LITERAL-SPLITTER.2
025400     03 GRP-GROUP-MOVE-FROM.                                      NC2014.2
204GRP-ALPHABETICNC2014
025600             040     0 PART3                      X(20)                  NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0250                        VALUE       .20243     2PART30.
2580         04GRP-NUMERICNC2014.2
025900             260    2 0                   PICTUREOCCURS. NC2014
026000         05 DIGITS-DU-06V04-S REDEFINES0     3 WRK-DS-02V00-CONDPICTURE 9                     .2
01  9(6)V9999NC2014
026200         04 GRP-ALPHANUMERIC.                                     NC20148                 VALUES 6 10
026300             05 ALPHANUMERIC-XN-00049 PICTURE X(50)               22 8 COND-3 11 THRU.2
026400     VALUE  "ABCDEFGHIJKLMNOPQRSTUVWXYZ+-><=$,;.()/* 0123456789". NC2014.2
265005 FILLERPICTURE   QUOTE.     NC20141GRP-MOVE-CONSTANTS.2
026600 01  GRP-FOR-2N058.                                               NC2014.2
02670      .                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026800         03 ELEM-FOR-2N058-A PICTURE 999  VALUE ZEROES.           NC201400              ALPHABET-AN-00026 A2 NC2014
026900         03 ELEM-FOR-2N058-B2520         88COND-3VALUES 11 THRU15.             NC2014280         4GRP-NUMERIC.NC2014
27         0 ELEM-FOR-2N058-C XXX  VALUE.NC2014
027100         020          DIGITS-DU-06V04-S 050     3 GRP-GROUP-MOVE-FROMNC20142
027200         03 ELEM-FOR-2N058-E PICTURE010                                  PICTURE 96V9999.NC201402500         0 GRP-ALPHABETICNC20142
02730003 ELEM-FOR-2N058-F XXX  VALUEALLSPACESNC20140 ALPHANUMERIC-XN-00049 X(0               NC2014
02400         0 ELEM-FOR-2N058-GPICTURE XXX240     VALUE+>=,(/ 1579.NC2014
2700            5FILLERPICTURE   QUOTENC2014
0001GRP-FOR-2N058.2
027700         03 ELEM-FOR-2N058-J02000         5 DIGITS-DU-06V04-S REDEFINES           NC2014.2
027800         03 ELEM-FOR-2N058-K PICTURE XXX  VALUE ALL HIGH-VALUES.  02620         4 GRP-ALPHANUMERICNC2014.2
ALLLOW-VALUES.2
028000         03 ELEM-FOR-2N058-M240     20         3ELEM-FOR-2N058-BXXX.            .2
0210         0   XXXLOW-VALUES
028200     02 SUB-GRP-FOR-2N058-B0607 0 ELEM-FOR-2N058-DX6 ALLABC
30 .                                           .2
0840             ELEM-FOR-2N058-A 99                    .2
028500             04 ELEM-FOR-2N058-B30         0ELEM-FOR-2N058-F  XXX ALL029          PICTUREVALUE            .
028600          ELEM-FOR-2N058-D PICTURE(6)VALUEABC.2
07003 PICTUREVALUE.2
280         3SUB-SUB-BB3PICTURE  VALUE QUOTES
0028         0ELEM-FOR-2N058-K  VALUEHIGH-VALUES.
0070020         3ELEM-FOR-2N058-L  VALUE   .2
20000  PICTURE  VALUE.      NC2014
0            4ELEM-FOR-2N058-H 99.                   .
0290         320     2SUB-GRP-FOR-2N058-B.NC2014
0070          PICTURE XXX ALL LOW-VALUES80         0 .                                           NC2014
029500             04 ELEM-FOR-2N058-J  PICTURE XXX.                    NC2014.2
029600             04 ELEM-FOR-2N058-K  PICTURE XXX.                    NC2014.2
029700             04 ELEM-FOR-2N058-L  PICTURE XXX.                    NC2014.2
029800             04 ELEM-FOR-2N058-M  PICTURE 029800             04 ELEM-FOR-2N058-M  PICTURE XXX
029900             04 ELEM-FOR-2N058-N  PICTURE XXX.                    NC2014                PICTURE XXXNC2014
030000 01  CHARACTER-BREAKDOWN-S.                                       NC2014.2
030100     02   080         3SUB-SUB-BB.                                           .2
030200     02000   PICTURE .                    NC2014
0303000THIRD-20S04              ELEM-FOR-2N058-I .                    NC2014
0304000   PICTURE X(0.                               NC2014.
030500     02   FIFTH-20S PICTURE X(20).                                NC20149004 999.                    .
030600     02   SIXTH-20S PICTURE X(20).                                NC2014.2
030700     02090            4ELEM-FOR-2N058-N   .                    .2
030800     02  EIGHTH-20S PICTURE20.NC2014
390    2    PICTURE ()                                .2
310     0   TENTH-20SPICTURE)                                .2
300 CHARACTER-BREAKDOWN-RNC2014
320       FIRST-20R PICTURE X(0.                               .2
033300    PICTURE(2)NC2014
031400     02   THIRD-20R PICTURE X(20).                                40   PICTURE (0.NC2014
03000     2   SIXTH-20S PICTUREX2)                                NC20142
031600     03700  PICTUREX2)                                .2
031700     02   SIXTH-20R 1CHARACTER-BREAKDOWN-SNC2014
0000   NINTH-20S1002FIRST-20S X(0..2
0000     0  SECOND-20S X(2).NC2014
020     0    PICTURE (0)                                .2
032100     02   TENTH-20R PICTURE X(20).                                NC201400     2FOURTH-20S X(20)                                .2
3200  TABLE-80.                                                   NC2014
03010         PICTURE X2)                                .2
032400     8  VALUESTHRU .                             .
032500     88B80 8.                                            .2
3608C80 7 8THROUGH 9.2
032700                                                                  010 1CHARACTER-BREAKDOWN-RNC20142
032800 01  TABLE-86.01200   FIRST-20R X(20).                                NC2014
320     8A86.NC2014
033000     88  B86  VALUE "ABCABC".                                     NC2014.2
033100     88  C86  VALUE " ABC".                                     NC20141002EIGHTH-20R  X(20.NC20140350     2FOURTH-20R X(20)                                .2
033200     02  DATANAME-86  PIC XXX  VALUE320 0  TABLE-80.                                                   .2
033300     02  DNAME-86.                                                NC2014.2
03340         3  FILLERPIC  VALUENC2014
033500         03  FILLER  PIC X  VALUE "B".                            NC2014.2
033600         03  FILLER  PIC X   VALUE "C".                           NC2014.2
033700 01  FIGCON-DATA2001 TABLE-80.2
033800     02 SPACE-X         PICTURE X(10) VALUE " ".         NC2014.2
033900     02 QUOTE-X         030     02  ELMT 020     8  C80  VALUESARE78 9                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
40     2LOW-VAL ()VALUE.            .2
30     0  PICTURE0                                                                 NC2014
03420002ONE23 999VALUE.                 .2
034300     02 ZERO-C          PICTURE 9(10) VALUE 0 COMPUTATIONAL.      NC2014.2
034403290     88A86 "ABC".                                        .2
0350 0  .                                                NC2014
034600     02 FILLER                   PIC X      VALUE 030     2DATANAME-86 XXX  VALUE.                       .2
340     2PIC2)   SPACE.2
034800     02030         3FILLER X   "B".                            2
034900     02 P-OR-FPIC()VALUE.          NC20140FILLERVALUENC2014
035000     02 FILLER                   PIC X      VALUE SPACE.          NC2014.2
035100     02  PAR-NAME.                                                NC2014.2
035200       03 FILLER                 PIC X(19)  VALUE SPACE.          NC201439      QUOTE-X X(5  VALUE30  FIGCON-DATA.
53       3PARDOT-X        SPACE2
035400       03 DOTVALUE               PIC 99     VALUE ZERO0              PICTURE) .            2
0500FILLER X()VALUENC2014
03560     2 RE-MARK0ZERO-C0COMPUTATIONAL
03570 1TEST-COMPUTEDNC2014 1TEST-RESULTSNC2014
035800     02 FILLER00  .                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050     0FILLER (7  VALUE
036000            " COMPUTED=".                                   NC2014.2
036100     02 COMPUTED-X.                                               NC2014.2
320     0 COMPUTED-A               PIC ()  VALUE.         .2
0050400                    PICX)VALUE.
0360                                  90502 FILLER X       .          NC2014
036500     03 COMPUTED-0V18 REDEFINES         java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
036600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC2014
036700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC600                   PIC X(61.NC2014
038     3CM-18V0 COMPUTED-A.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036900         04 COMPUTED-18V0                    PIC 050002 FILLER                   PIC X(30)  VALUE SPACE.          NC2014.2
0370         4FILLERPIC.               NC2014
037100     03 FILLER PIC X(50) VALUE SPACE.                             NC2014.2
037200 01  TEST-CORRECT.                                                NC2014.2
037300     02 FILLER PIC0600           " =".NC2014.2
037400     02 FILLER1002COMPUTED-XNC2014.2
35002CORRECT-X.2
037600     03 CORRECT-A                  PIC X032003COMPUTED-A X(20VALUE.          .2
03CORRECT-N CORRECT-A     3 REDEFINES   PIC -(8         .2
370     3CORRECT-0V18 CORRECT-A .91)         NC2014
03067     3COMPUTED-14V4   PIC1)( NC2014
0380000 CORRECT-14V4 REDEFINES     PIC -9(.()     NC2014.2
0810    3CR-18V0 CORRECT-A.2
038200         04 CORRECT-18V090        0 COMPUTED-18V0                    PIC600  REDEFINES   PIC 91)94)     .2
                       PICNC2014
038400     03 FILLER PIC X(203690         4                     PIC -9(18).          NC2014.2
38      COR-ANSI-REFERENCE              (48 VALUE     NC2014
030201  .                                                .2
0800   PIC X()VALUE " FEATURE PANC20142
038800-    "SS PARAGRAPH-NAME NC2014.2
0890-    "04 0 FILLER PIC (7 "CORRECT.2
039000     02 FILLER                     PIC X(20)    VALUE SPACE.      NC2014.2
90001  .                                                    NC2014
039200     02 FILLER                     PIC X        VALUE 06003                  PICX2)VALUE .         NC2014
039300     02 FILLER                     07700     REDEFINES CORRECT-A -9(9.99).NC2014
30                           PIC15     SPACENC2014
039500     02 FILLER                     0790    3CORRECT-4V14 CORRECT-A -9(4)914.NC2014
0390     2 PIC()VALUE.2
039700 01  REC-SKL-SUB                   PIC0310003      CR-18V0 CORRECT-ANC2014.2
0390 1REC-CT 9        ZERO.2
9                   PIC9       ZERONC2014
040000 01  ERROR-COUNTER                 PIC 999      081003      CR-18V0 REDEFINES3003FILLER  ( VALUE.                             .
040100 01  INSPECT-COUNTER330         0 FILLER                            X.NC2014
040200 01PASS-COUNTER 999       ZERONC20140  PIC  .                              .2
040300 01TOTAL-ERROR 9      VALUE ZERO.2
040400 01  ERROR-HOLD038700     2   PIC IS(9)VALUE "FEATUREPANC2014.2
040500 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2014.2
0460 1RECORD-COUNT 9(5)      ZERO       NC2014
04070 0  039000     02 FILLER                      (0VALUE.      .      NC2014
NC2014
040900039200     2FILLERPIC        VALUE.      NC2014
041000     02  FILLER                    PIC X(42)    VALUE             NC2014.2
0410" COBOL COMPILER VALIDATION SYSTEM"                 .
041200     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2014340     02 FILLER                     PIC001CCVS-C-2NC2014
090     2 FILLER X        VALUE6     2FILLER (4    VALUE.NC2014
10   02  FILLER X(40)VALUE.      NC20142
041500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC2014.2
041600   02  FILLER                        PIC XXXX   VALUE             NC2014.2
041700     "4.2 ".                                                      NC2014.2
041800   02  FILLER                        PIC X(28)  VALUE             NC2014.2
041900            " COPY - NOT FOR DISTRIBUTION".                       NC2014.2
042000   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2014.2
042100                                                                  NC2014.2
04200 1CCVS-H-2BNC2014.2000 0  RROR-COUNTER                  9       ZERO.2
000100  INSPECT-COUNTER               PIC      VALUE.       .2
440"TEST 00300 TOTAL-ERRORPIC 99VALUEZERO. NC2014.2
042500   02  TEST-ID040400 01  ERROR-HOLD                     999      ZERO00TOTAL-ERROR .       NC2014
0420   2FILLERX4   VALUE
042700            " IN ".000 1RECORD-COUNT 9(5)VALUE.       NC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
PIC X(1)VALUE.2
0490    " ".                                              .2
043000   02  FILLER                        PIC X(22)000 0                  PIC ()VALUE.     .2
043100            " LEVEL VALIDATION FOR ".                             NC2014.2
043200   02041000     02                    PICX(2VALUE010     OFFICIAL " .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043300     "041200 02 FILLERPIC X3)VALUE SPACES .2
04301.                                                    4101CCVS-H-2A                                                   2
430002FILLERPIC(4) VALUE             NC2014
30            "FOROFFICIALUSE ONLY "                         .2
046002FILLERPIC   VALUE.2
043800     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2014.2
043007     4
0400" COPYRIGHT 18 .NC2014.
044100 01  CCVS-E-1.                                                    NC2014.2
04420010            " COPY-NOT FOR DISTRIBUTION. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044300     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC20140                                                                  .2
440    0I                     PIC X()                    .2
044500     02 FILLER                       40   2TEST-ID X9.NC201400TEST.
04460 1CCVS-E-2NC2014
0440002                       PIC1VALUE.      NC2014
044800     02  FILLER                      PIC X(21)  VALUE SPACE.      NC201420   2                         PIC(12)               NC2014.
040    0CCVS-E-2-2NC2014
045000         03 ERROR-TOTAL"HIGH "NC2014
051003FILLERPIC       SPACE.      NC2014
045200         03 ENDER-DESC               PIC X(44)  VALUE             NC2014.2
050            ERRORSNC2014
045400 01  CCVS-E-3.                                                    NC2014.2
04550     0  FILLERPICX(2)  VALUE.2
045600            " FOR OFFICIAL USE ONLY".                             NC20144001CCVS-H-3NC20141CCVS-H-3NC2014
40       FILLER                      PIC X(2   SPACE.NC2014
045800     02  FILLER60"FOR OFFICIAL ONLY ".                         .2
045900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2014             .2
046000     02  FILLER                      PIC X(13)  VALUE SPACE.030            FOR .NC2014
046100     02 FILLERPIC(15)VALUE.2
95.                                  .2
6   CCVS-E-4.                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046400     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC2014.2
046500     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2014.2
046600     02 CCVS-E-4-2                   PIC XXX    04200    02FILLER 0402PIC)                    2
060     2FILLERPIC0 VALUE.2
046800      " TESTS 044400 02 ID-AGAINPIC X90600CCVS-E-2 NC2014.2
046900 01  XXINFO.                                                      NC2014.2
047000     02 FILLER                        X(19)               NC2014.2
0470            ** INFORMATION                                .2
700INFO-TEXTNC2014
047300       04 FILLER                     PIC X(8)   VALUE SPACE0400     2  FILLERPIC2)VALUE.0503               XXX.      NC2014
470004                  PIC X(20.NC201400                PIC X()  VALUE.2
047500       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2014.2
070004XXCORRECT X(20.NC2014
4700            PICX(48)                   .2
047800 01  HYPHEN-LINE00" OFFICIAL ONLY".                             .2
047900     02 FILLER  PIC IS NC20140     2                      PIC  SPACE2
048000     02 FILLER  PIC IS X(65)    VALUE IS "****0450080 0 PIC (8 NC20142
410-"**************************".                .2
048200     02 FILLER  PIC IS X(54)    VALUE450002 4100 FILLERPIC(  NC2014
080    **************.NC2014
048400 01  CCVS-PGM-ID90     " VALIDATION, NATIONAL INSTITUTE OFSTD&TECH .NC20142
048500     "NC201A".                                                    NC20140CCVS-E-4NC201446000 FILLERPIC(3  VALUE SPACE      NC2014
080ROCEDUREDIVISIONNC2014
048700 CCVS10     0 CCVS-E-4-2                    XXX SPACE.2
00600 1CCVS-E-40                              (0 VALUE             NC2014
048048 "TESTS060 CCVS-E-4-1PIC VALUE SPACE. NC2014.2
04900     MOVE060 01.NC2014
410MOVE TO.                               .2
406000 CCVS-E-4-2 XXXVALUE.     .
049300     GO TO CCVS1-EXIT                            PIC)VALUE.2
440 .                                                     .2
04500PERFORM0XXCOMPUTED(0                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049600 TERMINATE-CCVS.                                                  NC2014.2
049700     EXIT PROGRAM.                                                NC2014.2
049800 TERMINATE-CALL0700  .                                                 .2
049900     STOP     RUN.                                                NC2014.2
050000 INSPT. MOVE "INSPT" TO70       4FILLER X(5)   VALUE.      NC2014
050100 PASS0760       4XXCORRECT X(20).                   .2
080"************ .2
000DE-LETE "*** TOP-OR-F. ADD 1TO DELETE-COUNTER. NC2014.
0040 "NC201A".                                                    .2
050500 PRINT-DETAIL.                                                    NC2014490002FILLERIS ISNC2014
56     REC-CT
070              . TO2080OPEN-FILESNC2014
000              REC-CT DOTVALUENC2014
050900     MOVE     TEST-RESULTS TO PRINT-REC4800    *************************". NC2014.2
051000     IF P-OR-F EQUAL TO "FAIL*"  PERFORM04800 1                       PIC X(9                NC2014.2
05110        PERFORM THRUFAIL-ROUTINE-EX                 NC2014
051200          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX                 NC2014.
051300     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC2014.2
051400     MOVE SPACE TO CORRECT-X.                                     NC2014.2
051500     F     REC-CT TO  MOVE SPACE PAR-NAMEPERFORM END-ROUTINE-13  PRINT-FILE.2
NC2014.2
051700 HEAD-ROUTINE.                                                    NC2014.2
051800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC201400     TO EXIT.NC2014
051900     MOVE90 .                                                     NC2014
052000     MOVE60TERMINATE-CCVSNC2014.2
052100     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2014.2
052200 COLUMN-NAMES-ROUTINE.                                            NC2014.2
020     MOVE TOPERFORMNC2014
5400     CCVS-C-2 DUMMY-RECORD.
20       MOVE "*" .  ADD 1  .      NC2014
05260END-ROUTINENC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000FAIL * TOP-OR-F TO.         NC2014
020 END-RTN-EXITNC2014
052900     MOVE CCVS-E-1 TO0PRINT-DETAILNC20142
                       NC20142
053100ADD TO06IF EQUAL TOZERO
030       ""TOPARDOT-X2
053300      ADD PASS-COUNTER TO ERROR-HOLD.                             NC20140MOVE TO.                             NC2014 .  PARDOT-X
053400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2014.2
05300      MOVE TO CCVS-E-4-1NC2014
0360      MOVE 050        PERFORM  FAIL-ROUTINE-EX2
05300      MOVE TO.                                .2
050      MOVE CCVS-E-2 DUMMY-RECORD WRITE-LINE.050ELSEBAIL-OUT.                 NC2014
0300 .                                                 NC2014
040       "TEST() FAILED TOENDER-DESC NC20142
054100     IF IS  TO                      NC2014
520          "NO " TO                                NC2014     SPACETO.                                   .
054300         ELSE                                                     NC2014.2
054400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2014.2
054500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2014
054600     PERFORM WRITE-LINE.                                          NC2014.2
054700 END-ROUTINE-13.                                                  NC201422  CCVS-H-3.  WRITE-LINE.  NC2014
054800     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2014.2
054900         MOVE "NO " TO ERROR-TOTAL20      CCVS-C-2TO. PERFORM 2 TIMESMOVE TO PERFORM        .2
055000         MOVE DELETE-COUNTER5260END-ROUTINE70MOVETOPERFORM 5TIMES
055100MOVE()DELETED ENDER-DESC020      HYPHEN-LINE DUMMY-RECORDWRITE-LINETIMES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050      CCVS-E-2 DUMMY-RECORD PERFORM WRITE-LINE.2
05530         INSPECT-COUNTER ZERONC2014
055400           "NO TO ERROR-TOTAL .2
0550       MOVE TOERROR-TOTAL.2
055600      MOVE 05310      ADD ERROR-COUNTER       ERROR-COUNTER ERROR-HOLDINSPECT-COUNTER      NC2014
0570MOVE TO. PERFORM.          NC2014
055800     MOVE030ADDPASS-COUNTER ERROR-HOLD.2
055900 WRITE-LINE.                                                      NC20140330      ADD PASS-COUNTEREQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2014.2
0500      1TO.                                       NC2014
056100     IF RECORD-COUNT GREATER 50                                   NC2014.2
0620        MOVE DUMMY-HOLDNC2014
056300         MOVE SPACE TO DUMMY-RECORD                               NC2014.2
056400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC2014030  .
0  PERFORM             NC2014
056600         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     NC2014.2
056700         MOVE HYPHEN-LINE30ELSENC2014.2
0560          DUMMY-HOLD DUMMY-RECORDNC2014
5600         MOVE TO RECORD-COUNTNC2014.
05700     PERFORM WRT-LNNC2014
057100 WRT-LNNC20142
057200     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2014.2
05730      SPACE DUMMY-RECORDNC2014
057400 BLANK-LINE-PRINT40     PERFORM.                                          NC2014
05750      WRT-LNNC2014
057600 .                                                    .2
057700     IF NOT EQUAL  SPACE GO FAIL-ROUTINE-WRITE.NC2014
057800     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITENC2014.2
057900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2014.2
058000     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC2014.2
058100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM0540          MOVE "TOERROR-TOTAL .2
058200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC20140MOVE( 500    "( DELETED"TOENDER-DESC
058300     GO TO  FAIL-ROUTINE-EX.                                      NC2014.2
058400 FAIL-ROUTINE-WRITE.                                              NC2014.2
TOPRINT-REC  WRITE-LINE.2
058600     MOVE   ANSI-REFERENCE TO0      ELSE MOVE INSPECT-COUNTER  ERROR-TOTALNC2014
05870MOVE TOPRINT-REC  2 TIMES.2
580     MOVE TO COR-ANSI-REFERENCENC2014
058900 FAIL-ROUTINE-EX. EXIT.                                           NC2014.2
059000 BAIL-OUT.                                                        NC2014.2
059100     IF     COMPUTED-A NOT 060      1TORECORD-COUNTNC2014
0920       GREATER                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5900BAIL-OUT-WRITENC20142
05940      CORRECT-A XXCORRECT COMPUTED-A XXCOMPUTED.2
0550     MOVEANSI-REFERENCE TO.                 NC2014
059600     060         WRITE AFTERADVANCING                  NC2014
05970        SPACES INF-ANSI-REFERENCENC2014
580 BAIL-OUT-EX.                                               .2
05905700     PERFORM.                                              NC2014
6000EXIT                                                        NC2014
060100 SECT-NC201A-001 TO573      PACEDUMMY-RECORD.2
060200 057400 BLANK-LINE-PRINT                                                NC2014
060300     MOVE "PFM-TEST-F3-1" TO PAR-NAME.                            .2
000     MOVE   " 6.20. (d)" TO.            NC2014
060500     MOVE "PERFORM UNTIL" TO FEATURE.070     MOVE SPACETO.                                  .2
0660MOVE PERFORM2NC2014.2
06070 PFM-TEST-F3-0NC2014.2
060800     PERFORM  PFM-A THRU70     MOVE   ANSI-REFERENCE INF-ANSI-REFERENCENC2014
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.                                                   NC2014520MOVE TO INF-ANSI-REFERENCENC2014
06100IF EQUAL TO 48PERFORM                         NC20142
061300                             GO TO PFM-WRITE-F3-1.080        TEST-COMPUTED PRINT-REC WRITE-LINE         NC2014
061400     GO TO PFM-FAIL-F3-1.                                         NC2014.2
061500 PFM-DELETE-F3-1.                                                 NC2014.2
061600     PERFORM DE-LETE.                                             NC201480FAIL-ROUTINE-EX.                                           .2
.NC2014
061800 PFM-FAIL-F3-1.                                                   NC2014.2
061900     MOVE 058500     MOVE   TEST-COMPUTED PERFORMWRITE-LINE.2
080     MOVE   NSI-REFERENCE COR-ANSI-REFERENCE.                .2
062100     PERFORM FAILMOVE TO PERFORMWRITE-LINE06        XXINFO.PERFORM .NC2014
062200 PFM-WRITE-F3-1.                                                  NC2014.2
0620      PRINT-DETAILNC2014
062400*                                                                 NC2014.2
062500 PFM-INIT-F3-2.                                                   NC2014.2
062600      "PFM-TEST-F3-2"  PAR-NAME0    IF     COMPUTED-A NOT EQUALTSPACE GOGO    NC2014
062700     MOVE 50 TO PERFORM26010  0900     IF TO TONC2014
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
063100     PERFORM PFM-C UNTIL PERFORM2 GREATER THAN 25.                NC2014
06320     IF EQUAL  50  PASS.2
063300                             GO TO PFM-WRITE-F3-2.                NC2014.2
063400     GO TO PFM-FAIL-F3-2PFM-TEST-F3-1NC2014
050P.
063600     PERFORM DE-LETE.                                             NC2014.2
063700     GO TO PFM-WRITE-F3-2.                                        90CCVS1-EXITNC2014
063800 PFM-FAIL-F3-2.                                                   NC2014.2
063900     MOVE PERFORM2 TO COMPUTED-N.                                 NC2014.2
064000     MOVE 50 TO CORRECT-N.                                        8 .
064100     PERFORM0 FAILNC2014
40 .                                                  .
0062400*                                                                 NC2014.2
064400*                                                                 NC2014.2
064500 PFM-INIT-F4-1.                                                   NC2014.2
MOVE TONC2014
064700     MOVE "PERFORM VARYING" TO FEATURE680PERFORM THRU UNTIL EQUAL 48.       NC2014.
4.
064900     PERFORM PFM-E VARYING PERFORM4 FROM PERFORM5 BY -0.2         NC2014.2
065000         UNTIL PERFORM4 LESS THAN 9.0.                            NC2014.2
065100     IF PERFORM4 EQUAL TO 8.8 AND PERFORM6 EQUAL TO 12.5          630                              PFM-WRITE-F3-1.2
00360PERFORM.
065300               GO TO PFM-WRITE-F4-1.                              NC2014.2
65     TONC2014
0655070     GO PFM-WRITE-F3-1NC2014MOVE.                                        .2
065600     010PFM-FAIL-F3-1NC2014
065700     GO TO PFM-WRITE-F4-1.                                        NC2014 .                                        2
065800PFM-FAIL-F4-1NC2014
065900     MOVE 06500PFM-INIT-F4-1NC2014
060     MOVE 8.8TO.                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
600PERFORM.                                                .2
066200     PERFORM PRINT-DETAIL.                                        NC2014.2
066300     MOVE SPACE TO P-OR-F.                                        NC2014 PERFORM4 8  PERFORM6  1.          .2
066400     MOVE  PFM-WRITE-F4-120MOVE" TO .NC2014.
0650MOVE5TO.                                      .2
66
066700     PERFORMPFM-DELETE-F4-1NC2014.2
066800*                                                                 NC2014.2
066900 PFM-INIT-F4-2.                                                   NC2014.2
067000     MOVE "PFM-TEST-F4-2" TO PAR-NAME.                            NC2014 PFM-FAIL-F4-1NC2014
067100     MOVE 5.5 TO PERFORM4.                                        NC2014.2
067200     MOVE 5.5 06600     PERFORM.                                                .2
067300PFM-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
067800     PERFORM3 GREATER THAN 5.                                     NC2014.2
067900     IF PERFORM8 (1) EQUAL TO670PERFORM.                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
068000     AND PERFORM8 (5) EQUAL TO 14.1 AND PERFORM8 (7) EQUAL TO     NC2014.2
068100     5.5 AND PERFORM3 EQUAL TO 7                                  NC2014.2
068200               PERFORM PASS0      50  CORRECT-NNC20142
068300               GO TO PFM-WRITE-F4-2.                              NC2014.2
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-20     PERFORM3 GREATER 5.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
60 .                                                 .
068900     PERFORM40 .                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
069000     GO TO PFM-WRITE-F4-2.                                        NC2014.2
069100 PFM-FAIL-F4-2.                                                   NC2014.2
090     OVE PERFORM8 1  COMPUTED-NNC2014.2
069300     MOVE 13.5 TO050         UNTIL 067      TO
60     PERFORM.                                                2
069500     PERFORM PRINT-DETAIL.                                        .                                                   .
069600     MOVE SPACE TO050                TO.                              .2
069700     MOVE PERFORM8 (3) TO COMPUTED-N.                             NC2014.2
60MOVE CORRECT-Njava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
069900     MOVE PFM-TEST-F4-2 PAR-NAMENC2014
070000     PERFORM PRINT-DETAIL.                                        NC2014.2
070100     MOVE PERFORM8 (5) TO COMPUTED-N.                             NC2014.2
070200     MOVE 14.1 TO CORRECT-N.                                      NC2014.2
070300     MOVE  ()  COMPUTED-N.2
070400     PERFORM PRINT-DETAIL.                                        NC2014.000MOVETO.                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070500     MOVE PERFORM8 (7) TO COMPUTED-N.                             NC2014.2
070600     MOVE  5." TO . NC20142
770MOVE PAR-NAME.2
070800     PERFORM     MOVE TO.                                        .2
070900     MOVE PERFORM3 TO COMPUTED-N.                                 NC2014.2
071000     MOVE 7 TO CORRECT-N.                                         NC2014.2
70 " TOPAR-NAME.NC2014.
70 .                                                  .
071300     PERFORM PRINT-DETAIL.                                        NC2014.066800*                                                                 NC2014.2
071400*                                                                 NC2014.2
071500 PFM-INIT-F4-3.                                                   NC2014.2
060MOVE"TO PAR-NAME. .2
0670     MOVE 55TO PERFORM8 ()                                    .2
071800 PFM-TEST-F4-3073 .                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
071900*    NOTE IN THIS TEST TWO SUBSCRIPTS ARE VARIED.                 NC2014.2
072000067600*    CONTROL FALLS THRU AND THE PROCEDUREIS NOT EXECUTEDNC2014
072100     0750EQUAL 20.0AND (3,14 TONC2014
072200     AFTER PERFORM2 FROM 2 BY PERFORM11 UNTIL PERFORM2            NC2014.2
072300     GREATER THAN 20.                                             NC2014.2
07240IF (3, 2 EQUAL 15.  PERFORM148       .2
072500     EQUAL TO 20.0 AND PERFORM14 (3, 14) EQUAL TO 25.0            NC2014.2
07260      PERFORM140 EQUAL 30.0ANDPERFORM142)NC2014
072700     EQUAL TO 35.0 MOVE "A" TO XRAY.                              NC2014.2
072800     IF PERFORM14 (2, 8) 0320         GO TO PFM-WRITE-F4-3.                                    NC2014.2
0707300     TO.NC2014
073000     EQUAL030 PFM-DELETE-F4-3NC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0730      TO  EQUAL TOA" PASS NC2014.2
073200         GO TO PFM-WRITE-F4-3068600*        OCCURS CLAUSE CAN BE FOUND IN THE TABLE  TESTS  .2
073300     GO TO PFM-FAIL-F4-3.                                         NC2014.2
073400 PFM-DELETE-F4-3.                                                 NC2014.2
073500     PERFORM DE-LETE.                                             NC2014.2
0730      TO.                                        .2
073700 PFM-FAIL-F4-3.                                                   NC2014.2
073800     MOVE PERFORM14 (3,  2) TO0      PERFORM8 COMPUTED-NNC2014
030     07380      PERFORM14  2 COMPUTED-N.2
740      FAILNC2014PERFORM.                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
074100     PERFORM7400      FAIL.NC2014.2
074200     MOVE SPACE TO P-OR-FPERFORM.                                        .2
074300     MOVE PERFORM14 (3,  8) TO COMPUTED-N.                        NC2014.2
040      200  .                                      .2
750     MOVEPFM-TEST-F4-3..
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     PERFORM040MOVE .                            NC2014
075100     MOVE PERFORM14 (3, 20) TO COMPUTED-N070PERFORM
075200     MOVE 30.0 TO 053     000     MOVE )COMPUTED-N.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-N750PERFORM.
"PFM-TEST-F4-3"  PAR-NAMENC2014
50
075900     MOVE (2,  )TO.                        .2
076000     MOVE 40.0 TO30      PRINT-DETAILNC2014
076100     MOVE "PFM-TEST-F4-3" TO071400*                                                                 NC2014.2
076200     PERFORM PRINT-DETAIL.                                        NC2014.2
730MOVEPERFORM14,4) TO.                        .2
00MOVE CORRECT-N.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
7MOVE  CORRECT-NNC2014
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     PERFORM700      PRINT-DETAIL                                        NC2014.2
077500     MOVE PERFORM3 TO COMPUTED-N.                                 NC20147710     MOVE TO COMPUTED-N                                 .2
077600     MOVE    1 TO0MOVE" PAR-NAME. .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
8.                                                   .2
0060MOVE CORRECT-N.                                      NC2014.2
                             NC2014
078800     MOVE 2 TO PERFORM10.                                         NC2014.2
078900 PFM-TEST-F4-4A  CORRECT-A.2
079000*    NOTE IN THIS TEST THREE SUBSCRIPTS ARE VARIED.               NC2014.2
071     PERFORM PFM-L VARYING PERFORM3 FROM PERFORM9            07800PFM-WRITE-F4-3..2
079200     UNTILPFM-TEST-F4-3NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
079300     BY -5 UNTIL PERFORM2 EQUAL TO 0  AFTER PERFORM11             NC2014.2
079400     FROM 3 BY PERFORM10 UNTIL PERFORM11 GREATER THAN 5.          NC2014.2
07500     PERFORM16, TOPERFORM16NC2014
079600     EQUAL TO 5.7 AND PERFORM16 (2, 5, 3) EQUAL TO 6.4 AND        NC2014.2
079700     020       20.NC2014
0798020      PERFORM14 2 EQUAL TOANDPERFORM148       NC2014
090      "B"TO XRAY.IFNC2014
800PERFORM165 3 EQUAL 9.  PERFORM16 5NC2014
080100     EQUAL TO 9.9 AND PERFORM1120     EQUAL 350MOVE A" XRAY. NC2014.2
82     TO PFM-L PERFORM3PERFORM92
080300     PERFORM PASS090     PERFORM14 ( 1  TO0 AND  (2, 2700UNTIL THAN
00GO.
850 .
080600     PERFORM DE-LETE.                                             NC2014          TO.70IF 2 , TOPERFORM16)2
080900PERFORM165  TOAND (4,1,)NC2014
080800 PFM-FAIL-F4-4 PFM-DELETE-F4-3.                                                NC2014
0890      PERFORM16,1,) TO COMPUTED-N.                    NC2014
--> --------------------

--> maximum size reached

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

quality96%

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

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.