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