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