| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/ Datei vom 4.1.2008 mit Größe 166 kB |
|
Quelle nc175a.cobSprache: Cobol |
|||||||||||||||
|
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 081000 PERFORM DE-LETE. NC1754.2 081100 GO TO SUB-WRITE-F2-13. NC1754.2 081200 SUB-FAIL-F2-13. NC1754.2 081300 MOVE WRK-DS-03V10 TO COMPUTED-4V14. NC1754.2 081400 MOVE -242.4332220110 TO CORRECT-4V14. NC1754.2 081500 PERFORM FAIL. NC1754.2 081600 SUB-WRITE-F2-13. NC1754.2 081700 MOVE "SUB-TEST-F2-13" TO PAR-NAME. NC1754.2 081800 PERFORM PRINT-DETAIL. NC1754.2 081900 SUB-TEST-F2-14. NC1754.2 082000 SUBTRACT SUBTR-4 SUBTR-5 .499 FROM SUBTR-2 GIVING SUBTR-11. NC1754.2 082100 IF SUBTR-11 EQUAL TO -1.5 NC1754.2 082200 PERFORM PASS GO TO SUB-WRITE-F2-14. NC1754.2 082300 GO TO SUB-FAIL-F2-14. NC1754.2 082400 SUB-DELETE-F2-14. NC1754.2 082500 PERFORM DE-LETE. NC1754.2 082600 GO TO SUB-WRITE-F2-14. NC1754.2 082700 SUB-FAIL-F2-14. NC1754.2 082800 MOVE SUBTR-11 TO COMPUTED-N. NC1754.2 082900 MOVE -1.5 TO CORRECT-N. NC1754.2 083000 PERFORM FAIL. NC1754.2 083100 SUB-WRITE-F2-14. NC1754.2 083200 MOVE "SUB-TEST-F2-14" TO PAR-NAME. NC1754.2 083300 PERFORM PRINT-DETAIL. NC1754.2 083400 SUB-TEST-F2-15-1. NC1754.2 083500 SUBTRACT SUBTR-1 SUBTR-3 FROM SUBTR-5 GIVING SUBTR-7 ON NC1754.2 083600 SIZE ERROR NC1754.2 083700 PERFORM PASS GO TO SUB-WRITE-F2-15-1. NC1754.2 083800 GO TO SUB-FAIL-F2-15-1. NC1754.2 083900 SUB-DELETE-F2-15-1. NC1754.2 084000 PERFORM DE-LETE. NC1754.2 084100 GO TO SUB-WRITE-F2-15-1. NC1754.2 084200 SUB-FAIL-F2-15-1. NC1754.2 084300 MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK. NC1754.2 084400 PERFORM FAIL. NC1754.2 084500 SUB-WRITE-F2-15-1. NC1754.2 084600 MOVE "SUB-TEST-F2-15-1" TO PAR-NAME. NC1754.2 084700 PERFORM PRINT-DETAIL. NC1754.2 084800 SUB-TEST-F2-15-2. NC1754.2 084900 IF SUBTR-7 EQUAL TO 99 NC1754.2 085000 PERFORM PASS GO TO SUB-WRITE-F2-15-2. NC1754.2 085100* NOTE: THIS TEST DEPENDS UPON THE RESULT OF SUB-TEST-F2-15-2 NC1754.2 085200 GO TO SUB-FAIL-F2-15-2. NC1754.2 085300 SUB-DELETE-F2-15-2. NC1754.2 085400 PERFORM DE-LETE. NC1754.2 085500 GO TO SUB-WRITE-F2-15-2. NC1754.2 085600 SUB-FAIL-F2-15-2. NC1754.2 085700 MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK. NC1754.2 085800 MOVE SUBTR-7 TO COMPUTED-N. NC1754.2 085900 MOVE ZERO TO CORRECT-N. NC1754.2 086000 PERFORM FAIL. NC1754.2 086100 SUB-WRITE-F2-15-2. NC1754.2 086200 MOVE "SUB-TEST-F2-15-2" TO PAR-NAME. NC1754.2 086300 PERFORM PRINT-DETAIL. NC1754.2 086400 SUB-TEST-F2-16-1. NC1754.2 086500 MOVE SPACE TO SIZE-ERR. NC1754.2 086600 SUBTRACT MINUS-NAME1 MINUS-NAME2 -34 -1 PLUS-NAME1 NC1754.2 086700 PLUS-NAME2 EVEN-NAME1 35 FROM EVEN-NAME1 GIVING NC1754.2 086800 WHOLE-FIELD NC1754.2 086900 ON SIZE ERROR MOVE "1" TO SIZE-ERR. NC1754.2 087000 IF WHOLE-FIELD EQUAL TO 0 NC1754.2 087100 PERFORM PASS NC1754.2 087200 GO TO SUB-WRITE-F2-16-1. NC1754.2 087300 MOVE WHOLE-FIELD TO COMPUTED-18V0. NC1754.2 087400 MOVE 0 TO CORRECT-18V0. NC1754.2 087500 PERFORM FAIL. NC1754.2 087600 GO TO SUB-WRITE-F2-16-1. NC1754.2 087700 SUB-DELETE-F2-16-1. NC1754.2 087800 PERFORM DE-LETE. NC1754.2 087900 SUB-WRITE-F2-16-1. NC1754.2 088000 MOVE "SUB-TEST-F2-16-1" TO PAR-NAME. NC1754.2 088100 PERFORM PRINT-DETAIL. NC1754.2 088200 SUB-TEST-F2-16-2. NC1754.2 088300 IF SIZE-ERR EQUAL TO "1" NC1754.2 088400 PERFORM FAIL NC1754.2 088500 MOVE SPACE TO CORRECT-A NC1754.2 088600 MOVE 1 TO COMPUTED-A NC1754.2 088700 MOVE "SIZE ERROR SHOULD NOT BE EXECUTED" TO RE-MARK NC1754.2 088800 GO TO SUB-WRITE-F2-16-2. NC1754.2 088900 PERFORM PASS. NC1754.2 089000 GO TO SUB-WRITE-F2-16-2. NC1754.2 089100 SUB-DELETE-F2-16-2. NC1754.2 089200 PERFORM DE-LETE. NC1754.2 089300 SUB-WRITE-F2-16-2. NC1754.2 089400 MOVE "SUB-TEST-F2-16-2" TO PAR-NAME. NC1754.2 089500 PERFORM PRINT-DETAIL. NC1754.2 089600 SUB-TEST-F2-17-1. NC1754.2 089700 MOVE SPACE TO SIZE-ERR. NC1754.2 089800 SUBTRACT MINUS-NAME3 MINUS-NAME4 -.34 -.01 PLUS-NAME3 NC1754.2 089900 PLUS-NAME4 EVEN-NAME2 .35 FROM EVEN-NAME2 NC1754.2 090000 GIVING DECMAL-FIELD NC1754.2 090100 ON SIZE ERROR MOVE "1" TO SIZE-ERR. NC1754.2 090200 IF DECMAL-FIELD EQUAL TO .0 NC1754.2 090300 PERFORM PASS NC1754.2 090400 GO TO SUB-WRITE-F2-17-1. NC1754.2 090500 MOVE DECMAL-FIELD TO COMPUTED-0V18. NC1754.2 090600 MOVE .0 TO CORRECT-0V18. NC1754.2 090700 PERFORM FAIL. NC1754.2 090800 GO TO SUB-WRITE-F2-17-1. NC1754.2 090900 SUB-DELETE-F2-17-1. NC1754.2 091000 PERFORM DE-LETE. NC1754.2 091100 SUB-WRITE-F2-17-1. NC1754.2 091200 MOVE "SUB-TEST-F2-17-1" TO PAR-NAME. NC1754.2 091300 PERFORM PRINT-DETAIL. NC1754.2 091400 SUB-TEST-F2-17-2. NC1754.2 091500 IF SIZE-ERR EQUAL TO "1" NC1754.2 091600 PERFORM FAIL NC1754.2 091700 MOVE SPACE TO CORRECT-A NC1754.2 091800 MOVE 1 TO COMPUTED-A NC1754.2 091900 MOVE "SIZE ERROR SHOULD NOT BE EXECUTED" TO RE-MARK NC1754.2 092000 GO TO SUB-WRITE-F2-17-2. NC1754.2 092100 PERFORM PASS. NC1754.2 092200 GO TO SUB-WRITE-F2-17-2. NC1754.2 092300 SUB-DELETE-F2-17-2. NC1754.2 092400 PERFORM DE-LETE. NC1754.2 092500 SUB-WRITE-F2-17-2. NC1754.2 092600 MOVE "SUB-TEST-F2-17-2" TO PAR-NAME. NC1754.2 092700 PERFORM PRINT-DETAIL. NC1754.2 092800 SUB-TEST-F2-18. NC1754.2 092900 MOVE ZERO TO WRK-CS-18V00. NC1754.2 093000 SUBTRACT A12THREES-CU-18V00 FROM A14TWOS-CS-18V00 NC1754.2 093100 GIVING WRK-CS-18V00. NC1754.2 093200 IF WRK-CS-18V00 EQUAL TO -000022555555555555 NC1754.2 093300 PERFORM PASS NC1754.2 093400 GO TO SUB-WRITE-F2-18. NC1754.2 093500 MOVE -000022555555555555 TO CORRECT-18V0. NC1754.2 093600 MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1754.2 093700 PERFORM FAIL. NC1754.2 093800 GO TO SUB-WRITE-F2-18. NC1754.2 093900 SUB-DELETE-F2-18. NC1754.2 094000 PERFORM DE-LETE. NC1754.2 094100 SUB-WRITE-F2-18. NC1754.2 094200 MOVE "SUB-TEST-F2-18 " TO PAR-NAME. NC1754.2 094300 PERFORM PRINT-DETAIL. NC1754.2 094400 SUB-TEST-F2-19. NC1754.2 094500 MOVE ZERO TO WRK-DU-18V00. NC1754.2 094600 SUBTRACT A18SIXES-CS-18V00 FROM A18THREES-CS-18V00 NC1754.2 094700 GIVING WRK-DU-18V00. NC1754.2 094800 IF WRK-DU-18V00 EQUAL TO 999999999999999999 NC1754.2 094900 PERFORM PASS NC1754.2 095000 GO TO SUB-WRITE-F2-19. NC1754.2 095100 MOVE 999999999999999999 TO CORRECT-18V0. NC1754.2 095200 MOVE WRK-DU-18V00 TO COMPUTED-18V0. NC1754.2 095300 PERFORM FAIL. NC1754.2 095400 GO TO SUB-WRITE-F2-19. NC1754.2 095500 SUB-DELETE-F2-19. NC1754.2 095600 PERFORM DE-LETE. NC1754.2 095700 SUB-WRITE-F2-19. NC1754.2 095800 MOVE "SUB-TEST-F2-19 " TO PAR-NAME. NC1754.2 095900 PERFORM PRINT-DETAIL. NC1754.2 096000 SUB-TEST-F2-20. NC1754.2 096100 MOVE ZERO TO WRK-CS-18V00. NC1754.2 096200 SUBTRACT A16FOURS-CS-18V00 FROM A12THREES-CU-18V00 NC1754.2 096300 GIVING WRK-CS-18V00. NC1754.2 096400 IF WRK-CS-18V00 EQUAL TO -004444111111111111 NC1754.2 096500 PERFORM PASS NC1754.2 096600 GO TO SUB-WRITE-F2-20. NC1754.2 096700 MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1754.2 096800 MOVE -004444111111111111 TO CORRECT-18V0. NC1754.2 096900 PERFORM FAIL. NC1754.2 097000 GO TO SUB-WRITE-F2-20. NC1754.2 097100 SUB-DELETE-F2-20. NC1754.2 097200 PERFORM DE-LETE. NC1754.2 097300 SUB-WRITE-F2-20. NC1754.2 097400 MOVE "SUB-TEST-F2-20 " TO PAR-NAME. NC1754.2 097500 PERFORM PRINT-DETAIL. NC1754.2 097600 SUB-TEST-F2-21. NC1754.2 097700 MOVE ZERO TO WRK-DU-18V00. NC1754.2 097800 SUBTRACT A18THREES-CS-18V00 FROM A18ONES-CS-18V00 NC1754.2 097900 GIVING WRK-DU-18V00. NC1754.2 098000 IF WRK-DU-18V00 EQUAL TO 444444444444444444 NC1754.2 098100 PERFORM PASS NC1754.2 098200 GO TO SUB-WRITE-F2-21. NC1754.2 098300 MOVE WRK-DU-18V00 TO COMPUTED-18V0. NC1754.2 098400 MOVE 444444444444444444 TO CORRECT-18V0. NC1754.2 098500 PERFORM FAIL. NC1754.2 098600 GO TO SUB-WRITE-F2-21. NC1754.2 098700 SUB-DELETE-F2-21. NC1754.2 098800 PERFORM DE-LETE. NC1754.2 098900 SUB-WRITE-F2-21. NC1754.2 099000 MOVE "SUB-TEST-F2-21 " TO PAR-NAME. NC1754.2 099100 PERFORM PRINT-DETAIL. NC1754.2 099200 SUB-TEST-F2-22. NC1754.2 099300 MOVE ZERO TO WRK-CS-18V00. NC1754.2 099400 SUBTRACT A18SIXES-CS-18V00 FROM A18THREES-CS-18V00 NC1754.2 099500 GIVING WRK-CS-18V00. NC1754.2 099600 IF WRK-CS-18V00 EQUAL TO -999999999999999999 NC1754.2 099700 PERFORM PASS NC1754.2 099800 GO TO SUB-WRITE-F2-22. NC1754.2 099900 MOVE -999999999999999999 TO CORRECT-18V0. NC1754.2 100000 MOVE WRK-CS-18V00 TO COMPUTED-18V0. NC1754.2 100100 PERFORM FAIL. NC1754.2 100200 GO TO SUB-WRITE-F2-22. NC1754.2 100300 SUB-DELETE-F2-22. NC1754.2 100400 PERFORM DE-LETE. NC1754.2 100500 SUB-WRITE-F2-22. NC1754.2 100600 MOVE "SUB-TEST-F2-22 " TO PAR-NAME. NC1754.2 100700 PERFORM PRINT-DETAIL. NC1754.2 100800* NC1754.2 100900 SUB-INIT-F2-23. NC1754.2 101000* ===--> NEW SIZE ERROR TESTS <--=== NC1754.2 101100 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 101200 MOVE ZERO TO WRK-DS-10V00. NC1754.2 101300 SUB-TEST-F2-23. NC1754.2 101400 SUBTRACT A12ONES-DS-12V00 NC1754.2 101500 FROM ZERO GIVING WRK-DS-10V00 NC1754.2 101600 NOT ON SIZE ERROR NC1754.2 101700 MOVE "NOT ON SIZE ERROR SHOULD NOT EXECUTED" NC1754.2 101800 TO RE-MARK NC1754.2 101900 PERFORM FAIL GO TO SUB-WRITE-F2-23. NC1754.2 102000 GO TO SUB-PASS-F2-23. NC1754.2 102100 SUB-DELETE-F2-23. NC1754.2 102200 PERFORM DE-LETE. NC1754.2 102300 GO TO SUB-WRITE-F2-23. NC1754.2 102400 SUB-PASS-F2-23. NC1754.2 102500 PERFORM PASS. NC1754.2 102600 SUB-WRITE-F2-23. NC1754.2 102700 MOVE "SUB-TEST-F2-23" TO PAR-NAME. NC1754.2 102800 PERFORM PRINT-DETAIL. NC1754.2 102900* NC1754.2 103000 SUB-INIT-F2-24. NC1754.2 103100* ===--> NEW SIZE ERROR TESTS <--=== NC1754.2 103200 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 103300 MOVE ZERO TO WRK-DS-06V06. NC1754.2 103400 SUB-TEST-F2-24. NC1754.2 103500 SUBTRACT A12THREES-DS-06V06 NC1754.2 103600 333333 NC1754.2 103700 A06THREES-DS-03V03 NC1754.2 103800 -.0000009 FROM 0000000 NC1754.2 103900 GIVING WRK-DS-06V06 ROUNDED NC1754.2 104000 NOT ON SIZE ERROR NC1754.2 104100 PERFORM PASS NC1754.2 104200 GO TO SUB-WRITE-F2-24. NC1754.2 104300 GO TO SUB-FAIL-F2-24. NC1754.2 104400 SUB-DELETE-F2-24. NC1754.2 104500 PERFORM DE-LETE. NC1754.2 104600 GO TO SUB-WRITE-F2-24. NC1754.2 104700 SUB-FAIL-F2-24. NC1754.2 104800 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK. NC1754.2 104900 PERFORM FAIL. NC1754.2 105000 SUB-WRITE-F2-24. NC1754.2 105100 MOVE "SUB-TEST-F2-24" TO PAR-NAME. NC1754.2 105200 PERFORM PRINT-DETAIL. NC1754.2 105300* NC1754.2 105400 SUB-INIT-F2-25. NC1754.2 105500* ===--> NEW SIZE ERROR TESTS <--=== NC1754.2 105600 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 105700 MOVE ZERO TO WRK-DS-10V00. NC1754.2 105800 SUB-TEST-F2-25. NC1754.2 105900 SUBTRACT A12ONES-DS-12V00 NC1754.2 106000 FROM ZERO GIVING WRK-DS-10V00 NC1754.2 106100 ON SIZE ERROR NC1754.2 106200 GO TO SUB-PASS-F2-25 NC1754.2 106300 NOT ON SIZE ERROR NC1754.2 106400 MOVE "NOT ON SIZE ERROR SHOULD NOT EXECUTED" NC1754.2 106500 TO RE-MARK NC1754.2 106600 PERFORM FAIL GO TO SUB-WRITE-F2-25. NC1754.2 106700 SUB-DELETE-F2-25. NC1754.2 106800 PERFORM DE-LETE. NC1754.2 106900 GO TO SUB-WRITE-F2-25. NC1754.2 107000 SUB-PASS-F2-25. NC1754.2 107100 PERFORM PASS. NC1754.2 107200 SUB-WRITE-F2-25. NC1754.2 107300 MOVE "SUB-TEST-F2-25" TO PAR-NAME. NC1754.2 107400 PERFORM PRINT-DETAIL. NC1754.2 107500* NC1754.2 107600 SUB-INIT-F2-26. NC1754.2 107700* ===--> NEW SIZE ERROR TESTS <--=== NC1754.2 107800 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 107900 MOVE ZERO TO WRK-DS-06V06. NC1754.2 108000 SUB-TEST-F2-26. NC1754.2 108100 SUBTRACT A12THREES-DS-06V06 NC1754.2 108200 333333 NC1754.2 108300 A06THREES-DS-03V03 NC1754.2 108400 -.0000009 FROM 0000000 NC1754.2 108500 GIVING WRK-DS-06V06 ROUNDED NC1754.2 108600 ON SIZE ERROR NC1754.2 108700 GO TO SUB-FAIL-F2-26 NC1754.2 108800 NOT ON SIZE ERROR NC1754.2 108900 PERFORM PASS NC1754.2 109000 GO TO SUB-WRITE-F2-26. NC1754.2 109100 SUB-DELETE-F2-26. NC1754.2 109200 PERFORM DE-LETE. NC1754.2 109300 GO TO SUB-WRITE-F2-26. NC1754.2 109400 SUB-FAIL-F2-26. NC1754.2 109500 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK. NC1754.2 109600 PERFORM FAIL. NC1754.2 109700 SUB-WRITE-F2-26. NC1754.2 109800 MOVE "SUB-TEST-F2-26" TO PAR-NAME. NC1754.2 109900 PERFORM PRINT-DETAIL. NC1754.2 110000* NC1754.2 110100 SUB-INIT-F2-27. NC1754.2 110200* ==--> MULTIPLE RESULT FIELDS <--== NC1754.2 110300 MOVE "VI-134 6.25.4 GR2" TO ANSI-REFERENCE. NC1754.2 110400 MOVE "SUB-TEST-F2-27" TO PAR-NAME. NC1754.2 110500 MOVE 10 TO WRK-DU-2V0-1. NC1754.2 110600 MOVE 22.33 TO WRK-DS-2V2-1. NC1754.2 110700 MOVE .3 TO WRK-DU-0V1-1. NC1754.2 110800 MOVE ZERO TO WRK-DS-2V2-2. NC1754.2 110900 MOVE ZERO TO WRK-DS-2V1-1. NC1754.2 111000 MOVE ZERO TO WRK-NE-4. NC1754.2 111100 MOVE ZERO TO WRK-NE-6. NC1754.2 111200 MOVE ZERO TO REC-CT. NC1754.2 111300 SUB-TEST-F2-27-0. NC1754.2 111400 SUBTRACT WRK-DU-2V0-1 2 WRK-DU-0V1-1 .04 FROM WRK-DS-2V2-1 NC1754.2 111500 GIVING WRK-DS-2V2-2 WRK-DS-2V1-1 ROUNDED WRK-NE-4 NC1754.2 111600 WRK-NE-6 ROUNDED NC1754.2 111700 GO TO SUB-TEST-F2-27-1. NC1754.2 111800 SUB-DELETE-F2-27. NC1754.2 111900 PERFORM DE-LETE. NC1754.2 112000 PERFORM PRINT-DETAIL. NC1754.2 112100 GO TO SUB-INIT-F2-28. NC1754.2 112200 SUB-TEST-F2-27-1. NC1754.2 112300 MOVE "SUB-TEST-F2-27-1" TO PAR-NAME. NC1754.2 112400 MOVE 1 TO REC-CT. NC1754.2 112500 IF WRK-DS-2V2-2 = 09.99 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 112600 ELSE NC1754.2 112700 PERFORM FAIL MOVE WRK-DS-2V2-2 TO COMPUTED-N MOVE 09.99 NC1754.2 112800 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 112900 ADD 1 TO REC-CT. NC1754.2 113000 SUB-TEST-F2-27-2. NC1754.2 113100 MOVE "SUB-TEST-F2-27-2" TO PAR-NAME. NC1754.2 113200 IF WRK-DS-2V1-1 = 10.0 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 113300 ELSE NC1754.2 113400 PERFORM FAIL MOVE WRK-DS-2V1-1 TO COMPUTED-N MOVE 10.0 NC1754.2 113500 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 113600 ADD 1 TO REC-CT. NC1754.2 113700 SUB-TEST-F2-27-3. NC1754.2 113800 MOVE "SUB-TEST-F2-27-3" TO PAR-NAME. NC1754.2 113900 IF WRK-NE-4 = "$*9.99" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 114000 ELSE NC1754.2 114100 PERFORM FAIL MOVE WRK-NE-4 TO COMPUTED-A MOVE "$*0.00" TO NC1754.2 114200 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 114300 ADD 1 TO REC-CT. NC1754.2 114400 SUB-TEST-F2-27-4. NC1754.2 114500 MOVE "SUB-TEST-F2-27-4" TO PAR-NAME. NC1754.2 114600 IF WRK-NE-6 = "$*9.99 " PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 114700 ELSE NC1754.2 114800 PERFORM FAIL MOVE WRK-NE-6 TO COMPUTED-A MOVE "$*9.99 " TO NC1754.2 114900 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 115000* NC1754.2 115100 SUB-INIT-F2-28. NC1754.2 115200* ==--> MULTIPLE RESULT FIELDS <--== NC1754.2 115300* ==--> SIZE ERROR <--== NC1754.2 115400 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 115500 MOVE "SUB-TEST-F2-28" TO PAR-NAME. NC1754.2 115600 MOVE 10 TO WRK-DU-2V0-1. NC1754.2 115700 MOVE 22.33 TO WRK-DS-2V2-1. NC1754.2 115800 MOVE .3 TO WRK-DU-0V1-1. NC1754.2 115900 MOVE ZERO TO WRK-DS-2V2-2. NC1754.2 116000 MOVE ZERO TO WRK-DS-2V1-1. NC1754.2 116100 MOVE ZERO TO WRK-NE-4. NC1754.2 116200 MOVE ZERO TO WRK-NE-5 NC1754.2 116300 MOVE ZERO TO WRK-NE-6. NC1754.2 116400 MOVE ZERO TO REC-CT. NC1754.2 116500 MOVE SPACE TO SIZE-ERR2. NC1754.2 116600 SUB-TEST-F2-28-0. NC1754.2 116700 SUBTRACT A16TWOS-DS-16V00 NC1754.2 116800 2 WRK-DU-0V1-1 .04 NC1754.2 116900 FROM WRK-DS-2V2-1 NC1754.2 117000 GIVING WRK-DS-2V2-2 WRK-DS-2V1-1 ROUNDED WRK-NE-4 NC1754.2 117100 WRK-NE-5 WRK-NE-6 ROUNDED NC1754.2 117200 ON SIZE ERROR NC1754.2 117300 MOVE "A" TO SIZE-ERR2. NC1754.2 117400 GO TO SUB-TEST-F2-28-1. NC1754.2 117500 SUB-DELETE-F2-28. NC1754.2 117600 PERFORM DE-LETE. NC1754.2 117700 PERFORM PRINT-DETAIL. NC1754.2 117800 GO TO SUB-INIT-F2-29. NC1754.2 117900 SUB-TEST-F2-28-1. NC1754.2 118000 MOVE "SUB-TEST-F2-28-1" TO PAR-NAME. NC1754.2 118100 MOVE 1 TO REC-CT. NC1754.2 118200 IF WRK-DS-2V2-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 118300 ELSE NC1754.2 118400 PERFORM FAIL MOVE WRK-DS-2V2-2 TO COMPUTED-N MOVE ZERO NC1754.2 118500 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 118600 ADD 1 TO REC-CT. NC1754.2 118700 SUB-TEST-F2-28-2. NC1754.2 118800 MOVE "SUB-TEST-F2-28-2" TO PAR-NAME. NC1754.2 118900 IF WRK-DS-2V1-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 119000 ELSE NC1754.2 119100 PERFORM FAIL MOVE WRK-DS-2V1-1 TO COMPUTED-N MOVE ZERO NC1754.2 119200 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 119300 ADD 1 TO REC-CT. NC1754.2 119400 SUB-TEST-F2-28-3. NC1754.2 119500 MOVE "SUB-TEST-F2-28-3" TO PAR-NAME. NC1754.2 119600 IF WRK-NE-4 = "$*0.00" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 119700 ELSE NC1754.2 119800 PERFORM FAIL MOVE WRK-NE-4 TO COMPUTED-A MOVE "$*0.00" TO NC1754.2 119900 CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 120000 ADD 1 TO REC-CT. NC1754.2 120100 SUB-TEST-F2-28-4. NC1754.2 120200 MOVE "SUB-TEST-F2-28-4" TO PAR-NAME. NC1754.2 120300 IF WRK-NE-5 = "*.**" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 120400 ELSE NC1754.2 120500 PERFORM FAIL MOVE WRK-NE-5 TO COMPUTED-A MOVE "*.**" NC1754.2 120600 TO CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 120700 ADD 1 TO REC-CT. NC1754.2 120800 SUB-TEST-F2-28-5. NC1754.2 120900 MOVE "SUB-TEST-F2-28-5" TO PAR-NAME. NC1754.2 121000 IF WRK-NE-6 = "***.****" NC1754.2 121100 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 121200 ELSE NC1754.2 121300 PERFORM FAIL MOVE WRK-NE-6 TO COMPUTED-A MOVE "***.****" NC1754.2 121400 TO CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 121500 ADD 1 TO REC-CT. NC1754.2 121600 SUB-TEST-F2-28-6. NC1754.2 121700 MOVE "SUB-TEST-F2-28-6" TO PAR-NAME. NC1754.2 121800 IF SIZE-ERR2 = "A" NC1754.2 121900 PERFORM PASS NC1754.2 122000 PERFORM PRINT-DETAIL NC1754.2 122100 ELSE NC1754.2 122200 MOVE "A" TO CORRECT-X NC1754.2 122300 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 122400 MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 122500 TO RE-MARK NC1754.2 122600 PERFORM FAIL NC1754.2 122700 PERFORM PRINT-DETAIL. NC1754.2 122800* NC1754.2 122900 SUB-INIT-F2-29. NC1754.2 123000* ==--> MULTIPLE RESULT FIELDS <--== NC1754.2 123100* ==--> NO SIZE ERROR <--== NC1754.2 123200 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 123300 MOVE "SUB-TEST-F2-29" TO PAR-NAME. NC1754.2 123400 MOVE 10 TO WRK-DU-2V0-1. NC1754.2 123500 MOVE 22.33 TO WRK-DS-2V2-1. NC1754.2 123600 MOVE .3 TO WRK-DU-0V1-1. NC1754.2 123700 MOVE ZERO TO WRK-DS-2V2-2. NC1754.2 123800 MOVE ZERO TO WRK-DS-2V1-1. NC1754.2 123900 MOVE ZERO TO WRK-NE-4. NC1754.2 124000 MOVE ZERO TO WRK-NE-6. NC1754.2 124100 MOVE ZERO TO REC-CT. NC1754.2 124200 MOVE SPACE TO SIZE-ERR2. NC1754.2 124300 SUB-TEST-F2-29-0. NC1754.2 124400 SUBTRACT WRK-DU-2V0-1 2 WRK-DU-0V1-1 .04 FROM WRK-DS-2V2-1 NC1754.2 124500 GIVING WRK-DS-2V2-2 WRK-DS-2V1-1 ROUNDED WRK-NE-4 NC1754.2 124600 WRK-NE-6 ROUNDED NC1754.2 124700 ON SIZE ERROR NC1754.2 124800 MOVE "A" TO SIZE-ERR2. NC1754.2 124900 GO TO SUB-TEST-F2-29-1. NC1754.2 125000 SUB-DELETE-F2-29. NC1754.2 125100 PERFORM DE-LETE. NC1754.2 125200 PERFORM PRINT-DETAIL. NC1754.2 125300 GO TO SUB-INIT-F2-30. NC1754.2 125400 SUB-TEST-F2-29-1. NC1754.2 125500 MOVE "SUB-TEST-F2-29-1" TO PAR-NAME. NC1754.2 125600 MOVE 1 TO REC-CT. NC1754.2 125700 IF WRK-DS-2V2-2 = 09.99 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 125800 ELSE NC1754.2 125900 PERFORM FAIL MOVE WRK-DS-2V2-2 TO COMPUTED-N MOVE 09.99 NC1754.2 126000 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 126100 ADD 1 TO REC-CT. NC1754.2 126200 SUB-TEST-F2-29-2. NC1754.2 126300 MOVE "SUB-TEST-F2-29-2" TO PAR-NAME. NC1754.2 126400 IF WRK-DS-2V1-1 = 10.0 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 126500 ELSE NC1754.2 126600 PERFORM FAIL MOVE WRK-DS-2V1-1 TO COMPUTED-N MOVE 10.0 NC1754.2 126700 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 126800 ADD 1 TO REC-CT. NC1754.2 126900 SUB-TEST-F2-29-3. NC1754.2 127000 MOVE "SUB-TEST-F2-29-3" TO PAR-NAME. NC1754.2 127100 IF WRK-NE-4 = "$*9.99" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 127200 ELSE NC1754.2 127300 PERFORM FAIL MOVE WRK-NE-4 TO COMPUTED-A MOVE "$*9.99" TO NC1754.2 127400 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 127500 ADD 1 TO REC-CT. NC1754.2 127600 SUB-TEST-F2-29-4. NC1754.2 127700 MOVE "SUB-TEST-F2-29-4" TO PAR-NAME. NC1754.2 127800 IF WRK-NE-6 = "$*9.99 " PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 127900 ELSE NC1754.2 128000 PERFORM FAIL MOVE WRK-NE-6 TO COMPUTED-A MOVE "$*9.99 " TO NC1754.2 128100 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 128200 ADD 1 TO REC-CT. NC1754.2 128300 SUB-TEST-F2-29-5. NC1754.2 128400 MOVE "SUB-TEST-F2-29-5" TO PAR-NAME. NC1754.2 128500 IF SIZE-ERR2 = SPACE NC1754.2 128600 PERFORM PASS NC1754.2 128700 PERFORM PRINT-DETAIL NC1754.2 128800 ELSE NC1754.2 128900 MOVE SPACE TO CORRECT-X NC1754.2 129000 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 129100 MOVE "ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 129200 TO RE-MARK NC1754.2 129300 PERFORM FAIL NC1754.2 129400 PERFORM PRINT-DETAIL. NC1754.2 129500* NC1754.2 129600 SUB-INIT-F2-30. NC1754.2 129700* ==--> MULTIPLE RESULT FIELDS <--== NC1754.2 129800* ==--> SIZE ERROR <--== NC1754.2 129900 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 130000 MOVE "SUB-TEST-F2-30" TO PAR-NAME. NC1754.2 130100 MOVE 10 TO WRK-DU-2V0-1. NC1754.2 130200 MOVE 22.33 TO WRK-DS-2V2-1. NC1754.2 130300 MOVE .3 TO WRK-DU-0V1-1. NC1754.2 130400 MOVE ZERO TO WRK-DS-2V2-2. NC1754.2 130500 MOVE ZERO TO WRK-DS-2V1-1. NC1754.2 130600 MOVE ZERO TO WRK-NE-4. NC1754.2 130700 MOVE ZERO TO WRK-NE-5 NC1754.2 130800 MOVE ZERO TO WRK-NE-6. NC1754.2 130900 MOVE ZERO TO REC-CT. NC1754.2 131000 MOVE SPACE TO SIZE-ERR2. NC1754.2 131100 SUB-TEST-F2-30-0. NC1754.2 131200 SUBTRACT A16TWOS-DS-16V00 NC1754.2 131300 2 WRK-DU-0V1-1 .04 NC1754.2 131400 FROM WRK-DS-2V2-1 NC1754.2 131500 GIVING WRK-DS-2V2-2 WRK-DS-2V1-1 ROUNDED WRK-NE-4 NC1754.2 131600 WRK-NE-5 WRK-NE-6 ROUNDED NC1754.2 131700 NOT ON SIZE ERROR NC1754.2 131800 MOVE "A" TO SIZE-ERR2. NC1754.2 131900 GO TO SUB-TEST-F2-30-1. NC1754.2 132000 SUB-DELETE-F2-30. NC1754.2 132100 PERFORM DE-LETE. NC1754.2 132200 PERFORM PRINT-DETAIL. NC1754.2 132300 GO TO SUB-INIT-F2-31. NC1754.2 132400 SUB-TEST-F2-30-1. NC1754.2 132500 MOVE "SUB-TEST-F2-30-1" TO PAR-NAME. NC1754.2 132600 MOVE 1 TO REC-CT. NC1754.2 132700 IF WRK-DS-2V2-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 132800 ELSE NC1754.2 132900 PERFORM FAIL MOVE WRK-DS-2V2-2 TO COMPUTED-N MOVE ZERO NC1754.2 133000 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 133100 ADD 1 TO REC-CT. NC1754.2 133200 SUB-TEST-F2-30-2. NC1754.2 133300 MOVE "SUB-TEST-F2-30-2" TO PAR-NAME. NC1754.2 133400 IF WRK-DS-2V1-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 133500 ELSE NC1754.2 133600 PERFORM FAIL MOVE WRK-DS-2V1-1 TO COMPUTED-N MOVE ZERO NC1754.2 133700 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 133800 ADD 1 TO REC-CT. NC1754.2 133900 SUB-TEST-F2-30-3. NC1754.2 134000 MOVE "SUB-TEST-F2-30-3" TO PAR-NAME. NC1754.2 134100 IF WRK-NE-4 = "$*0.00" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 134200 ELSE NC1754.2 134300 PERFORM FAIL MOVE WRK-NE-4 TO COMPUTED-A MOVE "$*0.00" to NC1754.2 134400 CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 134500 ADD 1 TO REC-CT. NC1754.2 134600 SUB-TEST-F2-30-4. NC1754.2 134700 MOVE "SUB-TEST-F2-30-4" TO PAR-NAME. NC1754.2 134800 IF WRK-NE-5 = "*.**" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 134900 ELSE NC1754.2 135000 PERFORM FAIL MOVE WRK-NE-5 TO COMPUTED-A MOVE "*.**" NC1754.2 135100 TO CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 135200 ADD 1 TO REC-CT. NC1754.2 135300 SUB-TEST-F2-30-5. NC1754.2 135400 MOVE "SUB-TEST-F2-30-5" TO PAR-NAME. NC1754.2 135500 IF WRK-NE-6 = "***.****" NC1754.2 135600 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 135700 ELSE NC1754.2 135800 PERFORM FAIL MOVE WRK-NE-6 TO COMPUTED-A MOVE "***.****" NC1754.2 135900 TO CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 136000 ADD 1 TO REC-CT. NC1754.2 136100 SUB-TEST-F2-30-6. NC1754.2 136200 MOVE "SUB-TEST-F2-30-6" TO PAR-NAME. NC1754.2 136300 IF SIZE-ERR2 = SPACE NC1754.2 136400 PERFORM PASS NC1754.2 136500 PERFORM PRINT-DETAIL NC1754.2 136600 ELSE NC1754.2 136700 MOVE SPACE TO CORRECT-X NC1754.2 136800 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 136900 MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 137000 TO RE-MARK NC1754.2 137100 PERFORM FAIL NC1754.2 137200 PERFORM PRINT-DETAIL. NC1754.2 137300* NC1754.2 137400 SUB-INIT-F2-31. NC1754.2 137500* ==--> MULTIPLE RESULT FIELDS <--== NC1754.2 137600* ==--> NO SIZE ERROR <--== NC1754.2 137700 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 137800 MOVE "SUB-TEST-F2-31" TO PAR-NAME. NC1754.2 137900 MOVE 10 TO WRK-DU-2V0-1. NC1754.2 138000 MOVE 22.33 TO WRK-DS-2V2-1. NC1754.2 138100 MOVE .3 TO WRK-DU-0V1-1. NC1754.2 138200 MOVE ZERO TO WRK-DS-2V2-2. NC1754.2 138300 MOVE ZERO TO WRK-DS-2V1-1. NC1754.2 138400 MOVE ZERO TO WRK-NE-4. NC1754.2 138500 MOVE ZERO TO WRK-NE-6. NC1754.2 138600 MOVE ZERO TO REC-CT. NC1754.2 138700 MOVE SPACE TO SIZE-ERR2. NC1754.2 138800 SUB-TEST-F2-31-0. NC1754.2 138900 SUBTRACT WRK-DU-2V0-1 2 WRK-DU-0V1-1 .04 FROM WRK-DS-2V2-1 NC1754.2 139000 GIVING WRK-DS-2V2-2 WRK-DS-2V1-1 ROUNDED WRK-NE-4 NC1754.2 139100 WRK-NE-6 ROUNDED NC1754.2 139200 NOT ON SIZE ERROR NC1754.2 139300 MOVE "A" TO SIZE-ERR2. NC1754.2 139400 GO TO SUB-TEST-F2-31-1. NC1754.2 139500 SUB-DELETE-F2-31. NC1754.2 139600 PERFORM DE-LETE. NC1754.2 139700 PERFORM PRINT-DETAIL. NC1754.2 139800 GO TO SUB-INIT-F2-32. NC1754.2 139900 SUB-TEST-F2-31-1. NC1754.2 140000 MOVE "SUB-TEST-F2-31-1" TO PAR-NAME. NC1754.2 140100 MOVE 1 TO REC-CT. NC1754.2 140200 IF WRK-DS-2V2-2 = 09.99 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 140300 ELSE NC1754.2 140400 PERFORM FAIL MOVE WRK-DS-2V2-2 TO COMPUTED-N MOVE 09.99 NC1754.2 140500 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 140600 ADD 1 TO REC-CT. NC1754.2 140700 SUB-TEST-F2-31-2. NC1754.2 140800 MOVE "SUB-TEST-F2-31-2" TO PAR-NAME. NC1754.2 140900 IF WRK-DS-2V1-1 = 10.0 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 141000 ELSE NC1754.2 141100 PERFORM FAIL MOVE WRK-DS-2V1-1 TO COMPUTED-N MOVE 10.0 NC1754.2 141200 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 141300 ADD 1 TO REC-CT. NC1754.2 141400 SUB-TEST-F2-31-3. NC1754.2 141500 MOVE "SUB-TEST-F2-31-3" TO PAR-NAME. NC1754.2 141600 IF WRK-NE-4 = "$*9.99" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 141700 ELSE NC1754.2 141800 PERFORM FAIL MOVE WRK-NE-4 TO COMPUTED-A MOVE "$*9.99" TO NC1754.2 141900 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 142000 ADD 1 TO REC-CT. NC1754.2 142100 SUB-TEST-F2-31-4. NC1754.2 142200 MOVE "SUB-TEST-F2-31-4" TO PAR-NAME. NC1754.2 142300 IF WRK-NE-6 = "$*9.99 " PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 142400 ELSE NC1754.2 142500 PERFORM FAIL MOVE WRK-NE-6 TO COMPUTED-A MOVE "$*9.99 " TO NC1754.2 142600 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 142700 ADD 1 TO REC-CT. NC1754.2 142800 SUB-TEST-F2-31-5. NC1754.2 142900 MOVE "SUB-TEST-F2-31-5" TO PAR-NAME. NC1754.2 143000 IF SIZE-ERR2 = "A" NC1754.2 143100 PERFORM PASS NC1754.2 143200 PERFORM PRINT-DETAIL NC1754.2 143300 ELSE NC1754.2 143400 MOVE "A" TO CORRECT-X NC1754.2 143500 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 143600 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 143700 TO RE-MARK NC1754.2 143800 PERFORM FAIL NC1754.2 143900 PERFORM PRINT-DETAIL. NC1754.2 144000* NC1754.2 144100 SUB-INIT-F2-32. NC1754.2 144200* ==--> MULTIPLE RESULT FIELDS <--== NC1754.2 144300* ==--> SIZE ERROR <--== NC1754.2 144400 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 144500 MOVE "SUB-TEST-F2-32" TO PAR-NAME. NC1754.2 144600 MOVE 10 TO WRK-DU-2V0-1. NC1754.2 144700 MOVE 22.33 TO WRK-DS-2V2-1. NC1754.2 144800 MOVE .3 TO WRK-DU-0V1-1. NC1754.2 144900 MOVE ZERO TO WRK-DS-2V2-2. NC1754.2 145000 MOVE ZERO TO WRK-DS-2V1-1. NC1754.2 145100 MOVE ZERO TO WRK-NE-4. NC1754.2 145200 MOVE ZERO TO WRK-NE-5 NC1754.2 145300 MOVE ZERO TO WRK-NE-6. NC1754.2 145400 MOVE ZERO TO REC-CT. NC1754.2 145500 MOVE SPACE TO SIZE-ERR2. NC1754.2 145600 SUB-TEST-F2-32-0. NC1754.2 145700 SUBTRACT A16TWOS-DS-16V00 NC1754.2 145800 2 WRK-DU-0V1-1 .04 NC1754.2 145900 FROM WRK-DS-2V2-1 NC1754.2 146000 GIVING WRK-DS-2V2-2 WRK-DS-2V1-1 ROUNDED WRK-NE-4 NC1754.2 146100 WRK-NE-5 WRK-NE-6 ROUNDED NC1754.2 146200 ON SIZE ERROR NC1754.2 146300 MOVE "A" TO SIZE-ERR2 NC1754.2 146400 NOT ON SIZE ERROR NC1754.2 146500 MOVE "B" TO SIZE-ERR2. NC1754.2 146600 GO TO SUB-TEST-F2-32-1. NC1754.2 146700 SUB-DELETE-F2-32. NC1754.2 146800 PERFORM DE-LETE. NC1754.2 146900 PERFORM PRINT-DETAIL. NC1754.2 147000 GO TO SUB-INIT-F2-33. NC1754.2 147100 SUB-TEST-F2-32-1. NC1754.2 147200 MOVE "SUB-TEST-F2-32-1" TO PAR-NAME. NC1754.2 147300 MOVE 1 TO REC-CT. NC1754.2 147400 IF WRK-DS-2V2-2 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 147500 ELSE NC1754.2 147600 PERFORM FAIL MOVE WRK-DS-2V2-2 TO COMPUTED-N MOVE ZERO NC1754.2 147700 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 147800 ADD 1 TO REC-CT. NC1754.2 147900 SUB-TEST-F2-32-2. NC1754.2 148000 MOVE "SUB-TEST-F2-32-2" TO PAR-NAME. NC1754.2 148100 IF WRK-DS-2V1-1 = ZERO PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 148200 ELSE NC1754.2 148300 PERFORM FAIL MOVE WRK-DS-2V1-1 TO COMPUTED-N MOVE ZERO NC1754.2 148400 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 148500 ADD 1 TO REC-CT. NC1754.2 148600 SUB-TEST-F2-32-3. NC1754.2 148700 MOVE "SUB-TEST-F2-32-3" TO PAR-NAME. NC1754.2 148800 IF WRK-NE-4 = "$*0.00" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 148900 ELSE NC1754.2 149000 PERFORM FAIL MOVE WRK-NE-4 TO COMPUTED-A MOVE "$*0.00" NC1754.2 149100 TO CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 149200 ADD 1 TO REC-CT. NC1754.2 149300 SUB-TEST-F2-32-4. NC1754.2 149400 MOVE "SUB-TEST-F2-32-4" TO PAR-NAME. NC1754.2 149500 IF WRK-NE-5 = "*.**" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 149600 ELSE NC1754.2 149700 PERFORM FAIL MOVE WRK-NE-5 TO COMPUTED-A MOVE "*.**" NC1754.2 149800 TO CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 149900 ADD 1 TO REC-CT. NC1754.2 150000 SUB-TEST-F2-32-5. NC1754.2 150100 MOVE "SUB-TEST-F2-32-5" TO PAR-NAME. NC1754.2 150200 IF WRK-NE-6 = "***.****" NC1754.2 150300 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 150400 ELSE NC1754.2 150500 PERFORM FAIL MOVE WRK-NE-6 TO COMPUTED-A MOVE "***.****" NC1754.2 150600 TO CORRECT-X PERFORM PRINT-DETAIL. NC1754.2 150700 ADD 1 TO REC-CT. NC1754.2 150800 SUB-TEST-F2-32-6. NC1754.2 150900 MOVE "SUB-TEST-F2-32-6" TO PAR-NAME. NC1754.2 151000 IF SIZE-ERR2 = "A" NC1754.2 151100 PERFORM PASS NC1754.2 151200 PERFORM PRINT-DETAIL NC1754.2 151300 ELSE NC1754.2 151400 MOVE "A" TO CORRECT-X NC1754.2 151500 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 151600 MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 151700 TO RE-MARK NC1754.2 151800 PERFORM FAIL NC1754.2 151900 PERFORM PRINT-DETAIL. NC1754.2 152000* NC1754.2 152100 SUB-INIT-F2-33. NC1754.2 152200* ==--> MULTIPLE RESULT FIELDS <--== NC1754.2 152300* ==--> NO SIZE ERROR <--== NC1754.2 152400 MOVE "VI-67 6.4.2" TO ANSI-REFERENCE. NC1754.2 152500 MOVE "SUB-TEST-F2-33" TO PAR-NAME. NC1754.2 152600 MOVE 10 TO WRK-DU-2V0-1. NC1754.2 152700 MOVE 22.33 TO WRK-DS-2V2-1. NC1754.2 152800 MOVE .3 TO WRK-DU-0V1-1. NC1754.2 152900 MOVE ZERO TO WRK-DS-2V2-2. NC1754.2 153000 MOVE ZERO TO WRK-DS-2V1-1. NC1754.2 153100 MOVE ZERO TO WRK-NE-4. NC1754.2 153200 MOVE ZERO TO WRK-NE-6. NC1754.2 153300 MOVE ZERO TO REC-CT. NC1754.2 153400 MOVE SPACE TO SIZE-ERR2. NC1754.2 153500 SUB-TEST-F2-33-0. NC1754.2 153600 SUBTRACT WRK-DU-2V0-1 2 WRK-DU-0V1-1 .04 FROM WRK-DS-2V2-1 NC1754.2 153700 GIVING WRK-DS-2V2-2 WRK-DS-2V1-1 ROUNDED WRK-NE-4 NC1754.2 153800 WRK-NE-6 ROUNDED NC1754.2 153900 ON SIZE ERROR NC1754.2 154000 MOVE "A" TO SIZE-ERR2 NC1754.2 154100 NOT ON SIZE ERROR NC1754.2 154200 MOVE "B" TO SIZE-ERR2. NC1754.2 154300 GO TO SUB-TEST-F2-33-1. NC1754.2 154400 SUB-DELETE-F2-33. NC1754.2 154500 PERFORM DE-LETE. NC1754.2 154600 PERFORM PRINT-DETAIL. NC1754.2 154700 GO TO SUB-INIT-F2-34. NC1754.2 154800 SUB-TEST-F2-33-1. NC1754.2 154900 MOVE "SUB-TEST-F2-33-1" TO PAR-NAME. NC1754.2 155000 MOVE 1 TO REC-CT. NC1754.2 155100 IF WRK-DS-2V2-2 = 09.99 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 155200 ELSE NC1754.2 155300 PERFORM FAIL MOVE WRK-DS-2V2-2 TO COMPUTED-N MOVE 09.99 NC1754.2 155400 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 155500 ADD 1 TO REC-CT. NC1754.2 155600 SUB-TEST-F2-33-2. NC1754.2 155700 MOVE "SUB-TEST-F2-33-2" TO PAR-NAME. NC1754.2 155800 IF WRK-DS-2V1-1 = 10.0 PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 155900 ELSE NC1754.2 156000 PERFORM FAIL MOVE WRK-DS-2V1-1 TO COMPUTED-N MOVE 10.0 NC1754.2 156100 TO CORRECT-N PERFORM PRINT-DETAIL. NC1754.2 156200 ADD 1 TO REC-CT. NC1754.2 156300 SUB-TEST-F2-33-3. NC1754.2 156400 MOVE "SUB-TEST-F2-33-3" TO PAR-NAME. NC1754.2 156500 IF WRK-NE-4 = "$*9.99" PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 156600 ELSE NC1754.2 156700 PERFORM FAIL MOVE WRK-NE-4 TO COMPUTED-A MOVE "$*9.99" TO NC1754.2 156800 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 156900 ADD 1 TO REC-CT. NC1754.2 157000 SUB-TEST-F2-33-4. NC1754.2 157100 MOVE "SUB-TEST-F2-33-4" TO PAR-NAME. NC1754.2 157200 IF WRK-NE-6 = "$*9.99 " PERFORM PASS PERFORM PRINT-DETAIL NC1754.2 157300 ELSE NC1754.2 157400 PERFORM FAIL MOVE WRK-NE-6 TO COMPUTED-A MOVE "$*9.99 " TO NC1754.2 157500 CORRECT-A PERFORM PRINT-DETAIL. NC1754.2 157600 ADD 1 TO REC-CT. NC1754.2 157700 SUB-TEST-F2-33-5. NC1754.2 157800 MOVE "SUB-TEST-F2-33-5" TO PAR-NAME. NC1754.2 157900 IF SIZE-ERR2 = "B" NC1754.2 158000 PERFORM PASS NC1754.2 158100 PERFORM PRINT-DETAIL NC1754.2 158200 ELSE NC1754.2 158300 MOVE "B" TO CORRECT-X NC1754.2 158400 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 158500 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 158600 TO RE-MARK NC1754.2 158700 PERFORM FAIL NC1754.2 158800 PERFORM PRINT-DETAIL. NC1754.2 158900* NC1754.2 159000 SUB-INIT-F2-34. NC1754.2 159100* ==--> EXPLICIT SCOPE TERMINATOR <--== NC1754.2 159200* ==--> SIZE ERROR <--== NC1754.2 159300 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1754.2 159400 MOVE ZERO TO WRK-DS-10V00. NC1754.2 159500 MOVE SPACE TO WRK-XN-00001. NC1754.2 159600 MOVE SPACE TO SIZE-ERR2. NC1754.2 159700 MOVE SPACE TO SIZE-ERR3. NC1754.2 159800 MOVE SPACE TO SIZE-ERR4. NC1754.2 159900 MOVE 1 TO REC-CT. NC1754.2 160000 SUB-TEST-F2-34-0. NC1754.2 160100 SUBTRACT A12ONES-DS-12V00 NC1754.2 160200 FROM ZERO GIVING WRK-DS-10V00 NC1754.2 160300 ON SIZE ERROR NC1754.2 160400 MOVE "1" TO WRK-XN-00001 NC1754.2 160500 MOVE "A" TO SIZE-ERR2 NC1754.2 160600 MOVE "B" TO SIZE-ERR3 NC1754.2 160700 END-SUBTRACT NC1754.2 160800 MOVE "C" TO SIZE-ERR4. NC1754.2 160900 GO TO SUB-TEST-F2-34-1. NC1754.2 161000 SUB-DELETE-F2-34. NC1754.2 161100 PERFORM DE-LETE. NC1754.2 161200 PERFORM PRINT-DETAIL. NC1754.2 161300 GO TO SUB-INIT-F2-35. NC1754.2 161400 SUB-TEST-F2-34-1. NC1754.2 161500 MOVE "SUB-TEST-F2-34-1" TO PAR-NAME. NC1754.2 161600 IF WRK-XN-00001 = "1" NC1754.2 161700 PERFORM PASS NC1754.2 161800 PERFORM PRINT-DETAIL NC1754.2 161900 ELSE NC1754.2 162000 MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 162100 TO RE-MARK NC1754.2 162200 MOVE "1" TO CORRECT-X NC1754.2 162300 MOVE WRK-XN-00001 TO COMPUTED-X NC1754.2 162400 PERFORM FAIL NC1754.2 162500 PERFORM PRINT-DETAIL. NC1754.2 162600 ADD 1 TO REC-CT. NC1754.2 162700 SUB-TEST-F2-34-2. NC1754.2 162800 MOVE "SUB-TEST-F2-34-2" TO PAR-NAME. NC1754.2 162900 IF SIZE-ERR2 = "A" NC1754.2 163000 PERFORM PASS NC1754.2 163100 PERFORM PRINT-DETAIL NC1754.2 163200 ELSE NC1754.2 163300 MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 163400 TO RE-MARK NC1754.2 163500 MOVE "A" TO CORRECT-X NC1754.2 163600 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 163700 PERFORM FAIL NC1754.2 163800 PERFORM PRINT-DETAIL. NC1754.2 163900 ADD 1 TO REC-CT. NC1754.2 164000 SUB-TEST-F2-34-3. NC1754.2 164100 MOVE "SUB-TEST-F2-34-3" TO PAR-NAME. NC1754.2 164200 IF SIZE-ERR3 = "B" NC1754.2 164300 PERFORM PASS NC1754.2 164400 PERFORM PRINT-DETAIL NC1754.2 164500 ELSE NC1754.2 164600 MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 164700 TO RE-MARK NC1754.2 164800 MOVE "B" TO CORRECT-X NC1754.2 164900 MOVE SIZE-ERR3 TO COMPUTED-X NC1754.2 165000 PERFORM FAIL NC1754.2 165100 PERFORM PRINT-DETAIL. NC1754.2 165200 ADD 1 TO REC-CT. NC1754.2 165300 SUB-TEST-F2-34-4. NC1754.2 165400 MOVE "SUB-TEST-F2-34-4" TO PAR-NAME. NC1754.2 165500 IF SIZE-ERR4 = "C" NC1754.2 165600 PERFORM PASS NC1754.2 165700 PERFORM PRINT-DETAIL NC1754.2 165800 ELSE NC1754.2 165900 MOVE "SCOPE TERMINATOR IGNORED" NC1754.2 166000 TO RE-MARK NC1754.2 166100 MOVE "C" TO CORRECT-X NC1754.2 166200 MOVE SIZE-ERR4 TO COMPUTED-X NC1754.2 166300 PERFORM FAIL NC1754.2 166400 PERFORM PRINT-DETAIL NC1754.2 166500 ADD 1 TO REC-CT. NC1754.2 166600 SUB-TEST-F2-34-5. NC1754.2 166700 MOVE "SUB-TEST-F2-34-5" TO PAR-NAME. NC1754.2 166800 IF WRK-DS-10V00 = ZERO NC1754.2 166900 PERFORM PASS NC1754.2 167000 PERFORM PRINT-DETAIL NC1754.2 167100 ELSE NC1754.2 167200 MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1754.2 167300 TO RE-MARK NC1754.2 167400 MOVE ZERO TO CORRECT-N NC1754.2 167500 MOVE WRK-DS-10V00 TO COMPUTED-N NC1754.2 167600 PERFORM FAIL NC1754.2 167700 PERFORM PRINT-DETAIL. NC1754.2 167800* NC1754.2 167900 SUB-INIT-F2-35. NC1754.2 168000* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1754.2 168100 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1754.2 168200 MOVE "SUB-TEST-F2-35" TO PAR-NAME. NC1754.2 168300 MOVE SPACE TO WRK-XN-00001. NC1754.2 168400 MOVE SPACE TO SIZE-ERR2. NC1754.2 168500 MOVE SPACE TO SIZE-ERR3. NC1754.2 168600 MOVE SPACE TO SIZE-ERR4. NC1754.2 168700 MOVE ZERO TO WRK-DS-06V06. NC1754.2 168800 MOVE 1 TO REC-CT. NC1754.2 168900 SUB-TEST-F2-35-0. NC1754.2 169000 SUBTRACT A12THREES-DS-06V06 NC1754.2 169100 333333 NC1754.2 169200 A06THREES-DS-03V03 NC1754.2 169300 -.0000009 FROM 0000000 NC1754.2 169400 GIVING WRK-DS-06V06 ROUNDED NC1754.2 169500 ON SIZE ERROR NC1754.2 169600 MOVE "1" TO WRK-XN-00001 NC1754.2 169700 MOVE "A" TO SIZE-ERR2 NC1754.2 169800 MOVE "B" TO SIZE-ERR3 NC1754.2 169900 END-SUBTRACT NC1754.2 170000 MOVE "C" TO SIZE-ERR4. NC1754.2 170100 GO TO SUB-TEST-F2-35-1. NC1754.2 170200 SUB-DELETE-F2-35. NC1754.2 170300 PERFORM DE-LETE. NC1754.2 170400 PERFORM PRINT-DETAIL. NC1754.2 170500 GO TO SUB-INIT-F2-36. NC1754.2 170600 SUB-TEST-F2-35-1. NC1754.2 170700 MOVE "SUB-TEST-F2-35-1" TO PAR-NAME. NC1754.2 170800 IF WRK-XN-00001 = SPACE NC1754.2 170900 PERFORM PASS NC1754.2 171000 PERFORM PRINT-DETAIL NC1754.2 171100 ELSE NC1754.2 171200 MOVE "ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 171300 TO RE-MARK NC1754.2 171400 MOVE SPACE TO CORRECT-X NC1754.2 171500 MOVE WRK-XN-00001 TO COMPUTED-X NC1754.2 171600 PERFORM FAIL NC1754.2 171700 PERFORM PRINT-DETAIL. NC1754.2 171800 ADD 1 TO REC-CT. NC1754.2 171900 SUB-TEST-F2-35-2. NC1754.2 172000 MOVE "SUB-TEST-F2-35-2" TO PAR-NAME. NC1754.2 172100 IF SIZE-ERR2 = SPACE NC1754.2 172200 PERFORM PASS NC1754.2 172300 PERFORM PRINT-DETAIL NC1754.2 172400 ELSE NC1754.2 172500 MOVE "ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 172600 TO RE-MARK NC1754.2 172700 MOVE SPACE TO CORRECT-X NC1754.2 172800 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 172900 PERFORM FAIL NC1754.2 173000 PERFORM PRINT-DETAIL. NC1754.2 173100 ADD 1 TO REC-CT. NC1754.2 173200 SUB-TEST-F2-35-3. NC1754.2 173300 MOVE "SUB-TEST-F2-35-3" TO PAR-NAME. NC1754.2 173400 IF SIZE-ERR3 = SPACE NC1754.2 173500 PERFORM PASS NC1754.2 173600 PERFORM PRINT-DETAIL NC1754.2 173700 ELSE NC1754.2 173800 MOVE "ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 173900 TO RE-MARK NC1754.2 174000 MOVE SPACE TO CORRECT-X NC1754.2 174100 MOVE SIZE-ERR3 TO COMPUTED-X NC1754.2 174200 PERFORM FAIL NC1754.2 174300 PERFORM PRINT-DETAIL. NC1754.2 174400 ADD 1 TO REC-CT. NC1754.2 174500 SUB-TEST-F2-35-4. NC1754.2 174600 MOVE "SUB-TEST-F2-35-4" TO PAR-NAME. NC1754.2 174700 IF SIZE-ERR4 = "C" NC1754.2 174800 PERFORM PASS NC1754.2 174900 PERFORM PRINT-DETAIL NC1754.2 175000 ELSE NC1754.2 175100 MOVE "SCOPE TERMINATOR IGNORED" NC1754.2 175200 TO RE-MARK NC1754.2 175300 MOVE "C" TO CORRECT-X NC1754.2 175400 MOVE SIZE-ERR4 TO COMPUTED-X NC1754.2 175500 PERFORM FAIL NC1754.2 175600 PERFORM PRINT-DETAIL. NC1754.2 175700 ADD 1 TO REC-CT. NC1754.2 175800 SUB-TEST-F2-35-5. NC1754.2 175900 MOVE "SUB-TEST-F1-35-5" TO PAR-NAME. NC1754.2 176000 IF WRK-DS-06V06 = -666999.666332 NC1754.2 176100 PERFORM PASS NC1754.2 176200 PERFORM PRINT-DETAIL NC1754.2 176300 ELSE NC1754.2 176400 MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1754.2 176500 TO RE-MARK NC1754.2 176600 MOVE -666999.666332 TO CORRECT-N NC1754.2 176700 MOVE WRK-DS-06V06 TO COMPUTED-N NC1754.2 176800 PERFORM FAIL NC1754.2 176900 PERFORM PRINT-DETAIL. NC1754.2 177000* NC1754.2 177100 SUB-INIT-F2-36. NC1754.2 177200* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1754.2 177300 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1754.2 177400 MOVE "SUB-TEST-F2-36" TO PAR-NAME. NC1754.2 177500 MOVE SPACE TO WRK-XN-00001. NC1754.2 177600 MOVE SPACE TO SIZE-ERR2. NC1754.2 177700 MOVE SPACE TO SIZE-ERR3. NC1754.2 177800 MOVE SPACE TO SIZE-ERR4. NC1754.2 177900 MOVE ZERO TO WRK-DS-10V00. NC1754.2 178000 MOVE 1 TO REC-CT. NC1754.2 178100 SUB-TEST-F2-36-0. NC1754.2 178200 SUBTRACT A12ONES-DS-12V00 NC1754.2 178300 FROM ZERO GIVING WRK-DS-10V00 NC1754.2 178400 NOT ON SIZE ERROR NC1754.2 178500 MOVE "1" TO WRK-XN-00001 NC1754.2 178600 MOVE "A" TO SIZE-ERR2 NC1754.2 178700 MOVE "B" TO SIZE-ERR3 NC1754.2 178800 END-SUBTRACT NC1754.2 178900 MOVE "C" TO SIZE-ERR4. NC1754.2 179000 GO TO SUB-TEST-F2-36-1. NC1754.2 179100 SUB-DELETE-F2-36. NC1754.2 179200 PERFORM DE-LETE. NC1754.2 179300 PERFORM PRINT-DETAIL. NC1754.2 179400 GO TO SUB-INIT-F2-37. NC1754.2 179500 SUB-TEST-F2-36-1. NC1754.2 179600 MOVE "SUB-TEST-F2-36-1" TO PAR-NAME. NC1754.2 179700 IF WRK-XN-00001 = SPACE NC1754.2 179800 PERFORM PASS NC1754.2 179900 PERFORM PRINT-DETAIL NC1754.2 180000 ELSE NC1754.2 180100 MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 180200 TO RE-MARK NC1754.2 180300 MOVE SPACE TO CORRECT-X NC1754.2 180400 MOVE WRK-XN-00001 TO COMPUTED-X NC1754.2 180500 PERFORM FAIL NC1754.2 180600 PERFORM PRINT-DETAIL. NC1754.2 180700 ADD 1 TO REC-CT. NC1754.2 180800 SUB-TEST-F2-36-2. NC1754.2 180900 MOVE "SUB-TEST-F2-36-2" TO PAR-NAME. NC1754.2 181000 IF SIZE-ERR2 = SPACE NC1754.2 181100 PERFORM PASS NC1754.2 181200 PERFORM PRINT-DETAIL NC1754.2 181300 ELSE NC1754.2 181400 MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 181500 TO RE-MARK NC1754.2 181600 MOVE SPACE TO CORRECT-X NC1754.2 181700 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 181800 PERFORM FAIL NC1754.2 181900 PERFORM PRINT-DETAIL. NC1754.2 182000 ADD 1 TO REC-CT. NC1754.2 182100 SUB-TEST-F2-36-3. NC1754.2 182200 MOVE "SUB-TEST-F2-36-3" TO PAR-NAME. NC1754.2 182300 IF SIZE-ERR3 = SPACE NC1754.2 182400 PERFORM PASS NC1754.2 182500 PERFORM PRINT-DETAIL NC1754.2 182600 ELSE NC1754.2 182700 MOVE "NOT ON SIZE ERROR SHOULD NOT BE EXECUTED" NC1754.2 182800 TO RE-MARK NC1754.2 182900 MOVE SPACE TO CORRECT-X NC1754.2 183000 MOVE SIZE-ERR3 TO COMPUTED-X NC1754.2 183100 PERFORM FAIL NC1754.2 183200 PERFORM PRINT-DETAIL. NC1754.2 183300 ADD 1 TO REC-CT. NC1754.2 183400 SUB-TEST-F2-36-4. NC1754.2 183500 MOVE "SUB-TEST-F2-36-4" TO PAR-NAME. NC1754.2 183600 IF SIZE-ERR4 = "C" NC1754.2 183700 PERFORM PASS NC1754.2 183800 PERFORM PRINT-DETAIL NC1754.2 183900 ELSE NC1754.2 184000 MOVE "SCOPE TERMINATOR IGNORED" NC1754.2 184100 TO RE-MARK NC1754.2 184200 MOVE "C" TO CORRECT-X NC1754.2 184300 MOVE SIZE-ERR4 TO COMPUTED-X NC1754.2 184400 PERFORM FAIL NC1754.2 184500 PERFORM PRINT-DETAIL NC1754.2 184600 ADD 1 TO REC-CT. NC1754.2 184700 SUB-TEST-F2-36-5. NC1754.2 184800 MOVE "SUB-TEST-F2-36-5" TO PAR-NAME. NC1754.2 184900 IF WRK-DS-10V00 = ZERO NC1754.2 185000 PERFORM PASS NC1754.2 185100 PERFORM PRINT-DETAIL NC1754.2 185200 ELSE NC1754.2 185300 MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1754.2 185400 TO RE-MARK NC1754.2 185500 MOVE ZERO TO CORRECT-N NC1754.2 185600 MOVE WRK-DS-10V00 TO COMPUTED-N NC1754.2 185700 PERFORM FAIL NC1754.2 185800 PERFORM PRINT-DETAIL. NC1754.2 185900* NC1754.2 186000 SUB-INIT-F2-37. NC1754.2 186100* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1754.2 186200 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1754.2 186300 MOVE "SUB-TEST-F2-37" TO PAR-NAME. NC1754.2 186400 MOVE SPACE TO WRK-XN-00001. NC1754.2 186500 MOVE SPACE TO SIZE-ERR2. NC1754.2 186600 MOVE SPACE TO SIZE-ERR3. NC1754.2 186700 MOVE SPACE TO SIZE-ERR4. NC1754.2 186800 MOVE ZERO TO WRK-DS-06V06. NC1754.2 186900 MOVE 1 TO REC-CT. NC1754.2 187000 SUB-TEST-F2-37-0. NC1754.2 187100 SUBTRACT A12THREES-DS-06V06 NC1754.2 187200 333333 NC1754.2 187300 A06THREES-DS-03V03 NC1754.2 187400 -.0000009 FROM 0000000 NC1754.2 187500 GIVING WRK-DS-06V06 ROUNDED NC1754.2 187600 NOT ON SIZE ERROR NC1754.2 187700 MOVE "1" TO WRK-XN-00001 NC1754.2 187800 MOVE "A" TO SIZE-ERR2 NC1754.2 187900 MOVE "B" TO SIZE-ERR3 NC1754.2 188000 END-SUBTRACT NC1754.2 188100 MOVE "C" TO SIZE-ERR4. NC1754.2 188200 GO TO SUB-TEST-F2-37-1. NC1754.2 188300 SUB-DELETE-F2-37. NC1754.2 188400 PERFORM DE-LETE. NC1754.2 188500 PERFORM PRINT-DETAIL. NC1754.2 188600 GO TO SUB-INIT-F2-38. NC1754.2 188700 SUB-TEST-F2-37-1. NC1754.2 188800 MOVE "SUB-TEST-F2-37-1" TO PAR-NAME. NC1754.2 188900 IF WRK-XN-00001 = "1" NC1754.2 189000 PERFORM PASS NC1754.2 189100 PERFORM PRINT-DETAIL NC1754.2 189200 ELSE NC1754.2 189300 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 189400 TO RE-MARK NC1754.2 189500 MOVE "1" TO CORRECT-X NC1754.2 189600 MOVE WRK-XN-00001 TO COMPUTED-X NC1754.2 189700 PERFORM FAIL NC1754.2 189800 PERFORM PRINT-DETAIL. NC1754.2 189900 ADD 1 TO REC-CT. NC1754.2 190000 SUB-TEST-F2-37-2. NC1754.2 190100 MOVE "SUB-TEST-F2-37-2" TO PAR-NAME. NC1754.2 190200 IF SIZE-ERR2 = "A" NC1754.2 190300 PERFORM PASS NC1754.2 190400 PERFORM PRINT-DETAIL NC1754.2 190500 ELSE NC1754.2 190600 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 190700 TO RE-MARK NC1754.2 190800 MOVE "A" TO CORRECT-X NC1754.2 190900 MOVE SIZE-ERR2 TO COMPUTED-X NC1754.2 191000 PERFORM FAIL NC1754.2 191100 PERFORM PRINT-DETAIL. NC1754.2 191200 ADD 1 TO REC-CT. NC1754.2 191300 SUB-TEST-F2-37-3. NC1754.2 191400 MOVE "SUB-TEST-F2-37-3" TO PAR-NAME. NC1754.2 191500 IF SIZE-ERR3 = "B" NC1754.2 191600 PERFORM PASS NC1754.2 191700 PERFORM PRINT-DETAIL NC1754.2 191800 ELSE NC1754.2 191900 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 192000 TO RE-MARK NC1754.2 192100 MOVE "B" TO CORRECT-X NC1754.2 192200 MOVE SIZE-ERR3 TO COMPUTED-X NC1754.2 192300 PERFORM FAIL NC1754.2 192400 PERFORM PRINT-DETAIL. NC1754.2 192500 ADD 1 TO REC-CT. NC1754.2 192600 SUB-TEST-F2-37-4. NC1754.2 192700 MOVE "SUB-TEST-F2-37-4" TO PAR-NAME. NC1754.2 192800 IF SIZE-ERR4 = "C" NC1754.2 192900 PERFORM PASS NC1754.2 193000 PERFORM PRINT-DETAIL NC1754.2 193100 ELSE NC1754.2 193200 MOVE "SCOPE TERMINATOR IGNORED" NC1754.2 193300 TO RE-MARK NC1754.2 193400 MOVE "C" TO CORRECT-X NC1754.2 193500 MOVE SIZE-ERR4 TO COMPUTED-X NC1754.2 193600 PERFORM FAIL NC1754.2 193700 PERFORM PRINT-DETAIL. NC1754.2 193800 ADD 1 TO REC-CT. NC1754.2 193900 SUB-TEST-F2-37-5. NC1754.2 194000 MOVE "SUB-TEST-F2-37-5" TO PAR-NAME. NC1754.2 194100 IF WRK-DS-06V06 = -666999.666332 NC1754.2 194200 PERFORM PASS NC1754.2 194300 PERFORM PRINT-DETAIL NC1754.2 194400 ELSE NC1754.2 194500 MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1754.2 194600 TO RE-MARK NC1754.2 194700 MOVE -666999.666332 TO CORRECT-N NC1754.2 194800 MOVE WRK-DS-06V06 TO COMPUTED-N NC1754.2 194900 PERFORM FAIL NC1754.2 195000 PERFORM PRINT-DETAIL. NC1754.2 195100* NC1754.2 195200 SUB-INIT-F2-38. NC1754.2 195300* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1754.2 195400 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1754.2 195500 MOVE "SUB-TEST-F2-38" TO PAR-NAME. NC1754.2 195600 MOVE "0" TO WRK-XN-00001. NC1754.2 195700 MOVE "0" TO SIZE-ERR4. NC1754.2 195800 MOVE ZERO TO WRK-DS-10V00. NC1754.2 195900 MOVE 1 TO REC-CT. NC1754.2 196000 SUB-TEST-F2-38-0. NC1754.2 196100 SUBTRACT A12ONES-DS-12V00 NC1754.2 196200 FROM ZERO GIVING WRK-DS-10V00 NC1754.2 196300 ON SIZE ERROR NC1754.2 196400 MOVE SPACE TO WRK-XN-00001 NC1754.2 196500 NOT ON SIZE ERROR NC1754.2 196600 MOVE "1" TO WRK-XN-00001 NC1754.2 196700 END-SUBTRACT NC1754.2 196800 MOVE "C" TO SIZE-ERR4. NC1754.2 196900 GO TO SUB-TEST-F2-38-1. NC1754.2 197000 SUB-DELETE-F2-38. NC1754.2 197100 PERFORM DE-LETE. NC1754.2 197200 PERFORM PRINT-DETAIL. NC1754.2 197300 GO TO SUB-INIT-F2-39. NC1754.2 197400 SUB-TEST-F2-38-1. NC1754.2 197500 MOVE "SUB-TEST-F2-38-1" TO PAR-NAME. NC1754.2 197600 IF WRK-XN-00001 = SPACE NC1754.2 197700 PERFORM PASS NC1754.2 197800 PERFORM PRINT-DETAIL NC1754.2 197900 ELSE NC1754.2 198000 MOVE "ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 198100 TO RE-MARK NC1754.2 198200 MOVE SPACE TO CORRECT-X NC1754.2 198300 MOVE WRK-XN-00001 TO COMPUTED-X NC1754.2 198400 PERFORM FAIL NC1754.2 198500 PERFORM PRINT-DETAIL. NC1754.2 198600 ADD 1 TO REC-CT. NC1754.2 198700 SUB-TEST-F2-38-2. NC1754.2 198800 MOVE "SUB-TEST-F2-38-2" TO PAR-NAME. NC1754.2 198900 IF SIZE-ERR4 = "C" NC1754.2 199000 PERFORM PASS NC1754.2 199100 PERFORM PRINT-DETAIL NC1754.2 199200 ELSE NC1754.2 199300 MOVE "SCOPE TERMINATOR IGNORED" NC1754.2 199400 TO RE-MARK NC1754.2 199500 MOVE "C" TO CORRECT-X NC1754.2 199600 MOVE SIZE-ERR4 TO COMPUTED-X NC1754.2 199700 PERFORM FAIL NC1754.2 199800 PERFORM PRINT-DETAIL. NC1754.2 199900 ADD 1 TO REC-CT. NC1754.2 200000 SUB-TEST-F2-38-3. NC1754.2 200100 MOVE "SUB-TEST-F2-38-3" TO PAR-NAME. NC1754.2 200200 IF WRK-DS-10V00 = ZERO NC1754.2 200300 PERFORM PASS NC1754.2 200400 PERFORM PRINT-DETAIL NC1754.2 200500 ELSE NC1754.2 200600 MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1754.2 200700 TO RE-MARK NC1754.2 200800 MOVE ZERO TO CORRECT-N NC1754.2 200900 MOVE WRK-DS-02V00 TO COMPUTED-N NC1754.2 201000 PERFORM FAIL NC1754.2 201100 PERFORM PRINT-DETAIL. NC1754.2 201200* NC1754.2 201300 SUB-INIT-F2-39. NC1754.2 201400* ==--> EXPLICIT SCOPE TERMINATOR<--== NC1754.2 201500 MOVE "IV-41 6.4.3" TO ANSI-REFERENCE. NC1754.2 201600 MOVE "SUB-TEST-F2-39" TO PAR-NAME. NC1754.2 201700 MOVE SPACE TO WRK-XN-00001. NC1754.2 201800 MOVE SPACE TO SIZE-ERR4. NC1754.2 201900 MOVE ZERO TO WRK-DS-06V06. NC1754.2 202000 MOVE 1 TO REC-CT. NC1754.2 202100 SUB-TEST-F2-39-0. NC1754.2 202200 SUBTRACT A12THREES-DS-06V06 NC1754.2 202300 333333 NC1754.2 202400 A06THREES-DS-03V03 NC1754.2 202500 -.0000009 FROM 0000000 NC1754.2 202600 GIVING WRK-DS-06V06 ROUNDED NC1754.2 202700 ON SIZE ERROR NC1754.2 202800 MOVE "X" TO WRK-XN-00001 NC1754.2 202900 NOT ON SIZE ERROR NC1754.2 203000 MOVE "1" TO WRK-XN-00001 NC1754.2 203100 END-SUBTRACT NC1754.2 203200 MOVE "C" TO SIZE-ERR4. NC1754.2 203300 GO TO SUB-TEST-F2-39-1. NC1754.2 203400 SUB-DELETE-F2-39. NC1754.2 203500 PERFORM DE-LETE. NC1754.2 203600 PERFORM PRINT-DETAIL. NC1754.2 203700 GO TO CCVS-EXIT. NC1754.2 203800 SUB-TEST-F2-39-1. NC1754.2 203900 MOVE "SUB-TEST-F2-39-1" TO PAR-NAME. NC1754.2 204000 IF WRK-XN-00001 = "1" NC1754.2 204100 PERFORM PASS NC1754.2 204200 PERFORM PRINT-DETAIL NC1754.2 204300 ELSE NC1754.2 204400 MOVE "NOT ON SIZE ERROR SHOULD BE EXECUTED" NC1754.2 204500 TO RE-MARK NC1754.2 204600 MOVE "1" TO CORRECT-X NC1754.2 204700 MOVE WRK-XN-00001 TO COMPUTED-X NC1754.2 204800 PERFORM FAIL NC1754.2 204900 PERFORM PRINT-DETAIL. NC1754.2 205000 ADD 1 TO REC-CT. NC1754.2 205100 SUB-TEST-F2-39-2. NC1754.2 205200 MOVE "SUB-TEST-F2-39-2" TO PAR-NAME. NC1754.2 205300 IF SIZE-ERR4 = "C" NC1754.2 205400 PERFORM PASS NC1754.2 205500 PERFORM PRINT-DETAIL NC1754.2 205600 ELSE NC1754.2 205700 MOVE "SCOPE TERMINATOR IGNORED" NC1754.2 205800 TO RE-MARK NC1754.2 205900 MOVE "C" TO CORRECT-X NC1754.2 206000 MOVE SIZE-ERR4 TO COMPUTED-X NC1754.2 206100 PERFORM FAIL NC1754.2 206200 PERFORM PRINT-DETAIL. NC1754.2 206300 ADD 1 TO REC-CT. NC1754.2 206400 SUB-TEST-F2-39-3. NC1754.2 206500 MOVE "SUB-TEST-F2-39-3" TO PAR-NAME. NC1754.2 206600 IF WRK-DS-06V06 = -666999.666332 NC1754.2 206700 PERFORM PASS NC1754.2 206800 PERFORM PRINT-DETAIL NC1754.2 206900 ELSE NC1754.2 207000 MOVE "WRONGLY AFFECTED BY SIZE ERROR" NC1754.2 207100 TO RE-MARK NC1754.2 207200 MOVE -666999.666332 TO CORRECT-N NC1754.2 207300 MOVE WRK-DS-06V06 TO COMPUTED-N NC1754.2 207400 PERFORM FAIL NC1754.2 207500 PERFORM PRINT-DETAIL. NC1754.2 207600* NC1754.2 207700 CCVS-EXIT SECTION. NC1754.2 207800 CCVS-999999. NC1754.2 207900 GO TO CLOSE-FILES. NC1754.2
¤ Dauer der Verarbeitung: 0.72 Sekunden (vorverarbeitet am 2026-05-06) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-05-26