/src/test/resources/gov/nist/NC202A.CBL
https://github.com/uwol/proleap-cobol-parser · COBOL · 2221 lines · 2219 code · 0 blank · 2 comment · 0 complexity · 2b0766062ad767e46ea45b649d7312cf MD5 · raw file
Large files are truncated click here to view the full file
- *HEADER,COBOL,NC202A
- 000100 IDENTIFICATION DIVISION. NC2024.2
- 000200 PROGRAM-ID. NC2024.2
- 000300 NC202A. NC2024.2
- 000400 NC2024.2
- 000500**************************************************************** NC2024.2
- 000600* * NC2024.2
- 000700* VALIDATION FOR:- * NC2024.2
- 000800* * NC2024.2
- 000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2024.2
- 001000* * NC2024.2
- 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2024.2
- 001200* * NC2024.2
- 001300**************************************************************** NC2024.2
- 001400* * NC2024.2
- 001500* X-CARDS USED BY THIS PROGRAM ARE :- * NC2024.2
- 001600* * NC2024.2
- 001700* X-55 - SYSTEM PRINTER NAME. * NC2024.2
- 001800* X-82 - SOURCE COMPUTER NAME. * NC2024.2
- 001900* X-83 - OBJECT COMPUTER NAME. * NC2024.2
- 002000* * NC2024.2
- 002100**************************************************************** NC2024.2
- 002200* NC2024.2
- 002300* PROGRAM NC202A TESTS FORMAT3 OF THE ADD STATEMENT. NC2024.2
- 002400* NC2024.2
- 002500 ENVIRONMENT DIVISION. NC2024.2
- 002600 CONFIGURATION SECTION. NC2024.2
- 002700 SOURCE-COMPUTER. NC2024.2
- 002800 XXXXX082. NC2024.2
- 002900 OBJECT-COMPUTER. NC2024.2
- 003000 XXXXX083. NC2024.2
- 003100 INPUT-OUTPUT SECTION. NC2024.2
- 003200 FILE-CONTROL. NC2024.2
- 003300 SELECT PRINT-FILE ASSIGN TO NC2024.2
- 003400 XXXXX055. NC2024.2
- 003500 DATA DIVISION. NC2024.2
- 003600 FILE SECTION. NC2024.2
- 003700 FD PRINT-FILE. NC2024.2
- 003800 01 PRINT-REC PICTURE X(120). NC2024.2
- 003900 01 DUMMY-RECORD PICTURE X(120). NC2024.2
- 004000 WORKING-STORAGE SECTION. NC2024.2
- 004100 01 TABLE1. NC2024.2
- 004200 02 RECORD1 PICTURE 99. NC2024.2
- 004300 02 RECORD2 PICTURE 99 NC2024.2
- 004400 OCCURS 2 TIMES NC2024.2
- 004500 INDEXED BY INDEX1. NC2024.2
- 004600 02 RECORD3 PICTURE 99. NC2024.2
- 004700 01 TABLE2. NC2024.2
- 004800 02 RECORD1 PICTURE 99. NC2024.2
- 004900 02 RECORD2 PICTURE 99 NC2024.2
- 005000 OCCURS 2 TIMES NC2024.2
- 005100 INDEXED BY INDEX2. NC2024.2
- 005200 02 RECORD3 PICTURE 99. NC2024.2
- 005300 77 WRK-AN-00001 PICTURE X. NC2024.2
- 005400 77 WRK-XN-00001 PICTURE X. NC2024.2
- 005500 77 WRK-DS-01V00 PICTURE S9. NC2024.2
- 005600 77 WRK-DS-02V00 PICTURE S99. NC2024.2
- 005700 77 WRK-DS-06V06 PICTURE S9(6)V9(6). NC2024.2
- 005800 77 WRK-DS-05V00 PICTURE S9(5). NC2024.2
- 005900 77 AZERO-DS-05V05 PICTURE S9(5)V9(5) VALUE ZERO. NC2024.2
- 006000 77 WRK-DS-09V09 PICTURE S9(9)V9(9). NC2024.2
- 006100 77 WRK-DS-18V00-S REDEFINES WRK-DS-09V09 PICTURE S9(18). NC2024.2
- 006200 77 A18ONES-DS-09V09 PICTURE S9(9)V9(9) NC2024.2
- 006300 VALUE 111111111.111111111. NC2024.2
- 006400 77 WRK-DS-18V00 PICTURE S9(18) VALUE 111111111111111111. NC2024.2
- 006500 77 A05ONES-DS-05V00 PICTURE S9(5) VALUE 11111. NC2024.2
- 006600 77 A99-DS-02V00 PICTURE S99 VALUE 99. NC2024.2
- 006700 77 WRK-DS-03V00 PICTURE S999. NC2024.2
- 006800 77 WRK-DS-06V00 PICTURE S9(6). NC2024.2
- 006900 77 WRK-DS-0201P PICTURE S99P. NC2024.2
- 007000 77 WRK-DS-03V10 PICTURE S9(3)V9(10). NC2024.2
- 007100 77 ADD-1 PICTURE S9(8)V99 VALUE 1. NC2024.2
- 007200 77 ADD-2 PICTURE S9(6)V9(4) VALUE 1. NC2024.2
- 007300 77 ADD-3 PICTURE S9(5) VALUE -1. NC2024.2
- 007400 77 ADD-4 PICTURE 9 VALUE 9. NC2024.2
- 007500 77 ADD-5 PICTURE 9 VALUE 9. NC2024.2
- 007600 77 ADD-6 PICTURE 9(5) VALUE 99999. NC2024.2
- 007700 77 ADD-7 PICTURE 9 VALUE 1. NC2024.2
- 007800 77 ADD-8 PICTURE 9. NC2024.2
- 007900 77 ADD-9 PICTURE S9(8)V99 VALUE 5.9. NC2024.2
- 008000 77 ADD-10 PICTURE 9(5) VALUE 52800. NC2024.2
- 008100 77 ADD-11 PICTURE 99999. NC2024.2
- 008200 77 ADD-12 PICTURE PP9 VALUE .001. NC2024.2
- 008300 77 ADD-13 PICTURE 9PP VALUE 100. NC2024.2
- 008400 77 ADD-14 PICTURE 999V999. NC2024.2
- 008500 77 W-1 PICTURE IS 9. NC2024.2
- 008600 77 W-2 PICTURE IS 99. NC2024.2
- 008700 77 W-3 PICTURE IS 999. NC2024.2
- 008800 77 W-4 PICTURE 9 VALUE 0. NC2024.2
- 008900 77 W-6 PICTURE IS 999 VALUE IS ZERO. NC2024.2
- 009000 77 W-9 PICTURE 999. NC2024.2
- 009100 77 D-5 PICTURE S999 VALUE -1. NC2024.2
- 009200 77 D-9 PICTURE 9(4)V9(4) VALUE 111.1189. NC2024.2
- 009300 77 ONE PICTURE 9 VALUE 1. NC2024.2
- 009400 77 TWO PICTURE S9 VALUE 2. NC2024.2
- 009500 77 THREE PICTURE S9 VALUE 3. NC2024.2
- 009600 77 FOUR PICTURE S9 VALUE 4. NC2024.2
- 009700 77 FIVE PICTURE S9 VALUE 5. NC2024.2
- 009800 77 SIX PICTURE S9 VALUE 6. NC2024.2
- 009900 77 SEVEN PICTURE S9 VALUE 7. NC2024.2
- 010000 77 EIGHT PICTURE 9 VALUE 8. NC2024.2
- 010100 77 NINE PICTURE S9 VALUE 9. NC2024.2
- 010200 77 TEN PICTURE S99 VALUE 10. NC2024.2
- 010300 77 FIFTEEN PICTURE S99 VALUE 15. NC2024.2
- 010400 77 TWENTY PICTURE S99 VALUE 20. NC2024.2
- 010500 77 TWENTY-5 PICTURE S99 VALUE 25. NC2024.2
- 010600 01 WRK-DS-09V00 PICTURE S9(9) VALUE ZERO. NC2024.2
- 010700 01 GRP-FOR-ADD-CORR-1. NC2024.2
- 010800 02 GRP-SUBTRACT-CORR-1. NC2024.2
- 010900 03 FILLER PICTURE S99 VALUE 91. NC2024.2
- 011000 03 ADD-CORR-2 PICTURE S99 VALUE 22. NC2024.2
- 011100 03 ADD-CORR-1 PICTURE S99 VALUE 11. NC2024.2
- 011200 03 ADD-CORR-A PICTURE S99 VALUE 93. NC2024.2
- 011300 03 ADD-CORR-4 PICTURE S99 VALUE 44. NC2024.2
- 011400 03 ADD-CORR-3 PICTURE S99 VALUE 33. NC2024.2
- 011500 03 ADD-CORR-6 PICTURE S99 VALUE 66. NC2024.2
- 011600 03 ADD-CORR-5 PICTURE S99 VALUE 55. NC2024.2
- 011700 03 ADD-CORR-8 PICTURE S99 VALUE 88. NC2024.2
- 011800 03 ADD-CORR-7 PICTURE S99 VALUE 77. NC2024.2
- 011900 03 ADD-CORR-9 PICTURE S99 VALUE 99. NC2024.2
- 012000 01 GRP-FOR-ADD-CORR-R. NC2024.2
- 012100 02 GRP-SUBTRACT-CORR-1. NC2024.2
- 012200 05 ADD-CORR-1 PICTURE 99. NC2024.2
- 012300 05 ADD-CORR-2 PICTURE 99. NC2024.2
- 012400 05 ADD-CORR-3 PICTURE 99. NC2024.2
- 012500 05 ADD-CORR-4 PICTURE 99. NC2024.2
- 012600 05 ADD-CORR-5 PICTURE 9P. NC2024.2
- 012700 05 ADD-CORR-6 PICTURE 999. NC2024.2
- 012800 05 ADD-CORR-7 PICTURE 99. NC2024.2
- 012900 05 ADD-CORR-8 PICTURE 99. NC2024.2
- 013000 05 ADD-CORR-9 PICTURE 99. NC2024.2
- 013100 05 FILLER PICTURE 99. NC2024.2
- 013200 01 GRP-FOR-ADD-CORR-2. NC2024.2
- 013300 02 GRP-ADD-SUB-CORR. NC2024.2
- 013400 03 GRP-SUBTRACT-CORR-1. NC2024.2
- 013500 04 ADD-CORR-1 PICTURE S99 VALUE 11. NC2024.2
- 013600 04 ADD-CORR-2 PICTURE S99 VALUE 22. NC2024.2
- 013700 04 ADD-CORR-5 PICTURE S99 VALUE 55. NC2024.2
- 013800 04 ADD-CORR-4 PICTURE S99 VALUE 44. NC2024.2
- 013900 04 ADD-CORR-3 PICTURE S99 VALUE 33. NC2024.2
- 014000 04 ADD-CORR-6 PICTURE S99 VALUE 66. NC2024.2
- 014100 04 ADD-CORR-7 PICTURE S99 VALUE 77. NC2024.2
- 014200 04 ADD-CORR-8 PICTURE S99 VALUE 88. NC2024.2
- 014300 04 ADD-CORR-9 PICTURE S99 VALUE 99. NC2024.2
- 014400 04 ADD-CORR-B PICTURE S99 VALUE 92. NC2024.2
- 014500 04 ADD-CORR-0 PICTURE S99 VALUE 00. NC2024.2
- 014600 01 GRP-FOR-ADD-CORR-A. NC2024.2
- 014700 02 GRP-SUBTRACT-CORR-3. NC2024.2
- 014800 03 GRP-SUBTRACT-CORR-1. NC2024.2
- 014900 05 ADD-CORR-4 PICTURE S999 VALUE 044. NC2024.2
- 015000 05 ADD-CORR-3 PICTURE S999 VALUE 033. NC2024.2
- 015100 05 ADD-CORR-2 PICTURE S999 VALUE 022. NC2024.2
- 015200 05 ADD-CORR-1 PICTURE S999 VALUE 111. NC2024.2
- 015300 01 ADD-15. NC2024.2
- 015400 02 FIELD1 PICTURE 99999 VALUE 1. NC2024.2
- 015500 02 FIELD2 PICTURE 999V99 VALUE 32.1. NC2024.2
- 015600 02 FIELD3 PICTURE 999V9 VALUE 123.4. NC2024.2
- 015700 01 ADD-16. NC2024.2
- 015800 02 FIELD1 PICTURE 99999 VALUE 99999. NC2024.2
- 015900 02 FIELD2 PICTURE 999V99 VALUE 745.67. NC2024.2
- 016000 02 FIELD3 PICTURE 999V9 VALUE 432.1. NC2024.2
- 016100 01 SUBTRACT-DATA. NC2024.2
- 016200 02 SUBTR-1 PICTURE 9 VALUE 1. NC2024.2
- 016300 02 SUBTR-2 PICTURE S99 VALUE 99. NC2024.2
- 016400 02 SUBTR-3 PICTURE S9V99 VALUE -1. NC2024.2
- 016500 02 SUBTR-4 PICTURE SPP9 VALUE .001. NC2024.2
- 016600 02 SUBTR-5 PICTURE S9PP VALUE 100. NC2024.2
- 016700 02 SUBTR-6 PICTURE 9 VALUE 1. NC2024.2
- 016800 02 SUBTR-7 PICTURE S99 VALUE 99. NC2024.2
- 016900 02 SUBTR-8 PICTURE S9V99 VALUE -9.99. NC2024.2
- 017000 02 SUBTR-9 PICTURE SV999. NC2024.2
- 017100 02 SUBTR-10 PICTURE S999 VALUE 100. NC2024.2
- 017200 02 SUBTR-11 PICTURE S999V999. NC2024.2
- 017300 02 SUBTR-12. NC2024.2
- 017400 03 SUBTR-13 PICTURE 9 VALUE 1. NC2024.2
- 017500 03 SUBTR-14 PICTURE S9V999 VALUE -1.725. NC2024.2
- 017600 03 SUBTR-15 PICTURE S99V99 VALUE 76.76. NC2024.2
- 017700 02 SUBTR-16. NC2024.2
- 017800 03 SUBTR-13 PICTURE 9 VALUE 2. NC2024.2
- 017900 03 SUBTR-14 PICTURE S9V99 VALUE .23. NC2024.2
- 018000 03 SUBTR-15 PICTURE S9V99 VALUE 1. NC2024.2
- 018100 01 CORR-DATA-1. NC2024.2
- 018200 03 XYZ-1 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 018300 03 XYZ-2 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 018400 03 XYZ-3 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 018500 03 XYZ-4 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 018600 03 XYZ-5 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 018700 03 XYZ-6 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 018800 01 CORR-DATA-2. NC2024.2
- 018900 03 XYZ-1 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019000 03 XYZ-2 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019100 03 XYZ-3 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019200 03 XYZ-4 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019300 03 XYZ-5 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019400 03 XYZ-6 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019500 01 CORR-DATA-3. NC2024.2
- 019600 03 XYZ-4 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019700 03 XYZ-3 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019800 03 XYZ-6 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 019900 03 XYZ-5 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 020000 03 XYZ-2 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 020100 03 XYZ-1 PICTURE IS 99 VALUE IS ZERO. NC2024.2
- 020200 01 CORR-DATA-4. NC2024.2
- 020300 03 XYZ-11 PICTURE IS 99. NC2024.2
- 020400 03 XYZ-12 PICTURE IS 99. NC2024.2
- 020500 03 XYZ-13 PICTURE IS 99. NC2024.2
- 020600 03 XYZ-14 PICTURE IS 99. NC2024.2
- 020700 03 XYZ-15 PICTURE IS 99. NC2024.2
- 020800 03 XYZ-16 PICTURE IS 99. NC2024.2
- 020900 01 CORR-DATA-5. NC2024.2
- 021000 03 XYZ-1 PICTURE 99. NC2024.2
- 021100 03 XYZ-2 PICTURE 99. NC2024.2
- 021200 03 XYZ-13 PICTURE IS 99. NC2024.2
- 021300 03 XYZ-14 PICTURE IS 99. NC2024.2
- 021400 03 FILLER PICTURE IS 99. NC2024.2
- 021500 03 XYZ-11 PICTURE IS 99. NC2024.2
- 021600 03 XYZ-12 PICTURE IS 99. NC2024.2
- 021700 01 CORR-DATA-6. NC2024.2
- 021800 03 XYZ-11 PICTURE IS 99. NC2024.2
- 021900 03 XYZ-12 PICTURE IS 99. NC2024.2
- 022000 03 FILLER PICTURE IS 99. NC2024.2
- 022100 03 XYZ-1 PICTURE IS 99. NC2024.2
- 022200 03 XYZ-2 PICTURE IS 9(2). NC2024.2
- 022300 03 FILLER PICTURE IS 99. NC2024.2
- 022400 01 CORR-DATA-7. NC2024.2
- 022500 02 XYZ-1 PICTURE 99V99 VALUE 10.45. NC2024.2
- 022600 02 XYZ-6 PICTURE 999V9 VALUE 100.5. NC2024.2
- 022700 02 XYZ-11 PICTURE 99V9 VALUE ZERO. NC2024.2
- 022800 02 XYZ-2 PICTURE 99V9 VALUE 0.9. NC2024.2
- 022900 01 42-DATANAMES. NC2024.2
- 023000 02 DNAME1 PICTURE 9 VALUE 1 COMPUTATIONAL. NC2024.2
- 023100 02 DNAME2 PICTURE 99 VALUE 1 COMPUTATIONAL. NC2024.2
- 023200 02 DNAME3 PICTURE 999 VALUE 1 COMPUTATIONAL. NC2024.2
- 023300 02 DNAME4 PICTURE 9(4) VALUE 1 COMPUTATIONAL. NC2024.2
- 023400 02 DNAME5 PICTURE 9(5) VALUE 1 COMPUTATIONAL. NC2024.2
- 023500 02 DNAME6 PICTURE 9(6) VALUE 1 COMPUTATIONAL. NC2024.2
- 023600 02 DNAME7 PICTURE 9(7) VALUE 1 COMPUTATIONAL. NC2024.2
- 023700 02 DNAME8 PICTURE 9(8) VALUE 1 COMPUTATIONAL. NC2024.2
- 023800 02 DNAME9 PICTURE 9(9) VALUE 1 COMPUTATIONAL. NC2024.2
- 023900 02 DNAME10 PICTURE 9(10) VALUE 1. NC2024.2
- 024000 02 DNAME11 PICTURE 9(11) VALUE 1. NC2024.2
- 024100 02 DNAME12 PICTURE 9(12) VALUE 1. NC2024.2
- 024200 02 DNAME13 PICTURE 9(13) VALUE 1. NC2024.2
- 024300 02 DNAME14 PICTURE 9(14) VALUE 1. NC2024.2
- 024400 02 DNAME15 PICTURE 9(15) VALUE 1. NC2024.2
- 024500 02 DNAME16 PICTURE 9(16) VALUE 1. NC2024.2
- 024600 02 DNAME17 PICTURE 9(17) VALUE 1. NC2024.2
- 024700 02 DNAME18 PICTURE 9(18) VALUE 1. NC2024.2
- 024800 02 DNAME19 PICTURE 9 VALUE 1. NC2024.2
- 024900 02 DNAME20 PICTURE 99 VALUE 1. NC2024.2
- 025000 02 DNAME21 PICTURE 999 VALUE 1. NC2024.2
- 025100 02 DNAME22 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025200 02 DNAME23 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025300 02 DNAME24 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025400 02 DNAME25 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025500 02 DNAME26 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025600 02 DNAME27 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025700 02 DNAME28 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025800 02 DNAME29 PICTURE 9(18) VALUE ZERO. NC2024.2
- 025900 02 DNAME30 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026000 02 DNAME31 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026100 02 DNAME32 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026200 02 DNAME33 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026300 02 DNAME34 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026400 02 DNAME35 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026500 02 DNAME36 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026600 02 DNAME37 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026700 02 DNAME38 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026800 02 DNAME39 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 026900 02 DNAME40 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 027000 02 DNAME41 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 027100 02 DNAME42 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2024.2
- 027200 01 TEST-RESULTS. NC2024.2
- 027300 02 FILLER PIC X VALUE SPACE. NC2024.2
- 027400 02 FEATURE PIC X(20) VALUE SPACE. NC2024.2
- 027500 02 FILLER PIC X VALUE SPACE. NC2024.2
- 027600 02 P-OR-F PIC X(5) VALUE SPACE. NC2024.2
- 027700 02 FILLER PIC X VALUE SPACE. NC2024.2
- 027800 02 PAR-NAME. NC2024.2
- 027900 03 FILLER PIC X(19) VALUE SPACE. NC2024.2
- 028000 03 PARDOT-X PIC X VALUE SPACE. NC2024.2
- 028100 03 DOTVALUE PIC 99 VALUE ZERO. NC2024.2
- 028200 02 FILLER PIC X(8) VALUE SPACE. NC2024.2
- 028300 02 RE-MARK PIC X(61). NC2024.2
- 028400 01 TEST-COMPUTED. NC2024.2
- 028500 02 FILLER PIC X(30) VALUE SPACE. NC2024.2
- 028600 02 FILLER PIC X(17) VALUE NC2024.2
- 028700 " COMPUTED=". NC2024.2
- 028800 02 COMPUTED-X. NC2024.2
- 028900 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2024.2
- 029000 03 COMPUTED-N REDEFINES COMPUTED-A NC2024.2
- 029100 PIC -9(9).9(9). NC2024.2
- 029200 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2024.2
- 029300 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2024.2
- 029400 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2024.2
- 029500 03 CM-18V0 REDEFINES COMPUTED-A. NC2024.2
- 029600 04 COMPUTED-18V0 PIC -9(18). NC2024.2
- 029700 04 FILLER PIC X. NC2024.2
- 029800 03 FILLER PIC X(50) VALUE SPACE. NC2024.2
- 029900 01 TEST-CORRECT. NC2024.2
- 030000 02 FILLER PIC X(30) VALUE SPACE. NC2024.2
- 030100 02 FILLER PIC X(17) VALUE " CORRECT =". NC2024.2
- 030200 02 CORRECT-X. NC2024.2
- 030300 03 CORRECT-A PIC X(20) VALUE SPACE. NC2024.2
- 030400 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2024.2
- 030500 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2024.2
- 030600 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2024.2
- 030700 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2024.2
- 030800 03 CR-18V0 REDEFINES CORRECT-A. NC2024.2
- 030900 04 CORRECT-18V0 PIC -9(18). NC2024.2
- 031000 04 FILLER PIC X. NC2024.2
- 031100 03 FILLER PIC X(2) VALUE SPACE. NC2024.2
- 031200 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2024.2
- 031300 01 CCVS-C-1. NC2024.2
- 031400 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2024.2
- 031500- "SS PARAGRAPH-NAME NC2024.2
- 031600- " REMARKS". NC2024.2
- 031700 02 FILLER PIC X(20) VALUE SPACE. NC2024.2
- 031800 01 CCVS-C-2. NC2024.2
- 031900 02 FILLER PIC X VALUE SPACE. NC2024.2
- 032000 02 FILLER PIC X(6) VALUE "TESTED". NC2024.2
- 032100 02 FILLER PIC X(15) VALUE SPACE. NC2024.2
- 032200 02 FILLER PIC X(4) VALUE "FAIL". NC2024.2
- 032300 02 FILLER PIC X(94) VALUE SPACE. NC2024.2
- 032400 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2024.2
- 032500 01 REC-CT PIC 99 VALUE ZERO. NC2024.2
- 032600 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2024.2
- 032700 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2024.2
- 032800 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2024.2
- 032900 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2024.2
- 033000 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2024.2
- 033100 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2024.2
- 033200 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2024.2
- 033300 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2024.2
- 033400 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2024.2
- 033500 01 CCVS-H-1. NC2024.2
- 033600 02 FILLER PIC X(39) VALUE SPACES. NC2024.2
- 033700 02 FILLER PIC X(42) VALUE NC2024.2
- 033800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2024.2
- 033900 02 FILLER PIC X(39) VALUE SPACES. NC2024.2
- 034000 01 CCVS-H-2A. NC2024.2
- 034100 02 FILLER PIC X(40) VALUE SPACE. NC2024.2
- 034200 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2024.2
- 034300 02 FILLER PIC XXXX VALUE NC2024.2
- 034400 "4.2 ". NC2024.2
- 034500 02 FILLER PIC X(28) VALUE NC2024.2
- 034600 " COPY - NOT FOR DISTRIBUTION". NC2024.2
- 034700 02 FILLER PIC X(41) VALUE SPACE. NC2024.2
- 034800 NC2024.2
- 034900 01 CCVS-H-2B. NC2024.2
- 035000 02 FILLER PIC X(15) VALUE NC2024.2
- 035100 "TEST RESULT OF ". NC2024.2
- 035200 02 TEST-ID PIC X(9). NC2024.2
- 035300 02 FILLER PIC X(4) VALUE NC2024.2
- 035400 " IN ". NC2024.2
- 035500 02 FILLER PIC X(12) VALUE NC2024.2
- 035600 " HIGH ". NC2024.2
- 035700 02 FILLER PIC X(22) VALUE NC2024.2
- 035800 " LEVEL VALIDATION FOR ". NC2024.2
- 035900 02 FILLER PIC X(58) VALUE NC2024.2
- 036000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2024.2
- 036100 01 CCVS-H-3. NC2024.2
- 036200 02 FILLER PIC X(34) VALUE NC2024.2
- 036300 " FOR OFFICIAL USE ONLY ". NC2024.2
- 036400 02 FILLER PIC X(58) VALUE NC2024.2
- 036500 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2024.2
- 036600 02 FILLER PIC X(28) VALUE NC2024.2
- 036700 " COPYRIGHT 1985 ". NC2024.2
- 036800 01 CCVS-E-1. NC2024.2
- 036900 02 FILLER PIC X(52) VALUE SPACE. NC2024.2
- 037000 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2024.2
- 037100 02 ID-AGAIN PIC X(9). NC2024.2
- 037200 02 FILLER PIC X(45) VALUE SPACES. NC2024.2
- 037300 01 CCVS-E-2. NC2024.2
- 037400 02 FILLER PIC X(31) VALUE SPACE. NC2024.2
- 037500 02 FILLER PIC X(21) VALUE SPACE. NC2024.2
- 037600 02 CCVS-E-2-2. NC2024.2
- 037700 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2024.2
- 037800 03 FILLER PIC X VALUE SPACE. NC2024.2
- 037900 03 ENDER-DESC PIC X(44) VALUE NC2024.2
- 038000 "ERRORS ENCOUNTERED". NC2024.2
- 038100 01 CCVS-E-3. NC2024.2
- 038200 02 FILLER PIC X(22) VALUE NC2024.2
- 038300 " FOR OFFICIAL USE ONLY". NC2024.2
- 038400 02 FILLER PIC X(12) VALUE SPACE. NC2024.2
- 038500 02 FILLER PIC X(58) VALUE NC2024.2
- 038600 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2024.2
- 038700 02 FILLER PIC X(13) VALUE SPACE. NC2024.2
- 038800 02 FILLER PIC X(15) VALUE NC2024.2
- 038900 " COPYRIGHT 1985". NC2024.2
- 039000 01 CCVS-E-4. NC2024.2
- 039100 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2024.2
- 039200 02 FILLER PIC X(4) VALUE " OF ". NC2024.2
- 039300 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2024.2
- 039400 02 FILLER PIC X(40) VALUE NC2024.2
- 039500 " TESTS WERE EXECUTED SUCCESSFULLY". NC2024.2
- 039600 01 XXINFO. NC2024.2
- 039700 02 FILLER PIC X(19) VALUE NC2024.2
- 039800 "*** INFORMATION ***". NC2024.2
- 039900 02 INFO-TEXT. NC2024.2
- 040000 04 FILLER PIC X(8) VALUE SPACE. NC2024.2
- 040100 04 XXCOMPUTED PIC X(20). NC2024.2
- 040200 04 FILLER PIC X(5) VALUE SPACE. NC2024.2
- 040300 04 XXCORRECT PIC X(20). NC2024.2
- 040400 02 INF-ANSI-REFERENCE PIC X(48). NC2024.2
- 040500 01 HYPHEN-LINE. NC2024.2
- 040600 02 FILLER PIC IS X VALUE IS SPACE. NC2024.2
- 040700 02 FILLER PIC IS X(65) VALUE IS "************************NC2024.2
- 040800- "*****************************************". NC2024.2
- 040900 02 FILLER PIC IS X(54) VALUE IS "************************NC2024.2
- 041000- "******************************". NC2024.2
- 041100 01 CCVS-PGM-ID PIC X(9) VALUE NC2024.2
- 041200 "NC202A". NC2024.2
- 041300 PROCEDURE DIVISION. NC2024.2
- 041400 CCVS1 SECTION. NC2024.2
- 041500 OPEN-FILES. NC2024.2
- 041600 OPEN OUTPUT PRINT-FILE. NC2024.2
- 041700 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2024.2
- 041800 MOVE SPACE TO TEST-RESULTS. NC2024.2
- 041900 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2024.2
- 042000 GO TO CCVS1-EXIT. NC2024.2
- 042100 CLOSE-FILES. NC2024.2
- 042200 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2024.2
- 042300 TERMINATE-CCVS. NC2024.2
- 042400* EXIT PROGRAM. NC2024.2
- 042500*TERMINATE-CALL. NC2024.2
- 042600 STOP RUN. NC2024.2
- 042700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2024.2
- 042800 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2024.2
- 042900 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2024.2
- 043000 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2024.2
- 043100 MOVE "****TEST DELETED****" TO RE-MARK. NC2024.2
- 043200 PRINT-DETAIL. NC2024.2
- 043300 IF REC-CT NOT EQUAL TO ZERO NC2024.2
- 043400 MOVE "." TO PARDOT-X NC2024.2
- 043500 MOVE REC-CT TO DOTVALUE. NC2024.2
- 043600 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2024.2
- 043700 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2024.2
- 043800 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2024.2
- 043900 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2024.2
- 044000 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2024.2
- 044100 MOVE SPACE TO CORRECT-X. NC2024.2
- 044200 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2024.2
- 044300 MOVE SPACE TO RE-MARK. NC2024.2
- 044400 HEAD-ROUTINE. NC2024.2
- 044500 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2024.2
- 044600 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2024.2
- 044700 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2024.2
- 044800 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2024.2
- 044900 COLUMN-NAMES-ROUTINE. NC2024.2
- 045000 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2024.2
- 045100 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2024.2
- 045200 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2024.2
- 045300 END-ROUTINE. NC2024.2
- 045400 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2024.2
- 045500 END-RTN-EXIT. NC2024.2
- 045600 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2024.2
- 045700 END-ROUTINE-1. NC2024.2
- 045800 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2024.2
- 045900 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2024.2
- 046000 ADD PASS-COUNTER TO ERROR-HOLD. NC2024.2
- 046100* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2024.2
- 046200 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2024.2
- 046300 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2024.2
- 046400 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2024.2
- 046500 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2024.2
- 046600 END-ROUTINE-12. NC2024.2
- 046700 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2024.2
- 046800 IF ERROR-COUNTER IS EQUAL TO ZERO NC2024.2
- 046900 MOVE "NO " TO ERROR-TOTAL NC2024.2
- 047000 ELSE NC2024.2
- 047100 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2024.2
- 047200 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2024.2
- 047300 PERFORM WRITE-LINE. NC2024.2
- 047400 END-ROUTINE-13. NC2024.2
- 047500 IF DELETE-COUNTER IS EQUAL TO ZERO NC2024.2
- 047600 MOVE "NO " TO ERROR-TOTAL ELSE NC2024.2
- 047700 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2024.2
- 047800 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2024.2
- 047900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2024.2
- 048000 IF INSPECT-COUNTER EQUAL TO ZERO NC2024.2
- 048100 MOVE "NO " TO ERROR-TOTAL NC2024.2
- 048200 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2024.2
- 048300 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2024.2
- 048400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2024.2
- 048500 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2024.2
- 048600 WRITE-LINE. NC2024.2
- 048700 ADD 1 TO RECORD-COUNT. NC2024.2
- 048800* IF RECORD-COUNT GREATER 50 NC2024.2
- 048900* MOVE DUMMY-RECORD TO DUMMY-HOLD NC2024.2
- 049000* MOVE SPACE TO DUMMY-RECORD NC2024.2
- 049100* WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2024.2
- 049200* MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2024.2
- 049300* MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2024.2
- 049400* MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2024.2
- 049500* MOVE DUMMY-HOLD TO DUMMY-RECORD NC2024.2
- 049600* MOVE ZERO TO RECORD-COUNT. NC2024.2
- 049700 PERFORM WRT-LN. NC2024.2
- 049800 WRT-LN. NC2024.2
- 049900 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2024.2
- 050000 MOVE SPACE TO DUMMY-RECORD. NC2024.2
- 050100 BLANK-LINE-PRINT. NC2024.2
- 050200 PERFORM WRT-LN. NC2024.2
- 050300 FAIL-ROUTINE. NC2024.2
- 050400 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2024.2
- 050500 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2024.2
- 050600 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2024.2
- 050700 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2024.2
- 050800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2024.2
- 050900 MOVE SPACES TO INF-ANSI-REFERENCE. NC2024.2
- 051000 GO TO FAIL-ROUTINE-EX. NC2024.2
- 051100 FAIL-ROUTINE-WRITE. NC2024.2
- 051200 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2024.2
- 051300 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2024.2
- 051400 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2024.2
- 051500 MOVE SPACES TO COR-ANSI-REFERENCE. NC2024.2
- 051600 FAIL-ROUTINE-EX. EXIT. NC2024.2
- 051700 BAIL-OUT. NC2024.2
- 051800 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2024.2
- 051900 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2024.2
- 052000 BAIL-OUT-WRITE. NC2024.2
- 052100 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2024.2
- 052200 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2024.2
- 052300 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2024.2
- 052400 MOVE SPACES TO INF-ANSI-REFERENCE. NC2024.2
- 052500 BAIL-OUT-EX. EXIT. NC2024.2
- 052600 CCVS1-EXIT. NC2024.2
- 052700 EXIT. NC2024.2
- 052800 SECT-NC202A-001 SECTION. NC2024.2
- 052900 ADD-INIT-F3-1. NC2024.2
- 053000 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
- 053100 MOVE "ADD CORRESPONDING " TO FEATURE. NC2024.2
- 053200 MOVE "ADD-TEST-F3-1" TO PAR-NAME. NC2024.2
- 053300 MOVE ZERO TO GRP-FOR-ADD-CORR-R. NC2024.2
- 053400 MOVE 11 TO ADD-CORR-1 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 053500 MOVE 22 TO ADD-CORR-2 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 053600 MOVE 33 TO ADD-CORR-3 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 053700 MOVE 44 TO ADD-CORR-4 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 053800 MOVE 55 TO ADD-CORR-5 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 053900 MOVE 66 TO ADD-CORR-6 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 054000 MOVE 77 TO ADD-CORR-7 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 054100 MOVE 88 TO ADD-CORR-8 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 054200 MOVE 99 TO ADD-CORR-9 OF GRP-FOR-ADD-CORR-1. NC2024.2
- 054300 ADD-TEST-F3-1. NC2024.2
- 054400 ADD CORRESPONDING GRP-FOR-ADD-CORR-1 TO GRP-FOR-ADD-CORR-R. NC2024.2
- 054500 IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344506677889900" NC2024.2
- 054600 PERFORM PASS NC2024.2
- 054700 GO TO ADD-WRITE-F3-1. NC2024.2
- 054800 GO TO ADD-FAIL-F3-1. NC2024.2
- 054900 ADD-DELETE-F3-1. NC2024.2
- 055000 PERFORM DE-LETE. NC2024.2
- 055100 GO TO ADD-WRITE-F3-1. NC2024.2
- 055200 ADD-FAIL-F3-1. NC2024.2
- 055300 MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A. NC2024.2
- 055400 MOVE "11223344506677889900" TO CORRECT-A. NC2024.2
- 055500 PERFORM FAIL. NC2024.2
- 055600 ADD-WRITE-F3-1. NC2024.2
- 055700 PERFORM PRINT-DETAIL. NC2024.2
- 055800* NC2024.2
- 055900 ADD-INIT-F3-2. NC2024.2
- 056000 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
- 056100 MOVE "ADD-TEST-F3-2" TO PAR-NAME. NC2024.2
- 056200 MOVE ZERO TO GRP-FOR-ADD-CORR-R. NC2024.2
- 056300 MOVE 11 TO ADD-CORR-1 OF GRP-ADD-SUB-CORR. NC2024.2
- 056400 MOVE 22 TO ADD-CORR-2 OF GRP-ADD-SUB-CORR. NC2024.2
- 056500 MOVE 33 TO ADD-CORR-3 OF GRP-ADD-SUB-CORR. NC2024.2
- 056600 MOVE 44 TO ADD-CORR-4 OF GRP-ADD-SUB-CORR. NC2024.2
- 056700 MOVE 55 TO ADD-CORR-5 OF GRP-ADD-SUB-CORR. NC2024.2
- 056800 MOVE 66 TO ADD-CORR-6 OF GRP-ADD-SUB-CORR. NC2024.2
- 056900 MOVE 77 TO ADD-CORR-7 OF GRP-ADD-SUB-CORR. NC2024.2
- 057000 MOVE 88 TO ADD-CORR-8 OF GRP-ADD-SUB-CORR. NC2024.2
- 057100 MOVE 99 TO ADD-CORR-9 OF GRP-ADD-SUB-CORR. NC2024.2
- 057200 ADD-TEST-F3-2. NC2024.2
- 057300 ADD CORRESPONDING GRP-ADD-SUB-CORR TO NC2024.2
- 057400 GRP-FOR-ADD-CORR-R ROUNDED. NC2024.2
- 057500 IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344606677889900" NC2024.2
- 057600 PERFORM PASS NC2024.2
- 057700 GO TO ADD-WRITE-F3-2. NC2024.2
- 057800 GO TO ADD-FAIL-F3-2. NC2024.2
- 057900 ADD-DELETE-F3-2. NC2024.2
- 058000 PERFORM DE-LETE. NC2024.2
- 058100 GO TO ADD-WRITE-F3-2. NC2024.2
- 058200 ADD-FAIL-F3-2. NC2024.2
- 058300 MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A. NC2024.2
- 058400 MOVE "11223344606677889900" TO CORRECT-A. NC2024.2
- 058500 PERFORM FAIL. NC2024.2
- 058600 ADD-WRITE-F3-2. NC2024.2
- 058700 PERFORM PRINT-DETAIL. NC2024.2
- 058800* NC2024.2
- 058900 ADD-INIT-F3-3. NC2024.2
- 059000 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
- 059100 MOVE ZERO TO GRP-FOR-ADD-CORR-R, WRK-XN-00001. NC2024.2
- 059200 MOVE 111 TO ADD-CORR-1 OF GRP-SUBTRACT-CORR-3. NC2024.2
- 059300 MOVE 22 TO ADD-CORR-2 OF GRP-SUBTRACT-CORR-3. NC2024.2
- 059400 MOVE 33 TO ADD-CORR-3 OF GRP-SUBTRACT-CORR-3. NC2024.2
- 059500 MOVE 44 TO ADD-CORR-4 OF GRP-SUBTRACT-CORR-3. NC2024.2
- 059600 ADD-INIT-F3-3-1. NC2024.2
- 059700 MOVE "ADD-TEST-F3-3-1" TO PAR-NAME. NC2024.2
- 059800 ADD-TEST-F3-3-1. NC2024.2
- 059900 ADD CORRESPONDING GRP-SUBTRACT-CORR-3 TO GRP-FOR-ADD-CORR-R NC2024.2
- 060000 ON SIZE ERROR MOVE "1" TO WRK-XN-00001. NC2024.2
- 060100 IF GRP-FOR-ADD-CORR-R EQUAL TO "00223344000000000000" NC2024.2
- 060200 PERFORM PASS NC2024.2
- 060300 GO TO ADD-WRITE-F3-3-1. NC2024.2
- 060400 GO TO ADD-FAIL-F3-3-1. NC2024.2
- 060500 ADD-DELETE-F3-3-1. NC2024.2
- 060600 PERFORM DE-LETE. NC2024.2
- 060700 GO TO ADD-WRITE-F3-3-1. NC2024.2
- 060800 ADD-FAIL-F3-3-1. NC2024.2
- 060900 MOVE "00223344000000000000" TO CORRECT-A. NC2024.2
- 061000 MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A. NC2024.2
- 061100 PERFORM FAIL. NC2024.2
- 061200 ADD-WRITE-F3-3-1. NC2024.2
- 061300 PERFORM PRINT-DETAIL. NC2024.2
- 061400* NC2024.2
- 061500 ADD-INIT-F3-3-2. NC2024.2
- 061600 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
- 061700 MOVE "ADD-TE…