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