Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/dml1-99/     Datei vom 4.1.2008 mit Größe 8 kB image not shown  

Quellcode-Bibliothek nc201a.cob   Sprache: Cobol

 
0010 IDENTIFICATION00IDENTIFICATION.                                         .2
00000     NC201ANC2014
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
002700NC20142
002800 ENVIRONMENT002400*    ARE USED.                                                    NC2014.2
002900 CONFIGURATION SECTION.                                           NC2014.2
003000 SOURCE-COMPUTER.                                                 NC2014.2
003100     Card0130.                                                     SECTION.NC2014
0030OBJECT-COMPUTERNC2014
0033000090CONFIGURATION.                                           .2
00340  SECTIONNC2014
003500030     .                                                    .2
003600     SELECT PRINT-FILE ASSIGN TO030  SECTIONNC2014.2
003700     "C0085" .                                                    300FILE-CONTROLNC2014.2
00300 DATADIVISION                                                   .2
003900 FILE SECTION.                                                    NC2014.2
0090 FILE.                                                    .2
004100 01  PRINT-REC PICTURE X(120).                                    NC2014.2
00 1DUMMY-RECORD X(0)                                 .2
0430WORKING-STORAGE SECTIONNC2014.2
004400 01  WRK-DU-2V1-1 PIC 99V9 VALUE0360     SELECT PRINT-FILE                                  NC2014
004500 01  WRK-DU-0V1-1 PIC V9 VALUE .1.0380 DATADIVISIONNC2014.2
004600 01  WRK-DU-2V1-2 PIC 99V9 VALUE0390FILE.                                                    NC2014
7 1  PIC  VALUENC2014
004800 01  WRK-DU-1V0-1 1DUMMY-RECORD X120)                                 .2
0900   PIC  2.                                  .2
005000 01  WRK-DU-1V0-3 PIC 9 VALUE 3.                                  4000   PIC 999VALUE.                            NC2014
050   PIC  ZERONC2014
005200 01  WRK-DU-2V0-1 PIC 99 VALUE 10.                                NC2014.2040 1WRK-DU-2V1-29V9 VALUE..NC2014
0300   PIC   11.NC2014
04  99 VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
  PIC 9(6).                                      0101PICVALUE.                               NC2014
