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