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