00607    PICTURE 99VALUENC2014
005700 77  SMALLER-VALU PICTURE 99 VALUE 6.                             NC2014.2
00800 77050 1  WRK-DU-2V0-3PIC 12.                                NC2014
00590 7   ICTURE 1.                             NC2014
006000 77  WRK-DS-02V00                 060 7SMALL-VALU 7     99 VALUE7NC2014
00610     0507  SMALLER-VALU 99 VALUENC2014
006200 77  WRK-DS-06V06     PICTURE S907  SMALLEST-VALU   PICTURE9  5.                          007  SMALLEST-VALUPICTUREVALUE.NC20142
006300 77050 7  PICTURE 1.                             .2
RE(.NC2014
0065060 7  WRK-DS-02V00                  S99NC2014
0    TEST-2NUC-COND-99 99                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0070 7  0600                                  (12)                 .
S99P 90NC2014
006900 77  A02ONES-DS-02V00             PICTURE S99    VALUE 11.006500 77  A02TWOS-DS-02V00             PICTURE S99    VALUE 22.        
7007  A01ONE-DS-P0801SP VALUE .000000.C2014
007100 77  ATWO-DS-01V00080 7  A990-DS-0201P                PICTURE   VALUE 99.NC2014
NC2014
007300 77  WRK-XN-00005                 06007  A02ONES-DS-02V0070 7  A01ONE-DS-P0801              PICTURE(8)9 VALUE .000001NC2014
007400 77  TWO  070 7                   PICTURE01077ATWO-DS-01V00S9 2.         NC2014
070 7 THREE 9 VALUE.2
007600 77  SEVEN PICTURE 9 VALUE 7.                                     NC2014.
7077NINE07                   X(5)..2
0780 7    PICTURE 99  10.                                    .2
007900 77   PICTURE 999  ZERO.                           NC2014
008000 77  XRAY PICTURE IS X.                                           NC2014.2
0800 7  IF-D1(4)92  0                            .2
0080 7  IF-D2VALUE                                     2
0830 77  IF-D380  TEN  PICTURE 10.NC20142
08407  IF-D4 X(5)VALUE ""090 7ALTERCOUNT 9ZERONC2014
080 77 IF-D5 PICTUREX(0)VALUEQUOTENC2014
008600 77  IF-D6 PICTURE A(10) VALUE107  IF-D1 S9)V9VALUENC20142
7IF-D7 S9)(080 7  IF-D2 S9)(  ERONC2014
008800 77  IF-D8 PICTURE 9(6)V980  IF-D3 X(10  "00000"                     .2
0890 77  IF-D9 X(3) VALUE"23".                              .2
00900830 7  IF-D3 X(10) VALUE000000". NC2014.
091007  IF-D13 9()V9  12300.                        NC2014
0207  PICTUREALL QUOTENC2014807   PICTURE ()VALUENC2014
037009300 77  07  S9(4) VALUE5                     .2
00940 77 9(6V9 VALUENC2014
009500890 7   PICTURE X(3)  "123".                              .2
009600 77  IF-D18 PICTURE90077IF-D11090 7IF-D11 X(6 java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
77IF-D19 03 S999PP200.                           
.90+.                                   
00907java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
010000 77  IF-D25 PICTURE ABABX0A.                                      NC20142
  X(8) VALUE C D0ENC2014
010200 77  IF-D27 PICTURE IS 9(6)V9(4) VALUE 00970077  IF-D19 X(10) VALUE "ABCDEF"                     .2
010300     USAGE IS COMPUTATIONAL009900 7  009900 77  IF-D24 X(10)  $1, 34+                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
4   PICTURE 9999 VALUE 23.5              .2
010500 77  IF-D31007   PICTURE X8)VALUE C D0ENC2014
010600 77  IF-D322077 IF-D27 IS ()10 7IF-D268) A CD0ENC2014
1207  IF-D27 PICTUREIS6V9VALUE030USAGE.                                      .2
0000    8   VALUES 2THRUNC2014
190     8  C  IS ZERONC2014.2
010     8  D VALUE +2.3.                                       .2
007       A  VALUE                                              
       VALUE 10THRU00 THRU-THRUNC2014
110     8  GVALUE 8654 1234 THRU8 5-999 THRU8 VALUES4                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011400 88    IS 0,.1 .2 8..2
011500     88  B   0100     8DVALUE+.4.NC20140    F  100 THRU0 THRU -      NC2014
1100       C  VALUE SPACENC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0     88DVALUE "BAC. NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011800 7   PICTURE0108   IS0 THRU100THRU  2.     NC2014
011900     88010     8GVALUE 86.4 124 THRU85 -99THRU0508     VALUE.                                         
0120077IF-D37 9(5 VALUE235.                            .2
0210077  IF-D38 X9)VALUE245   .                       .2
012200 77  CCON-107   PICTURE A(4)                                         .2
0207CCON-2 12                                  
01240 77  CCON-3 99 VALUE.                                 .2
012500 77  COMP-SGN1  PICTURE S9(1020 7  IF-D37 9(5)VALUE5.                             .2
060 7COMP-SGN2(18)  +3COMPUTATIONAL2
012700 77  COMP-SGN3  PICTURE S9(1) VALUE -5 COMPUTATIONAL.             NC2014.2
01280012007  CCON-1 99 VALUENC20142
START-POINT 9() COMPUTATIONAL.2
030077 INC-VALUE 9(6) COMPUTATIONALNC2014.2
01020077IF-D37 9(5)  12345.                             .2
SWITCH-PFM-2 9 VALUE.                           NC2014
999 VALUE.                       125 7    PICTURE S9) +ALUE.             NC2014.2
107PFM-12-COUNTER 99 100.                       NC2014
013020 7  CCON-3207COMP-SGN3 S9-5 .             .2
01360 7012800 77  COMP-SGN4 S98VALUE841COMPUTATIONAL.2
01370 0  SUBSCRIPT-6 S9(1 3COMPUTATIONAL.
013800 02007  COMP-SGN3  PICTURE(10107  INC-VALUE 9(6 COMPUTATIONAL.               NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013900     02 IF-ELEM PICTURE X OCCURS 12 TIMES.                        NC2014120  SWITCH-PFM-2 9 VALUE ZERONC2014
0400 1QUOTE-DATANC2014
014100     02 QU-1 PICTURE X(3) VALUE "123".                            NC2014.2
014200     02 QU-2 PICTURE X VALUE QUOTE.                               NC201401290077  START-POINT        PICTURE 96)COMPUTATIONALNC2014
014300     02 QU-3    PICTURE ZERO.
100070PICTURE ZERO2
01450018   007  999VALUE
10      D2 ()09     2 PICTUREOCCURS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07       .                                                      
1800   PICTURE(  "456"                            .2
40     3PICTURE891"NC2014.2
100 1IF-D12NC2014
01510010 1IF-D10NC2014
015200     040 1QUOTE-DATANC2014
5     D3NC2014
504      PICTURE     VALUENC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5       PICTURE F..2
015600 01  IF-D20.                                                      NC2014.2
0100        PICTURE4V "4567.NC2014.
1800   PICTURE2  12NC2014
015900     02  D2 PICTURE 9 VALUE 104 1IF-D10.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016000     02  D3050002D1 ()VALUENC2014D22VALUE
01 1IF-D21NC2014
016200     02  D1 PICTUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000D  9(5 24                             .2
016400 01  IF-D22.                                                      500  D5 X  "F"                                  2
72    PICTURE ZERO.2
010       .                                                      
015        PICTURE "F"NC20140  PICTURE 3                                    .
016800     020116   IF-D20.2
016900     88  A10   PICTURE10    9(VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017000     88  A2 VALUE "AB".                                           NC2014100     2D3 9() VALUE.NC2014
017100     02  BB PICTURE 606     2D2 "CDEF".                            .2
017200     88  B1 VALUE1640 1IF-D2260     AA2                                        
017300     88  B2 VALUE "CD".                                           8 VALUE A2java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
017400     02 BB-2 REDEFINES     8B1 "CC"                                           .
03 PICTURENC2014
017600     88  AA1 VALUE "A".                                           0708   VALUENC2014
017700     88  AA2 070017100     BBISNC2014
017800     03  BBB90108 VALUE.
1908  BB1 "B".NC2014
100     8BB2 "D.NC2014.2
01070     0  REDEFINES.                                        .2
010    .
018300-    "NOPQRSTUVWXYZ1234567890ABCDEFGHIJKL".                       NC20142-".2
018400 01  IF-D40 030    NOPQRSTUVWXYZ1234567890ABCDEFGHIJKL.2
COMPUTATIONAL14    PICTURE  12345                              .
08 ZERO2
018700     88 IF-D40B VALUE 10001 THRU 99908      VALUENC2014
018800     88 IF-D40C0        VALUE                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0    00-"".                       NC2014
019000 01  PERFORM2  PICTURE S999  RIGHTjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0900  9  VALUE
019200 01  PERFORM4.2
019300 01  PERFORM5  PICTURE 0130 0    PICTURE   VALUE   .                         
014       99V92
019500 01  PERFORM70 0PERFORM7NC2014
019600     02  PERFORM8  OCCURS 7 TIMES  PICTURE  99V9.                 NC2014.2
09000    PICTURE    3.                               .2
90 1PERFORM10900   PICTURE9VALUE.2
01990090 01  PERFORM4.                                     .2
0004    99.                                     
020100     02 PERFORM13  OCCURS 4 TIMES  .                                                   
0         3  OCCURS            OCCURS0  PICTURE99           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02030000          PICTURE.NC2014
0   5  PICTURE.
0200001  PICTURE
0           (.               
0  PICTURE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
8                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20PFM71.2
0005PFM72.2
021100       07  PFM73             09           OCCURS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02         PFM74NC2014
20                      OCCURSNC2014
024013PFM7601015 OCCURS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010                      OCCURS .NC2014
0260100                        PICNC2014
201S1S9.NC2014
021800 01  S2                      PIC 0                   2NC2014
021920                         S9.2
0  S4                      PIC S91         OCCURSNC2014
022100041PFM76 .NC20145.NC2014
2                       ()NC2014
3                         (5COMPNC2014
02 1                        PIC(COMP.
            PIC                     .java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 80
7                   PIC                      
022700 01  PFM-B1                  21                                  S9) OCCURS
022800 01  FILLER-A.033200                      21.                                                    
3           PIC 0.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023000 01  FILLER-B.                                                    PICTURE.2
3           S9
0240  .                                            java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003           PIC) 1NC2014 .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023400 20LITERAL-TABLE .NC20140  .                                             
023500     03 TBL-ELEMEN-A          PICTURE.2
023600         05 TBL-ELEMEN-BPICTUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023700         000000           X  36.2
206THRU
0230508                 VALUES 15              NC2014.2
0240 1  .                                            
02                     X2         .                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00                       X.NC2014
PICTURE2
024400     02 00 .                                          
024500 0.                                           
40                    0                                 .              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02480060                              XVALUE20   .NC2014
024900         853.0.NC2014
08                VALUES 1NC2014
050 PICTUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00                 VALUES  .2
025300 01  GRP-MOVE-CONSTANTS.2             0 PICTURE SPACES
0java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 80
54.                                       .
0          PICTURE  .       65 PICTURE.
0273 PICTURE2  "ABCDEFGHIJKLMNOPQRSTUVWXYZ<. 3.2
025050                          X..2
6NC2014
20  DIGITS-DV-10V00
1PICTURE.              .2
20.                                     
026308 0  PICTURE  LOW-VALUES
060     600 PICTURE ZEROS
0265000700  PICTURE3PICTURE   .       .2
220         PICTUREVALUE.2
026280         3SUB-SUB-BA
026800         03 ELEM-FOR-2N058-A  PICTUREjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
9   XXX.NC2014
027000         03 ELEM-FOR-2N058-C PICTURE00  PICTURE  VALUE.NC2014
21java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
027200         03 ELEM-FOR-2N058-EELEM-FOR-2N058-I   QUOTES
027300         03 0800 SUB-SUB-BB   XXX  .       .2
027400         03 ELEM-FOR-2N058-G80  XXX ALL .  NC2014
250         9PICTURE  .NC2014
027600         020003ELEM-FOR-2N058-MVALUE.
00  PICTURENC2014
027800         03 ELEM-FOR-2N058-K300300     2SUB-GRP-FOR-2N058-BNC2014
29003 ELEM-FOR-2N058-L  VALUE.   NC2014SUB-SUB-BA.2
028000         03 ELEM-FOR-2N058-M PICTURE XXX  VALUE HIGH-VALUES.      NC2014   PICTURE                    .
028100         03 ELEM-FOR-2N058-N00   PICTURE.NC2014
028200     20             4  PICTURE6 NC2014
NC2014
028400             04 ELEM-FOR-2N058-A4 XXX.2
02850004ELEM-FOR-2N058-B.                    .2
0280               PICTURE XXX.2
028700             04 ELEM-FOR-2N058-D  PICTURE X(6).                   NC2014900   PICTURE.                    .2
2800 SUB-SUB-BBNC2014
02800            4ELEM-FOR-2N058-EXXXNC2014
090             4ELEM-FOR-2N058-FXXX.2
029100             04 ELEM-FOR-2N058-G  PICTURE XXX     2    PICTURE0004  PICTURE                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
             ELEM-FOR-2N058-HNC2014
029300         03 SUB-SUB-BC27004 ELEM-FOR-2N058-LPICTURE.                   .2
029400             04 ELEM-FOR-2N058-I0   PICTURE.                    .2
XXX
029600             04 ELEM-FOR-2N058-K  PICTURE XXX.                    NC2014EIGHTH-20S X()                                .2
029700             04 ELEM-FOR-2N058-L  PICTURE XXX.                    NC201403110 1 .                                       .2
029800             04 ELEM-FOR-2N058-M  PICTURE00 PICTURE0.                                .2
029900             04 ELEM-FOR-2N058-N  PICTURE XXX.                    NC2014.2
0300000  .                                       .2
0301    PICTURE2)NC2014
3200   PICTUREX(0                                .2
030300     02   THIRD-20S1CHARACTER-BREAKDOWN-RNC2014
03400   PICTURE.NC2014
30     2 PICTURE(0.NC2014
030600     02   SIXTH-20S PICTURE X(20).                                NC2014.2
030700     02 SEVENTH-20S PICTURE X(20).                                NC2014.2
0300     2EIGHTH-20S (0.NC2014   ARE  THRUNC2014
030900     02   NINTH-20S    VALUENC2014
08VALUES                          
0100  .                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30     2 PICTURE                                .2
10        PICTURE9     "ABC"                                        
031400     02   THIRD-20R PICTURE X(20).                                NC2014.2
100   PICTURE.NC2014
031600     0230     2NINTH-20R X()NC2014
031700     02   SIXTH-20R PICTURE X(20).                                0TENTH-20R)                                .2
031800     02 SEVENTH-20R PICTURE X0230        OCCURS3TIMESNC2014
302EIGHTH-20R         FILLER X   "..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032000     02   NINTH-20R PICTURE X(20).                                NC2014.2
0200    PICTURE.NC2014.2
0320 1                                                    
230   .NC2014
30                                                                  .2
032500     8803280 1TABLE-86.2
0300     0          PICTUREX5   LOW-VALUENC2014
0320                                                                 .2
032800 01  TABLE-86.                                                    NC2014                 PICTURE9   123 NC2014308  B86 ABCABC.2
0    VALUENC2014
00300    PIC  VALUENC201440 1TEST-RESULTS.2
033108    VALUENC2014
3200    PICXXX "ABC"NC2014
0300  .                                                .2
340        3FILLERX 0400FEATUREVALUE.          NC2014
3500    PICVALUENC2014
033600         03  FILLER  PIC X   VALUE "C".                           034900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC2014                    X5    SPACE030           PICC".2
0300 .                                                 .
0     0          PICTUREX1)VALUE.NC2014
033900     02 QUOTE-X         PICTURE X10300  PARDOT-X              PICVALUE.          NC2014
30002LOW-VAL X(   LOW-VALUENC2014
034100     02 ABC PICTURE XXX VALUE "ABC".                              NC2014.2
030350     0                    PIC8)   SPACE.          NC2014.2
034300     2 PICTURE1)VALUE      .2
034400     02 ZERO-D00  .                                               .2
03450 1  TEST-RESULTSNC20142
0360     0 FILLERPIC       SPACENC2014
034700     02 FEATURE                  PIC400     0                   PIC(0   SPACE0                         PIC                 .2
034800     02 FILLER                   PIC 03902 SPACE
                         5.          NC2014
                        VALUE
035100     03520       3                  PIC(9 SPACE.2
              PIC)VALUE.          .2
30                       PIC SPACE.2
.2
3500 FILLERPIC    SPACE.2
0350     2RE-MARK)                       .2
035700 01  06     2                  300       REDEFINES.                       2
08     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035900     02 FILLER                   PIC X(17)  VALUE                 035900     02 FILLER                   PIC X(17)  VALUE                 NC2014700                             X               .2
300           "COMPUTED"                                   
0360     2.                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30     3               PIC0   SPACENC2014
03630003770     0     REDEFINES060COMPUTED-0V18 COMPUTED-A98.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
REDEFINES-))    2
036500     03 COMPUTED-0V18 REDEFINES     3CORRECT-14V4 CORRECT-A14)94.NC2014
036600     31 0       REDEFINES.                         NC2014
030    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
08003CM-18V0
90COMPUTED-18V0
037000         04 FILLER                           PIC X.               NC2014300350COR-ANSI-REFERENCE X..2
0371070 X  SPACE20  IS(9     IS.
0307FILLER         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00 PIC SPACE.
0310CCVS-C-2.2
037500     02 CORRECT-X.                                                NC2014.2
60                  PICVALUE.2
30     3CORRECT-N     PIC)(      .2
08     3 REDEFINES -9900FILLER..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30003 REDEFINES     PIC.()     .2
080     3  REDEFINESPIC4NC2014FILLER( .      NC2014
8     3 REDEFINES.                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038200         04 0390001DELETE-COUNTER 99      VALUE.       .2
038300         04 FILLER                           PIC X.               NC2014.2
04     03FILLER X(  SPACENC2014
038500     03 COR-ANSI-REFERENCE             PIC X(48)2                               PIC8          .2
038600 01  CCVS-C-1.                                                                        PICVALUE.       .340       X2SPACE
00FILLER  X(9     IS               .NC2014
038800-    "SS PARAGRAPH-NAME NC2014.2
038900-    0000                    PICVALUE.       .2
PICX0 SPACE2
090 1CCVS-C-2.2
0                       X         SPACE.2
039300     02 FILLER                     PIC X(6)     VALUE 2VALUE0OFFICIAL.NC2014
0900     2
039500     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC2014.2
03900                      PIC SPACE     2
039700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       0440                        PIC0   SPACENC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039800 01  REC-CT     .2
039900 01  DELETE-COUNTER                PIC 999      VALUE ZERO                           X4 SPACE.2
040000 01090 0                          PIC ..2
000 1               PIC ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040200 01  PASS-COUNTER                  PIC 999      VALUE200  .                                                   RROR-COUNTERPIC.       NC2014
40 1TOTAL-ERROR.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
PIC VALUE0   PICZERO
040500 01  DUMMY-HOLD0 1ERROR-HOLD       ZEROPIC            .2
4600                    PIC      ZERO.2
040700 01  ANSI-REFERENCE042800   02  FILLER                        2               NC2014
040800 01  CCVS-H-1.                                                    NC2014.2
040900     02  FILLER                    PIC X(39)    VALUE SPACES4801CCVS-H-1NC2014
4000                      PIC                 NC2014
410" COBOL COMPILER VALIDATION .NC20142
041200     02  FILLER                    PIC X(39)    VALUE SPACESCOBOL " .
041300 01  CCVS-H-2A40 0  CCVS-H-3   CCVS-H-2A.NC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005                              X3)VALUE.2
04            FORONLY
041600   02  FILLER                        PIC XXXX             NC2014
091...2
10                           X8               40           COPYRIGHT
041900            " COPY - NOT FOR DISTRIBUTION".                       NC2014.2
042000   02  FILLER                        PIC X(41)  VALUE0000                           X(4)VALUE.      .2
042100                                                                  NC2014.2
042200 01  CCVS-H-2B.                                                   NC2014.2
4300                           X(5               NC2014
4400"RESULT OF "                                    .2
042500   02  TEST-ID                       PIC X(9).                    NC2014.2
042600   0      FILLER X(31   SPACE.2
04270              .NC2014
04800 FILLER XVALUE.
042900     " HIGH ".                                              NC2014.2
00                          02.                                               
043100            " LEVEL VALIDATION FOR ".                             NC2014.41                              XVALUE.2
043200   02  FILLER                        4300            " VALIDATION FOR ".                             .2
40     ON-SITE02                       2               NC2014
0430   .                                                    30  .                                                    .2
043500     02  FILLER                      PIC X(34)  VALUE             NC2014.2
0      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043700     02  FILLER                      PIC                        X5               NC2014
043800     040400CCVS-E-4NC2014
043900     02  FILLER                      PIC X(28)  VALUE             NC201402 ILLER (2VALUE.      NC2014
0440"COPYRIGHT 1985"                                .2
044100 01  CCVS-E-1.                                                    NC2014.2
04200    0                        PIC0ID-AGAIN.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04700                         X(4)              NC2014
                     ()40  java.lang.StringIndexOutOfBoundsException: Range [80, 72) out of bounds for length 80
044500     02 FILLER                       PIC     2PICVALUE
0070"*INFORMATION ***".NC2014
044700     02  FILLER                      PIC X(31)04002000INFO-TEXT2
4800                         X(1   SPACE00ERROR-TOTAL SPACE.2
04490050         3FILLER X SPACE.2
045000         03 ERROR-TOTAL              04       4XXCOMPUTED)                   .2
045100         03 FILLER050" ENCOUNTERED".                                 .2
045200         03 ENDER-DESC               PIC X(44)  VALUE             46                          PIC)                   .2
030"ERRORS ENCOUNTERED".                                 .2
                                           47                            X1) .      NC2014
55  (               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04080    *******************.NC2014     2FILLERPIC)VALUE.2
07      0                        X(             .2
502FILLER X(8VALUE0-"***********".2
0450     ON-SITE   .".java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00     2                        X1)VALUE..2
400     02 FILLER                       PIC X(15)  VALUE             NC2014.2
046200             " COPYRIGHT 1985".                                   NC20148 ROCEDURE .                                              .2
4300  .                                                    2FILLERX4)VALUE.2
VALUE
046500     02 FILLER0MOVE CCVS-PGM-ID                                                       2
                       PIC     SPACENC2014
402                        X(4)VALUE
046800      " TESTS WERE 070 0
4     04        X(.NC2014
047000     02 FILLER                       PIC 0500                      PIC SPACE.2
040            "* ***..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047200     02 INFO-TEXT0   IS IS.                          .2
43                             PIC8    SPACE.2
047400       0010    *****************..2
0450       0                      PIC    SPACE.2
000                   PICNC2014
04700    ********.NC2014
047800 01  HYPHEN-LINE.                                                 NC20140.  MOVE "java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
70   PIC SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02   IS     IS00IFTO
048100-    "*000MOVE""TO PARDOT-X NC2014.
048200     02 FILLER500MOVE TO.                             .2
03-"*****java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
80CCVS-PGM-ID)VALUE
040     "NC20142
048600 PROCEDURE DIVISION10 FAIL-ROUTINE FAIL-ROUTINE-EX.2
048700 CCVS1..
4java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048900     OPEN     OUTPUT PRINT-FILE.                                  NC2014.2
049000     MOVE CCVS-PGM-ID TO I      EQUAL ZERO TO0END-ROUTINE.PRINT-FILE
41         SPACE TEST-RESULTSjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2014.2
04930GO070EXIT                                                
0440CLOSE-FILES.2
049500     PERFORM END-ROUTINE0990STOPNC2014
0490 .                                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049700     EXIT PROGRAM500INSPTINSPT. ADD   INSPECT-COUNTER
049800 TERMINATE-CALL.                                                  NC2014.2
490STOP.2
05000550052500     MOVE**TOTO.2
050100 PASS0 .                                                     .2
2 .  MOVEFAIL .  ADD 1 ERROR-COUNTER
050020 .                                                    .2
050400     MOVE "****TEST DELETED****" TO RE-MARK.
050500 PRINT-DETAIL       ERROR-COUNTER50  NOTTONC2014
050600     IF REC-CT NOT530050700             MOVE                                  NC2014
570MOVE                                 .2
050800             MOVE REC-CT TOMOVE TOPERFORM.      NC2014
5 PASS-COUNTER.                            .2
560MOVE1         FAIL-ROUTINE                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051100        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC2014.2
050   THRU2
051300     MOVE SPACE TO P-OR-F. MOVE SPACE09 END-ROUTINE-12.2
051400     MOVE SPACE TO CORRECT-X500MOVE" ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05040MOVE ERROR-TOTAL01MOVE TONC2014
051600         SPACE .                                   NC2014
051700 HEAD-ROUTINE.                                                    NC2014.2
50MOVE DUMMY-RECORD 2 .  NC2014.2
09      CCVS-H-2A DUMMY-RECORD WRITE-LINE.NC2014
052000     MOVE2100MOVE  TO.PERFORM 3TIMES.2
MOVE DUMMY-RECORDTIMES
052200 COLUMN-NAMES-ROUTINE.                                            NC2014 CCVS-C-1.  WRITE-LINE.2
0 CCVS-C-1. PERFORM           .2
0540MOVE  DUMMY-RECORD WRITE-LINE050     HYPHEN-LINEDUMMY-RECORD WRITE-LINE
550MOVE TOPERFORM.        .2
00 .                                                       DUMMY-RECORD ..2
0HYPHEN-LINEPERFORM 5.NC2014
052800 END-RTN-EXIT.                                                    NC2014050MOVE TO..           NC2014
052900     MOVE CCVS-E-1MOVE"ERROR-TOTALNC20142
050550ELSE INSPECT-COUNTER .                   NC2014
0ERROR-COUNTER TO ADD INSPECT-COUNTERTOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053200      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD
00ADDjava.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
053400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2014.2
053500      MOVE60ADD  RECORD-COUNT.2
0560MOVE  CCVS-E-4-2.2
000         TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053800      MOVE CCVS-E-2 TO DUMMY-RECORD WRITE-LINE.2
NC2014
500       "TEST(S .NC20142
054100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC201456500         MOVE CCVS-C-1 TODUMMY-RECORD WRT-LN.2
054200         MOVE"TO 2
0540                                                              
054400         MOVE09          ZERO.                               2
054500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2014.                                                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0560 WRITE-LINE.2
054700 END-ROUTINE-13.                                                  NC2014.2
054800     IF DELETE-COUNTER IS EQUAL TO ZEROFAIL-ROUTINENC2014
054900         MOVE "NO " TO0   COMPUTED-XTO TO .2
 .NC2014
0550      "(S) " TO                   .2
055200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2014.2
055300      IF   INSPECT-COUNTERMOVENO ERROR-TOTAL.2
040           "NO ERROR-TOTALNC20142
 TO.                   .2
05560       "TESTS)010 TEST( DELETED "TO                   .2
570MOVE TOPERFORM.          NC2014
0500        INSPECT-COUNTER ZERO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055900 WRITE-LINE.                                                      NC2014.2
056000     ADD 1 TO RECORD-COUNT.                                       NC2014.2
056100     IF 080   SPACES.                         .2
0  TO WRITE-LINE
056300         MOVE SPACE TO5 .                                                      .2
056400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE520IF 5                                   2
056500         MOVE CCVS-C-109 .                                                  .
050   ANSI-REFERENCE INF-ANSI-REFERENCE.2
056700         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM0MOVE          DUMMY-RECORD  PAGEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056800         MOVE DUMMY-HOLD090. EXITNC2014
NC2014
0 WRT-LN.2
50WRT-LNNC2014
057200     WRITE    DUMMY-RECORD     .                                                        .2
070MOVE TO2
.                                                .2
057500     PERFORMNC2014.                                                          2
057600 FAIL-ROUTINE.                                                    NC2014.2
057700     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2014.2
60.                                                   
0590MOVE TO.                 .2
058000     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT0550      WRT-LNNC2014
058100     MOVE   XXINFO TO DUMMY-RECORD560FAIL-ROUTINENC2014
080        SPACES.                         .2
058300     GO TO2      PERFORM2  PASS.
NC2014
550MOVE TO PERFORM         .2
00MOVE  COR-ANSI-REFERENCE.2
058700     MOVE   TEST-CORRECT TO PRINT-REC 0  "NOFURTHER, SEE PROGRAM"TO..2
58        SPACESCOR-ANSI-REFERENCE.2
0590 . EXITNC2014
090 .                                                        .2
510     IF                                             .2
059200     IF     CORRECT-A EQUAL TO SPACE40FAIL-ROUTINE-WRITENC2014.
059300 BAIL-OUT-WRITE.                                                  NC2014.2
059400     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC2014.2
059500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2014.2
5900MOVE TO DUMMY-RECORD WRITE-LINE2   NC2014.2
059700     MOVE   SPACES TO INF-ANSI-REFERENCE.080MOVE TO.                         .2
059800 BAIL-OUT-EX. EXIT.                                               NC201430PERFORM.                                        .2
059900 CCVS1-EXIT.                                                      NC2014.2
060000     EXIT.                                                        NC20140MOVE"TO 051 TOBAIL-OUT-WRITE..2
00SECT-NC201A-001          CORRECT-ASPACEBAIL-OUT-EX.2
060200 PFM-INIT-F3-1.                                                   NC2014.2
.2
060400     MOVE   "VI-112 6.20.4 GR10(d)" TO ANSI-REFERENCE.            NC2014.2
060500     059400     MOVE TOMOVE  TOXXCOMPUTED.2
.2
060700PFM-TEST-F3-0NC2014.2
060800     PERFORM  PFM-A THRU0     IF PERFORM2TOPERFORM                         NC2014
060900*    NOTE IN THIS TEST THE CONDITION IS NOT SATISFIED             NC2014.2
061000*    ORIGINALLY WHEN THE PERFORM IS ENTERED.                      NC2014.2
061100 .                                                   .2
061200     IF030 FM-DELETE-F3-2NC2014.2
061300                             GO090        SPACES INF-ANSI-REFERENCENC2014
061400     GO TO PFM-FAIL-F3-1.                                         90 . EXIT.                                               2
061500 PFM-DELETE-F3-1.                                                 NC2014.2
061600     PERFORM DE-LETE.                                             NC2014.2
061700     GO TO10SECT-NC201A-001SECTION.2
06100 PFM-FAIL-F3-1NC2014.2
061900     PERFORM2 COMPUTED-N                                 .2
062000     MOVE 48 TO CORRECT-N.                                        NC2014.2
06210     PERFORM.                                                .2
062206420 PFM-WRITE-F3-2NC20142
630     PERFORM.                                        .2
062400*                                                                 NC2014.2
062500 PFM-INIT-F3-2.                                                   NC2014.2
062600     MOVE "PFM-TEST-F3-2" TO PAR-NAME.                            NC2014.2
60""  PAR-NAME
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-206400 PFM-TEST-F4-1NC2014.2
063100     PERFORM061000*    ORIGINALLY WHEN THE PERFORM IS ENTERED.                      NC2014.2
063200     IF PERFORM2 EQUAL TO 50 PERFORM PASS                         NC2014.2
063300GO TO PFM-WRITE-F3-2NC2014.2
063400     GO TO PFM-FAIL-F3-2.                                         NC2014.2
063500 PFM-DELETE-F3-2.                                                 NC2014.2
60      DE-LETENC2014.2
063700     GO TO PFM-WRITE-F3-2.                                        NC2014.2
06380 .                                                   .2
MOVE0GO.                                         2
0640      0TONC2014
064100     PERFORM FAIL.                                                NC2014.2
064200 PFM-WRITE-F3-2.                                                  NC2014.2
064300     PERFORMPRINT-DETAILNC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064400*                                                                 NC2014.2
4 .                                                   .2
0600MOVE8  CORRECT-NNC2014.2
670      "PERFORM " TO FEATURENC2014
064800 PFM-TEST-F4-1.                                                   NC2014.2
064900     PERFORM PFM-E VARYING PERFORM4 FROM PERFORM5 BY -0.2         NC2014.2
065000         UNTIL PERFORM4 LESS THAN 9.0.                            NC2014.2
065100     IF EQUAL TO.8ANDPERFORM6 EQUALTO25          NC2014
020 .                                                   .2
065300               GOTO.                              NC201460     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065400     GO0660 PFM-WRITE-F4-1.                                                  NC2014.2
065500 PFM-DELETE-F4-1.                                                 
065600     PERFORM PRINT-DETAIL.                                        NC2014.2
065700     GO TO PFM-WRITE-F4-1.                                        0PERFORM UNTIL PERFORM2 GREATER 25.                NC2014
065800 .                                                   .2
690     MOVE  TO COMPUTED-NNC20142
066000     MOVE 8.8 TO CORRECT-N.                                       NC2014.2
1 FAILNC2014
066200     PERFORM PRINT-DETAIL.                                        NC2014.2
066300     MOVE SPACE TO066300     MOVE SPACE TO EST ONE SUBSCRIPT IS VARIED.                   NC2014.2
00 PERFORM6.                                 6*CONTROL  AND  PROCEDUREISNOT.        NC2014
066500     MOVE 12.5 TO CORRECT-N.                                      NC2014.2
066600 PFM-WRITE-F4-1.                                                  NC2014.2
060      PRINT-DETAILNC2014.2
066800*                                                                 NC2014.2
60 .                                                   .2
067000     MOVE "PFM-TEST-F4-2" TO PAR-NAME.                            NC2014.2
067100      5.5  PERFORM4                                        .2
067200     MOVE 5.5 TO PERFORM8 (7).                                    NC2014.2
067300 PFM-TEST-F4-2.                                                   0      FAILNC2014.2
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
M 1 BY UNTIL.2
06780     PERFORM3 THANNC20142
067900     IF PERFORM8630     PERFORM.                                        .2
068000     AND PERFORM8 (5) EQUAL TO 0880PFM-DELETE-F4-2NC2014.
068100     5.5 AND PERFORM3 EQUAL TO 7                                  NC2014.2
068200               PERFORM PASS                                       6400      "PFM-TEST-F4-1" TO.                            NC2014
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
06870GO PFM-FAIL-F4-2.NC2014.2
068800 PFM-DELETE-F4-2.                                                 NC2014.2
00640     PERFORM FAILNC2014.2
0900     GO PFM-WRITE-F4-2                                        .2
069100 PFM-FAIL-F4-2NC20142
090      PERFORM8 COMPUTED-N.2
069300     MOVE 13.5 TO CORRECT-N.                                      NC2014.2
069400     PERFORM FAIL.                                                NC2014.2
069500     PERFORM PRINT-DETAIL.                                        NC2014.2
06960650 .                                                 
069700090      13.8 TONC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
069800     MOVE 13.8 TO"" TO.                            .2
069900     MOVE "PFM-TEST-F4-2" TO PAR-NAME.                            NC2014.2
070000     PERFORM PRINT-DETAIL.                                        NC2014.2
070100    MOVEPERFORM8 TO COMPUTED-N.                             .2
02
070300     MOVE "PFM-TEST-F4-2" TO PAR-NAME.                            NC2014.2
070400     PERFORM PRINT-DETAIL.                                        NC2014.2
070500     MOVEPERFORM87)TO.                             NC2014
0760       5.5  CORRECT-NNC2014.2
070700     MOVEPFM-TEST-F4-2 PAR-NAME.NC20142
070800     PERFORM PRINT-DETAIL.                                        NC2014.2
7000MOVE TO COMPUTED-NNC2014
071000     MOVE 7 TO CORRECT-N.                                         NC2014.2
M-TEST-F4-2PAR-NAME.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
071200 PFM-WRITE-F4-2.                                                        "PFM-TEST-F4-2" TO.                            NC20142
071300     PERFORM PRINT-DETAIL.                                        NC20146640MOVEPERFORM6 COMPUTED-NNC2014
071400*                                                                 NC2014.2
071500 PFM-INIT-F4-3.                                                   NC2014.2
071010      PFM-TEST-F4-2                             
071700     0120PFM-WRITE-F4-2NC2014.
071800 PFM-TEST-F4-3.                                                   NC20140     PERFORM.                                        .2
071900*    NOTE IN THIS TEST TWO SUBSCRIPTS ARE VARIED.                 NC2014.2
7200     PFM-I PFM-J VARYING                    NC2014java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
072100     FROM BY PERFORM10 PERFORM3TO1NC2014
072200     AFTER PERFORM2 FROM 2 BY PERFORM11 UNTIL PERFORM2            NC2014.2
072300     GREATER THAN 20.                                             NC2014.2
072400     IF PERFORM14 (3, 2) EQUAL TO 15.0 AND .        .2
20      TO  PERFORM14 1) EQUAL 25.0            .2
07260680PERFORM3 5.                                     .2
072700     EQUAL .2
072800     IF PERFORM14 (2, 8) EQUAL TO 40.0 AND                        NC2014.2
072900      (2, 14) TO.  PERFORM142)        NC2014.2
073000     EQUAL TO 50.0 AND PERFORM20AND (3, 2) TO   (2, 2     .2
00                PASS.2
70         GOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30    GO PFM-FAIL-F4-3                                         .2
7400PFM-DELETE-F4-3.                                                 .2
073500     PERFORM30EQUAL 1 ANDXRAY "A"PERFORMNC2014
073600     GO TOHANDLING.NC2014
073700 PFM-FAIL-F4-3.                                                   NC2014.2
MOVE    COMPUTED-NNC2014
0000PERFORM.                                                640      FAIL.2
00PERFORM                                                
074100      PRINT-DETAILNC2014
074200     MOVE SPACE TO P-OR-F.                                        NC2014.2
074300     MOVE PERFORM14 (3,  8) TO0 CORRECT-N
0090      "PFM-TEST-F4-2 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0745000      PRINT-DETAILNC2014.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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
790 "" TOPAR-NAME.2
075000     PERFORM PRINT-DETAIL.                                        NC2014.2
075100040     PRINT-DETAIL.NC20142
075200     MOVE 30.0 TO CORRECT-N.                                      NC2014.2
730MOVE0      PERFORM8(  COMPUTED-N                             
0750000MOVE5TO.                                      .2
0755000      "PFM-TEST-F4-2"TO PAR-NAMENC20142
7 PRINT-DETAILNC2014
075700     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
050      PRINT-DETAILNC2014.2
075900     MOVETO.                            .2
7070PERFORM.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
076100     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
076200     PERFORM PRINT-DETAIL.                                        7640      45.0 TO.                                      NC2014
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.207800      50.0TO.                                      .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
070     PERFORM.java.lang.StringIndexOutOfBoundsException: Range [80, 72) out of bounds for length 80
00 PERFORM2.NC2014
077200     MOVE    2 TO CORRECT-N.                                      NC2014.2
07730      "PFM-TEST-F4-3"TONC2014
077400     PERFORM PRINT-DETAIL.                                        NC2014.2
077500     MOVE PERFORM3 TO07500 PFM-INIT-F4-4                                                   NC2014
770         1 TO
077700     MOVE "PFM-TEST-F4-3" TO PAR-NAME.2
077800     PERFORM PRINT-DETAIL.                                        NC2014.2
077900     MOVE XRAY TO COMPUTED-A.                                     NC2014.2
078000     MOVE ""TO.                                       NC2014
078100     MOVE "PFM-TEST-F4-3" TO PAR-NAME.                            NC2014.2
2PFM-WRITE-F4-3                                                 
078300     PERFORM PRINT-DETAIL.                                        NC2014.2
078400*                                                                 NC2014.2
8PFM-INIT-F4-40IF(2,103)EQUAL 5.0 AND 2, 0,5NC2014
000AFTER FROM2BY UNTIL             NC2014
03GREATER                                             
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
RFORM VARYING FROM  BY 2            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
UNTIL GREATERAFTER PERFORM2FROM         NC2014.2
079300     BY -5 UNTIL PERFORM2 EQUAL TO 0  AFTER PERFORM11             NC201407000     EQUALTO00AND EQUAL TO04       PFM-FAIL-F4-4.2
079400     FROM 3 BY PERFORM10 UNTIL PERFORM11 GREATER THAN 5.          NC2014.2
090     PERFORM161 )  50 AND (2, 10, 5).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
079600     EQUAL TO 5.7 AND PERFORM16 (2, 5, 3030     GO PFM-FAIL-F4-3NC2014.2
7970      (2, 5, )EQUAL 7.1  PERFORM16 0 3    .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 PERFORM2030 PFM-FAIL-F4-3.                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080200     TO 10 AND PERFORM3 030      15.0 TO .                                      .2
080300     PERFORM GO  PFM-WRITE-F4-4                           NC2014.2
080400     GO TO PFM-FAIL-F4-4.                                         NC2014.2
08050PFM-DELETE-F4-4NC20142
080600     PERFORM DE-LETE.                                             NC2014.2
080700     GO TO PFM-WRITE-F4-4.                                        NC2014.2
08000PFM-FAIL-F4-4NC2014
890    MOVE (2 0,3 OCOMPUTED-N.                     .2
--> --------------------

--> maximum size reached

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

96%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.39Angebot  ¤

*Bot Zugriff






Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.