| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/OB/ Datei vom 4.1.2008 mit Größe 74 kB |
|
Quelle obnc2m.cob Sprache: Cobol |
|||||||||
|
0 DIVISIONOBNC24
000200 PROGRAM-ID. OBNC24.2 000300 OBNC2M. OBNC24.2 000400 OBNC240940MOVE* ***" OBNC24. 000500**************************************************************** OBNC24.2 000600* * OBNC24.2 000700* VALIDATION FOR:- * OBNC24.2 000800* * OBNC24.2 000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".OBNC24.2 001000* * OBNC24.2 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".OBNC24.2 001200* * OBNC24.2 001300**************************************************************** OBNC24.2 001400* * OBNC24.2 001500* X-CARDS USED BY THIS PROGRAM ARE :- * OBNC24.2 001600* * OBNC24.2 001700* X-55 - SYSTEM PRINTER NAME. * OBNC24.2 001800* X-82 - SOURCE COMPUTER NAME. * OBNC24.2 001900* X-83 - OBJECT COMPUTER NAME. * OBNC24.2 002000* * OBNC24.2 002100**************************************************************** OBNC24.2 002200* PROGRAM OBNC2M CONTAINS CCVS74 TESTS OF LANGUAGE ELEMENTS * OBNC24.2 002300* DEFINED AS OBSOLETE IN THE 198X STANDARDS. * OBNC24.2 002400**************************************************************** OBNC24.2 20DATE-COMPILED . 002600* THIS COMMENT LINE SHOULD NOT BE REPLACED OBNC24.2 002700* THIS COMMENT ENTRY SHOULD APPEAR AS THE LAST LINE BEFORE OBNC24.2 002800* THE ENVIRONMENT DIVISION. OBNC24.2 002900 ENVIRONMENT DIVISION. OBNC24.2 0 . .2 003100 SOURCE-COMPUTER. OBNC24.2 003200 Card0130OBNC24.java.lang.StringIndexOutOfBoundsException: Index 80 out of 003300 OBJECT-COMPUTER. OBNC24.2 003400 Card0131. OBNC24.2 00 SECTIONOBNC24 003600 FILE-CONTROL. OBNC24.2 003700 SELECT PRINT-FILE ASSIGN TO OBNC24.2 0380 C0085 OBNC24 003900 DATA DIVISION. OBNC24.2 004000 FILE SECTION. OBNC24.2 004100 FD PRINT-FILE. OBNC24.2 004200 01050600 SPACE RE-MARKOBNC24 004300 01 DUMMY-RECORD PICTURE X(120). OBNC24.2 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 004500 77 SMALL-VALU PICTURE 99 VALUE 7. OBNC24.2 067 PICTURE .OBNC24 004700 77 SMALLEST-VALU PICTURE 99 VALUE 5. OBNC24.2 004000MOVE TO. PERFORM 3 TIMES.2 004900 77 WRK-DS-02V00 PICTURE S99. OBNC24.2 00088TEST-2NUC-COND-99 99. OBNC24 005100 77 WRK-DS-06V06 PICTURE S9(6)V9(6). OBNC24.2 000100COLUMN-NAMES-ROUTINEOBNC24.java.lang.StringIndexOutOfBoundsException: Inde 005300 PICTURE S9(12). OBNC24.2 OBNC24 005500 77 WRK-DS-01V00 PICTURE S9. OBNC24.2 00560077A02TWOS-DS-03V02 S999V99 +022.0. OBNC24 005700 77 A990-DS-0201P PICTURE S99P VALUE 990. OBNC24.2 0058 HYPHEN-LINE. PERFORM. OBNC24 005900 77 A01ONE-DS-P0801 PICTURE SP(8)9 VALUE .000000001.OBNC24.2 006000 77 ATWO-DS-01V00 PICTURE S9 VALUE 2. OBNC24.2 010077WRK-XN-00001 X. OBNC24 006200 77 WRK-XN-00005 PICTURE X(5). OBNC24.2 060 7 PICTURE 2. .2 006400 77 THREE PICTURE 9 VALUE 3. OBNC24.2 0060 7 PICTURE 9 VALUE .2 006600 77 NINE PICTURE 9 VALUE 9. OBNC24.2 006700 77 TEN PICTURE 99 VALUE 10. OBNC24.2 006800 77 ALTERCOUNT PICTURE 999 VALUE510ADDERROR-COUNTER ERROR-HOLD TO OBNC24.2 006900 77 QT5 PIC X(4. TO. .2 007000 77 XRAY PICTURE IS X. OBNC24.2 007100 77 IF-D1 PICTURE S9(4)V9(2) VALUE 0. OBNC24.2 007200 77 IF-D2 PICTURE S9(4)V9(052400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTIN 07007 PICTURE X(10) VALUE"000000" . 007400 77 IF-D4 PICTURE X(15) VALUE " ". OBNC24.2 00500 7 IF-D5 PICTURE X(1) VALUE QUOTEOBNC24 007600 77 IF-D6 PICTURE A(10) VALUE "BABABABABA". OBNC24.2 007700 77 IF-D7 S96V94 +123.4.OBNC24 007800 77 IF-D8 PICTURE 9(6)V9(4) VALUE 12300. OBNC24.2 00700 7 IF-D9 X3 "123".OBNC24 008000 77 IF-D11 PICTURE X(6) VALUE "ABCDEF". OBNC24.2 008100 77 IF-D13 PICTURE 9(6)V9(4) VALUE 12300. OBNC24.2 008200 77 IF-D14 S94V9 VALUE2.5.OBNC24 008300 77 IF-D15 PICTURE S999PP VALUE 12300. OBNC24.2 008400 77 IF-D16 PICTURE PP99 VALUE .0012. OBNC24.2 008500 77 IF-D1710IF IS EQUALTO OBNC24 008600 77 IF-D18 PICTURE520 MOVE " " ERROR-TOTALOBNC242 008700 77 IF-D19 PICTURE X(10) VALUE "ABCDEF ". OBNC24.2 008800 70330ELSEOBNC24.2 008900 77 IF-D24 PICTURE X(10) VALUE "$1,2 3.40+". OBNC24.2 009000 77 IF-D25 PICTURE ABABX0A. 053400 MOVE ERROR-COUNTER TO ERROR-TOTAL. OBNC24 009100 77 IF-D26 PICTURE X(8) VALUE "A C D0E. OBNC24. 009200 77 IF-D27 PICTURE IS 9(6)V9(4) VALUE IS 2137.45 OBNC24.2 009300 USAGE IS COMPUTATIONAL. OBNC24.2 009400 77 IF-D28 PICTURE IS05300END-ROUTINE-13OBNC24 009500 77 IF-D31 PICTURE S9(6) VALUE -123. OBNC24.2 009007 PICTURE4. .2 009700 88 A VALUE 1. OBNC24.2 009800 88 B VALUES ARE 2 THRU 4. OBNC2459 "NO TOERROR-TOTALELSE 090 IS ZERO. .2 010000 88 D VALUE IS +12.34. OBNC24.2 01100 8VALUE1 .1 21..OBNC24 010200 88 F VALUE IS 100 THRU 128 1000 THRU 1280 -9 THRU -2. OBNC24.2 010300 88 G VALUE IS 8765.43 1234 THRU 5678 5 -9999 THRU 10. OBNC24.2 01040 77IF-D33 X(4. OBNC24 010500 88 B VALUE QUOTE. OBNC24.2 010600 88 C VALUE SPACE. OBNC24.2 010700 880450ELSE INSPECT-COUNTER ERROR-TOTAL .2 010800 77 IF-D34 PICTURE A(4). OBNC24.2 01090 8B " " 011000 77 IF-D37 PICTURE 9(5) VALUE CCVS-E-2. . .2 011100 77 IF-D38 PICTURE X(9) VALUE "12345 ". OBNC24040MOVE TO DUMMY-RECORD WRITE-LINE. 0112040 . .2 01130005500ADD RECORD-COUNT .2 011400 77 CCON-3 IF GREATEROBNC24 011500 77 COMP-SGN1 PICTURE S9(1) VALUE +9 COMPUTATIONAL. OBNC24.2 011600 7 COMP-SGN2 PICTURE(18) VALUE3 COMPUTATIONALOBNC24 011700 77 COMP-SGN3 PICTURE S9(1) VALUE -5 COMPUTATIONAL. OBNC24.2 011800 7050 SPACE DUMMY-RECORD OBNC24 011900 77 START-POINT PICTURE 9(6) COMPUTATIONAL. OBNC24.2 012000 7 INC-VALUE 9(6) COMPUTATIONALOBNC24 012100 77 SWITCH-PFM-1 PICTURE 9 VALUE ZERO. OBNC24.2 012200 77 SWITCH-PFM-2 PICTURE 9 VALUE ZERO. OBNC24.2 012300 77 PFM-11-COUNTER PICTURE 999 VALUE ZERO. OBNC24.2 012400 77 PFM-12-COUNTER 055500 CCVS-C-1 TO PERFORM WRT-LNOBNC24.2 012500 77 PFM-12-ANS1 PICTURE 999 VALUE ZERO50MOVE TO UMMY-RECORD WRT-LN OBNC24.java.lang. 16077PFM-12-ANS2 999 ZERO. .2 012700 01 SUBSCRIPT-6 PICTURE 99999 VALUE ZERO. OBNC24.2 00 1IF-TABLEOBNC24 012900 02 IF-ELEM PICTURE X OCCURS 12 TIMES. OBNC24.2 013000 01 QUOTE-DATA. OBNC24.2 3002QU-1 X3)VALUE "2".OBNC24 013200 02 QU-2 PICTURE X VALUE QUOTE. OBNC24.2 013300 02 QU-3 PICTURE X(6) VALUE "ABC456". OBNC24.2 013400 01 IF-D10. OBNC24.2 013500 02 D105600 DUMMY-RECORD AFTERADVANCING LINESOBNC24 013600 02 D2 PICTURE X(2) VALUE "23". OBNC24.2 013700 02 D3. OBNC24.2 013800 03 D4 PICTURE X(4) VALUE "4567". OBNC24.2 013900 03 D5 PICTURE X(4) VALUE "8912". OBNC24.2 01400001IF-D12OBNC24.2 014100 02 D1 PICTURE X(3) VALUE "ABC". OBNC24.2 014200 02 D2. OBNC24.2 014300 03 D3. OBNC24.2 014400 04 D4 NOTTOSPACE TO FAIL-ROUTINE-WRITE.2 014500 04 D5 PICTURE X VALUE "F". OBNC24.2 0140 0 IF-D20. .2 014700 02 FILLER PICTURE 9(5) VALUE ZERO. OBNC24.2 014800 02 D1 PICTURE 9(2) VALUE 12. OBNC24.2 049000 D2 9 VALUE 3 .2 015000 02 D3 PICTURE 9(2) VALUE 45. OBNC24.2 150 1 IF-D212 015200 02 D1 PICTURE 9(5) VALUE ZEROS. OBNC24.2 0150 0 D2 9(5) VALUE2345. .2 015400 01 IF-D22. OBNC24.2 015500 02 D1PICTURE( 015600 02 D2 PICTURE A(4) VALUE "CDEF". OBNC24.2 015700 01 IF-D35. GO FAIL-ROUTINE-EXOBNC242 015800 02 AA PICTURE X(2). OBNC24.2 015900 88 A1 VALUE "AA". OBNC24.2 016000 88 A2 "AB". .2 016100 02 BB ANSI-REFERENCE. .2 016200 88 B1 VALUE "CC". OBNC24.2 016300 88 B2 VALUE "CD". OBNC24.2 016400 0 BB-2 BB OBNC24 016500 03 AAA PICTURE X. OBNC24.2 01660 8AA1 "A". .2 VALUEOBNC24 016800 03 BBB PICTURE X. OBNC24.2 1908 VALUE "" .2 017000 88 BB2 VALUE "D". 80 CORRECT-ATO GOTO. OBNC24 017100 01 IF-D36 PICTURE X(120) VALUE IS "ABCDEFGHIJKLMNOPQRSTUVWXYOBNC24.2 0580 CORRECT-ATO XXCORRECTMOVE TO XXCOMPUTED.2 017300- "NOPQRSTUVWXYZ1234567890ABCDEFGHIJKL". OBNC24.2 140 0 IF-D40 9(5)VALUE5 OBNC24 017500 COMPUTATIONAL SYNCHRONIZED RIGHT. OBNC24.2 017600 8 IF-D40A ZERO 10000. .2 017700 88 IF-D40B VALUE 10001 THRU 99999. OBNC24.2 018088IF-D40C 99999.OBNC24. 017900 01 PERFORM1 PICTURE XXX VALUE SPACES. OBNC24.2 018000 01 PERFORM2 PICTURE S999 VALUE 20. OBNC24.2 018100 01 PERFORM3 PICTURE 9 VALUE 5. OBNC24.2 018200 01 PERFORM4 PICTURE S99V9. OBNC24.2 M5 S99V9 10.0 .2 018400 01 PERFORM6 PICTURE 99V9. OBNC24.2 018500 01 PERFORM7. OBNC24.2 018600 02 PERFORM8 OCCURS 7 TIMES PICTURE 99V9. OBNC24.2 018700 01 PERFORM9 PICTURE 9 VALUE 3. OBNC24.2 018800 01 PERFORM10059200* OBNC24.2 018900 01 PERFORM11 PICTURE 99 VALUE 6. OBNC24.2 019000 01 PERFORM12. OBNC24.2 019100 02 PERFORM13 OCCURS 4 TIMES900ALTERGO--A PROCEED TO. OBNC24 019200 03 PERFORM14 OCCURS 20 TIMES PICTURE 99V9. OBNC24.2 019300 03 PERFORM15 OCCURS 10059600* ALTERED AS SHOWN ABOVE BEFORE CONTROL PASSES TO IT. OBNC2 0140 0PERFORM16 5TIMES 99V9. OBNC24 019500 01 PERFORM17 PICTURE 9(6) COMPUTATIONAL. OBNC24.2 019600 01 PERFORM18 PICTURE 9(6) COMPUTATIONAL. OBNC24.2 019700 01 PERFORM-KEY PICTURE 9. OBNC24.2 019800 01 PERFORM-SEVEN-LEVEL-TABLE. OBNC24.2 019900 03 PFM71 OCCURS 2. OBNC24.2 020000 05 PFM72 OCCURS 2. OBNC24.2 020100 07 PFM73 OCCURS 2. OBNC24600GO GO--WRITE-1.OBNC24.2 020200 09 PFM74 OCCURS 2. OBNC24.2 020300 11 PFM75 OCCURS 2. OBNC24.2 020400 13 PFM76000 GOTOOBNC24.2 020500 15 PFM77 OCCURS 2. OBNC24.2 020600 17 PFM77-1630 . .2 020700 01 S1 PIC S9(3) COMP. OBNC24.2 020800 01 S2 650GO GO--WRITE-1.OBNC24.2 020900 01 S3 PIC S9(3) COMP. OBNC24.2 021000 01 S4 PIC S9(3) COMP. OBNC24.2 021100 01 S5 PIC S9(3) COMP. OBNC24.2 021200 01 S6 PIC S9(3) COMP. OBNC24.2 210001 S7 S9(3)COMP .2 021400 01 PFM-7-TOT PIC S9(3) COMP. OBNC24.2 010001 PIC S9 COMP OBNC24 021600 01 PFM-A PIC S9(3) COMP. OBNC24.2 021700 01 PFM-B S9() COMP. .2 021800 01 FILLER-A. OBNC24.2 021900 03 PFM-F4-25-A PIC S9(3) COMP OCCURS 10. OBNC2406110 MOVE.2 022000 01 FILLER-B. OBNC24.2 022100 03 PFM-F4-25-B PIC S9(3) COMP OCCURS 10. OBNC24.2 022200 00130ALTER-TEST-1OBNC24.2 022300 03 PFM-F4-25-C PIC S9(3) COMP OCCURS 10. OBNC24.2 022400 01 RECEIVING-TABLE6140 ALTERALTER-A TO PROCEED TOALTER-COBNC24 022500 03 TBL-ELEMEN-A. OBNC24.2 020 TBL-ELEMEN-B X18.OBNC24 022700 05 TBL-ELEMEN-C PICTURE X(18). OBNC24.2 022800 03 TBL-ELEMEN-D. OBNC24.2 02290005 TBL-ELEMEN-E PICTURE OCCURS . OBNC24.2 023000 01 LITERAL-SPLITTER. OBNC24.2 023100 02 PART1 PICTURE X(20670GO ALTER-AOBNC24 023200 02 PART2 PICTURE X(20). OBNC24.2 023300 02 PART3 PICTURE X(20). OBNC24.2 030002 PART4PICTURE(0. .2 023500 01 LITERAL-TABLE REDEFINES LITERAL-SPLITTER. OBNC24.2 023600 02 80PARTS PICTURE X OCCURS 80 TIMES. OBNC24.2 023700 01 GRP-FOR-88-LEVELS. OBNC24620 GO TO. .2 023800 03 620GO ALTER-BOBNC242 023900 88 COND-1 VALUE IS 01 THRU 05. OBNC24.2 024000 88 COND-2 VALUES ARE 06 THRU 10020ALTER-BOBNC24 024100 16 THRU 20 00. OBNC24.2 024200 8 COND-3 11 THRU1. OBNC24 024300 01 GRP-MOVE-CONSTANTS. OBNC24.2 024400 03 GRP-GROUP-MOVE-FROM. OBNC24.2 024500 04 GRP-ALPHABETIC. OBNC24.2 0246005ALPHABET-AN-00026 A(2)OBNC24 024700 VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ". OBNC24.2 024800 04 GRP-NUMERIC. OBNC24.2 024900 05 DIGITS-DV-10V00 PICTURE 9(10) VALUE 0123456789. OBNC24.2 025000 05 DIGITS-DU-06V04-S REDEFINES DIGITS-DV-10V00 OBNC24.2 025100 PICTURE 9(6)V9999. OBNC24.06700PERFORM. .2 025200 04 GRP-ALPHANUMERIC. OBNC24.2 253005ALPHANUMERIC-XN-00049 X(50) .2 025400 VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ+-><=l,;.()/* 0123456789". OBNC24.2 025500 06000 ALTER-EOBNC242 025600 01 GRP-FOR-2N058. OBNC24.2 2570 0 SUB-GRP-FOR-2N058-A. OBNC24 5 PICTURE9 ZEROES. OBNC24 025900 03 ELEM-FOR-2N058-B PICTURE XXX VALUE ZEROS. OBNC24.2 026000 03 ELEM-FOR-2N058-C PICTURE XXX VALUE SPACES. OBNC24.2 010 0 PICTUREX6VALUE. OBNC24 026200 03 ELEM-FOR-2N058-E0ALTER-GOBNC24.2 026300 03 ELEM-FOR-2N058-F PICTURE XXX VALUE ALL SPACES. OBNC24.2 026400 03 ELEM-FOR-2N058-G XXXVALUE ZEROES.2 026500 03 ELEM-FOR-2N058-H PICTURE 999 VALUE ALL ZEROS. OBNC24.2 026600 03 ELEM-FOR-2N058-I PICTURE XXX70GO ALTER-FAIL-1 .2 260 3 ELEM-FOR-2N058-J XXXVALUEQUOTES.2 026800 03 ELEM-FOR-2N058-K PICTURE XXX VALUE ALL HIGH-VALUES. OBNC24.2 069003 PICTURE XXX ALL LOW-VALUESOBNC24 027000 03 ELEM-FOR-2N058-M PICTURE XXX VALUE HIGH-VALUES. OBNC24.2 0210 3 ELEM-FOR-2N058-N XXXVALUE. OBNC242 027200 02 SUB-GRP-FOR-2N058-B. OBNC24.2 027300 03 SUB-SUB-BA. OBNC24.2 027400 04 ELEM-FOR-2N058-A PICTURE 999. OBNC24.2 07500 4ELEM-FOR-2N058-B XXX OBNC24 027600 04 ELEM-FOR-2N058-C PICTURE XXX. OBNC24.2 027700 04 ELEM-FOR-2N058-D PICTURE X(6). OBNC24.2 02064200 ZEROTO. OBNC24 027900 04 ELEM-FOR-2N058-E PICTURE XXX. 40 PERFORM. OBNC24 028000 04 ELEM-FOR-2N058-F PICTURE XXX. OBNC24.2 02810 4 PICTURE XXXOBNC24 028200 04 ELEM-FOR-2N058-H PICTURE 999. OBNC24.2 028300 03 0660 "SERIES ALTER"TO 028400 04 ELEM-FOR-2N058-I PICTURE XXX. OBNC24400MOVEALTER-TEST-1 PAR-NAMEOBNC24java.l 028500 04 ELEM-FOR-2N058-J PICTURE XXX. OBNC24.2 028600 04 ELEM-FOR-2N058-K PICTURE XXX. OBNC24.2 028700 04 ELEM-FOR-2N058-L PICTURE XXX. OBNC24.2 080 ELEM-FOR-2N058-MPICTURE XXX. .2 028900 04 ELEM-FOR-2N058-N PICTURE50 . .2 02900001CHARACTER-BREAKDOWN-SOBNC24.java.lang.StringIndexOutOfBoundsException: I 029100 02 FIRST-20S PICTURE X(20). OBNC24.2 0220 02 SECOND-20S PICTURE X(20). OBNC24.2 029300 02 THIRD-20S PICTURE X(20). OBNC24.2 029400 02 FOURTH-20S PICTURE X(20). OBNC24.2 029500 02 FIFTH-20S PICTURE X(20). OBNC24.2 09600 2 SIXTH-20S X(20). OBNC24.2 029700 02 SEVENTH-20S PICTURE X(20). OBNC24.2 29800 02 EIGHTH-20S X(20). .2 029900 02 NINTH-20S PICTURE X(20). OBNC24.2 030000 02 TENTH-20S PICTURE X(20). OBNC24.2 030101 CHARACTER-BREAKDOWN-R OBNC24 030200 02 FIRST-20R PICTURE X(20). OBNC24.2 030300 02 SECOND-20R PICTURE X(20). OBNC24.2 34000 PICTURE X(0) .2 030500 02 FOURTH-20R PICTURE X(20). OBNC24.2 030600 02 FIFTH-20R PICTURE06600 OBNC24 030700 02 SIXTH-20R PICTURE X(20). OBNC24.2 0080 02SEVENTH-20R X(20) .2 030900 02 EIGHTH-20R PICTURE X(20). OBNC24.2 0 PICTURE.OBNC24 031100 02 TENTH-20R PICTURE X(20). OBNC24.2 031200 01 TABLE-80. OBNC24.2 031300 02 ELMT OCCURS 3 TIMES PIC 9. OBNC24.2 1 VALUESAREZERO 7.OBNC24 031500 88 B80 VALUE 8. OBNC24.2 031600 88 C80 VALUES ARE 7, 8 THROUGH 9. OBNC24.2 OBNC24.2 031800 01 TABLE-860GO ALTER-F-2.2 031900 88 A86 VALUE "ABC". OBNC24.2 032000 88 B86 VALUE "ABCABC". OBNC24.2 032100 88 C86 VALUE " ABC". OBNC24.2 032200 02 DATANAME-86 PIC XXX VALUE "ABC". OBNC24.2 032300 2 DNAME-86OBNC24 032400 03 FILLER PIC X VALUE "A". OBNC24.2 0350 03 FILLER X VALUE"B" .2 032600 03 FILLER PIC X VALUE "C". OBNC24.2 37000 FIGCON-DATA. .2 032800 02 SPACE-X PICTURE700 PERFORM. .2 032900 0 QUOTE-X X(5) VALUE. OBNC24 033000 02 LOW-VAL PICTURE X(5) VALUE LOW-VALUE. OBNC24.2 033100 2 ABC XXXVALUE" OBNC242 033200 02 ONE23 PICTURE 9999 VALUE 123. OBNC24.2 033300 02 ZERO-C PICTURE 9(10) VALUE 0 COMPUTATIONAL. OBNC24.2 033400 02 ZERO-D PICTURE 9 VALUE ZERO USAGE DISPLAY. OBNC247 ADD SUBSCRIPT-6.OBNC242 050 01 . .2 033600 02 FILLER PIC X VALUE SPACE. OBNC24.2 033700 02 FEATURE PIC X(20) VALUE SPACE. OBNC24.2 033800 02 FILLER PIC X VALUE SPACE. OBNC24.2 390 2 PIC X(5)VALUE. OBNC24 034000 02 FILLER PIC X VALUE SPACE. OBNC24 PROCEED ALTER-TESTT-2.2 034100 02 PAR-NAME6830 TO PROCEED ALTER-E-2. .2 034200 03 FILLER PIC X(19) VALUE SPACE. OBNC24.2 034300 03 PARDOT-X PIC X VALUE SPACE. OBNC24.2 034400 03 DOTVALUE PIC 99 VALUE ZERO. OBNC24.2 034500 02 FILLER PIC X(8) VALUE SPACE. OBNC24.2 034600 02 RE-MARK PIC X(61). OBNC24.2 4 1TEST-COMPUTEDOBNC24 034800 02 FILLER PIC X(30) VALUE SPACE. OBNC24.2 92 X(17 OBNC24 035000 " COMPUTED=". OBNC24.2 035100 02 COMPUTED-X. OBNC24.2 035200 03 COMPUTED-A PIC X(20) VALUE SPACE. OBNC24.2 035300 03 COMPUTED-N REDEFINES COMPUTED-A OBNC24.2 035400 PIC -9(9).9(9). OBNC24java.lang.StringIndexOutOfBoundsException: Index 80 ou 035500 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). OBNC24.2 035600 0369500 "N P OP MN " TO.OBNC24 035700 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). OBNC24.2 035800 03 CM-18V0 REDEFINES COMPUTED-A. OBNC24.2 30 4COMPUTED-18V0PIC) OBNC24 036000 04 FILLER PIC X. OBNC24.2 036100 03 FILLER PIC X(50) VALUE SPACE. OBNC24.2 036200 01 TEST-CORRECT. OBNC24.2 036300 02 FILLER PIC X(30) VALUE SPACE. OBNC24.2 036400 02 FILLER PIC X(17) 036400 02 FILLER PIC X(17) VALUE UTILIZE THE ALTER STATEMENT WITH OBN 036500 02 CORRECT-X. OBNC24.2 036600 03 CORRECT-A PIC X(20) VALUE SPACE. OBNC24.2 036700 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). OBNC24.2 036800 03 CORRECT-0V18 REDEFINES07000 ALTER-TEST-3OBNC24.2 036900 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). OBNC24.2 037000 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). OBNC24.2 03700 0 REDEFINESCORRECT-AOBNC24 037200 04 CORRECT-18V0 PIC -9(18). OBNC24.2 037300 04 FILLER PIC X. OBNC24.2 0370 0 FILLER PIC X2) SPACE .2 037500 03 COR-ANSI-REFERENCE PIC X(48) VALUE70 TEST-8B PROCEED TEST-8C TO.2 037600 01 CCVS-C-10080TEST-9C TO TEST-11A TEST-11C.2 037700 02 FILLER PIC IS X(99) VALUE IS " FEATURE790TEST-12B PROCEEDTO TEST-12CTEST-13A T 8 SSjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 037900- " REMARKS". OBNC24.2 30002FILLER X(0 SPACE .2 038100 01 CCVS-C-2. OBNC24.2 038200 02 FILLER PIC X VALUE SPACE. OBNC24.2 038300 02 FILLER PIC X(6) VALUE "TESTED". OBNC24.2 03840 2FILLERPIC(1)VALUE. OBNC24 038500 02 FILLER PIC X(4) VALUE "FAIL". OBNC24.2 038600 02 FILLER PIC X(94) VALUE SPACE. 7 TO.OBNC24 801 9() VALUE. OBNC24 038800 01 REC-CT PIC 99 VALUE ZERO. OBNC2410 " " TO. 038900 01 DELETE-COUNTER PIC 9997PERFORMOBNC24 039000 01 ERROR-COUNTER PIC 999 VALUE ZERO. OBNC24.2 039100 01 INSPECT-COUNTER PIC 999 VALUE ZERO. OBNC24.2 039200 01 PASS-COUNTER PIC 999 VALUE ZERO. OBNC24.2 039300 01 TOTAL-ERROR PIC 999 VALUE ZERO. OBNC24.2 039400 01 ERROR-HOLD PIC 999 VALUE ZERO. OBNC24.2 07200 "ALTER-TEST-3 " TO. OBNC24 39001RECORD-COUNT 9()VALUE. OBNC24 039700 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. OBNC24.2 039800 01 CCVS-H-1. OBNC24.2 0900 02 FILLER PIC X39 SPACES OBNC24 040000 02 FILLER PIC X(42) VALUE OBNC24.2 040100 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". OBNC24.2 040200 02 FILLER PIC X(39) VALUE SPACES. OBNC24.2 0 . . 040400 02 FILLER PIC X(40) VALUE SPACE. OBNC24.2 040500 02 FILLER PIC X(7) VALUE "CCVS85 ". OBNC24.2 040600 02 FILLER PIC XXXX VALUE OBNC24.2 040700 "4.2 ". OBNC24.2 PIC2 OBNC24 040900 " COPY - NOT FOR DISTRIBUTION". OBNC24.2 041000 02 FILLER PIC X(41) VALUE SPACE. OBNC24.2 041100 OBNC24.2 04120 0 CCVS-H-2B. OBNC24.2 041300 02 FILLER070ALTER-TEST-4. .2 041400 "TEST RESULT 040PERFORM. .2 041500 02 TEST-ID PIC X(9). OBNC24.2 041600 02 FILLER PIC X(4) VALUE OBNC24.2 4100" ". .2 041800 02 FILLER PIC X(12) VALUE OBNC24.2 041900 "HIGH ". .2 042000 02 FILLER PIC X(22) VALUE OBNC24.2 042100 " LEVEL VALIDATION FOR ". OBNC24.2 042200 02 FILLER PIC X(58) VALUE60GO ALTER-WRITE-5OBNC24 042300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".OBNC24740TEST-5AOBNC 042400 01 CCVS-H-3. OBNC24.2 042500 02 FILLER PIC X(34) VALUE OBNC24.2 042600 " FOR OFFICIAL USE ONLY ". OBNC24.2 042700 02 FILLER PIC X(58) VALUE OBNC24.2 042800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".OBNC24.2 042900 02 FILLER PIC X(28) VALUE OBNC24.2 043000 " COPYRIGHT 1985 ". OBNC24.2 043100 01 CCVS-E-10530 ALTER-WRITE-5OBNC24.2 043200 02 FILLER PIC X(52) VALUE SPACE. OBNC24.2 043300 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". OBNC24.2 043400 02 ID-AGAIN PIC X(9). OBNC24.2 043500 02 FILLER PIC X(45) VALUE SPACES. OBNC24.2 04600 . .2 043700 02 FILLER PIC X(31) VALUE80. 04380000 .OBNC24 043900 02 CCVS-E-2-2. OBNC24.2 044000 03 ERROR-TOTAL PIC XXX VALUE SPACE. OBNC24.2 044100 03 FILLER PIC X VALUE SPACE. OBNC24.2 044200 03 ENDER-DESC PIC X(44) VALUE OBNC24.2 040" ENCOUNTERED".OBNC24 044400 01 CCVS-E-3. OBNC24.2 044500 02 FILLER PIC X(22) VALUE OBNC24.2 460 FOR " OBNC242 044700 02 FILLER PIC X(12) VALUE SPACE. OBNC24.2 044800 02 FILLER PIC X(58) VALUE OBNC24.2 044900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".OBNC24.2 045000 02 FILLER PIC X(13) VALUE SPACE. OBNC24.2 045100 02 FILLER PIC X(15) VALUE OBNC24.2 045200 " COPYRIGHT 1985". OBNC24.2 4500 . .2 44 PIC VALUE. OBNC24 045500 02 FILLER1 TO. 045600 02 CCVS-E-4-2 PIC XXX VALUE SPACE. OBNC24.2 057 FILLER X(0 OBNC24 045800 " TESTS WERE EXECUTED SUCCESSFULLY". OBNC24.2 045900 01 XXINFO. OBNC24.2 046000 02 FILLER PIC X(19) VALUE OBNC24.2 010 ** *. .2 046200 02 INFO-TEXT. OBNC24.2 046300 04 FILLER PIC X(8) VALUE SPACE. OBNC24.2 0460 4XXCOMPUTED X(2).OBNC24 046500 04 FILLER PIC X(5) VALUE SPACE. OBNC24.2 046600 04 XXCORRECT PIC X(20). OBNC24.2 046700 02 INF-ANSI-REFERENCEPICX(48). OBNC24 04680700 "TEST-7B "TO. .2 046900 02 FILLER PIC700PERFORM. .java.lang.StringIndexOutOfBoundsException: Index 80 40002 FILLER ISX6)VALUE *************.2 047100- "*****************************************". OBNC24.2 420 2 PICIS (4)VALUE"*************OBNC242 047300- "******************************". OBNC24.2 44001 CCVS-PGM-ID X()VALUE.2 047500 "OBNC2M". OBNC24.2 047600 PROCEDURE DIVISION. OBNC24.2 00 SECTION OBNC24.2 047800 OPEN-FILES. OBNC24.2 9OPEN PRINT-FILEOBNC24 048000 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. OBNC24.2 048100 MOVE SPACE TO TEST-RESULTS. OBNC24.2 048200 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. OBNC249 .OBNC24 048300 GO TO CCVS1-EXIT. OBNC24.090 TO. .java.lang.StringIndexOutOfBoundsException: In 048400 CLOSE-FILES. OBNC24.2 5 END-ROUTINE END-ROUTINE-13 PRINT-FILE.2 048600 TERMINATE-CCVS. OBNC24.2 0470 PROGRAMOBNC242 048800 TERMINATE-CALL. OBNC24.2 048900 STOP RUN. OBNC24.2 049000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. OBNC24.2 049100 PASS. MOVE "PASS " TO079600 "ALTER-TEST-8 "TO. OBNC24 0420 FAIL "*" TO. ADD TO. .2 049300 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. OBNC24.2 049400 MOVE "****TEST DELETED****" TO RE-MARK. OBNC24.2 090 . . 049600 IF REC-CT NOT EQUAL TO ZERO OBNC24.2 049700 MOVE "." TO PARDOT-X OBNC24.2 049800 MOVE REC-CT TO DOTVALUE. OBNC24.2 049900 MOVE000 MOVE TEST-9C .OBNC24 008300 FAILOBNC24. 050100 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX OBNC24.2 500 ELSE BAIL-OUT BAIL-OUT-EXOBNC24 050300 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. OBNC24.2 050400 MOVE SPACE TO CORRECT-X. OBNC24.2 050500 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. OBNC24.2 050600 MOVE SPACETORE-MARK. .2 050700 HEAD-ROUTINE. OBNC24.2 050800 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. OBNC24.2 0090ALTER-WRITE-9OBNC24 051000 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. OBNC24.2 051100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. OBNC24.2 051200 COLUMN-NAMES-ROUTINE. OBNC24.2 051300 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. OBNC24.2 051400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. OBNC24.2 051500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. OBNC24.2 051600 END-ROUTINE. OBNC24.2 051700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.OBNC24.2 051800 END-RTN-EXIT. OBNC24.2 051900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. OBNC24.2 052000 END-ROUTINE-1. OBNC24.2 052100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO OBNC24.2 052200 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. OBNC24.2 052300 ADD PASS-COUNTER TO ERROR-HOLD. OBNC24.2 052400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. OBNC24.2 052500 MOVE PASS-COUNTER TO CCVS-E-4-1. OBNC24.2 052600 MOVE ERROR-HOLD TO CCVS-E-4-2. OBNC24.2 052700 MOVE CCVS-E-4 TO CCVS-E-2-2. OBNC24.2 052800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. OBNC24.2 052900 END-ROUTINE-12. OBNC24.2 053000 MOVE "TEST(S) FAILED" TO ENDER-DESC. OBNC24.2 053100 IF ERROR-COUNTER IS EQUAL TO ZERO OBNC24.2 053200 MOVE "NO " TO ERROR-TOTAL OBNC24.2 053300 ELSE OBNC24.2 053400 MOVE ERROR-COUNTER TO ERROR-TOTAL. OBNC24.2 053500 MOVE CCVS-E-2 TO DUMMY-RECORD. OBNC24.2 053600 PERFORM WRITE-LINE. OBNC24.2 053700 END-ROUTINE-13. OBNC24.2 053800 IF DELETE-COUNTER IS EQUAL TO ZERO OBNC24.2 053900 MOVE "NO " TO ERROR-TOTAL ELSE OBNC24.2 054000 MOVE DELETE-COUNTER TO ERROR-TOTAL. OBNC24.2 054100 MOVE "TEST(S) DELETED " TO ENDER-DESC. OBNC24.2 054200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. OBNC24.2 054300 IF INSPECT-COUNTER EQUAL TO ZERO OBNC24.2 054400 MOVE "NO " TO ERROR-TOTAL OBNC24.2 054500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. OBNC24.2 054600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. OBNC24.2 054700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. OBNC24.2 054800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. OBNC24.2 054900 WRITE-LINE. OBNC24.2 055000 ADD 1 TO RECORD-COUNT. OBNC24.2 055100 IF RECORD-COUNT GREATER 50 OBNC24.2 055200 MOVE DUMMY-RECORD TO DUMMY-HOLD OBNC24.2 055300 MOVE SPACE TO DUMMY-RECORD OBNC24.2 055400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE OBNC24.2 055500 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN OBNC24.2 055600 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES OBNC24.2 055700 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN OBNC24.2 055800 MOVE DUMMY-HOLD TO DUMMY-RECORD OBNC24.2 055900 MOVE ZERO TO RECORD-COUNT. OBNC24.2 056000 PERFORM WRT-LN. OBNC24.2 056100 WRT-LN. OBNC24.2 056200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. OBNC24.2 056300 MOVE SPACE TO DUMMY-RECORD. OBNC24.2 056400 BLANK-LINE-PRINT. OBNC24.2 056500 PERFORM WRT-LN. OBNC24.2 056600 FAIL-ROUTINE. OBNC24.2 056700 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. OBNC24.2 056800 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.OBNC24.2 056900 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. OBNC24.2 057000 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. OBNC24.2 057100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. OBNC24.2 057200 MOVE SPACES TO INF-ANSI-REFERENCE. OBNC24.2 057300 GO TO FAIL-ROUTINE-EX. OBNC24.2 057400 FAIL-ROUTINE-WRITE. OBNC24.2 057500 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE OBNC24.2 057600 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. OBNC24.2 057700 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. OBNC24.2 057800 MOVE SPACES TO COR-ANSI-REFERENCE. OBNC24.2 057900 FAIL-ROUTINE-EX. EXIT. OBNC24.2 058000 BAIL-OUT. OBNC24.2 058100 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. OBNC24.2 058200 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. OBNC24.2 058300 BAIL-OUT-WRITE. OBNC24.2 058400 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. OBNC24.2 058500 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. OBNC24.2 058600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. OBNC24.2 058700 MOVE SPACES TO INF-ANSI-REFERENCE. OBNC24.2 058800 BAIL-OUT-EX. EXIT. OBNC24.2 058900 CCVS1-EXIT. OBNC24.2 059000 EXIT. OBNC24.2 059100 SECT-OBNC2M-001 SECTION. OBNC24.2 059200* OBNC24.2 059300 GO--TEST-1. OBNC24.2 059400 ALTER GO--A TO PROCEED TO GO--C. OBNC24.2 059500* NOTE THE GO STATEMENT IN GO--A IS NOT LEGAL UNLESS IT IS OBNC24.2 059600* ALTERED AS SHOWN ABOVE BEFORE CONTROL PASSES TO IT. OBNC24.2 059700 GO TO GO--A. OBNC24.2 059800 GO--DELETE-1. OBNC24.2 059900 PERFORM DE-LETE. OBNC24.2 060000 GO TO GO--WRITE-1. OBNC24.2 060100 GO--A. OBNC24.2 060200 GO TO. OBNC24.2 060300 GO--B. OBNC24.2 060400 PERFORM FAIL. OBNC24.2 060500 GO TO GO--WRITE-1. OBNC24.2 060600 GO--C. OBNC24.2 060700 PERFORM PASS. OBNC24.2 060800 GO--WRITE-1. OBNC24.2 060900 PERFORM END-ROUTINE. OBNC24.2 061000 MOVE "UNFINISHED GO TO" TO FEATURE. OBNC24.2 061100 MOVE "GO--TEST-1" TO PAR-NAME. OBNC24.2 061200 PERFORM PRINT-DETAIL. OBNC24.2 061300 ALTER-TEST-1. OBNC24.2 061400 ALTER ALTER-A TO PROCEED TO ALTER-C OBNC24.2 061500 ALTER-D TO PROCEED TO ALTER-F OBNC24.2 061600 ALTER-F TO PROCEED TO ALTER-H. OBNC24.2 061700 GO TO ALTER-A. OBNC24.2 061800 ALTER-DELETE-1. OBNC24.2 061900 PERFORM DE-LETE. OBNC24.2 062000 GO TO ALTER-WRITE-1. OBNC24.2 062100 ALTER-A. OBNC24.2 062200 GO TO ALTER-B. OBNC24.2 062300 ALTER-B. OBNC24.2 062400 ADD 1 TO ALTERCOUNT. OBNC24.2 062500 GO TO ALTER-FAIL-1. OBNC24.2 062600 ALTER-C. OBNC24.2 062700 PERFORM PASS. OBNC24.2 062800 ALTER-D. OBNC24.2 062900 GO TO ALTER-E. OBNC24.2 063000 ALTER-E. OBNC24.2 063100 ADD 10 TO ALTERCOUNT. OBNC24.2 063200 GO TO ALTER-FAIL-1. OBNC24.2 063300 ALTER-F. OBNC24.2 063400 GO TO ALTER-G. OBNC24.2 063500 ALTER-G. OBNC24.2 063600 ADD 100 TO ALTERCOUNT. OBNC24.2 063700 GO TO ALTER-FAIL-1. OBNC24.2 063800 ALTER-H. OBNC24.2 063900 GO TO ALTER-WRITE-1. OBNC24.2 064000 ALTER-FAIL-1. OBNC24.2 064100 MOVE ALTERCOUNT TO COMPUTED-N. OBNC24.2 064200 MOVE ZERO TO CORRECT-N. OBNC24.2 064300 PERFORM FAIL. OBNC24.2 064400 ALTER-WRITE-1. OBNC24.2 064500 PERFORM END-ROUTINE. OBNC24.2 064600 MOVE "SERIES ALTER" TO FEATURE. OBNC24.2 064700 MOVE "ALTER-TEST-1" TO PAR-NAME. OBNC24.2 064800 PERFORM PRINT-DETAIL. OBNC24.2 064900 ALTER-INIT-B. OBNC24.2 065000 MOVE "SERIES ALTER" TO FEATURE. OBNC24.2 065100 ALTER-TEST-2. OBNC24.2 065200 MOVE ZERO TO SUBSCRIPT-6. OBNC24.2 065300 MOVE SPACE TO RECEIVING-TABLE. OBNC24.2 065400 ALTER-TESTT-2. OBNC24.2 065500 GO TO ALTER-TESTTT-2. OBNC24.2 065600 ALTER-A-2. OBNC24.2 065700 GO TO ALTER-C-2. OBNC24.2 065800 ALTER-B-2. OBNC24.2 065900 MOVE "M" TO WRK-XN-00001. OBNC24.2 066000 PERFORM ALTER-G-2. OBNC24.2 066100 ALTER-C-2. OBNC24.2 066200 MOVE "N" TO WRK-XN-00001. OBNC24.2 066300 PERFORM ALTER-G-2. OBNC24.2 066400 MOVE " " TO WRK-XN-00001. OBNC24.2 066500 PERFORM ALTER-G-2. OBNC24.2 066600 ALTER-D-2. OBNC24.2 066700 GO TO ALTER-F-2. OBNC24.2 066800 ALTER-E-2. OBNC24.2 066900 MOVE "O" TO WRK-XN-00001. OBNC24.2 067000 PERFORM ALTER-G-2. OBNC24.2 067100 ALTER-F-2. OBNC24.2 067200 MOVE "P" TO WRK-XN-00001. OBNC24.2 067300 PERFORM ALTER-G-2. OBNC24.2 067400 MOVE " " TO WRK-XN-00001. OBNC24.2 067500 PERFORM ALTER-G-2. OBNC24.2 067600 ALTER-G-2. OBNC24.2 067700 ADD 1 TO SUBSCRIPT-6. OBNC24.2 067800 MOVE WRK-XN-00001 TO TBL-ELEMEN-E (SUBSCRIPT-6). OBNC24.2 067900 ALTER-TESTTT-2. OBNC24.2 068000 PERFORM ALTER-A-2 THRU ALTER-F-2. OBNC24.2 068100 ALTER ALTER-A-2 TO PROCEED TO ALTER-B-2 OBNC24.2 068200 ALTER-TESTT-2 TO PROCEED TO ALTER-TESTT-2 OBNC24.2 068300 ALTER-D-2 TO PROCEED TO ALTER-E-2. OBNC24.2 068400 PERFORM ALTER-A-2 THRU ALTER-F-2. OBNC24.2 068500 PERFORM ALTER-A-2 THRU ALTER-F-2. OBNC24.2 068600 MOVE TBL-ELEMEN-D TO TBL-ELEMEN-B. OBNC24.2 068700 IF TBL-ELEMEN-B EQUAL TO "N P MN OP MN OP " OBNC24.2 068800 PERFORM PASS GO TO ALTER-WRITE-2. OBNC24.2 068900 GO TO ALTER-FAIL-2. OBNC24.2 069000 ALTER-DELETE-2. OBNC24.2 069100 PERFORM DE-LETE. OBNC24.2 069200 GO TO ALTER-WRITE-2. OBNC24.2 069300 ALTER-FAIL-2. OBNC24.2 069400 MOVE TBL-ELEMEN-B TO COMPUTED-A. OBNC24.2 069500 MOVE "N P MN OP MN OP " TO CORRECT-A. OBNC24.2 069600 PERFORM FAIL. OBNC24.2 069700 ALTER-WRITE-2. OBNC24.2 069800 MOVE "ALTER-TEST-2" TO PAR-NAME. OBNC24.2 069900 PERFORM PRINT-DETAIL. OBNC24.2 070000 ALTER-INIT-3. OBNC24.2 070100* NOTE THE FOLLOWING TESTS UTILIZE THE ALTER STATEMENT WITH OBNC24.2 070200* 11 OPERANDS A DELETE IN ALTER-TEST-3 WILL CAUSE THE OBNC24.2 070300* REST OF THE ALTER TESTS TO BE BYPASSED. OBNC24.2 070400 ALTER-TEST-3. OBNC24.2 070500 ALTER TEST-3A TO PROCEED TO TEST-3C TEST-4A TO TEST-4C OBNC24.2 070600 TEST-5A TO TEST-5B TEST-6A TO TEST-6C TEST-7A TO OBNC24.2 070700 TEST-7B TEST-8B TO PROCEED TO TEST-8C TEST-9A TO OBNC24.2 070800 TEST-9C TEST-10A TO TEST-10C TEST-11A TO TEST-11C OBNC24.2 070900 TEST-12B TO PROCEED TO TEST-12C TEST-13A TO TEST-13B. OBNC24.2 071000 GO TO TEST-3A. OBNC24.2 071100 ALTER-DELETE-3. OBNC24.2 071200 PERFORM DE-LETE. OBNC24.2 071300 MOVE "ALTER-TEST-3 THRU 13" TO PAR-NAME. OBNC24.2 071400 PERFORM PRINT-DETAIL. OBNC24.2 071500 GO TO ALTER-EXIT. OBNC24.2 071600 TEST-3A. OBNC24.2 071700 GO TO TEST-3B. OBNC24.2 071800 TEST-3B. OBNC24.2 071900 MOVE "TEST-3C " TO CORRECT-A. OBNC24.2 072000 MOVE "TEST-3B " TO COMPUTED-A. OBNC24.2 072100 PERFORM FAIL. OBNC24.2 072200 GO TO ALTER-WRITE-3. OBNC24.2 072300 TEST-3C. OBNC24.2 072400 PERFORM PASS. OBNC24.2 072500 ALTER-WRITE-3. OBNC24.2 072600 MOVE "ALTER-TEST-3 " TO PAR-NAME. OBNC24.2 072700 PERFORM PRINT-DETAIL. OBNC24.2 072800 ALTER-TEST-4. OBNC24.2 072900 GO TO TEST-4A. OBNC24.2 073000 TEST-4A. OBNC24.2 073100 GO TO TEST-4B. OBNC24.2 073200 TEST-4B. OBNC24.2 073300 MOVE "TEST-4B " TO COMPUTED-A. OBNC24.2 073400 MOVE "TEST-4C " TO CORRECT-A. OBNC24.2 073500 PERFORM FAIL. OBNC24.2 073600 GO TO ALTER-WRITE-4. OBNC24.2 073700 TEST-4C. OBNC24.2 073800 PERFORM PASS. OBNC24.2 073900 ALTER-WRITE-4. OBNC24.2 074000 MOVE "ALTER-TEST-4 " TO PAR-NAME. OBNC24.2 074100 PERFORM PRINT-DETAIL. OBNC24.2 074200 ALTER-TEST-5. OBNC24.2 074300 GO TO TEST-5A. OBNC24.2 074400 TEST-5B. OBNC24.2 074500 PERFORM PASS OBNC24.2 074600 GO TO ALTER-WRITE-5. OBNC24.2 074700 TEST-5A. OBNC24.2 074800 GO TO TEST-5C. OBNC24.2 074900 TEST-5C. OBNC24.2 075000 MOVE "TEST-5C " TO COMPUTED-A. OBNC24.2 075100 MOVE "TEST-5B " TO CORRECT-A. OBNC24.2 075200 PERFORM FAIL. OBNC24.2 075300 ALTER-WRITE-5. OBNC24.2 075400 MOVE "ALTER-TEST-5 " TO PAR-NAME. OBNC24.2 075500 PERFORM PRINT-DETAIL. OBNC24.2 075600 ALTER-TEST-6. OBNC24.2 075700 GO TO TEST-6A. OBNC24.2 075800 TEST-6B. OBNC24.2 075900 MOVE "TEST-6B " TO COMPUTED-A. OBNC24.2 076000 MOVE "TEST-6C " TO CORRECT-A. OBNC24.2 076100 PERFORM FAIL. OBNC24.2 076200 GO TO ALTER-WRITE-6. OBNC24.2 076300 TEST-6A. OBNC24.2 076400 GO TO TEST-6B. OBNC24.2 076500 TEST-6C. OBNC24.2 076600 PERFORM PASS. OBNC24.2 076700 ALTER-WRITE-6. OBNC24.2 076800 MOVE "ALTER-TEST-6 " TO PAR-NAME. OBNC24.2 076900 PERFORM PRINT-DETAIL. OBNC24.2 077000 ALTER-TEST-7. OBNC24.2 077100 GO TO TEST-7A. OBNC24.2 077200 TEST-7B. OBNC24.2 077300 PERFORM PASS. OBNC24.2 077400 GO TO ALTER-WRITE-7. OBNC24.2 077500 TEST-7A. OBNC24.2 077600 GO TO TEST-7C. OBNC24.2 077700 TEST-7C. OBNC24.2 077800 MOVE "TEST-7C " TO COMPUTED-A. OBNC24.2 077900 MOVE "TEST-7B " TO CORRECT-A. OBNC24.2 078000 PERFORM FAIL. OBNC24.2 078100 ALTER-WRITE-7. OBNC24.2 078200 MOVE "ALTER-TEST-7 " TO PAR-NAME. OBNC24.2 078300 PERFORM PRINT-DETAIL. OBNC24.2 078400 ALTER-TEST-8. OBNC24.2 078500 GO TO TEST-8B. OBNC24.2 078600 TEST-8B. OBNC24.2 078700 GO TO TEST-8A. OBNC24.2 078800 TEST-8C. OBNC24.2 078900 PERFORM PASS. OBNC24.2 079000 GO TO ALTER-WRITE-8. OBNC24.2 079100 TEST-8A. OBNC24.2 079200 MOVE "TEST-8A " TO COMPUTED-A. OBNC24.2 079300 MOVE "TEST-8C " TO CORRECT-A. OBNC24.2 079400 PERFORM FAIL. OBNC24.2 079500 ALTER-WRITE-8. OBNC24.2 079600 MOVE "ALTER-TEST-8 " TO PAR-NAME. OBNC24.2 079700 PERFORM PRINT-DETAIL. OBNC24.2 079800 ALTER-TEST-9. OBNC24.2 079900 GO TO TEST-9A. OBNC24.2 080000 TEST-9B. OBNC24.2 080100 MOVE "TEST-9B " TO COMPUTED-A. OBNC24.2 080200 MOVE "TEST-9C " TO CORRECT-A. OBNC24.2 080300 PERFORM FAIL. OBNC24.2 080400 GO TO ALTER-WRITE-9. OBNC24.2 080500 TEST-9A. OBNC24.2 080600 GO TO TEST-9B. OBNC24.2 080700 TEST-9C. OBNC24.2 080800 PERFORM PASS. OBNC24.2 080900 ALTER-WRITE-9. OBNC24.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.37Bemerkung: ¤*© Formatika GbR, Deutschland |
|
2026-03-28