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