000100 IDENTIFICATION DIVISION . NC2544.2
000200 PROGRAM-ID . NC2544.2
000300 . NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000400**************************************************************** NC2544.2
000500* * NC2544.2
000600* VALIDATION FOR:- * NC2544.2
000700* * NC2544.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2544.2
000900* * NC2544.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2544.2
001100* * NC2544.2
001200**************************************************************** NC2544.2
001300* * NC2544.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2544.2
001500* * NC2544.2
001600* X-55 - SYSTEM PRINTER NAME. * NC2544.2
001700* X-82 - SOURCE COMPUTER NAME. * NC2544.2
001800* X-83 - OBJECT COMPUTER NAME. * NC2544.2
001900* * NC2544.2
002000**************************************************************** NC2544.2
002100* NC2544.2
002200* PROGRAM NC254A TESTS SWITCH SETTINGS USING LEVEL 2 FEATURES NC2544.2
002300* LOGICAL OPERATORS AND, OR, NOT. NC2544.2
002400* NC2544.2
0ENVIRONMENT NC2544
002600 CONFIGURATION SECTION . NC2544.2
002700 SOURCE-COMPUTER . NC2544.2
080Card0130NC2544
002900 OBJECT-COMPUTER . NC2544.2
00300Card0131. .2
003100 SPECIAL-NAMES . NC254400 Card0130. .2
003200 C0081 NC2544.2
003300 IS SW-1 NC2544.2
003400 ON STATUS 003300 IS SW-1 NC2544
00340 ON STATUS .
00360 .2
003700 IS SW-20 .
003800 ON IS ON-SWITCH-2 NC2544.2
003900 OFF IS OFF-SWITCH-2 NC2544.2
004000 CLASS ORDINAL-A-ONLY IS NC2544.2
004100 "A" NC2544.2
004200 CLASS ORDINAL-A-THROUGH-D IS NC2544.2
0040 A
004400 THROUGH 0 "" NC2544.2
004500 "A" NC2544.2
004600 CLASS ORDINAL-D-THRU-A NC2544.2
004700 "A00450 " A"NC2544.2
004800 THRU NC2544.2
004900 "A" NC2544.2
005000 CLASS ACTUAL-A-ONLY "A" NC2544.2
005100 CLASS ACTUAL-A-THRU-D IS "A" THRU00"" NC2544
005200 CLASS ACTUAL-D-THROUGH-A IS 0CLASS IS " " " NC2544.2
030 ACTUAL-ABCD .2
005050 CLASS ACTUAL-ABCD .2
005500 FILE-CONTROL . 0 SECTION NC2544
005600 SELECT PRINT-FILE ASSIGN TO NC2544.2
005700 C0085 .2
005800 DATA DIVISION . NC2544.2
005900 FILE SECTION . NC2544.2
006000 FD PRINT-FILE. NC2544.2
006100 0 PRINT-RECPICTURE X(120). .2
006200 01 DUMMY-RECORD X(120). .2
0 SECTION java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006400 01 WS-A PIC 006500 01 WS-B PIC . .2
006500 01 WS-B PIC X(5). NC2544.2
006600 01 IF-D1 PICTURE IS S9(4)V9(2) NC2544.2
006700 VALUE 0. .2
006800 01 IF-D2 PICTURE IS S9(4)V9(2) NC2544.2
00690 IS Z. .2
007000 01 IF-D3 PICTURE IS X(10) NC2544.2
007100 VALUE IS "0000000000" . NC2544.2
007200 01 IF-D4 PICTURE IS X(15) NC2544.2
007300 VALUE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 .2
007500 VALUE 0 VALUE 30 .2
0000 IF-D9 X3
007700 VALUE IS +123.45. NC2544 "" NC2544
007800 01 IF-D8 PICTURE IS 9(6)V9(4) NC2544 ABCDEF.2
070 IS .NC2544
008000 01 IF-D9 PICTURE VALUE .NC2544
010VALUE 13". .2
020 1 PICTURE 6 .2
IS NC2544
008400 01 IF-D13 PICTURE IS 9(6)V9(4) NC2544.2
008500 VALUE IS 1230100VALUE "234+.NC2544.2
008600 01 IF-D14 PICTURE IS S9(4)V9(2) NC2544.211 01 IF-D25 PICTURE IS ABABX0A. NC2544.2
7 IS 35
008800 01 IF-D15 PICTURE IS S999PP NC2544.2001IF-D27 9(6V9VALUE 23.5 .2
008900 VALUE 000 1 F-D28 IS 99999V9999.2
009000 01 IF-D16 PICTURE IS PP99 NC254400700VALUE 2137.5 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0VALUE IS .0012. NC25442
0001IF-D17 IS ()NC2544
009300 VALUE IS .0012. NC2544.2
00010 1IF-D38 X2 " BABBAGE. NC2544.
009500 VALUE IS "0100 1ALPHA-UPPERPICX(0) " UPPERCASE". NC25442
009600 0 IF-D19 IS )NC2544
009700 VALUE IS "ABCDEF " .1 X8 .2
009800 01 IF-D23 PICTURE IS 0170 AZERO-DS-05V05 S9(5) ZERO .2
009900 01 IF-D24 PICTURE IS X(10) NC2544.2
01000 VALUE IS "123.40+" . .2
01010001 PICTURE ABABX0A.2
010200 01 IF-D26 PIC X(7) NC2544.2
01000 VALUE "A C D0E. NC25442
010400 01 IF-D27 PICTURE 02300 WRK-DU-02V00 99.NC2544
0150 IS COMPUTATIONALNC2544.2
010600 01 IF-D28 PICTURE IS 999999V9999 NC2544.2
010700 VALUE IS 2137.45. NC2544.2
100 01IF-D32PICTURE 9 VALUE IS . NC2544
010900 01 IF-D33 PICTURE S9 VALUE -0. NC2544.2
0 NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011100 01 IF-D37 PICTURE 9(5) VALUE 0001234. NC2544.2
010 1 PICTURE (0 VALUE "" . NC2544
011300 01 ALPHA-UPPER PIC X(20) 020 1 A01ONE-DS-P0801PICTURE (8)9 .0000001 .2
01140001 ALPHA-LOWER X(2) " lowercase chars" NC2544
15001NON-COBOL-CHARACTERS X8 NC2544
01160411 .NC2544.2
011700 01 AZERO-DS-05V05 PICTURE S9(5)V9(5) VALUE ZERO . NC2544.2
011800 01 A18ONES-DS-18V00 PICTURE S90300 1XDATA-DS-18V00-S XDATA-XN-00018 S9) NC2544
190VALUE 11111111111.NC2544.2
012000 01 ONES-XN-00018 PICTURE X(18) NC2544.2
0110VALUE 11111111" NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01220001A99-DS-02V00 9 99. .2
012300 01 WRK-DU-02V00 PICTURE 99. NC2544.2
012400 01 TWOS-XN-00002 PICTURE XX0 S9) NC2544
012500 01 A18ONES-DS-09V09 PICTURE S9(9)V9(904001PIC X1 NC2544
1200 11111111.111111. .2
012700 001420 1IF-D10NC2544java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
012800 04500 PICTURE VALUE "" NC2544
19001A01ONE-DS-P0801(8)9 .0000001.NC2544
013000 01 A990-DS-0201P PICTURE S99P003FILLER XXXX 467. NC2544
11 XDATA-XN-00018 X()NC2544
013200 VALUE "00ABCDEFGHI1. NC2544.2
3 REDEFINES S9.2
013400 01 YADATA-XN-00010 PICTURE X(10) VALUE "ABCDEFGHIJ" .NC2544.2
013500 01 YADATA-XN-00010-U-AND-L PICTURE X(10) VALUE "AbCdEfGhIj" .NC2544.2
01600 01 DUMMY-DS-00001 S9VALUE . .2
013700 01 A02TWOS-DS-03V0201500 04FILLER XX VALUE " NC2544.
100 0 PIC (1)VALUE NC25442
013900 -123456789012345678. NC2544.2
014000 01 WRK-XN-18-2 PIC X(18) VALUE NC2544.2
110 1356802367. .2
0170 2FILLER 9 12. .2
0101. .2
014002FILLER PICTURE VALUE 0"NC25442
014500 02 FILLER PICTURE XX VALUE "23" . NC2544.2
014600 02 IF-D10A. NC2544.2
014700 0301600 0 IF-D21NC2544.2
014800 03 FILLER PICTURE XXXX VALUE "8912" . NC2544.2
014900 01 IF-D12. NC2544.2
050 2FILLER XXXABCNC2544
015100 02 IF-D12A. NC2544.2
015200 03 IF-D12B. 13001.
015300 04 FILLER PICTURE 6 1.
14004FILLER X "F" .2
1500 01 IF-D20NC2544.2
015600 02 FILLER PICTURE 9(5) VALUE ZERO . NC2544.2
CTURE 2
015800 02 FILLER PICTURE 9 VALUE 3. NC2544.2
015900 02 FILLER PICTURE 99 VALUE 45. NC2544.2
NC2544.2
016100 02 FILLER PICTURE 9(5) VALUE ZERO . NC2544.2
016200 02 FILLER PICTURE 9(5) VALUE 12345. NC2544.2
016300 01 IF-D22. NC2544.2
62 AA"" NC2544
016500 02 FILLER PICTURE AAAA VALUE "CDEF" . NC2544 2 PICTURE )NC2544
016600 01 IF-D35. NC254407000FILLER A()VALUE .NC2544
01700 IF-D35AVALUE " NC2544.2
016800 03 FILLER PICTURE A(6). NC2544.2
016900 03 FILLER PICTURE AAA00 . .
70 0 IF-D35B "/SLASH" .NC2544
01710 0 FILLER 9(6). .2
1 REDEFINES .2
70 2IF-D36A () .2
017400 02 IF-D36B8 .
017500 02 IF-D36C PICTURE X(6). NC2544.28010 PICTURE X IS R..2
017600 01 IF-D391900 SPACE . .2
017700 02 FILLER PICTURE A(6) VALUE "ABCDEF" . NC2544.2
017800 02 FILLER PICTURE A(4) VALUE SPACE . NC2544.2
017900 01 LEVEL-01. NC2544.2
080 2 . .2
018100 03 LEVEL-031950 IS 999. .2
018200 04 LEVEL-04. NC2544.2
018300 05 LEVEL-05. NC2544.2
0 .
018500 07 LEVEL-07 PICTURE (.NC25442
018600 08 LEVEL-08. NC2544.2
018700 09 LEVEL-09. NC2544.2
1800 10LEVEL-10 IS VALUE IS "R" .NC2544
018900 01 LEVEL-RECEIVER200 1 A-37 IS AVALUE "X.NC25442
019000 SPACE . NC2544.2
019100 01 LEVEL-SENDER PICTURE X VALUE "S" . NC2544.2
019200 01 VAL PICTURE 0 IS 99 .2
001A-2 AVALUE A"2
019400 01 N-27 PICTURE IS 9999V9 NC2544.2
019500 VALUE IS 9999.9. NC2544.2
019600 01 N-30 PICTURE IS 9V9 NC2544.2
019700 VALUE IS 2. NC2544.2
019800 01 N-31 PICTURE IS 9(6). NC2544.2
019900 01 X-32 REDEFINES N-31 PICTURE IS X(6). NC254400 . .2
020000 01 N-33 010 0 . .2
210 VALUE 2
020200 01 A-37 PICTURE IS A VALUE IS "X" .NC2544.2
020300 01 X-38 REDEFINES A-37 PICTURE IS 2 PIC 5)VALUE . .2
020400 01 X-43203 PICTURE VALUE .NC2544
020500 01 N-840GROUP-1000-3 X VALUE NC2544
020600 01 NUMERIC-GRP-TEST. NC2544020 2GROUP-X500-2. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0270 2 NUMERIC-1PICTURE VALUE .NC2544
020800 02 NUMERIC-2. NC2544.2
29003 NUMERIC-3PICTURE )(1) VALUE . NC2544
021000 03 NUMERIC-4. NC2544.2004 PICTURE 3) SPACE .2
021100 04 NUMERIC-5 PICTURE 9(18) VALUE 1. NC2544.2
021200 02NUMERIC-6NC2544
021300 03 NUMERIC-7 PICTURE X VALUE "7" . NC2544.2
021400 03 NUMERIC-8 PICTURE 9 VALUE 8. NC2544.2
021500 01 NUM-GRP. NC2544.2
0210 2 NUM-SUB-GRP9 NC2544
021700 01 GROUP-1000. ABC.
20 X
021900 0060 0 PIC 9 0. .2
022000 03 GROUP-1000-1 PIC 31. .2
020 3XNAME X10 QUOTE NC2544
022200 03 GROUP-1000-2 PICTURE X(399) VALUE 000 PICTURE 91)COMPUTATIONAL 1000.NC2544
02300 03GROUP-1000-3 X VALUE ." .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022400 02 024200 02 COMP-DATA4PICTURE 9()V9COMPUTATIONAL VALUE .NC2544
0250 03GROUP-X500-A X(0)VALUE . NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022600 03 GROUP-X500-1 .2
022700 0 GROUP-X500-1-1 X(5)VALUE . NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0280 PICTURE 0) VALUE . NC2544
0040 2 PICTURE 8 COMPUTATIONALVALUE 0.NC2544
02040 1DISP-DATANC2544
023100 01 HI-LO-VALUES. NC2544.2
023200 02 LOW-VAL PIC X VALUE LOW-VALUE . NC2544.2
023300 02 ZERO-01 PICTURE 9(18) VALUE 0 PICTURE 9VALUE NC2544
0340 02ABCXXX "" . .2
023500 02 NINE-17-8 PICTURE 9(18)03 2DISP-DATA5()(2) VALUE 5 .2
02600 2ZERO-NULL 9(9 0 .2
023700 02 ZERO-ZERO PICTURE 9(9)V9(9) VALUE 00 DATA-5 9 5. .2
023800 01 COMP-DATA. NC2544.2
023900 02 COMP-DATA1 PICTURE 9(18) COMPUTATIONAL VALUE 300. 02500 0 DATA-99999 PICTURE S9) +99999. NC2544
04000 2 COMP-DATA2 9(10) COMPUTATIONAL 100000. NC2544
024100 02 COMP-DATA3 PICTURE 9 COMPUTATIONAL VALUE 9. NC254480DATA-4VALUE NC2544
2200 PICTURE 99)(7) COMPUTATIONAL ..NC2544
40 COMP-DATA5PICTURE )(2) COMPUTATIONAL 52.2.NC25442
"ADCBA. NC25442
024500 02 COMP-DATA7 PICTURE 9(3)V9(2) COMPUTATIONAL VALUE 0220 .
024600 0 COMP-DATA89(9) COMPUTATIONAL 3.3000000.NC2544
024700 02 COMP-DATA9 PICTURE 9(8) COMPUTATIONAL VALUE 100000. NC2544.2
024800 01 DISP-DATA. NC2544.2
024900 02 DISP-DATA1 PICTURE 9(18) VALUE 6 FILLER PIC VALUE .2
025000 02 DISP-DATA2 PICTURE 9(8) VALUE 100000. NC2544 VALUE .
00 2PAR-NAME. .2
22002DISP-DATA497V9 VALUE 33 .2
025300 02 DISP-DATA5 PICTURE 9(2)V9(2) VALUE 52.25. NC2544.2
02540 0 DISP-DATA6 9V9 8.8. NC2544
025500 01 DATA-5 PICTURE 9 VALUE 5. NC2544.2
025600 01DATA-99999 S95) VALUE 999. .2
025700 01 DATA-Z PICTURE X VALUE "Z" . NC2544.2
25000 DATA-4 9 VALUE .2
025900 01 DATA-Y PICTURE X VALUE "Y" . NC2544.2
2000 DATA-VWXYZ X(5) "VWXYZ" . .2
026100 01 DATA-ADCBA700 TEST-COMPUTEDNC2544.2
026200 01 TEST-RESULTS. NC2544.2
026300 2 FILLER X VALUE . NC2544
026400 02 FEATURE PIC X(20) VALUE SPACE . NC2544.2
060 02FILLER PIC SPACE . NC2544.2
026600 02 P-OR-F 02700" COMPUTED" .2
026700 02 FILLER PIC VALUE SPACE NC2544
026800 02 PAR-NAME. NC2544.2
026900 0 FILLER PIC X(9 SPACE . NC2544
027000 03 PARDOT-X PIC X VALUE SPACE . NC2544.2
027100 03 DOTVALUE PIC 99 VALUE ZERO . NC2544.2
027200 02 FILLER PIC X(8) VALUE SPACE . NC25440820 0 REDEFINES PIC (8 .2
027300 02 RE-MARK02800 0 COMPUTED-14V4 COMPUTED-A PIC 949) NC2544
027400 01 TEST-COMPUTED. NC2544.2
PIC (0) VALUE . NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027600 02 FILLER PIC X(17) VALUE NC2544.2
027700 " COMPUTED=" . NC2544.2
2700 2COMPUTED-X. NC2544
027900 03 COMPUTED-A PIC X(20) VALUE SPACE . NC2544.2
00 REDEFINES NC2544
028100 PIC -01 0 ILLER7 " CORRECT . NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028200 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2544.2
0800 3 COMPUTED-4V14 COMPUTED-A IC()914). .2
028400 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2544.2
2800 03 CM-18V0 REDEFINES COMPUTED-ANC2544
028600 04 COMPUTED-18V0 PIC -9(18). NC254490 REDEFINES CORRECT-A PIC .9(8) NC2544
2 NC2544
02880090 3CR-18V0. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028900 01 TEST-CORRECT. NC2544.2
029000 02 FILLER PIC X(30) VALUE SPACE 03000 4FILLER PIC . .2
7) " CORRECT =" .2
029200 02 CORRECT-X. NC2544003COR-ANSI-REFERENCE X4)VALUE . C2544
029300 03 CORRECT-A PIC X(20) VALUE SPACE . NC2544.2
029400 3 CORRECT-N CORRECT-APIC 99.() NC2544
029500 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(1800500 SSPARAGRAPH-NAMENC2544
029600 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2544.2
02900 3 CORRECT-14V4REDEFINES CORRECT-APIC 9(1)94).NC25442
029800 03 CR-18V0 REDEFINES CORRECT-A. NC2544.2
0290 0 PIC () .2
030000 04 FILLER PIC X. NC2544.2
030100 03 FILLER PIC X(2) VALUE SPACE . NC2544.2
0320 3 COR-ANSI-REFERENCE X(48)VALUE . NC2544
030300 01 CCVS-C-1. NC2544.2
0340 2 FILLER IS (9) VALUE IS "FEATUREPANC2544.2
030500- "SS PARAGRAPH-NAME NC2544.2
030600- " REMARKS" . NC2544.2
030700 02 FILLER PIC X(20) VALUE SPACE . NC2544.2
38000 . .2
030900 02 FILLER 010 0 FILLER PIC 9 VALUE NC2544
031000 2FILLER X()VALUE .2
031100 02 FILLER PIC X(15) VALUE SPACE . NC2544.2
031200 02 FILLER PIC X(4) VALUE "FAIL" . 1 PIC VALUE ZERO . NC25442
031300 02 FILLER PIC X(94) VALUE SPACE . NC2544.2
031400 01 REC-SKL-SUB PIC 9(2) VALUE ZERO . 3001TOTAL-ERROR 99 ZERO .2
031500 01 REC-CT PIC 99 VALUE ZERO . NC2544.2
031600 01 DELETE-COUNTER PIC 999 VALUE ZERO . NC2544.2
0170 1 ERROR-COUNTER PIC 9VALUE . NC2544
031800 01 INSPECT-COUNTER PIC 999 VALUE ZERO . NC2544.2
03190001PASS-COUNTER 99VALUE . NC2544
032000 01 TOTAL-ERROR PIC 999 VALUE ZERO . NC2544.2
032100 01 PIC 99 VALUE . .2
032200 01 DUMMY-HOLD PIC X(120) VALUE SPACE . NC2544.2
032300 01 RECORD-COUNT PIC 9(5) VALUE ZERO . NC2544.2
032400 01 ANSI-REFERENCE PIC X(48) VALUE SPACES . NC2544.2
32000 CCVS-H-1
032600 02 FILLER PIC X(39) VALUE SPACES . NC2544.2
30 2 NC2544
032800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . NC2544.2
003002FILLER PIC 4) SPACE . NC2544
033000 01 CCVS-H-2A000 PIC )VALUE CCVS85.2
3100 X(4)VALUE . NC2544.
033200 02 FILLER PIC X(7) VALUE "CCVS85 " . NC2544.2
033300 0030 (8 NC2544
033400 "4.2 " . NC2544.2
033500 02 FILLER PIC X(28) VALUE NC2544.2
033600 " COPY - NOT FOR DISTRIBUTION" . NC2544.2
033700 02 FILLER PIC X(41) VALUE SPACE . NC2544000 X1)VALUE .2
033800 NC2544040 02 TEST-ID X(9).NC2544
0390 0 . NC2544
034000 02 FILLER PIC X(15) VALUE 034500 02 FILLER PIC X(12) VALUE NC2544
034100 "TEST RESULT OF " . NC2544.2
034200 02 TEST-ID PIC X(9). NC2544900 PIC X5)VALUE .2
0400 0FILLER PIC (4 NC2544
034400 " IN " . NC2544.2
3 NC2544
034600 " HIGH " . NC2544.2
034700 02 FILLER PIC X(22) VALUE NC2544.2
034800 " LEVEL VALIDATION FOR " . NC2544.2
302PIC .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035000 "9 .NC25442
035100 01 CCVS-H-3. NC2544.2
035200 02 FILLER PIC NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035300 "FOROFFICIAL USE ONLY " . NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0540 2 FILLER PIC X5) VALUE .2
035500 "COBOL 85 VERSION 4.2,0600 2ID-AGAIN X(9) .2
03600 X(8) VALUE .2
035700 " COPYRIGHT 1985 " . NC2544.2
035800 01 CCVS-E-1. NC2544.2
035900 02 FILLER PIC X(52) VALUE SPACE . NC2544.2
0600 0 FILLER PIC 1)VALUE END OF " NC25442
036100 02 ID-AGAIN PIC X(9). NC2544.2
036200 02 FILLER PIC X(45) VALUE SPACES . NC2544.2
036300 01 CCVS-E-2. NC2544.2
03640 FILLER PIC X3)VALUE .NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036500 02 FILLER PIC X(21) VALUE SPACE . NC2544.2
60 2 . .2
036700 03 ERROR-TOTAL PIC XXX VALUE SPACE . NC2544.2
036800 03 FILLER PIC X VALUE SPACE . NC2544.2
036900 03 ENDER-DESC PIC X(44) VALUE NC2544.2
037000 "ERRORS ENCOUNTERED" . NC2544.2
037100 01 CCVS-E-3. NC2544.2
037200 02 FILLER PIC X(22) VALUE NC2544.2
037300 " FOR OFFICIAL USE ONLY" . NC2544.2
037400 02 FILLER 0360 " VALIDATION, NATIONAL OF STD TECH." NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037500 02 FILLER PIC X(58) VALUE NC2544.2
037600 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC2544.2
037700 02 FILLER PIC X(13) VALUE SPACE . NC2544.2
037800 02 FILLER PIC X(15) VALUE NC254400CCVS-E-4NC2544
037900 " COPYRIGHT 1985" . .2
038000 01 CCVS-E-4. NC2544.2
038100 02 CCVS-E-4-1 PIC XXX VALUE SPACE . NC2544.2
038200 02 FILLER PIC X(4) VALUE " OF " . NC2544.2
038300 02 CCVS-E-4-2 PIC XXX VALUE SPACE 0 0 . 2
03800"***INFORMATION**"
05 .NC2544
038600 01 XXINFO. NC2544.2
038700 02FILLER X(9)VALUE .2
038800 "*** INFORMATION ***" . NC2544.2
038900 02 INFO-TEXT. NC25441004 XXCOMPUTED X(20). NC25442
039000 04 FILLER PIC X(8) VALUE SPACE . NC2544.2
039100 04 XXCOMPUTED PIC X(20). NC2544.2
039200 04 FILLER PIC X(5) VALUE SPACE . NC2544.2
039300 04 XXCORRECT PIC X(20). NC2544.2
039400 02 INF-ANSI-REFERENCE PIC X(48). NC2544.2
30 0 . .2
3602FILLER IS VALUE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039700 02 FILLER PIC IS X(65) VALUE IS "************************NC2544.2
30 ********************".NC2544.2
039900 02 FILLER PIC IS X(54) VALUE IS "************************NC2544.24010 01CCVS-PGM-IDPIC X()VALUE NC2544.2
040000- "******************************" . NC2544.2
040100 01 CCVS-PGM-ID PIC X(9) VALUE NC2544.2
040200 "NC254A" . NC2544.2
040300 PROCEDURE DIVISION . NC2544.2
040400 CCVS1 SECTION . NC2544.2
040500 OPEN-FILES. NC2544.2
040600 OPEN OUTPUT PRINT-FILE. NC254400MOVE TO TEST-RESULTSNC2544
040700 MOVE 041000 GO TO CCVS1-EXIT.2
1.
040900 PERFORM HEAD-ROUTINE.NC2544
041000 GO EXIT NC2544
041100 CLOSE-FILES. .
041200 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE0. MOVE P-OR-F TO .
0.
0
041500 TERMINATE-CALL. NC2544.2
041600 STOP RUN . NC2544.2
041700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2544.2
041800 PASS. MOVE "PASS " TO P-OR-F REC-CT.NC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041900 FAIL. MOVE "FAIL*" TO 470IF EQUAL TO "FAIL" WRITE-LINE.2
40 DE-LETE. MOVE "****" TO . ADD 1 TO . .2
4 "**TEST*** java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00PRINT-DETAILNC25442
042300 IF REC-CT NOT EQUAL TO ZERO NC2544.2
042400 MOVE "." TO PARDOT-X030 SPACE CORRECT-XNC2544
02500MOVE REC-CT DOTVALUENC2544
042600 MOVE TEST-RESULTS TO PRINT-REC. PERFORM 030MOVE TO . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042700 IF P-OR-F EQUAL TO 30MOVE TO . PERFORM . NC2544
042800 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2544.40 TO . . .2
042900 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. .2
043000 MOVE SPACE TO P-OR-F HYPHEN-LINE. WRITE-LINE
40MOVE TO NC2544
043200 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2544.2
043300 MOVE SPACE TO RE-MARK. NC2544.2
3.NC2544
043500 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2544.2
043600 MOVE CCVS-H-2A TO 044800 ADD ERROR-COUNTER TO ERROR-HOLD TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043700 MOVE CCVS-H-2B400 PASS-COUNTER ERROR-HOLDNC2544
043800 MOVE 045100* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2544.2
043900 COLUMN-NAMES-ROUTINE. NC2544.2
044000 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2544.2
044100 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2544.2
044200 MOVE HYPHEN-LINE.
044300 END-ROUTINE. NC2544.2
0 TO WRITE-LINE 5 TIMES.NC2544
044500 END-RTN-EXIT. NC2544.2
044600 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC254450 MOVE NO ERROR-TOTAL.2
044700 END-ROUTINE-1. NC2544.2
044800 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2544.2
044900 ERROR-HOLD.40 WRITE-LINENC2544
045000 ADD 04END-ROUTINE-13NC2544
045100* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2544.2
045200 MOVE PASS-COUNTER TO CCVS-E-4-1. NC25440MOVE ERROR-TOTAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 TO NC2544
045400 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2544.2
045500 MOVE 047000 IF EQUAL ZERO .2
045600 END-ROUTINE-12410MOVE NC2544
045700 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2544.2
045800 IF ERROR-COUNTER IS EQUAL TO ZERO NC2544.2
045900 MOVE "NO " TO ERROR-TOTAL NC2544.2
046000 ELSE NC2544.2
1MOVE TO . .2
046200 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2544.2
046300 PERFORM WRITE-LINE. 047700 ADD 1 TO RECORD-COUNT. NC2544
046400 END-ROUTINE-13. NC2544 DUMMY-HOLDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
IS ZERO .
000 TO WRT-LN
00 TO PERFORM TIMES.2
40 "(S)DELETED" ENDER-DESCNC2544
046900 MOVE CCVS-E-2 TO 0MOVE TO NC2544
7IF EQUAL ZERO .
047100 MOVE "NO " 4 TO P WRT-LN
7 TO . NC2544.2
047300 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2544.2
047400 MOVE CCVS-E-2 TO DUMMY-RECORD.90MOVE TO .NC2544
047500 0910 WRT-LNNC2544java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0470 . .2
047700 ADD 1 TO RECORD-COUNT. 4 SPACE DUMMY-RECORD.2
0478004900 . .2
047900 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2544.2
048000 MOVE SPACE TO DUMMY-RECORD NC254440IF NOT TO .2
048100 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2544.2
820MOVE TO WRT-LNNC2544
048300 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2544.2
048400 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMESMOVE PROGRAM . .2
048500 MOVE TO . WRITE-LINE. .2
060MOVE DUMMY-RECORD .
048700 MOVE CCVS-C-2 EXNC2544
4MOVE TO PERFORM .2
048900 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2544.2
049000 MOVE ZERO TO RECORD-COUNT. NC2544.2
049100 PERFORM WRT-LN. NC2544.2
049200 WRT-LN0110 FAIL-ROUTINE-EX.EXIT NC2544
049300 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2544.2
049400 MOVE SPACE TO DUMMY-RECORD. 10IF COMPUTED-A EQUAL SPACE GO TO . .2
40BLANK-LINE-PRINTNC2544
049600 PERFORM WRT-LN. NC2544.2
049700 FAIL-ROUTINE. NC2544.2
049800 IF COMPUTED-X NOT EQUAL TO SPACE NC2544.2
049900 GO TO FAIL-ROUTINE-WRITE. NC2544.2
PACE FAIL-ROUTINE-WRITE.2
050100 051600 MOVE XXCORRECT TO ..2
5 NO . INFO-TEXT2
050300051800 . WRITE-LINE.2
0 TO .NC2544
050500 GO TO FAIL-ROUTINE-EX. NC2544BAIL-OUT-EX
050600 FAIL-ROUTINE-WRITE. NC2544.2
070 TEST-COMPUTED PRINT-REC WRITE-LINE.2
0508052400* NC2544.2
050900 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2544.2
0260NEXT-INIT-GF-1. .2
051100 FAIL-ROUTINE-EX. EXIT . NC2544.2
051200 BAIL-OUT. NC2544.2
051300 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2544NEXT-TEST-GF-1NC2544
5IF SPACE TO .NC2544
051500 BAIL-OUT-WRITE. NC2544.2
051600 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2544.2
051700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2544.2
051800 MOVE XXINFO TO DUMMY-RECORD. 0 PERFORM . 2
0 TO NC2544
052000 BAIL-OUT-EX. EXIT . NC2544.2
052100 CCVS1-EXIT. NC2544.2
052200 EXIT . 30NEXT-WRITE-GF-1NC2544.2
NC2544
052400* NC2544.2
052500* NC2544.2
052600 NEXT-INIT-GF-1. 054200* NC2544.2
052700* ==--> NEXT SENTENCE <--== NC2544.2
052800 MOVE "V1-89 6.15.4 GR2 " TO ANSI-REFERENCE.0450MOVE TO . .2
052900 MOVE "A" TO A-2.50PERFORM . 2
053000 NEXT-TEST-GF-1. NC2544.2
053100 IF A-2 EQUAL TO "A" 40PERFORM . 2
05320 NEXT NC2544
053300 ELSE NC2544.0520 MOVE . RE-MARK.2
053400 NEXT SENTENCE . NC2544.2
3PERFORM
053600 GO TO NEXT-WRITE-GF-1. NC2544.2
053700 NEXT-DELETE-GF-1.080 ON-SWITCH-1NC2544
05 .2
053900 NEXT-WRITE-GF-1. NC2544.2
054000 MOVE "NEXT-TEST-1" TO PAR-NAME. NC2544.2
054100 PERFORM PRINT-DETAIL. NC2544.2
054200* NC2544.2
054300* NC2544.2
054400 ANOTHER-REMARK0 PERFORM .
054500 MOVE SPACE TO TEST-RESULTS. NC2544.2
054600 MOVE "THE 50 PRINT-DETAIL.NC2544.2
054700 PERFORM PRINT-DETAIL. .
054800 MOVE "TEST THE COMPARISONS IN " TO RE-MARK. NC2544.2
054900 PERFORM PRINT-DETAIL. NC2544.2
055000 MOVE "SWITCH-STATUS, RELATION " TO RE-MARK. NC2544.2
055100 PERFORM PRINT-DETAIL. NC2544.2
055200 MOVE "AND CLASS CONDITIONALS. " TO RE-MARK. 05600 GO SWH-WRITE-GF-2NC2544
055300 PERFORM PRINT-DETAIL. NC2544.2
0550SWH-INIT-GF-1NC2544
055500 MOVE "V1-13 4.5.2" TO ANSI-REFERENCE. NC2544.2
055600 MOVE "SWITCH-STATUS" TO .
055700 SWH-TEST-GF-1. NC2544.2
055800 IF 05800 PERFORM . .2
055900 PERFORM NC2544
.2
056100 PERFORM FAIL80SWH-TEST-GF-3NC2544
00 TO . .2
056300 SWH-DELETE-GF-1. NC2544.2
056400 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK. NC25440870 PASSNC2544
056500 PERFORM DE-LETE. NC2544.2
056600 SWH-WRITE-GF-1. NC2544.2
056700 MOVE "SWH-TEST-GF-1" TO PAR-NAME. NC2544.2
056800 PERFORM PRINT-DETAIL. NC2544.2
056900 SWH-INIT-GF-2. NC2544.2
057000 MOVE "V1-13 4.5.2" TO ANSI-REFERENCE. NC2544.2
057100 SWH-TEST-GF-2. NC2544.2
057200 IF OFF-SWITCH-1 NC2544.2
0570 FAILNC2544
057400 ELSE NC2544.2
057500 PERFORM PASS. NC2544.2
057600 GO TO SWH-WRITE-GF-2. NC2544.2
057700 SWH-DELETE-GF-2. NC2544.2
057800 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK. NC2544.2
057900 PERFORM DE-LETE. NC2544.2
058000 SWH-WRITE-GF-2. NC2544.2
05800MOVE PAR-NAMENC2544
058200 PERFORM PRINT-DETAIL. NC2544.2
058300 SWH-INIT-GF-3. NC2544.2
058400 MOVE "V1-13 4.5.2" TO ANSI-REFERENCE. NC2544.2
058500 SWH-TEST-GF-3NC25442
058600 IF OFF-SWITCH-2 NC2544.2
058700 PERFORM PASS NC2544.2
058800 ELSE NC2544.2
058900 PERFORM FAIL. NC2544.2
059000 GO TO SWH-WRITE-GF-39 "" TO .NC2544
0910 SWH-DELETE-GF-3NC2544.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059200 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK. NC2544.2
059300 PERFORM DE-LETE. IF ON-SWITCH-1NC2544
059400 SWH-WRITE-GF-3. NC2544.2
0MOVE PAR-NAME.2
059600 PERFORM PRINT-DETAIL. NC2544.2
059700 SWH-INIT-GF-4. NC2544.2
059800 MOVE "V1-13 4.5.2" TO ANSI-REFERENCE. NC2544.2
059900 SWH-TEST-GF-4. NC2544.2
060000 IF ON-SWITCH-2 NC2544.2
060100 PERFORM FAIL NC2544600 MOVE SWITCHES RE-MARK. .2
060200 ELSE NC2544.2
060300 PERFORM PASS. NC2544.2
060400 GO TO SWH-WRITE-GF-4. NC2544.2
060500 SWH-DELETE-GF-4. NC2544.2
060600 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK. NC25440IF OFF-SWITCH-1NC2544
060700 PERFORM DE-LETE. NC2544.2
060800 SWH-WRITE-GF-4. NC254420MOVE TO .NC2544
060900 MOVE "SWH-TEST-GF-4" TO PAR-NAME. NC25441PERFORM . NC2544
061000 PERFORM 630 "SWITCHES NOT IMPLEMENTED" RE-MARK.2
061100 SWH-TEST-55 DE-LETE.2
061200 IF NOT ON-SWITCH-1 NC2544.2
061300 MOVE "SWITCH-1 OFF " TO COMPUTED-A NC25446300MOVE SWH-TEST-6 . NC2544
061400 MOVE "SWITCH-1 EXPECTED ON" TO CORRECT-A NC2544.2
06100 IF NC2544
061600 GO TO SWH-WRITE-5. 01 PASS
010 PASS.2
061800 GO TO SWH-WRITE-5. NC2544.2
061900 SWH-DELETE-5. NC2544.2
062000 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK0"TOCORRECT-A. NC2544.2
062100 PERFORM DE-LETE. NC2544.2
062200 SWH-WRITE-5. NC2544.2
062300 MOVE "SWH-TEST-5" TO PAR-NAME. NC2544.2
062400 PERFORM PRINT-DETAIL. NC2544.2
60. .2
062600 IF NC2544
062700 PERFORM 1MOVE PAR-NAME2
062800 GO TO PRINT-DETAIL.2
062900 MOVE 60 .
063000 MOVE "SWITCH-1 EXPECTED ON" TO CORRECT-A. NC2544.2
063100 PERFORM FAIL. NC2544.2
063200 GO TO SWH-WRITE-6. NC2544.2
063300 SWH-DELETE-6. NC2544.2
063400 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK. NC2544.2
063500 PERFORM DE-LETE. NC2544.2
063600 SWH-WRITE-6. NC2544.2
063700 MOVE "SWH-TEST-6" TO PAR-NAME. NC2544.2
063800 PERFORM PRINT-DETAIL. NC2544.2
063900 SWH-TEST-7. NC2544.2
064000 IF NOT ON-SWITCH-2 NC2544.2
064100 PERFORM PASS NC2544.2
064200 GO TO SWH-WRITE-7. NC2544.2
06430066700* NC2544.2
066800* NC2544.2
40PERFORM NC2544
4 SWH-WRITE-7.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064700 SWH-DELETE-7. NC2544.2
064800 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK. NC2544.2
064900 PERFORM DE-LETE. NC2544.2
065000 SWH-WRITE-7. NC2544.2
065100 MOVE "SWH-TEST-7" TO PAR-NAME. NC2544.2
065200 PERFORM PRINT-DETAIL. NC2544.2
065300 SWH-TEST-8. NC2544.2
065400 IF NOT OFF-SWITCH-2 NC2544.2
065500 MOVE "SWITCH-2 ON " TO COMPUTED-A NC2544.2
065600 MOVE "SWITCH2 EXPECTED OFF" TO CORRECT-A NC2544.2
065700 PERFORM FAIL NC2544.2
065800 GO TO SWH-WRITE-8. NC2544.2
065900 PERFORM PASS. NC2544.2
066000 GO TO SWH-WRITE-8. NC2544.2
066100 SWH-DELETE-8. NC2544.2
066200 MOVE "SWITCHES NOT IMPLEMENTED" TO RE-MARK. NC2544.2
066300 PERFORM DE-LETE. NC2544.2
066400 SWH-WRITE-8. NC2544.2
066500 MOVE "SWH-TEST-8" TO PAR-NAME. NC2544.2
066600 PERFORM PRINT-DETAIL. NC2544.2
066700* NC2544.2
066800* NC2544.2
066900 CCVS-EXIT SECTION . NC2544.2
067000 CCVS-999999. NC2544.2
067100 GO TO CLOSE-FILES. NC2544.2
quality 96%
¤ 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.36Bemerkung:
¤
*Bot Zugriff