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