|
000100 IDENTIFICATION DIVISION. NC2534.2
000200 PROGRAM-ID. NC2534.2
000300 NC253A. NC2534.2
000400**************************************************************** NC2534.2
000500* * NC2534.2
000600* VALIDATION FOR:- * NC2534.2
000700* * NC2534.2
000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2534.2
000900* * NC2534.2
001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2534.2
001100* * NC2534.2
001200**************************************************************** NC2534.2
001300* * NC2534.2
001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2534.2
001500* * NC2534.2
001600* X-55 - SYSTEM PRINTER NAME. * NC2534.2
001700* X-82 - SOURCE COMPUTER NAME. * NC2534.2
001800* X-83 - OBJECT COMPUTER NAME. * NC2534.2
001900* * NC2534.2
002000**************************************************************** NC2534.2
002100 NC2534.2
002200* NC2534.2
002300* PROGRAM NC202A TESTS FORMAT3 OF THE SUBTRACT STATEMENT. NC2534.2
002400* NC2534.2
002500* NC2534.2
002600 ENVIRONMENT DIVISION. NC2534.2
002700 CONFIGURATION SECTION. NC2534.2
002800 SOURCE-COMPUTER. NC2534.2
002900 Card0130. NC2534.2
003000 OBJECT-COMPUTER. NC2534.2
003100 Card0131. NC2534.2
003200 INPUT-OUTPUT SECTION. NC2534.2
003300 FILE-CONTROL. NC2534.2
003400 SELECT PRINT-FILE ASSIGN TO NC2534.2
003500 "C0085" . NC2534.2
003600 DATA DIVISION. NC2534.2
003700 FILE SECTION. NC2534.2
003800 FD PRINT-FILE. NC2534.2
003900 01 PRINT-REC PICTURE X(120). NC2534.2
004000 01 DUMMY-RECORD PICTURE X(120). NC2534.2
004100 WORKING-STORAGE SECTION. NC2534.2
004200 01 TABLE1. NC2534.2
004300 02 RECORD1 PICTURE 99. NC2534.2
004400 02 RECORD2 PICTURE 99 NC2534.2
004500 OCCURS 2 TIMES NC2534.2
004600 INDEXED BY INDEX1. NC2534.2
004700 02 RECORD3 PICTURE 99. NC2534.2
004800 01 TABLE2. NC2534.2
004900 02 RECORD1 PICTURE 99. NC2534.2
005000 02 RECORD2 PICTURE 99 NC2534.2
005100 OCCURS 2 TIMES NC2534.2
005200 INDEXED BY INDEX2. NC2534.2
005300 02 RECORD3 PICTURE 99. NC2534.2
005400 77 WRK-AN-00001 PICTURE A. NC2534.2
005500 77 WRK-XN-00001 PICTURE X. NC2534.2
005600 77 WRK-DS-01V00 PICTURE S9. NC2534.2
005700 77 WRK-DS-02V00 PICTURE S99. NC2534.2
005800 77 WRK-DS-06V06 PICTURE S9(6)V9(6). NC2534.2
005900 77 WRK-DS-05V00 PICTURE S9(5). NC2534.2
006000 77 AZERO-DS-05V05 PICTURE S9(5)V9(5) VALUE ZERO. NC2534.2
006100 77 WRK-DS-09V09 PICTURE S9(9)V9(9). NC2534.2
006200 77 WRK-DS-18V00-S REDEFINES WRK-DS-09V09 PICTURE S9(18). NC2534.2
006300 77 A18ONES-DS-09V09 PICTURE S9(9)V9(9) NC2534.2
006400 VALUE 111111111.111111111. NC2534.2
006500 77 WRK-DS-18V00 PICTURE S9(18) VALUE 111111111111111111. NC2534.2
006600 77 A05ONES-DS-05V00 PICTURE S9(5) VALUE 11111. NC2534.2
006700 77 A99-DS-02V00 PICTURE S99 VALUE 99. NC2534.2
006800 77 WRK-DS-03V00 PICTURE S999. NC2534.2
006900 77 WRK-DS-06V00 PICTURE S9(6). NC2534.2
007000 77 WRK-DS-0201P PICTURE S99P. NC2534.2
007100 77 WRK-DS-03V10 PICTURE S9(3)V9(10). NC2534.2
007200 77 ADD-1 PICTURE S9(8)V99 VALUE 1. NC2534.2
007300 77 ADD-2 PICTURE S9(6)V9(4) VALUE 1. NC2534.2
007400 77 ADD-3 PICTURE S9(5) VALUE -1. NC2534.2
007500 77 ADD-4 PICTURE 9 VALUE 9. NC2534.2
007600 77 ADD-5 PICTURE 9 VALUE 9. NC2534.2
007700 77 ADD-6 PICTURE 9(5) VALUE 99999. NC2534.2
007800 77 ADD-7 PICTURE 9 VALUE 1. NC2534.2
007900 77 ADD-8 PICTURE 9. NC2534.2
008000 77 ADD-9 PICTURE S9(8)V99 VALUE 5.9. NC2534.2
008100 77 ADD-10 PICTURE 9(5) VALUE 52800. NC2534.2
008200 77 ADD-11 PICTURE 99999. NC2534.2
008300 77 ADD-12 PICTURE PP9 VALUE .001. NC2534.2
008400 77 ADD-13 PICTURE 9PP VALUE 100. NC2534.2
008500 77 ADD-14 PICTURE 999V999. NC2534.2
008600 77 W-1 PICTURE IS 9. NC2534.2
008700 77 W-2 PICTURE IS 99. NC2534.2
008800 77 W-3 PICTURE IS 999. NC2534.2
008900 77 W-4 PICTURE 9 VALUE 0. NC2534.2
009000 77 W-6 PICTURE IS 999 VALUE IS ZERO. NC2534.2
009100 77 W-9 PICTURE 999. NC2534.2
009200 77 D-5 PICTURE S999 VALUE -1. NC2534.2
009300 77 D-9 PICTURE 9(4)V9(4) VALUE 111.1189. NC2534.2
009400 77 ONE PICTURE 9 VALUE 1. NC2534.2
009500 77 TWO PICTURE S9 VALUE 2. NC2534.2
009600 77 THREE PICTURE S9 VALUE 3. NC2534.2
009700 77 FOUR PICTURE S9 VALUE 4. NC2534.2
009800 77 FIVE PICTURE S9 VALUE 5. NC2534.2
009900 77 SIX PICTURE S9 VALUE 6. NC2534.2
010000 77 SEVEN PICTURE S9 VALUE 7. NC2534.2
010100 77 EIGHT PICTURE 9 VALUE 8. NC2534.2
010200 77 NINE PICTURE S9 VALUE 9. NC2534.2
010300 77 TEN PICTURE S99 VALUE 10. NC2534.2
010400 77 FIFTEEN PICTURE S99 VALUE 15. NC2534.2
010500 77 TWENTY PICTURE S99 VALUE 20. NC2534.2
010600 77 TWENTY-5 PICTURE S99 VALUE 25. NC2534.2
010700 01 WRK-DS-09V00 PICTURE S9(9) VALUE ZERO. NC2534.2
010800 01 GRP-FOR-ADD-CORR-1. NC2534.2
010900 02 GRP-SUBTRACT-CORR-1. NC2534.2
011000 03 FILLER PICTURE S99 VALUE 91. NC2534.2
011100 03 ADD-CORR-2 PICTURE S99 VALUE 22. NC2534.2
011200 03 ADD-CORR-1 PICTURE S99 VALUE 11. NC2534.2
011300 03 ADD-CORR-A PICTURE S99 VALUE 93. NC2534.2
011400 03 ADD-CORR-4 PICTURE S99 VALUE 44. NC2534.2
011500 03 ADD-CORR-3 PICTURE S99 VALUE 33. NC2534.2
011600 03 ADD-CORR-6 PICTURE S99 VALUE 66. NC2534.2
011700 03 ADD-CORR-5 PICTURE S99 VALUE 55. NC2534.2
011800 03 ADD-CORR-8 PICTURE S99 VALUE 88. NC2534.2
011900 03 ADD-CORR-7 PICTURE S99 VALUE 77. NC2534.2
012000 03 ADD-CORR-9 PICTURE S99 VALUE 99. NC2534.2
012100 01 GRP-FOR-ADD-CORR-R. NC2534.2
012200 02 GRP-SUBTRACT-CORR-1. NC2534.2
012300 05 ADD-CORR-1 PICTURE 99. NC2534.2
012400 05 ADD-CORR-2 PICTURE 99. NC2534.2
012500 05 ADD-CORR-3 PICTURE 99. NC2534.2
012600 05 ADD-CORR-4 PICTURE 99. NC2534.2
012700 05 ADD-CORR-5 PICTURE 9P. NC2534.2
012800 05 ADD-CORR-6 PICTURE 999. NC2534.2
012900 05 ADD-CORR-7 PICTURE 99. NC2534.2
013000 05 ADD-CORR-8 PICTURE 99. NC2534.2
013100 05 ADD-CORR-9 PICTURE 99. NC2534.2
013200 05 FILLER PICTURE 99. NC2534.2
013300 01 GRP-FOR-ADD-CORR-2. NC2534.2
013400 02 GRP-ADD-SUB-CORR. NC2534.2
013500 03 GRP-SUBTRACT-CORR-1. NC2534.2
013600 04 ADD-CORR-1 PICTURE S99 VALUE 11. NC2534.2
013700 04 ADD-CORR-2 PICTURE S99 VALUE 22. NC2534.2
013800 04 ADD-CORR-5 PICTURE S99 VALUE 55. NC2534.2
013900 04 ADD-CORR-4 PICTURE S99 VALUE 44. NC2534.2
014000 04 ADD-CORR-3 PICTURE S99 VALUE 33. NC2534.2
014100 04 ADD-CORR-6 PICTURE S99 VALUE 66. NC2534.2
014200 04 ADD-CORR-7 PICTURE S99 VALUE 77. NC2534.2
014300 04 ADD-CORR-8 PICTURE S99 VALUE 88. NC2534.2
014400 04 ADD-CORR-9 PICTURE S99 VALUE 99. NC2534.2
014500 04 ADD-CORR-B PICTURE S99 VALUE 92. NC2534.2
014600 04 ADD-CORR-0 PICTURE S99 VALUE 00. NC2534.2
014700 01 GRP-FOR-ADD-CORR-A. NC2534.2
014800 02 GRP-SUBTRACT-CORR-3. NC2534.2
014900 03 GRP-SUBTRACT-CORR-1. NC2534.2
015000 05 ADD-CORR-4 PICTURE S999 VALUE 044. NC2534.2
015100 05 ADD-CORR-3 PICTURE S999 VALUE 033. NC2534.2
015200 05 ADD-CORR-2 PICTURE S999 VALUE 022. NC2534.2
015300 05 ADD-CORR-1 PICTURE S999 VALUE 111. NC2534.2
015400 01 ADD-15. NC2534.2
015500 02 FIELD1 PICTURE 99999 VALUE 1. NC2534.2
015600 02 FIELD2 PICTURE 999V99 VALUE 32.1. NC2534.2
015700 02 FIELD3 PICTURE 999V9 VALUE 123.4. NC2534.2
015800 01 ADD-16. NC2534.2
015900 02 FIELD1 PICTURE 99999 VALUE 99999. NC2534.2
016000 02 FIELD2 PICTURE 999V99 VALUE 745.67. NC2534.2
016100 02 FIELD3 PICTURE 999V9 VALUE 432.1. NC2534.2
016200 01 SUBTRACT-DATA. NC2534.2
016300 02 SUBTR-1 PICTURE 9 VALUE 1. NC2534.2
016400 02 SUBTR-2 PICTURE S99 VALUE 99. NC2534.2
016500 02 SUBTR-3 PICTURE S9V99 VALUE -1. NC2534.2
016600 02 SUBTR-4 PICTURE SPP9 VALUE .001. NC2534.2
016700 02 SUBTR-5 PICTURE S9PP VALUE 100. NC2534.2
016800 02 SUBTR-6 PICTURE 9 VALUE 1. NC2534.2
016900 02 SUBTR-7 PICTURE S99 VALUE 99. NC2534.2
017000 02 SUBTR-8 PICTURE S9V99 VALUE -9.99. NC2534.2
017100 02 SUBTR-9 PICTURE SV999. NC2534.2
017200 02 SUBTR-10 PICTURE S999 VALUE 100. NC2534.2
017300 02 SUBTR-11 PICTURE S999V999. NC2534.2
017400 02 SUBTR-12. NC2534.2
017500 03 SUBTR-13 PICTURE 9 VALUE 1. NC2534.2
017600 03 SUBTR-14 PICTURE S9V999 VALUE -1.725. NC2534.2
017700 03 SUBTR-15 PICTURE S99V99 VALUE 76.76. NC2534.2
017800 02 SUBTR-16. NC2534.2
017900 03 SUBTR-13 PICTURE 9 VALUE 2. NC2534.2
018000 03 SUBTR-14 PICTURE S9V99 VALUE .23. NC2534.2
018100 03 SUBTR-15 PICTURE S9V99 VALUE 1. NC2534.2
018200 01 CORR-DATA-1. NC2534.2
018300 03 XYZ-1 PICTURE IS 99 VALUE IS ZERO. NC2534.2
018400 03 XYZ-2 PICTURE IS 99 VALUE IS ZERO. NC2534.2
018500 03 XYZ-3 PICTURE IS 99 VALUE IS ZERO. NC2534.2
018600 03 XYZ-4 PICTURE IS 99 VALUE IS ZERO. NC2534.2
018700 03 XYZ-5 PICTURE IS 99 VALUE IS ZERO. NC2534.2
018800 03 XYZ-6 PICTURE IS 99 VALUE IS ZERO. NC2534.2
018900 01 CORR-DATA-2. NC2534.2
019000 03 XYZ-1 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019100 03 XYZ-2 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019200 03 XYZ-3 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019300 03 XYZ-4 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019400 03 XYZ-5 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019500 03 XYZ-6 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019600 01 CORR-DATA-3. NC2534.2
019700 03 XYZ-4 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019800 03 XYZ-3 PICTURE IS 99 VALUE IS ZERO. NC2534.2
019900 03 XYZ-6 PICTURE IS 99 VALUE IS ZERO. NC2534.2
020000 03 XYZ-5 PICTURE IS 99 VALUE IS ZERO. NC2534.2
020100 03 XYZ-2 PICTURE IS 99 VALUE IS ZERO. NC2534.2
020200 03 XYZ-1 PICTURE IS 99 VALUE IS ZERO. NC2534.2
020300 01 CORR-DATA-4. NC2534.2
020400 03 XYZ-11 PICTURE IS 99. NC2534.2
020500 03 XYZ-12 PICTURE IS 99. NC2534.2
020600 03 XYZ-13 PICTURE IS 99. NC2534.2
020700 03 XYZ-14 PICTURE IS 99. NC2534.2
020800 03 XYZ-15 PICTURE IS 99. NC2534.2
020900 03 XYZ-16 PICTURE IS 99. NC2534.2
021000 01 CORR-DATA-5. NC2534.2
021100 03 XYZ-1 PICTURE 99. NC2534.2
021200 03 XYZ-2 PICTURE 99. NC2534.2
021300 03 XYZ-13 PICTURE IS 99. NC2534.2
021400 03 XYZ-14 PICTURE IS 99. NC2534.2
021500 03 FILLER PICTURE IS 99. NC2534.2
021600 03 XYZ-11 PICTURE IS 99. NC2534.2
021700 03 XYZ-12 PICTURE IS 99. NC2534.2
021800 01 CORR-DATA-6. NC2534.2
021900 03 XYZ-11 PICTURE IS 99. NC2534.2
022000 03 XYZ-12 PICTURE IS 99. NC2534.2
022100 03 FILLER PICTURE IS 99. NC2534.2
022200 03 XYZ-1 PICTURE IS 99. NC2534.2
022300 03 XYZ-2 PICTURE IS 9(2). NC2534.2
022400 03 FILLER PICTURE IS 99. NC2534.2
022500 01 CORR-DATA-7. NC2534.2
022600 02 XYZ-1 PICTURE 99V99 VALUE 10.45. NC2534.2
022700 02 XYZ-6 PICTURE 999V9 VALUE 100.5. NC2534.2
022800 02 XYZ-11 PICTURE 99V9 VALUE ZERO. NC2534.2
022900 02 XYZ-2 PICTURE 99V9 VALUE 0.9. NC2534.2
023000 01 42-DATANAMES. NC2534.2
023100 02 DNAME1 PICTURE 9 VALUE 1 COMPUTATIONAL. NC2534.2
023200 02 DNAME2 PICTURE 99 VALUE 1 COMPUTATIONAL. NC2534.2
023300 02 DNAME3 PICTURE 999 VALUE 1 COMPUTATIONAL. NC2534.2
023400 02 DNAME4 PICTURE 9(4) VALUE 1 COMPUTATIONAL. NC2534.2
023500 02 DNAME5 PICTURE 9(5) VALUE 1 COMPUTATIONAL. NC2534.2
023600 02 DNAME6 PICTURE 9(6) VALUE 1 COMPUTATIONAL. NC2534.2
023700 02 DNAME7 PICTURE 9(7) VALUE 1 COMPUTATIONAL. NC2534.2
023800 02 DNAME8 PICTURE 9(8) VALUE 1 COMPUTATIONAL. NC2534.2
023900 02 DNAME9 PICTURE 9(9) VALUE 1 COMPUTATIONAL. NC2534.2
024000 02 DNAME10 PICTURE 9(10) VALUE 1. NC2534.2
024100 02 DNAME11 PICTURE 9(11) VALUE 1. NC2534.2
024200 02 DNAME12 PICTURE 9(12) VALUE 1. NC2534.2
024300 02 DNAME13 PICTURE 9(13) VALUE 1. NC2534.2
024400 02 DNAME14 PICTURE 9(14) VALUE 1. NC2534.2
024500 02 DNAME15 PICTURE 9(15) VALUE 1. NC2534.2
024600 02 DNAME16 PICTURE 9(16) VALUE 1. NC2534.2
024700 02 DNAME17 PICTURE 9(17) VALUE 1. NC2534.2
024800 02 DNAME18 PICTURE 9(18) VALUE 1. NC2534.2
024900 02 DNAME19 PICTURE 9 VALUE 1. NC2534.2
025000 02 DNAME20 PICTURE 99 VALUE 1. NC2534.2
025100 02 DNAME21 PICTURE 999 VALUE 1. NC2534.2
025200 02 DNAME22 PICTURE 9(18) VALUE ZERO. NC2534.2
025300 02 DNAME23 PICTURE 9(18) VALUE ZERO. NC2534.2
025400 02 DNAME24 PICTURE 9(18) VALUE ZERO. NC2534.2
025500 02 DNAME25 PICTURE 9(18) VALUE ZERO. NC2534.2
025600 02 DNAME26 PICTURE 9(18) VALUE ZERO. NC2534.2
025700 02 DNAME27 PICTURE 9(18) VALUE ZERO. NC2534.2
025800 02 DNAME28 PICTURE 9(18) VALUE ZERO. NC2534.2
025900 02 DNAME29 PICTURE 9(18) VALUE ZERO. NC2534.2
026000 02 DNAME30 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026100 02 DNAME31 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026200 02 DNAME32 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026300 02 DNAME33 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026400 02 DNAME34 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026500 02 DNAME35 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026600 02 DNAME36 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026700 02 DNAME37 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026800 02 DNAME38 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
026900 02 DNAME39 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
027000 02 DNAME40 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
027100 02 DNAME41 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
027200 02 DNAME42 PICTURE 9(18) VALUE ZERO COMPUTATIONAL. NC2534.2
027300 01 TEST-RESULTS. NC2534.2
027400 02 FILLER PIC X VALUE SPACE. NC2534.2
027500 02 FEATURE PIC X(20) VALUE SPACE. NC2534.2
027600 02 FILLER PIC X VALUE SPACE. NC2534.2
027700 02 P-OR-F PIC X(5) VALUE SPACE. NC2534.2
027800 02 FILLER PIC X VALUE SPACE. NC2534.2
027900 02 PAR-NAME. NC2534.2
028000 03 FILLER PIC X(19) VALUE SPACE. NC2534.2
028100 03 PARDOT-X PIC X VALUE SPACE. NC2534.2
028200 03 DOTVALUE PIC 99 VALUE ZERO. NC2534.2
028300 02 FILLER PIC X(8) VALUE SPACE. NC2534.2
028400 02 RE-MARK PIC X(61). NC2534.2
028500 01 TEST-COMPUTED. NC2534.2
028600 02 FILLER PIC X(30) VALUE SPACE. NC2534.2
028700 02 FILLER PIC X(17) VALUE NC2534.2
028800 " COMPUTED=". NC2534.2
028900 02 COMPUTED-X. NC2534.2
029000 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2534.2
029100 03 COMPUTED-N REDEFINES COMPUTED-A NC2534.2
029200 PIC -9(9).9(9). NC2534.2
029300 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2534.2
029400 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2534.2
029500 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2534.2
029600 03 CM-18V0 REDEFINES COMPUTED-A. NC2534.2
029700 04 COMPUTED-18V0 PIC -9(18). NC2534.2
029800 04 FILLER PIC X. NC2534.2
029900 03 FILLER PIC X(50) VALUE SPACE. NC2534.2
030000 01 TEST-CORRECT. NC2534.2
030100 02 FILLER PIC X(30) VALUE SPACE. NC2534.2
030200 02 FILLER PIC X(17) VALUE " CORRECT =". NC2534.2
030300 02 CORRECT-X. NC2534.2
030400 03 CORRECT-A PIC X(20) VALUE SPACE. NC2534.2
030500 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2534.2
030600 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2534.2
030700 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2534.2
030800 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2534.2
030900 03 CR-18V0 REDEFINES CORRECT-A. NC2534.2
031000 04 CORRECT-18V0 PIC -9(18). NC2534.2
031100 04 FILLER PIC X. NC2534.2
031200 03 FILLER PIC X(2) VALUE SPACE. NC2534.2
031300 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2534.2
031400 01 CCVS-C-1. NC2534.2
031500 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2534.2
031600- "SS PARAGRAPH-NAME NC2534.2
031700- " REMARKS". NC2534.2
031800 02 FILLER PIC X(20) VALUE SPACE. NC2534.2
031900 01 CCVS-C-2. NC2534.2
032000 02 FILLER PIC X VALUE SPACE. NC2534.2
032100 02 FILLER PIC X(6) VALUE "TESTED". NC2534.2
032200 02 FILLER PIC X(15) VALUE SPACE. NC2534.2
032300 02 FILLER PIC X(4) VALUE "FAIL". NC2534.2
032400 02 FILLER PIC X(94) VALUE SPACE. NC2534.2
032500 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2534.2
032600 01 REC-CT PIC 99 VALUE ZERO. NC2534.2
032700 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2534.2
032800 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2534.2
032900 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2534.2
033000 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2534.2
033100 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2534.2
033200 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2534.2
033300 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2534.2
033400 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2534.2
033500 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2534.2
033600 01 CCVS-H-1. NC2534.2
033700 02 FILLER PIC X(39) VALUE SPACES. NC2534.2
033800 02 FILLER PIC X(42) VALUE NC2534.2
033900 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2534.2
034000 02 FILLER PIC X(39) VALUE SPACES. NC2534.2
034100 01 CCVS-H-2A. NC2534.2
034200 02 FILLER PIC X(40) VALUE SPACE. NC2534.2
034300 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2534.2
034400 02 FILLER PIC XXXX VALUE NC2534.2
034500 "4.2 ". NC2534.2
034600 02 FILLER PIC X(28) VALUE NC2534.2
034700 " COPY - NOT FOR DISTRIBUTION". NC2534.2
034800 02 FILLER PIC X(41) VALUE SPACE. NC2534.2
034900 NC2534.2
035000 01 CCVS-H-2B. NC2534.2
035100 02 FILLER PIC X(15) VALUE NC2534.2
035200 "TEST RESULT OF ". NC2534.2
035300 02 TEST-ID PIC X(9). NC2534.2
035400 02 FILLER PIC X(4) VALUE NC2534.2
035500 " IN ". NC2534.2
035600 02 FILLER PIC X(12) VALUE NC2534.2
035700 " HIGH ". NC2534.2
035800 02 FILLER PIC X(22) VALUE NC2534.2
035900 " LEVEL VALIDATION FOR ". NC2534.2
036000 02 FILLER PIC X(58) VALUE NC2534.2
036100 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2534.2
036200 01 CCVS-H-3. NC2534.2
036300 02 FILLER PIC X(34) VALUE NC2534.2
036400 " FOR OFFICIAL USE ONLY ". NC2534.2
036500 02 FILLER PIC X(58) VALUE NC2534.2
036600 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2534.2
036700 02 FILLER PIC X(28) VALUE NC2534.2
036800 " COPYRIGHT 1985 ". NC2534.2
036900 01 CCVS-E-1. NC2534.2
037000 02 FILLER PIC X(52) VALUE SPACE. NC2534.2
037100 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2534.2
037200 02 ID-AGAIN PIC X(9). NC2534.2
037300 02 FILLER PIC X(45) VALUE SPACES. NC2534.2
037400 01 CCVS-E-2. NC2534.2
037500 02 FILLER PIC X(31) VALUE SPACE. NC2534.2
037600 02 FILLER PIC X(21) VALUE SPACE. NC2534.2
037700 02 CCVS-E-2-2. NC2534.2
037800 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2534.2
037900 03 FILLER PIC X VALUE SPACE. NC2534.2
038000 03 ENDER-DESC PIC X(44) VALUE NC2534.2
038100 "ERRORS ENCOUNTERED". NC2534.2
038200 01 CCVS-E-3. NC2534.2
038300 02 FILLER PIC X(22) VALUE NC2534.2
038400 " FOR OFFICIAL USE ONLY". NC2534.2
038500 02 FILLER PIC X(12) VALUE SPACE. NC2534.2
038600 02 FILLER PIC X(58) VALUE NC2534.2
038700 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2534.2
038800 02 FILLER PIC X(13) VALUE SPACE. NC2534.2
038900 02 FILLER PIC X(15) VALUE NC2534.2
039000 " COPYRIGHT 1985". NC2534.2
039100 01 CCVS-E-4. NC2534.2
039200 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2534.2
039300 02 FILLER PIC X(4) VALUE " OF ". NC2534.2
039400 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2534.2
039500 02 FILLER PIC X(40) VALUE NC2534.2
039600 " TESTS WERE EXECUTED SUCCESSFULLY". NC2534.2
039700 01 XXINFO. NC2534.2
039800 02 FILLER PIC X(19) VALUE NC2534.2
039900 "*** INFORMATION ***". NC2534.2
040000 02 INFO-TEXT. NC2534.2
040100 04 FILLER PIC X(8) VALUE SPACE. NC2534.2
040200 04 XXCOMPUTED PIC X(20). NC2534.2
040300 04 FILLER PIC X(5) VALUE SPACE. NC2534.2
040400 04 XXCORRECT PIC X(20). NC2534.2
040500 02 INF-ANSI-REFERENCE PIC X(48). NC2534.2
040600 01 HYPHEN-LINE. NC2534.2
040700 02 FILLER PIC IS X VALUE IS SPACE. NC2534.2
040800 02 FILLER PIC IS X(65) VALUE IS "************************NC2534.2
040900- "*****************************************". NC2534.2
041000 02 FILLER PIC IS X(54) VALUE IS "************************NC2534.2
041100- "******************************". NC2534.2
041200 01 CCVS-PGM-ID PIC X(9) VALUE NC2534.2
041300 "NC253A". NC2534.2
041400 PROCEDURE DIVISION. NC2534.2
041500 CCVS1 SECTION. NC2534.2
041600 OPEN-FILES. NC2534.2
041700 OPEN OUTPUT PRINT-FILE. NC2534.2
041800 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2534.2
041900 MOVE SPACE TO TEST-RESULTS. NC2534.2
042000 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2534.2
042100 GO TO CCVS1-EXIT. NC2534.2
042200 CLOSE-FILES. NC2534.2
042300 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2534.2
042400 TERMINATE-CCVS. NC2534.2
042500 EXIT PROGRAM. NC2534.2
042600 TERMINATE-CALL. NC2534.2
042700 STOP RUN. NC2534.2
042800 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2534.2
042900 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2534.2
043000 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2534.2
043100 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2534.2
043200 MOVE "****TEST DELETED****" TO RE-MARK. NC2534.2
043300 PRINT-DETAIL. NC2534.2
043400 IF REC-CT NOT EQUAL TO ZERO NC2534.2
043500 MOVE "." TO PARDOT-X NC2534.2
043600 MOVE REC-CT TO DOTVALUE. NC2534.2
043700 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2534.2
043800 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2534.2
043900 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2534.2
044000 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2534.2
044100 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2534.2
044200 MOVE SPACE TO CORRECT-X. NC2534.2
044300 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2534.2
044400 MOVE SPACE TO RE-MARK. NC2534.2
044500 HEAD-ROUTINE. NC2534.2
044600 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2534.2
044700 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2534.2
044800 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2534.2
044900 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2534.2
045000 COLUMN-NAMES-ROUTINE. NC2534.2
045100 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2534.2
045200 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2534.2
045300 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2534.2
045400 END-ROUTINE. NC2534.2
045500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2534.2
045600 END-RTN-EXIT. NC2534.2
045700 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2534.2
045800 END-ROUTINE-1. NC2534.2
045900 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2534.2
046000 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2534.2
046100 ADD PASS-COUNTER TO ERROR-HOLD. NC2534.2
046200* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2534.2
046300 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2534.2
046400 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2534.2
046500 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2534.2
046600 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2534.2
046700 END-ROUTINE-12. NC2534.2
046800 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2534.2
046900 IF ERROR-COUNTER IS EQUAL TO ZERO NC2534.2
047000 MOVE "NO " TO ERROR-TOTAL NC2534.2
047100 ELSE NC2534.2
047200 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2534.2
047300 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2534.2
047400 PERFORM WRITE-LINE. NC2534.2
047500 END-ROUTINE-13. NC2534.2
047600 IF DELETE-COUNTER IS EQUAL TO ZERO NC2534.2
047700 MOVE "NO " TO ERROR-TOTAL ELSE NC2534.2
047800 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2534.2
047900 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2534.2
048000 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2534.2
048100 IF INSPECT-COUNTER EQUAL TO ZERO NC2534.2
048200 MOVE "NO " TO ERROR-TOTAL NC2534.2
048300 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2534.2
048400 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2534.2
048500 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2534.2
048600 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2534.2
048700 WRITE-LINE. NC2534.2
048800 ADD 1 TO RECORD-COUNT. NC2534.2
048900 IF RECORD-COUNT GREATER 50 NC2534.2
049000 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2534.2
049100 MOVE SPACE TO DUMMY-RECORD NC2534.2
049200 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2534.2
049300 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2534.2
049400 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2534.2
049500 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2534.2
049600 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2534.2
049700 MOVE ZERO TO RECORD-COUNT. NC2534.2
049800 PERFORM WRT-LN. NC2534.2
049900 WRT-LN. NC2534.2
050000 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2534.2
050100 MOVE SPACE TO DUMMY-RECORD. NC2534.2
050200 BLANK-LINE-PRINT. NC2534.2
050300 PERFORM WRT-LN. NC2534.2
050400 FAIL-ROUTINE. NC2534.2
050500 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2534.2
050600 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2534.2
050700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2534.2
050800 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2534.2
050900 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2534.2
051000 MOVE SPACES TO INF-ANSI-REFERENCE. NC2534.2
051100 GO TO FAIL-ROUTINE-EX. NC2534.2
051200 FAIL-ROUTINE-WRITE. NC2534.2
051300 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2534.2
051400 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2534.2
051500 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2534.2
051600 MOVE SPACES TO COR-ANSI-REFERENCE. NC2534.2
051700 FAIL-ROUTINE-EX. EXIT. NC2534.2
051800 BAIL-OUT. NC2534.2
051900 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2534.2
052000 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2534.2
052100 BAIL-OUT-WRITE. NC2534.2
052200 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2534.2
052300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2534.2
052400 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2534.2
052500 MOVE SPACES TO INF-ANSI-REFERENCE. NC2534.2
052600 BAIL-OUT-EX. EXIT. NC2534.2
052700 CCVS1-EXIT. NC2534.2
052800 EXIT. NC2534.2
052900* NC2534.2
053000 SECT-NC253A-001 SECTION. NC2534.2
053100 BUILD-TABLE1. NC2534.2
053200 MOVE 06 TO RECORD1 OF TABLE1. NC2534.2
053300 MOVE 01 TO RECORD2 OF TABLE1 (1). NC2534.2
053400 MOVE 02 TO RECORD2 OF TABLE1 (2). NC2534.2
053500 MOVE 07 TO RECORD3 OF TABLE1. NC2534.2
053600 BUILD-TABLE2. NC2534.2
053700 MOVE 08 TO RECORD1 OF TABLE2. NC2534.2
053800 MOVE 03 TO RECORD2 OF TABLE2 (1). NC2534.2
053900 MOVE 04 TO RECORD2 OF TABLE2 (2). NC2534.2
054000 MOVE 09 TO RECORD3 OF TABLE2. NC2534.2
054100* NC2534.2
054200 SUB-INIT-F3-1. NC2534.2
054300 PERFORM END-ROUTINE. NC2534.2
054400 MOVE "SUB-TEST-F3-1" TO PAR-NAME. NC2534.2
054500 MOVE "VI-134 6.25.4 GR3" TO ANSI-REFERENCE. NC2534.2
054600 MOVE "SUBTRACT SERIES " TO FEATURE. NC2534.2
054700 MOVE ZERO TO GRP-FOR-ADD-CORR-R. NC2534.2
054800 MOVE 11 TO ADD-CORR-1 OF GRP-FOR-ADD-CORR-1. NC2534.2
054900 MOVE 22 TO ADD-CORR-2 OF GRP-FOR-ADD-CORR-1. NC2534.2
055000 MOVE 33 TO ADD-CORR-3 OF GRP-FOR-ADD-CORR-1. NC2534.2
055100 MOVE 44 TO ADD-CORR-4 OF GRP-FOR-ADD-CORR-1. NC2534.2
055200 MOVE 55 TO ADD-CORR-5 OF GRP-FOR-ADD-CORR-1. NC2534.2
055300 MOVE 66 TO ADD-CORR-6 OF GRP-FOR-ADD-CORR-1. NC2534.2
055400 MOVE 77 TO ADD-CORR-7 OF GRP-FOR-ADD-CORR-1. NC2534.2
055500 MOVE 88 TO ADD-CORR-8 OF GRP-FOR-ADD-CORR-1. NC2534.2
055600 MOVE 99 TO ADD-CORR-9 OF GRP-FOR-ADD-CORR-1. NC2534.2
055700 SUB-TEST-F3-1. NC2534.2
055800 SUBTRACT CORRESPONDING GRP-FOR-ADD-CORR-1 FROM NC2534.2
055900 GRP-FOR-ADD-CORR-R. NC2534.2
056000 IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344506677889900" NC2534.2
056100 PERFORM PASS NC2534.2
056200 GO TO SUB-WRITE-F3-1. NC2534.2
056300 GO TO SUB-FAIL-F3-1. NC2534.2
056400 SUB-DELETE-F3-1. NC2534.2
056500 PERFORM DE-LETE. NC2534.2
056600 GO TO SUB-WRITE-F3-1. NC2534.2
056700 SUB-FAIL-F3-1. NC2534.2
056800 MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A. NC2534.2
056900 MOVE "11223344506677889900" TO CORRECT-A. NC2534.2
057000 PERFORM FAIL. NC2534.2
057100 SUB-WRITE-F3-1. NC2534.2
057200 PERFORM PRINT-DETAIL. NC2534.2
057300* NC2534.2
057400 SUB-INIT-F3-2. NC2534.2
057500 MOVE "SUB-TEST-F3-2" TO PAR-NAME. NC2534.2
057600 MOVE ZERO TO GRP-FOR-ADD-CORR-R. NC2534.2
057700 SUB-TEST-F3-2. NC2534.2
057800 SUBTRACT CORRESPONDING GRP-ADD-SUB-CORR FROM NC2534.2
057900 GRP-FOR-ADD-CORR-R ROUNDED. NC2534.2
058000 IF GRP-FOR-ADD-CORR-R EQUAL TO "11223344606677889900" NC2534.2
058100 PERFORM PASS NC2534.2
058200 GO TO SUB-WRITE-F3-2. NC2534.2
058300 GO TO SUB-FAIL-F3-2. NC2534.2
058400 SUB-DELETE-F3-2. NC2534.2
058500 PERFORM DE-LETE. NC2534.2
058600 GO TO SUB-WRITE-F3-2. NC2534.2
058700 SUB-FAIL-F3-2. NC2534.2
058800 MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A. NC2534.2
058900 MOVE "11223344606677889900" TO CORRECT-A. NC2534.2
059000 PERFORM FAIL. NC2534.2
059100 SUB-WRITE-F3-2. NC2534.2
059200 PERFORM PRINT-DETAIL. NC2534.2
059300* NC2534.2
059400 SUB-INIT-F3-3. NC2534.2
059500 MOVE 1 TO SUBTR-13 OF SUBTR-12. NC2534.2
059600 MOVE -1.725 TO SUBTR-14 OF SUBTR-12. NC2534.2
059700 MOVE 76.76 TO SUBTR-15 OF SUBTR-12. NC2534.2
059800 MOVE 2 TO SUBTR-13 OF SUBTR-16. NC2534.2
059900 MOVE 0.23 TO SUBTR-14 OF SUBTR-16. NC2534.2
060000 MOVE 1 TO SUBTR-15 OF SUBTR-16. NC2534.2
060100 SUB-INIT-F3-3-1. NC2534.2
060200 MOVE "SUB-TEST-F3-3-1" TO PAR-NAME. NC2534.2
060300 MOVE SPACE TO WRK-AN-00001. NC2534.2
060400 SUB-TEST-F3-3-1. NC2534.2
060500 SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED ON NC2534.2
060600 SIZE ERROR NC2534.2
060700 MOVE "G" TO WRK-AN-00001. NC2534.2
060800 IF WRK-AN-00001 EQUAL TO "G" NC2534.2
060900 PERFORM PASS NC2534.2
061000 GO TO SUB-WRITE-F3-3-1. NC2534.2
061100 GO TO SUB-FAIL-F3-3-1. NC2534.2
061200 SUB-DELETE-F3-3-1. NC2534.2
061300 PERFORM DE-LETE. NC2534.2
061400 GO TO SUB-WRITE-F3-3-1. NC2534.2
061500 SUB-FAIL-F3-3-1. NC2534.2
061600 PERFORM FAIL. NC2534.2
061700 MOVE "ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK. NC2534.2
061800 SUB-WRITE-F3-3-1. NC2534.2
061900 PERFORM PRINT-DETAIL. NC2534.2
062000* NC2534.2
062100 SUB-INIT-F3-3-2. NC2534.2
062200 MOVE "SUB-TEST-F3-3-2" TO PAR-NAME. NC2534.2
062300 SUB-TEST-F3-3-2. NC2534.2
062400 IF SUBTR-13 OF SUBTR-16 NOT EQUAL TO 1 NC2534.2
062500 GO TO SUB-FAIL-F3-3-2. NC2534.2
062600 PERFORM PASS. NC2534.2
062700 GO TO SUB-WRITE-F3-3-2. NC2534.2
062800 SUB-DELETE-F3-3-2. NC2534.2
062900 PERFORM DE-LETE. NC2534.2
063000 GO TO SUB-WRITE-F3-3-2. NC2534.2
063100 SUB-FAIL-F3-3-2. NC2534.2
063200 PERFORM FAIL. NC2534.2
063300 MOVE SUBTR-13 OF SUBTR-16 TO COMPUTED-N. NC2534.2
063400 MOVE "+1" TO CORRECT-A. NC2534.2
063500 MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND" NC2534.2
063600 TO RE-MARK. NC2534.2
063700 SUB-WRITE-F3-3-2. NC2534.2
063800 PERFORM PRINT-DETAIL. NC2534.2
063900* NC2534.2
064000 SUB-INIT-F3-3-3. NC2534.2
064100 MOVE "SUB-TEST-F3-3-3" TO PAR-NAME. NC2534.2
064200 SUB-TEST-F3-3-3. NC2534.2
064300 IF SUBTR-14 OF SUBTR-16 IS NOT EQUAL TO 1.96 NC2534.2
064400 GO TO SUB-FAIL-F3-3-3. NC2534.2
064500 PERFORM PASS. NC2534.2
064600 GO TO SUB-WRITE-F3-3-3. NC2534.2
064700 SUB-DELETE-F3-3-3. NC2534.2
064800 PERFORM DE-LETE. NC2534.2
064900 GO TO SUB-WRITE-F3-3-3. NC2534.2
065000 SUB-FAIL-F3-3-3. NC2534.2
065100 PERFORM FAIL. NC2534.2
065200 MOVE SUBTR-14 OF SUBTR-16 TO COMPUTED-N. NC2534.2
065300 MOVE "+1.96" TO CORRECT-A. NC2534.2
065400 MOVE "WRONGLY AFFECTED BY SIZE ERROR ON OTHER OPERAND" NC2534.2
065500 TO RE-MARK. NC2534.2
065600 SUB-WRITE-F3-3-3. NC2534.2
065700 PERFORM PRINT-DETAIL. NC2534.2
065800* NC2534.2
065900 SUB-INIT-3-3-4. NC2534.2
066000 MOVE "SUB-TEST-3-3-4" TO PAR-NAME. NC2534.2
066100 SUB-TEST-3-3-4. NC2534.2
066200 IF SUBTR-15 OF SUBTR-16 NOT EQUAL TO 1 NC2534.2
066300 GO TO SUB-FAIL-3-3-4. NC2534.2
066400 PERFORM PASS NC2534.2
066500 GO TO SUB-WRITE-3-3-4. NC2534.2
066600 SUB-DELETE-3-3-4. NC2534.2
066700 PERFORM DE-LETE. NC2534.2
066800 GO TO SUB-WRITE-3-3-4. NC2534.2
066900 SUB-FAIL-3-3-4. NC2534.2
067000 PERFORM FAIL. NC2534.2
067100 MOVE SUBTR-15 OF SUBTR-16 TO COMPUTED-N. NC2534.2
067200 MOVE "+1" TO CORRECT-A. NC2534.2
067300 MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK. NC2534.2
067400 SUB-WRITE-3-3-4. NC2534.2
067500 PERFORM PRINT-DETAIL. NC2534.2
067600* NC2534.2
067700 SUB-INIT-F3-4. NC2534.2
067800 MOVE "SUB-TEST-F3-4" TO PAR-NAME. NC2534.2
067900 MOVE "050506060000" TO CORR-DATA-2. NC2534.2
068000 MOVE "999999999999" TO CORR-DATA-3. NC2534.2
068100 SUB-TEST-F3-4. NC2534.2
068200 SUBTRACT CORRESPONDING CORR-DATA-2 FROM CORR-DATA-3. NC2534.2
068300 IF CORR-DATA-3 EQUAL TO "939399999494" NC2534.2
068400 PERFORM PASS NC2534.2
068500 GO TO SUB-WRITE-F3-4. NC2534.2
068600 GO TO SUB-FAIL-F3-4. NC2534.2
068700 SUB-DELETE-F3-4. NC2534.2
068800 PERFORM DE-LETE. NC2534.2
068900 GO TO SUB-WRITE-F3-4. NC2534.2
069000 SUB-FAIL-F3-4. NC2534.2
069100 MOVE 939399999494 TO CORRECT-A. NC2534.2
069200 MOVE CORR-DATA-3 TO COMPUTED-A. NC2534.2
069300 PERFORM FAIL. NC2534.2
069400 SUB-WRITE-F3-4. NC2534.2
069500 PERFORM PRINT-DETAIL. NC2534.2
069600* NC2534.2
069700 SUB-INIT-F3-5. NC2534.2
069800 MOVE "SUB-TEST-F3-5" TO PAR-NAME. NC2534.2
069900 MOVE 999955995511 TO CORR-DATA-1. NC2534.2
070000 MOVE 123456107890 TO CORR-DATA-6. NC2534.2
070100 SUB-TEST-F3-5. NC2534.2
070200 SUBTRACT CORRESPONDING CORR-DATA-6 FROM CORR-DATA-1. NC2534.2
070300 IF CORR-DATA-1 EQUAL TO "892155995511" NC2534.2
070400 PERFORM PASS NC2534.2
070500 GO TO SUB-WRITE-F3-5. NC2534.2
070600 GO TO SUB-FAIL-F3-5. NC2534.2
070700 SUB-DELETE-F3-5. NC2534.2
070800 PERFORM DE-LETE. NC2534.2
070900 GO TO SUB-WRITE-F3-5. NC2534.2
071000 SUB-FAIL-F3-5. NC2534.2
071100 MOVE 892155995511 TO CORRECT-A. NC2534.2
071200 MOVE CORR-DATA-1 TO COMPUTED-A. NC2534.2
071300 PERFORM FAIL. NC2534.2
071400 SUB-WRITE-F3-5. NC2534.2
071500 PERFORM PRINT-DETAIL. NC2534.2
071600* NC2534.2
071700 SUB-INIT-F3-6. NC2534.2
071800 MOVE "555555000055" TO CORR-DATA-6. NC2534.2
071900 MOVE "SUB-TEST-F3-6" TO PAR-NAME. NC2534.2
072000 SUB-TEST-F3-6. NC2534.2
072100 SUBTRACT CORRESPONDING CORR-DATA-6 FROM CORR-DATA-1 NC2534.2
072200 IF CORR-DATA-1 EQUAL TO 892155995511 NC2534.2
072300 PERFORM PASS NC2534.2
072400 GO TO SUB-WRITE-F3-6. NC2534.2
072500 GO TO SUB-FAIL-F3-6. NC2534.2
072600 SUB-DELETE-F3-6. NC2534.2
072700 PERFORM DE-LETE. NC2534.2
072800 GO TO SUB-WRITE-F3-6. NC2534.2
072900 SUB-FAIL-F3-6. NC2534.2
073000 MOVE 892155995511 TO CORRECT-A. NC2534.2
073100 MOVE CORR-DATA-1 TO COMPUTED-A. NC2534.2
073200 PERFORM FAIL. NC2534.2
073300 SUB-WRITE-F3-6. NC2534.2
073400 PERFORM PRINT-DETAIL. NC2534.2
073500* NC2534.2
073600 SUB-INIT-F3-7. NC2534.2
073700 MOVE "SUB-TEST-F3-7" TO PAR-NAME. NC2534.2
073800 MOVE 99999999999999 TO CORR-DATA-5. NC2534.2
073900 MOVE 111111111111 TO CORR-DATA-1. NC2534.2
074000 SUB-TEST-F3-7. NC2534.2
074100 SUBTRACT CORRESPONDING CORR-DATA-1 FROM CORR-DATA-5. NC2534.2
074200 IF CORR-DATA-5 EQUAL TO "88889999999999" NC2534.2
074300 PERFORM PASS NC2534.2
074400 GO TO SUB-WRITE-F3-7. NC2534.2
074500 GO TO SUB-FAIL-F3-7. NC2534.2
074600 SUB-DELETE-F3-7. NC2534.2
074700 PERFORM DE-LETE. NC2534.2
074800 GO TO SUB-WRITE-F3-7. NC2534.2
074900 SUB-FAIL-F3-7. NC2534.2
075000 PERFORM FAIL. NC2534.2
075100 MOVE CORR-DATA-5 TO COMPUTED-A. NC2534.2
075200 MOVE "88889999999999" TO CORRECT-A. NC2534.2
075300 SUB-WRITE-F3-7. NC2534.2
075400 PERFORM PRINT-DETAIL. NC2534.2
075500* NC2534.2
075600 SUB-INIT-F3-8. NC2534.2
075700 MOVE "SUB-TEST-F3-8" TO PAR-NAME. NC2534.2
075800 MOVE "VI-134 6.25.4 GR3" TO ANSI-REFERENCE. NC2534.2
075900 PERFORM BUILD-TABLE1. NC2534.2
076000 PERFORM BUILD-TABLE2. NC2534.2
076100 SUB-TEST-F3-8-0. NC2534.2
076200 SUBTRACT CORRESPONDING TABLE1 FROM TABLE2. NC2534.2
076300 SUB-TEST-F3-8-1. NC2534.2
076400 IF RECORD1 OF TABLE2 = 02 NC2534.2
076500 AND RECORD2 OF TABLE2 (1) = 03 NC2534.2
076600 AND RECORD2 OF TABLE2 (2) = 04 NC2534.2
076700 AND RECORD3 OF TABLE2 = 02 NC2534.2
076800 PERFORM PASS NC2534.2
076900 GO TO SUB-WRITE-F3-8. NC2534.2
077000 GO TO SUB-FAIL-F3-8. NC2534.2
077100 SUB-DELETE-F3-8. NC2534.2
077200 PERFORM DE-LETE. NC2534.2
077300 GO TO SUB-WRITE-F3-8. NC2534.2
077400 SUB-FAIL-F3-8. NC2534.2
077500 PERFORM FAIL. NC2534.2
077600 MOVE TABLE2 TO COMPUTED-A. NC2534.2
077700 MOVE "02030402" TO CORRECT-A. NC2534.2
077800 SUB-WRITE-F3-8. NC2534.2
077900 PERFORM PRINT-DETAIL. NC2534.2
078000* NC2534.2
078100 SUB-INIT-F3-9. NC2534.2
078200* ===--> NO SIZE ERROR <--=== NC2534.2
078300 MOVE "VI-133 6.25" TO ANSI-REFERENCE. NC2534.2
078400 MOVE SPACE TO WRK-AN-00001. NC2534.2
078500 MOVE 0 TO REC-CT. NC2534.2
078600 MOVE 1 TO SUBTR-13 OF SUBTR-12. NC2534.2
078700 MOVE -1.725 TO SUBTR-14 OF SUBTR-12. NC2534.2
078800 MOVE 6.76 TO SUBTR-15 OF SUBTR-12. NC2534.2
078900 MOVE 2 TO SUBTR-13 OF SUBTR-16. NC2534.2
079000 MOVE .23 TO SUBTR-14 OF SUBTR-16. NC2534.2
079100 MOVE 1 TO SUBTR-15 OF SUBTR-16. NC2534.2
079200 SUB-TEST-F3-9-0. NC2534.2
079300 SUBTRACT CORRESPONDING SUBTR-12 FROM SUBTR-16 ROUNDED NC2534.2
079400 ON SIZE ERROR NC2534.2
079500 MOVE "G" TO WRK-AN-00001. NC2534.2
079600* NC2534.2
079700 SUB-INIT-F3-9-1. NC2534.2
079800 MOVE "SUB-TEST-F3-9-1" TO PAR-NAME. NC2534.2
079900 ADD 1 TO REC-CT. NC2534.2
080000 SUB-TEST-F3-9-1. NC2534.2
080100 IF WRK-AN-00001 NOT = SPACE NC2534.2
080200 GO TO SUB-FAIL-F3-9-1. NC2534.2
080300 PERFORM PASS NC2534.2
080400 GO TO SUB-WRITE-F3-9-1. NC2534.2
080500 SUB-DELETE-F3-9-1. NC2534.2
080600 PERFORM DE-LETE. NC2534.2
080700 GO TO SUB-WRITE-F3-9-1. NC2534.2
080800 SUB-FAIL-F3-9-1. NC2534.2
080900 MOVE "SUBTRACT CORRESPONDING FAILED" NC2534.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.91 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Fenster
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
