|
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 Card0130. NC2024.2
002900 OBJECT-COMPUTER. NC2024.2
003000 Card0131. NC2024.2
003100 INPUT-OUTPUT SECTION. NC2024.2
003200 FILE-CONTROL. NC2024.2
003300 SELECT PRINT-FILE ASSIGN TO NC2024.2
003400 "C0085" . 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-TEST-F3-3-2" TO PAR-NAME. NC2024.2
061800 ADD-TEST-F3-3-2. NC2024.2
061900 IF WRK-XN-00001 EQUAL TO "1" NC2024.2
062000 PERFORM PASS NC2024.2
062100 GO TO ADD-WRITE-F3-3-2. NC2024.2
062200 GO TO ADD-FAIL-F3-3-2. NC2024.2
062300 ADD-DELETE-F3-3-2. NC2024.2
062400 PERFORM DE-LETE. NC2024.2
062500 GO TO ADD-WRITE-F3-3-2. NC2024.2
062600 ADD-FAIL-F3-3-2. NC2024.2
062700 MOVE 1 TO CORRECT-A. NC2024.2
062800 MOVE WRK-XN-00001 TO COMPUTED-A. NC2024.2
062900 PERFORM FAIL. NC2024.2
063000 ADD-WRITE-F3-3-2. NC2024.2
063100 PERFORM PRINT-DETAIL. NC2024.2
063200* NC2024.2
063300 ADD-INIT-F3-4. NC2024.2
063400 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
063500 MOVE "ADD-TEST-F3-4" TO PAR-NAME. NC2024.2
063600 MOVE ZERO TO GRP-FOR-ADD-CORR-R. NC2024.2
063700 MOVE ZERO TO ADD-CORR-1 OF GRP-FOR-ADD-CORR-A. NC2024.2
063800 ADD-TEST-F3-4. NC2024.2
063900 ADD CORRESPONDING GRP-SUBTRACT-CORR-1 OF GRP-SUBTRACT-CORR-3 NC2024.2
064000 TO GRP-SUBTRACT-CORR-1 OF GRP-FOR-ADD-CORR-R. NC2024.2
064100 IF GRP-FOR-ADD-CORR-R EQUAL TO "00223344000000000000" NC2024.2
064200 PERFORM PASS NC2024.2
064300 GO TO ADD-WRITE-F3-4. NC2024.2
064400 GO TO ADD-FAIL-F3-4. NC2024.2
064500 ADD-DELETE-F3-4. NC2024.2
064600 PERFORM DE-LETE. NC2024.2
064700 GO TO ADD-WRITE-F3-4. NC2024.2
064800 ADD-FAIL-F3-4. NC2024.2
064900 MOVE "00223344000000000000" TO CORRECT-A. NC2024.2
065000 MOVE GRP-FOR-ADD-CORR-R TO COMPUTED-A. NC2024.2
065100 PERFORM FAIL. NC2024.2
065200 ADD-WRITE-F3-4. NC2024.2
065300 PERFORM PRINT-DETAIL. NC2024.2
065400* NC2024.2
065500 ADD-INIT-F3-5-1. NC2024.2
065600 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
065700 MOVE "ADD-TEST-F3-5-1" TO PAR-NAME. NC2024.2
065800 MOVE 1 TO FIELD1 OF ADD-15. NC2024.2
065900 MOVE 32.1 TO FIELD2 OF ADD-15. NC2024.2
066000 MOVE 123.4 TO FIELD3 OF ADD-15. NC2024.2
066100 MOVE 99999 TO FIELD1 OF ADD-16. NC2024.2
066200 MOVE 745.67 TO FIELD2 OF ADD-16. NC2024.2
066300 MOVE 432.1 TO FIELD3 OF ADD-16. NC2024.2
066400 ADD-TEST-F3-5-1. NC2024.2
066500 ADD CORRESPONDING ADD-15 TO ADD-16 ON SIZE ERROR NC2024.2
066600 PERFORM PASS NC2024.2
066700 GO TO ADD-WRITE-F3-5-1. NC2024.2
066800 GO TO ADD-FAIL-F3-5-1. NC2024.2
066900 ADD-DELETE-F3-5-1. NC2024.2
067000 PERFORM DE-LETE. NC2024.2
067100 GO TO ADD-WRITE-F3-5-1. NC2024.2
067200 ADD-FAIL-F3-5-1. NC2024.2
067300 PERFORM FAIL. NC2024.2
067400 MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK. NC2024.2
067500 ADD-WRITE-F3-5-1. NC2024.2
067600 PERFORM PRINT-DETAIL. NC2024.2
067700* NC2024.2
067800 ADD-INIT-F3-5-2. NC2024.2
067900 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
068000 MOVE "ADD-TEST-F3-5-2" TO PAR-NAME. NC2024.2
068100 ADD-TEST-F3-5-2. NC2024.2
068200 IF FIELD1 OF ADD-16 EQUAL TO 99999 NC2024.2
068300 PERFORM PASS NC2024.2
068400 GO TO ADD-WRITE-F3-5-2. NC2024.2
068500 GO TO ADD-FAIL-F3-5-2. NC2024.2
068600 ADD-DELETE-F3-5-2. NC2024.2
068700 PERFORM DE-LETE. NC2024.2
068800 GO TO ADD-WRITE-F3-5-2. NC2024.2
068900 ADD-FAIL-F3-5-2. NC2024.2
069000 MOVE FIELD1 OF ADD-16 TO COMPUTED-N. NC2024.2
069100 MOVE 99999 TO CORRECT-N. NC2024.2
069200 PERFORM FAIL. NC2024.2
069300 ADD-WRITE-F3-5-2. NC2024.2
069400 PERFORM PRINT-DETAIL. NC2024.2
069500* NC2024.2
069600 ADD-INIT-F3-5-3. NC2024.2
069700 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
069800 MOVE "ADD-TEST-F3-5-3" TO PAR-NAME. NC2024.2
069900 ADD-TEST-F3-5-3. NC2024.2
070000 IF FIELD2 OF ADD-16 IS EQUAL TO 777.77 NC2024.2
070100 PERFORM PASS NC2024.2
070200 GO TO ADD-WRITE-F3-5-3. NC2024.2
070300 GO TO ADD-FAIL-F3-5-3. NC2024.2
070400 ADD-DELETE-F3-5-3. NC2024.2
070500 PERFORM DE-LETE. NC2024.2
070600 GO TO ADD-WRITE-F3-5-3. NC2024.2
070700 ADD-FAIL-F3-5-3. NC2024.2
070800 PERFORM FAIL. NC2024.2
070900 MOVE FIELD2 OF ADD-16 TO COMPUTED-N. NC2024.2
071000 MOVE "+777.77" TO CORRECT-A. NC2024.2
071100 ADD-WRITE-F3-5-3. NC2024.2
071200 PERFORM PRINT-DETAIL. NC2024.2
071300* NC2024.2
071400 ADD-INIT-F3-5-4. NC2024.2
071500 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
071600 MOVE "ADD-TEST-F3-5-4" TO PAR-NAME. NC2024.2
071700 ADD-TEST-F3-5-4. NC2024.2
071800 IF FIELD3 OF ADD-16 IS EQUAL TO 555.5 NC2024.2
071900 PERFORM PASS NC2024.2
072000 GO TO ADD-WRITE-F3-5-4. NC2024.2
072100 GO TO ADD-FAIL-F3-5-4. NC2024.2
072200 ADD-DELETE-F3-5-4. NC2024.2
072300 PERFORM DE-LETE. NC2024.2
072400 GO TO ADD-WRITE-F3-5-4. NC2024.2
072500 ADD-FAIL-F3-5-4. NC2024.2
072600 PERFORM FAIL. NC2024.2
072700 MOVE FIELD3 OF ADD-16 TO COMPUTED-N. NC2024.2
072800 MOVE 555.5 TO CORRECT-N. NC2024.2
072900 ADD-WRITE-F3-5-4. NC2024.2
073000 PERFORM PRINT-DETAIL. NC2024.2
073100* NC2024.2
073200 ADD-INIT-F3-6. NC2024.2
073300 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
073400 MOVE "ADD-TEST-F3-6" TO PAR-NAME. NC2024.2
073500 MOVE "ADD CORRESPONDING " TO FEATURE. NC2024.2
073600 MOVE 03 TO XYZ-1 OF CORR-DATA-1. NC2024.2
073700 MOVE 04 TO XYZ-2 OF CORR-DATA-1 NC2024.2
073800 MOVE TEN TO XYZ-3 OF CORR-DATA-1. NC2024.2
073900 MOVE ZERO TO XYZ-4 OF CORR-DATA-1. NC2024.2
074000 MOVE 01 TO XYZ-5 OF CORR-DATA-1. NC2024.2
074100 MOVE 00 TO XYZ-6 OF CORR-DATA-1. NC2024.2
074200 MOVE ZEROES TO CORR-DATA-2. NC2024.2
074300 ADD-TEST-F3-6. NC2024.2
074400 ADD CORRESPONDING CORR-DATA-1 TO CORR-DATA-2. NC2024.2
074500 IF XYZ-4 OF CORR-DATA-2 EQUAL TO ZERO NC2024.2
074600 PERFORM PASS NC2024.2
074700 GO TO ADD-WRITE-F3-6. NC2024.2
074800 GO TO ADD-FAIL-F3-6. NC2024.2
074900 ADD-DELETE-F3-6. NC2024.2
075000 PERFORM DE-LETE. NC2024.2
075100 GO TO ADD-WRITE-F3-6. NC2024.2
075200 ADD-FAIL-F3-6. NC2024.2
075300 PERFORM FAIL. NC2024.2
075400 MOVE XYZ-4 OF CORR-DATA-2 TO COMPUTED-A. NC2024.2
075500 MOVE 00 TO CORRECT-A. NC2024.2
075600 ADD-WRITE-F3-6. NC2024.2
075700 PERFORM PRINT-DETAIL. NC2024.2
075800* NC2024.2
075900 ADD-INIT-F3-7. NC2024.2
076000 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
076100 MOVE 03 TO XYZ-1 OF CORR-DATA-1. NC2024.2
076200 MOVE 04 TO XYZ-2 OF CORR-DATA-1 NC2024.2
076300 MOVE TEN TO XYZ-3 OF CORR-DATA-1. NC2024.2
076400 MOVE ZERO TO XYZ-4 OF CORR-DATA-1. NC2024.2
076500 MOVE 01 TO XYZ-5 OF CORR-DATA-1. NC2024.2
076600 MOVE 00 TO XYZ-6 OF CORR-DATA-1. NC2024.2
076700 MOVE 060820000200 TO CORR-DATA-2. NC2024.2
076800 ADD-INIT-F3-7-1. NC2024.2
076900 MOVE "ADD-TEST-F3-7-1" TO PAR-NAME. NC2024.2
077000 ADD-TEST-F3-7-1. NC2024.2
077100 ADD CORRESPONDING CORR-DATA-1 TO CORR-DATA-2. NC2024.2
077200 IF XYZ-1 OF CORR-DATA-2 EQUAL TO 09 NC2024.2
077300 PERFORM PASS NC2024.2
077400 GO TO ADD-WRITE-F3-7-1. NC2024.2
077500 GO TO ADD-FAIL-F3-7-1. NC2024.2
077600 ADD-DELETE-F3-7-1. NC2024.2
077700 PERFORM DE-LETE. NC2024.2
077800 GO TO ADD-WRITE-F3-7-1. NC2024.2
077900 ADD-FAIL-F3-7-1. NC2024.2
078000 PERFORM FAIL. NC2024.2
078100 MOVE XYZ-1 OF CORR-DATA-2 TO COMPUTED-A. NC2024.2
078200 MOVE "09" TO CORRECT-A. NC2024.2
078300 ADD-WRITE-F3-7-1. NC2024.2
078400 PERFORM PRINT-DETAIL. NC2024.2
078500* NC2024.2
078600 ADD-INIT-F3-7-2. NC2024.2
078700 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
078800 MOVE "ADD-TEST-F3-7-2" TO PAR-NAME. NC2024.2
078900 ADD-TEST-F3-7-2. NC2024.2
079000 IF XYZ-2 OF CORR-DATA-2 EQUAL TO 12 NC2024.2
079100 PERFORM PASS NC2024.2
079200 GO TO ADD-WRITE-F3-7-2. NC2024.2
079300 GO TO ADD-FAIL-F3-7-2. NC2024.2
079400 ADD-DELETE-F3-7-2. NC2024.2
079500 PERFORM DE-LETE. NC2024.2
079600 GO TO ADD-WRITE-F3-7-2. NC2024.2
079700 ADD-FAIL-F3-7-2. NC2024.2
079800 PERFORM FAIL. NC2024.2
079900 MOVE XYZ-2 OF CORR-DATA-2 TO COMPUTED-A. NC2024.2
080000 MOVE "12" TO CORRECT-A. NC2024.2
080100 ADD-WRITE-F3-7-2. NC2024.2
080200 PERFORM PRINT-DETAIL. NC2024.2
080300* NC2024.2
080400 ADD-INIT-F3-7-3. NC2024.2
080500 MOVE "VI-74 6.6.4 GR3" TO ANSI-REFERENCE. NC2024.2
080600 MOVE "ADD-TEST-F3-7-3" TO PAR-NAME. NC2024.2
080700 ADD-TEST-F3-7-3. NC2024.2
080800 IF XYZ-3 OF CORR-DATA-2 EQUAL TO 30 NC2024.2
080900 PERFORM PASS NC2024.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.263 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
