| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/ Datei vom 4.1.2008 mit Größe 113 kB |
|
Quelle nc251a.cobSprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. NC2514.2 000200 PROGRAM-ID. NC2514.2 000300 NC251A. NC2514.2 000400**************************************************************** NC2514.2 000500* * NC2514.2 000600* VALIDATION FOR:- * NC2514.2 000700* * NC2514.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2514.2 000900* * NC2514.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2514.2 001100* * NC2514.2 001200**************************************************************** NC2514.2 001300* * NC2514.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2514.2 001500* * NC2514.2 001600* X-55 - SYSTEM PRINTER NAME. * NC2514.2 001700* X-82 - SOURCE COMPUTER NAME. * NC2514.2 001800* X-83 - OBJECT COMPUTER NAME. * NC2514.2 001900* * NC2514.2 002000**************************************************************** NC2514.2 002100* * NC2514.2 002200* THIS PROGRAM TESTS FORMAT 5 OF THE DIVIDE STATEMENT. * NC2514.2 002300* * NC2514.2 002400**************************************************************** NC2514.2 002500 ENVIRONMENT DIVISION. NC2514.2 002600 CONFIGURATION SECTION. NC2514.2 002700 SOURCE-COMPUTER. NC2514.2 002800 Card0130. NC2514.2 002900 OBJECT-COMPUTER. NC2514.2 003000 Card0131. NC2514.2 003100 INPUT-OUTPUT SECTION. NC2514.2 003200 FILE-CONTROL. NC2514.2 003300 SELECT PRINT-FILE ASSIGN TO NC2514.2 003400 "C0085" . NC2514.2 003500 DATA DIVISION. NC2514.2 003600 FILE SECTION. NC2514.2 003700 FD PRINT-FILE. NC2514.2 003800 01 PRINT-REC PICTURE X(120). NC2514.2 003900 01 DUMMY-RECORD PICTURE X(120). NC2514.2 004000 WORKING-STORAGE SECTION. NC2514.2 004100 01 WRK-DU-1V17-1 PIC 9V9(17) VALUE 3.14159265358979323. NC2514.2 004200 01 WRK-DU-1V5-1 PIC 9V9(5). NC2514.2 004300 01 WRK-NE-1 PIC .9999/99999,99999,99. NC2514.2 004400 01 WS-REMAINDERS. NC2514.2 004500 03 WS-REM PIC 99 OCCURS 20. NC2514.2 004600 01 WRK-XN-00001-1 PIC X. NC2514.2 004700 01 WRK-XN-00001-2 PIC X. NC2514.2 004800 01 WS-46. NC2514.2 004900 03 WS-1-20 PIC X(20). NC2514.2 005000 03 WS-21-40 PIC X(20). NC2514.2 005100 03 WS-41-46 PIC X(6). NC2514.2 005200 77 11A PICTURE 9999 VALUE 9. NC2514.2 005300 77 11B PICTURE 99; VALUE 8. NC2514.2 005400 77 1111C PICTURE 99 VALUE 9. NC2514.2 005500 77 WRK-DS-02V00 PICTURE S99. NC2514.2 005600 88 TEST-2NUC-COND-99 VALUE 99. NC2514.2 005700 77 A99-DS-02V00 PICTURE S99 VALUE 99. NC2514.2 005800 77 WRK-DS-18V00 PICTURE S9(18). NC2514.2 005900 77 WRK-DU-2V1-1 PICTURE S99V9. NC2514.2 006000 77 A18ONES-DS-18V00 PICTURE S9(18) NC2514.2 006100 VALUE 111111111111111111. NC2514.2 006200 77 A18TWOS-DS-18V00 PICTURE S9(18) NC2514.2 006300 VALUE 222222222222222222. NC2514.2 006400 77 WRK-DS-05V00 PICTURE S9(5). NC2514.2 006500 77 A02TWOS-DU-02V00 PICTURE 99 VALUE 22. NC2514.2 006600 77 A02TWOS-DS-03V02 PICTURE S999V99 VALUE +022.00. NC2514.2 006700 77 ATWO-DS-01V00 PICTURE S9 VALUE 2. NC2514.2 006800 77 AZERO-DS-05V05 PICTURE S9(5)V9(5) VALUE ZERO. NC2514.2 006900 77 WRK-DS-06V06 PICTURE S9(6)V9(6). NC2514.2 007000 77 WRK-DS-0201P PICTURE S99P. NC2514.2 007100 77 A05ONES-DS-05V00 PICTURE S9(5) VALUE 11111. NC2514.2 007200 77 WRK-DS-09V00 PICTURE S9(9). NC2514.2 007300 77 WRK-DS-09V09 PICTURE S9(9)V9(9). NC2514.2 007400 77 WRK-DS-18V00-S REDEFINES WRK-DS-09V09 NC2514.2 007500 PICTURE S9(18). NC2514.2 007600 77 XRAY PICTURE IS X. NC2514.2 007700 77 W-1 PICTURE IS 9. NC2514.2 007800 77 W-2 PICTURE IS 99. NC2514.2 007900 77 W-3 PICTURE IS 999. NC2514.2 008000 77 W-5 PICTURE 99 VALUE ZERO. NC2514.2 008100 77 W-9 PICTURE 999. NC2514.2 008200 77 W-11 PICTURE S99V9. NC2514.2 008300 77 D-1 PICTURE S9V99 VALUE 1.06. NC2514.2 008400 77 D-7 PICTURE S99V99 VALUE 1.09. NC2514.2 008500 77 ONE PICTURE IS 9 VALUE IS 1. NC2514.2 008600 77 TWO PICTURE IS S9 VALUE IS 2. NC2514.2 008700 77 THREE PICTURE IS S9 VALUE IS 3. NC2514.2 008800 77 FOUR PICTURE IS S9 VALUE IS 4. NC2514.2 008900 77 FIVE PICTURE IS S9 VALUE IS 5. NC2514.2 009000 77 SIX PICTURE IS S9 VALUE IS 6. NC2514.2 009100 77 SEVEN PICTURE IS S9 VALUE IS 7. NC2514.2 009200 77 EIGHT PICTURE IS 9 VALUE IS 8. NC2514.2 009300 77 NINE PICTURE IS S9 VALUE IS 9. NC2514.2 009400 77 TEN PICTURE IS S99 VALUE IS 10. NC2514.2 009500 77 FIFTEEN PICTURE IS S99 VALUE IS 15. NC2514.2 009600 77 TWENTY PICTURE IS S99 VALUE IS 20. NC2514.2 009700 77 TWENTY-5 PICTURE IS S99 VALUE IS 25. NC2514.2 009800 77 25COUNT PICTURE 999 VALUE ZERO. NC2514.2 009900 77 25ANS PICTURE 99 VALUE ZERO. NC2514.2 010000 77 25REM PICTURE 99 VALUE ZERO. NC2514.2 010100 77 DIV-30-Y1 PICTURE 999 USAGE COMP SYNC RIGHT VALUE 31. NC2514.2 010200 77 DIV-30-Y2 PICTURE 999 USAGE COMP VALUE 54. NC2514.2 010300 77 DIV-30-Y3 PICTURE 999 VALUE 151. NC2514.2 010400 77 DIV-30-Y4 PICTURE 9(4) SYNC RIGHT VALUE 1010. NC2514.2 010500 77 DIV-Z1-30 PICTURE 999 USAGE COMP VALUE ZERO. NC2514.2 010600 77 DIV-Z2-30 PICTURE 999 SYNC RIGHT VALUE ZERO. NC2514.2 010700 77 DIV-Z3-30 PICTURE 999 USAGE COMP SYNC RIGHT VALUE ZERO. NC2514.2 010800 77 DIV-Z4-30 PICTURE 999 VALUE ZERO. NC2514.2 010900 77 DIV-30-A1 PICTURE 999 SYNC RIGHT VALUE ZERO. NC2514.2 011000 77 DIV-30-A2 PICTURE 999 VALUE ZERO. NC2514.2 011100 77 DIV-30-A3 PICTURE 999 USAGE COMP SYNC RIGHT VALUE ZERO. NC2514.2 011200 77 DIV-30-A4 PICTURE 999 USAGE COMP VALUE ZERO. NC2514.2 011300 01 DIV-ENTRIES. NC2514.2 011400 02 DIV11 PICTURE 999 VALUE 105. NC2514.2 011500 02 DIV12 PICTURE 9999 VALUE 1000. NC2514.2 011600 02 DIV13 PICTURE 999. NC2514.2 011700 02 DIV14 PICTURE 99. NC2514.2 011800 02 DIV15 PICTURE 9V9 VALUE 1.1. NC2514.2 011900 02 DIV16 PICTURE 99V99 VALUE 89.10. NC2514.2 012000 02 DIV17 PICTURE 99V99. NC2514.2 012100 02 DIV18 PICTURE 9999. NC2514.2 012200 02 DIV19 PICTURE 99 VALUE 14. NC2514.2 012300 02 DIV20 PICTURE 9999 VALUE 2147. NC2514.2 012400 02 DIV21 PICTURE 999. NC2514.2 012500 02 DIV22 PICTURE 99. NC2514.2 012600 01 WRK-DU-05V00-0001 PIC 9(5). NC2514.2 012700 01 WRK-DS-05V00-0002 PIC S9(5). NC2514.2 012800 01 WRK-CS-05V00-0003 PIC S9(5) COMP. NC2514.2 012900 01 WRK-DU-04V02-0004 PIC 9(4)V9(2). NC2514.2 013000 01 WRK-DS-04V01-0005 PIC S9(4)V9. NC2514.2 013100 01 NE-0008 PIC $9(4).99-. NC2514.2 013200 01 NE-0009 PIC ***99. NC2514.2 013300 01 NE-04V01-0006 PIC ****.9. NC2514.2 013400 01 GRP-0010. NC2514.2 013500 02 WRK-DU-03V00-L-0011 PIC 9(03) SYNC LEFT. NC2514.2 013600 02 WRK-O005F-0012 OCCURS 5 TIMES. NC2514.2 013700 03 WRK-O003F-0013 OCCURS 3 TIMES. NC2514.2 013800 05 WRK-DS-03V04-O003F-0014 PIC S9(3)V9999 NC2514.2 013900 OCCURS 3 TIMES. NC2514.2 014000 01 DS-02V00-0001 PIC S99 VALUE 16. NC2514.2 014100 01 DS-03V00-0002 PIC S999 VALUE 174. NC2514.2 014200 01 CS-05V00-0003 PIC S9(5) COMP VALUE 10. NC2514.2 014300 01 TA--X PIC 9(5) COMP VALUE ZERO. NC2514.2 014400 01 MINUS-NAMES. NC2514.2 014500 02 WHOLE-FIELD PICTURE S9(18). NC2514.2 014600 02 PLUS-NAME1 PICTURE S9(18) VALUE +333333333333333333. NC2514.2 014700 02 EVEN-NAME1 PICTURE S9(18) VALUE +1. NC2514.2 014800 02 PLUS-NAME2 PICTURE S9(18) VALUE +999999999999999999. NC2514.2 014900 02 ALPHA-LIT PICTURE X(5) VALUE SPACE. NC2514.2 015000 02 SNEG-LIT2 PICTURE S9(5) VALUE -70718. NC2514.2 015100 01 TEST-RESULTS. NC2514.2 015200 02 FILLER PIC X VALUE SPACE. NC2514.2 015300 02 FEATURE PIC X(20) VALUE SPACE. NC2514.2 015400 02 FILLER PIC X VALUE SPACE. NC2514.2 015500 02 P-OR-F PIC X(5) VALUE SPACE. NC2514.2 015600 02 FILLER PIC X VALUE SPACE. NC2514.2 015700 02 PAR-NAME. NC2514.2 015800 03 FILLER PIC X(19) VALUE SPACE. NC2514.2 015900 03 PARDOT-X PIC X VALUE SPACE. NC2514.2 016000 03 DOTVALUE PIC 99 VALUE ZERO. NC2514.2 016100 02 FILLER PIC X(8) VALUE SPACE. NC2514.2 016200 02 RE-MARK PIC X(61). NC2514.2 016300 01 TEST-COMPUTED. NC2514.2 016400 02 FILLER PIC X(30) VALUE SPACE. NC2514.2 016500 02 FILLER PIC X(17) VALUE NC2514.2 016600 " COMPUTED=". NC2514.2 016700 02 COMPUTED-X. NC2514.2 016800 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2514.2 016900 03 COMPUTED-N REDEFINES COMPUTED-A NC2514.2 017000 PIC -9(9).9(9). NC2514.2 017100 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2514.2 017200 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2514.2 017300 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2514.2 017400 03 CM-18V0 REDEFINES COMPUTED-A. NC2514.2 017500 04 COMPUTED-18V0 PIC -9(18). NC2514.2 017600 04 FILLER PIC X. NC2514.2 017700 03 FILLER PIC X(50) VALUE SPACE. NC2514.2 017800 01 TEST-CORRECT. NC2514.2 017900 02 FILLER PIC X(30) VALUE SPACE. NC2514.2 018000 02 FILLER PIC X(17) VALUE " CORRECT =". NC2514.2 018100 02 CORRECT-X. NC2514.2 018200 03 CORRECT-A PIC X(20) VALUE SPACE. NC2514.2 018300 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2514.2 018400 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2514.2 018500 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2514.2 018600 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2514.2 018700 03 CR-18V0 REDEFINES CORRECT-A. NC2514.2 018800 04 CORRECT-18V0 PIC -9(18). NC2514.2 018900 04 FILLER PIC X. NC2514.2 019000 03 FILLER PIC X(2) VALUE SPACE. NC2514.2 019100 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2514.2 019200 01 CCVS-C-1. NC2514.2 019300 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2514.2 019400- "SS PARAGRAPH-NAME NC2514.2 019500- " REMARKS". NC2514.2 019600 02 FILLER PIC X(20) VALUE SPACE. NC2514.2 019700 01 CCVS-C-2. NC2514.2 019800 02 FILLER PIC X VALUE SPACE. NC2514.2 019900 02 FILLER PIC X(6) VALUE "TESTED". NC2514.2 020000 02 FILLER PIC X(15) VALUE SPACE. NC2514.2 020100 02 FILLER PIC X(4) VALUE "FAIL". NC2514.2 020200 02 FILLER PIC X(94) VALUE SPACE. NC2514.2 020300 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2514.2 020400 01 REC-CT PIC 99 VALUE ZERO. NC2514.2 020500 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2514.2 020600 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2514.2 020700 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2514.2 020800 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2514.2 020900 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2514.2 021000 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2514.2 021100 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2514.2 021200 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2514.2 021300 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2514.2 021400 01 CCVS-H-1. NC2514.2 021500 02 FILLER PIC X(39) VALUE SPACES. NC2514.2 021600 02 FILLER PIC X(42) VALUE NC2514.2 021700 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2514.2 021800 02 FILLER PIC X(39) VALUE SPACES. NC2514.2 021900 01 CCVS-H-2A. NC2514.2 022000 02 FILLER PIC X(40) VALUE SPACE. NC2514.2 022100 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2514.2 022200 02 FILLER PIC XXXX VALUE NC2514.2 022300 "4.2 ". NC2514.2 022400 02 FILLER PIC X(28) VALUE NC2514.2 022500 " COPY - NOT FOR DISTRIBUTION". NC2514.2 022600 02 FILLER PIC X(41) VALUE SPACE. NC2514.2 022700 NC2514.2 022800 01 CCVS-H-2B. NC2514.2 022900 02 FILLER PIC X(15) VALUE NC2514.2 023000 "TEST RESULT OF ". NC2514.2 023100 02 TEST-ID PIC X(9). NC2514.2 023200 02 FILLER PIC X(4) VALUE NC2514.2 023300 " IN ". NC2514.2 023400 02 FILLER PIC X(12) VALUE NC2514.2 023500 " HIGH ". NC2514.2 023600 02 FILLER PIC X(22) VALUE NC2514.2 023700 " LEVEL VALIDATION FOR ". NC2514.2 023800 02 FILLER PIC X(58) VALUE NC2514.2 023900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2514.2 024000 01 CCVS-H-3. NC2514.2 024100 02 FILLER PIC X(34) VALUE NC2514.2 024200 " FOR OFFICIAL USE ONLY ". NC2514.2 024300 02 FILLER PIC X(58) VALUE NC2514.2 024400 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2514.2 024500 02 FILLER PIC X(28) VALUE NC2514.2 024600 " COPYRIGHT 1985 ". NC2514.2 024700 01 CCVS-E-1. NC2514.2 024800 02 FILLER PIC X(52) VALUE SPACE. NC2514.2 024900 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2514.2 025000 02 ID-AGAIN PIC X(9). NC2514.2 025100 02 FILLER PIC X(45) VALUE SPACES. NC2514.2 025200 01 CCVS-E-2. NC2514.2 025300 02 FILLER PIC X(31) VALUE SPACE. NC2514.2 025400 02 FILLER PIC X(21) VALUE SPACE. NC2514.2 025500 02 CCVS-E-2-2. NC2514.2 025600 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2514.2 025700 03 FILLER PIC X VALUE SPACE. NC2514.2 025800 03 ENDER-DESC PIC X(44) VALUE NC2514.2 025900 "ERRORS ENCOUNTERED". NC2514.2 026000 01 CCVS-E-3. NC2514.2 026100 02 FILLER PIC X(22) VALUE NC2514.2 026200 " FOR OFFICIAL USE ONLY". NC2514.2 026300 02 FILLER PIC X(12) VALUE SPACE. NC2514.2 026400 02 FILLER PIC X(58) VALUE NC2514.2 026500 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2514.2 026600 02 FILLER PIC X(13) VALUE SPACE. NC2514.2 026700 02 FILLER PIC X(15) VALUE NC2514.2 026800 " COPYRIGHT 1985". NC2514.2 026900 01 CCVS-E-4. NC2514.2 027000 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2514.2 027100 02 FILLER PIC X(4) VALUE " OF ". NC2514.2 027200 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2514.2 027300 02 FILLER PIC X(40) VALUE NC2514.2 027400 " TESTS WERE EXECUTED SUCCESSFULLY". NC2514.2 027500 01 XXINFO. NC2514.2 027600 02 FILLER PIC X(19) VALUE NC2514.2 027700 "*** INFORMATION ***". NC2514.2 027800 02 INFO-TEXT. NC2514.2 027900 04 FILLER PIC X(8) VALUE SPACE. NC2514.2 028000 04 XXCOMPUTED PIC X(20). NC2514.2 028100 04 FILLER PIC X(5) VALUE SPACE. NC2514.2 028200 04 XXCORRECT PIC X(20). NC2514.2 028300 02 INF-ANSI-REFERENCE PIC X(48). NC2514.2 028400 01 HYPHEN-LINE. NC2514.2 028500 02 FILLER PIC IS X VALUE IS SPACE. NC2514.2 028600 02 FILLER PIC IS X(65) VALUE IS "************************NC2514.2 028700- "*****************************************". NC2514.2 028800 02 FILLER PIC IS X(54) VALUE IS "************************NC2514.2 028900- "******************************". NC2514.2 029000 01 CCVS-PGM-ID PIC X(9) VALUE NC2514.2 029100 "NC251A". NC2514.2 029200 PROCEDURE DIVISION. NC2514.2 029300 CCVS1 SECTION. NC2514.2 029400 OPEN-FILES. NC2514.2 029500 OPEN OUTPUT PRINT-FILE. NC2514.2 029600 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2514.2 029700 MOVE SPACE TO TEST-RESULTS. NC2514.2 029800 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2514.2 029900 GO TO CCVS1-EXIT. NC2514.2 030000 CLOSE-FILES. NC2514.2 030100 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2514.2 030200 TERMINATE-CCVS. NC2514.2 030300 EXIT PROGRAM. NC2514.2 030400 TERMINATE-CALL. NC2514.2 030500 STOP RUN. NC2514.2 030600 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2514.2 030700 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2514.2 030800 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2514.2 030900 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2514.2 031000 MOVE "****TEST DELETED****" TO RE-MARK. NC2514.2 031100 PRINT-DETAIL. NC2514.2 031200 IF REC-CT NOT EQUAL TO ZERO NC2514.2 031300 MOVE "." TO PARDOT-X NC2514.2 031400 MOVE REC-CT TO DOTVALUE. NC2514.2 031500 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2514.2 031600 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2514.2 031700 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2514.2 031800 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2514.2 031900 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2514.2 032000 MOVE SPACE TO CORRECT-X. NC2514.2 032100 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2514.2 032200 MOVE SPACE TO RE-MARK. NC2514.2 032300 HEAD-ROUTINE. NC2514.2 032400 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2514.2 032500 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2514.2 032600 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2514.2 032700 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2514.2 032800 COLUMN-NAMES-ROUTINE. NC2514.2 032900 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2514.2 033000 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2514.2 033100 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2514.2 033200 END-ROUTINE. NC2514.2 033300 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2514.2 033400 END-RTN-EXIT. NC2514.2 033500 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2514.2 033600 END-ROUTINE-1. NC2514.2 033700 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2514.2 033800 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2514.2 033900 ADD PASS-COUNTER TO ERROR-HOLD. NC2514.2 034000* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2514.2 034100 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2514.2 034200 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2514.2 034300 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2514.2 034400 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2514.2 034500 END-ROUTINE-12. NC2514.2 034600 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2514.2 034700 IF ERROR-COUNTER IS EQUAL TO ZERO NC2514.2 034800 MOVE "NO " TO ERROR-TOTAL NC2514.2 034900 ELSE NC2514.2 035000 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2514.2 035100 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2514.2 035200 PERFORM WRITE-LINE. NC2514.2 035300 END-ROUTINE-13. NC2514.2 035400 IF DELETE-COUNTER IS EQUAL TO ZERO NC2514.2 035500 MOVE "NO " TO ERROR-TOTAL ELSE NC2514.2 035600 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2514.2 035700 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2514.2 035800 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2514.2 035900 IF INSPECT-COUNTER EQUAL TO ZERO NC2514.2 036000 MOVE "NO " TO ERROR-TOTAL NC2514.2 036100 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2514.2 036200 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2514.2 036300 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2514.2 036400 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2514.2 036500 WRITE-LINE. NC2514.2 036600 ADD 1 TO RECORD-COUNT. NC2514.2 036700 IF RECORD-COUNT GREATER 50 NC2514.2 036800 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2514.2 036900 MOVE SPACE TO DUMMY-RECORD NC2514.2 037000 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2514.2 037100 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2514.2 037200 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2514.2 037300 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2514.2 037400 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2514.2 037500 MOVE ZERO TO RECORD-COUNT. NC2514.2 037600 PERFORM WRT-LN. NC2514.2 037700 WRT-LN. NC2514.2 037800 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2514.2 037900 MOVE SPACE TO DUMMY-RECORD. NC2514.2 038000 BLANK-LINE-PRINT. NC2514.2 038100 PERFORM WRT-LN. NC2514.2 038200 FAIL-ROUTINE. NC2514.2 038300 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2514.2 038400 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2514.2 038500 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2514.2 038600 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2514.2 038700 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2514.2 038800 MOVE SPACES TO INF-ANSI-REFERENCE. NC2514.2 038900 GO TO FAIL-ROUTINE-EX. NC2514.2 039000 FAIL-ROUTINE-WRITE. NC2514.2 039100 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2514.2 039200 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2514.2 039300 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2514.2 039400 MOVE SPACES TO COR-ANSI-REFERENCE. NC2514.2 039500 FAIL-ROUTINE-EX. EXIT. NC2514.2 039600 BAIL-OUT. NC2514.2 039700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2514.2 039800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2514.2 039900 BAIL-OUT-WRITE. NC2514.2 040000 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2514.2 040100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2514.2 040200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2514.2 040300 MOVE SPACES TO INF-ANSI-REFERENCE. NC2514.2 040400 BAIL-OUT-EX. EXIT. NC2514.2 040500 CCVS1-EXIT. NC2514.2 040600 EXIT. NC2514.2 040700 SECT-NC251A-001 SECTION. NC2514.2 040800 DIV-TEST-4. NC2514.2 040900 DIVIDE DIV16 BY DIV15 GIVING DIV17 REMAINDER DIV18. NC2514.2 041000 IF DIV18 IS EQUAL TO ZERO NC2514.2 041100 PERFORM PASS NC2514.2 041200 GO TO DIV-WRITE-4. NC2514.2 041300 PERFORM FAIL. NC2514.2 041400 MOVE DIV18 TO COMPUTED-N. NC2514.2 041500 MOVE "0000" TO CORRECT-A. NC2514.2 041600 GO TO DIV-WRITE-4. NC2514.2 041700 DIV-DELETE-4. NC2514.2 041800 PERFORM DE-LETE. NC2514.2 041900 DIV-WRITE-4. NC2514.2 042000 MOVE "DIV-TEST-4" TO PAR-NAME. NC2514.2 042100 PERFORM PRINT-DETAIL. NC2514.2 042200 DIV-TEST-5. NC2514.2 042300 MOVE ZERO TO DIV21. NC2514.2 042400 MOVE ZERO TO DIV22. NC2514.2 042500 DIVIDE DIV20 BY DIV19 GIVING DIV21 ROUNDED REMAINDER NC2514.2 042600 DIV22. NC2514.2 042700 IF DIV22 IS EQUAL TO 05 NC2514.2 042800 PERFORM PASS NC2514.2 042900 GO TO DIV-WRITE-5. NC2514.2 043000 PERFORM FAIL. NC2514.2 043100 MOVE DIV22 TO COMPUTED-N. NC2514.2 043200 MOVE "+05" TO CORRECT-A. NC2514.2 043300 GO TO DIV-WRITE-5. NC2514.2 043400 DIV-DELETE-5. NC2514.2 043500 PERFORM DE-LETE. NC2514.2 043600 DIV-WRITE-5. NC2514.2 043700 MOVE "DIV-TEST-5" TO PAR-NAME. NC2514.2 043800 PERFORM PRINT-DETAIL. NC2514.2 043900* NC2514.2 044000 DIV-INIT-F5-3. NC2514.2 044100 MOVE "VI-82 6.11.4 GR4" TO ANSI-REFERENCE. NC2514.2 044200 MOVE "DIV-TEST-F5-3-0" TO PAR-NAME. NC2514.2 044300 MOVE 40 TO 25COUNT. NC2514.2 044400 MOVE ZERO TO 25ANS. NC2514.2 044500 MOVE ZERO TO 25REM. NC2514.2 044600 MOVE 1 TO REC-CT. NC2514.2 044700 DIV-TEST-F5-3-0. NC2514.2 044800 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 044900 ON SIZE ERROR NC2514.2 045000 MOVE "SIZE ERROR SHOULD NOT HAVE OCCURED" NC2514.2 045100 TO RE-MARK NC2514.2 045200 PERFORM FAIL NC2514.2 045300 PERFORM PRINT-DETAIL NC2514.2 045400 GO TO DIV-TEST-F5-3-1. NC2514.2 045500 PERFORM PASS. NC2514.2 045600 PERFORM PRINT-DETAIL. NC2514.2 045700 GO TO DIV-TEST-F5-3-1. NC2514.2 045800 DIV-DELETE-F5-3. NC2514.2 045900 PERFORM DE-LETE. NC2514.2 046000 PERFORM PRINT-DETAIL. NC2514.2 046100 GO TO DIV-INIT-F5-4. NC2514.2 046200 DIV-TEST-F5-3-1. NC2514.2 046300 MOVE "DIV-TEST-F5-3-1" TO PAR-NAME. NC2514.2 046400 ADD 1 TO REC-CT. NC2514.2 046500 IF 25ANS NOT = 2 NC2514.2 046600 MOVE 2 TO CORRECT-N NC2514.2 046700 MOVE 25ANS TO COMPUTED-N NC2514.2 046800 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 046900 PERFORM FAIL NC2514.2 047000 PERFORM PRINT-DETAIL NC2514.2 047100 ELSE NC2514.2 047200 PERFORM PASS NC2514.2 047300 PERFORM PRINT-DETAIL. NC2514.2 047400 DIV-TEST-F5-3-2. NC2514.2 047500 MOVE "DIV-TEST-F5-3-2" TO PAR-NAME. NC2514.2 047600 ADD 1 TO REC-CT. NC2514.2 047700 IF 25REM NOT = 20 NC2514.2 047800 MOVE 25REM TO COMPUTED-N NC2514.2 047900 MOVE 20 TO CORRECT-N NC2514.2 048000 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 048100 PERFORM FAIL NC2514.2 048200 PERFORM PRINT-DETAIL NC2514.2 048300 ELSE NC2514.2 048400 PERFORM PASS NC2514.2 048500 PERFORM PRINT-DETAIL. NC2514.2 048600* NC2514.2 048700 DIV-INIT-F5-4. NC2514.2 048800 MOVE "VI-82 6.11.4 GR4" TO ANSI-REFERENCE. NC2514.2 048900 MOVE "DIV-TEST-F5-4-0" TO PAR-NAME. NC2514.2 049000 MOVE ZERO TO 25COUNT. NC2514.2 049100 MOVE ZERO TO 25ANS. NC2514.2 049200 MOVE ZERO TO 25REM. NC2514.2 049300 MOVE 1 TO REC-CT. NC2514.2 049400 DIV-TEST-F5-4-0. NC2514.2 049500 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 049600 ON SIZE ERROR NC2514.2 049700 PERFORM PASS NC2514.2 049800 PERFORM PRINT-DETAIL NC2514.2 049900 GO TO DIV-TEST-F5-4-1. NC2514.2 050000 MOVE "ON SIZE ERROR SHOULD HAVE OCCURRED" TO RE-MARK. NC2514.2 050100 PERFORM FAIL. NC2514.2 050200 PERFORM PRINT-DETAIL. NC2514.2 050300 GO TO DIV-TEST-F5-4-1. NC2514.2 050400 DIV-DELETE-F5-4. NC2514.2 050500 PERFORM DE-LETE. NC2514.2 050600 PERFORM PRINT-DETAIL. NC2514.2 050700 GO TO DIV-INIT-F5-5. NC2514.2 050800 DIV-TEST-F5-4-1. NC2514.2 050900 MOVE "DIV-TEST-F5-4-1" TO PAR-NAME. NC2514.2 051000 ADD 1 TO REC-CT. NC2514.2 051100 IF 25ANS NOT = 0 NC2514.2 051200 MOVE 0 TO CORRECT-N NC2514.2 051300 MOVE 25ANS TO COMPUTED-N NC2514.2 051400 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 051500 PERFORM FAIL NC2514.2 051600 PERFORM PRINT-DETAIL NC2514.2 051700 ELSE NC2514.2 051800 PERFORM PASS NC2514.2 051900 PERFORM PRINT-DETAIL. NC2514.2 052000 DIV-TEST-F5-4-2. NC2514.2 052100 MOVE "DIV-TEST-F5-4-2" TO PAR-NAME. NC2514.2 052200 ADD 1 TO REC-CT. NC2514.2 052300 IF 25REM NOT = ZERO NC2514.2 052400 MOVE 25REM TO COMPUTED-N NC2514.2 052500 MOVE ZERO TO CORRECT-N NC2514.2 052600 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 052700 PERFORM FAIL NC2514.2 052800 PERFORM PRINT-DETAIL NC2514.2 052900 ELSE NC2514.2 053000 PERFORM PASS NC2514.2 053100 PERFORM PRINT-DETAIL. NC2514.2 053200* NC2514.2 053300 DIV-INIT-F5-5. NC2514.2 053400 MOVE "VI-82 6.11.4 GR4" TO ANSI-REFERENCE. NC2514.2 053500 MOVE "DIV-TEST-F5-5-0" TO PAR-NAME. NC2514.2 053600 MOVE 3 TO 25COUNT. NC2514.2 053700 MOVE ZERO TO 25ANS. NC2514.2 053800 MOVE ZERO TO 25REM. NC2514.2 053900 MOVE 1 TO REC-CT. NC2514.2 054000 DIV-TEST-F5-5-0. NC2514.2 054100 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 054200 ON SIZE ERROR NC2514.2 054300 MOVE "SIZE ERROR SHOULD NOT HAVE OCCURED" NC2514.2 054400 TO RE-MARK NC2514.2 054500 PERFORM FAIL NC2514.2 054600 PERFORM PRINT-DETAIL NC2514.2 054700 GO TO DIV-TEST-F5-5-1. NC2514.2 054800 PERFORM PASS. NC2514.2 054900 PERFORM PRINT-DETAIL. NC2514.2 055000 GO TO DIV-TEST-F5-5-1. NC2514.2 055100 DIV-DELETE-F5-5. NC2514.2 055200 PERFORM DE-LETE. NC2514.2 055300 PERFORM PRINT-DETAIL. NC2514.2 055400 GO TO DIV-TEST-12. NC2514.2 055500 DIV-TEST-F5-5-1. NC2514.2 055600 MOVE "DIV-TEST-F5-5-1" TO PAR-NAME. NC2514.2 055700 ADD 1 TO REC-CT. NC2514.2 055800 IF 25ANS NOT = 33 NC2514.2 055900 MOVE 33 TO CORRECT-N NC2514.2 056000 MOVE 25ANS TO COMPUTED-N NC2514.2 056100 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 056200 PERFORM FAIL NC2514.2 056300 PERFORM PRINT-DETAIL NC2514.2 056400 ELSE NC2514.2 056500 PERFORM PASS NC2514.2 056600 PERFORM PRINT-DETAIL. NC2514.2 056700 DIV-TEST-F5-5-2. NC2514.2 056800 MOVE "DIV-TEST-F5-5-2" TO PAR-NAME. NC2514.2 056900 ADD 1 TO REC-CT. NC2514.2 057000 IF 25REM NOT = 1 NC2514.2 057100 MOVE 25REM TO COMPUTED-N NC2514.2 057200 MOVE 1 TO CORRECT-N NC2514.2 057300 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 057400 PERFORM FAIL NC2514.2 057500 PERFORM PRINT-DETAIL NC2514.2 057600 ELSE NC2514.2 057700 PERFORM PASS NC2514.2 057800 PERFORM PRINT-DETAIL. NC2514.2 057900* NC2514.2 058000 DIV-TEST-12. NC2514.2 058100 DIVIDE 230 BY DIV-30-Y2 GIVING DIV-Z2-30 REMAINDER NC2514.2 058200 DIV-30-A2. NC2514.2 058300 IF DIV-Z2-30 EQUAL TO 4 AND DIV-30-A2 EQUAL TO 14 NC2514.2 058400 PERFORM PASS NC2514.2 058500 GO TO DIV-WRITE-12. NC2514.2 058600 PERFORM FAIL. NC2514.2 058700 MOVE 4 TO CORRECT-N. NC2514.2 058800 MOVE DIV-30-A3 TO COMPUTED-N. NC2514.2 058900 GO TO DIV-WRITE-12. NC2514.2 059000 DIV-DELETE-12. NC2514.2 059100 PERFORM DE-LETE. NC2514.2 059200 DIV-WRITE-12. NC2514.2 059300 MOVE "DIV-TEST-12" TO PAR-NAME. NC2514.2 059400 PERFORM PRINT-DETAIL. NC2514.2 059500* NC2514.2 059600 DIV-INIT-F5-7. NC2514.2 059700 MOVE "VI-82 6.11.4 GR4" TO ANSI-REFERENCE. NC2514.2 059800 MOVE "DIV-TEST-F5-7-0" TO PAR-NAME. NC2514.2 059900 MOVE 151 TO DIV-30-Y3. NC2514.2 060000 MOVE ZERO TO DIV-Z3-30. NC2514.2 060100 MOVE ZERO TO DIV-30-A3. NC2514.2 060200 MOVE 1 TO REC-CT. NC2514.2 060300 DIV-TEST-F5-7-0. NC2514.2 060400 DIVIDE 681 BY DIV-30-Y3 GIVING DIV-Z3-30 REMAINDER NC2514.2 060500 DIV-30-A3. NC2514.2 060600 GO TO DIV-TEST-F5-7-1. NC2514.2 060700 DIV-DELETE-F5-7. NC2514.2 060800 PERFORM DE-LETE. NC2514.2 060900 PERFORM PRINT-DETAIL. NC2514.2 061000 GO TO DIV-INIT-F5-8. NC2514.2 061100 DIV-TEST-F5-7-1. NC2514.2 061200 MOVE "DIV-TEST-F5-7-1" TO PAR-NAME. NC2514.2 061300 ADD 1 TO REC-CT. NC2514.2 061400 IF DIV-Z3-30 NOT EQUAL TO 4 NC2514.2 061500 MOVE 4 TO CORRECT-N NC2514.2 061600 MOVE DIV-Z3-30 TO COMPUTED-N NC2514.2 061700 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 061800 PERFORM FAIL NC2514.2 061900 PERFORM PRINT-DETAIL NC2514.2 062000 ELSE NC2514.2 062100 PERFORM PASS NC2514.2 062200 PERFORM PRINT-DETAIL. NC2514.2 062300 DIV-TEST-F5-7-2. NC2514.2 062400 MOVE "DIV-TEST-F5-7-2" TO PAR-NAME. NC2514.2 062500 ADD 1 TO REC-CT. NC2514.2 062600 IF DIV-30-A3 NOT EQUAL TO 77 NC2514.2 062700 MOVE DIV-30-A3 TO COMPUTED-N NC2514.2 062800 MOVE 77 TO CORRECT-N NC2514.2 062900 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 063000 PERFORM FAIL NC2514.2 063100 PERFORM PRINT-DETAIL NC2514.2 063200 ELSE NC2514.2 063300 PERFORM PASS NC2514.2 063400 PERFORM PRINT-DETAIL. NC2514.2 063500* NC2514.2 063600 DIV-INIT-F5-8. NC2514.2 063700 MOVE "VI-82 6.11.4 GR4" TO ANSI-REFERENCE. NC2514.2 063800 MOVE "DIV-TEST-F5-8-0" TO PAR-NAME. NC2514.2 063900 MOVE 1010 TO DIV-30-Y4. NC2514.2 064000 MOVE ZERO TO DIV-Z4-30. NC2514.2 064100 MOVE ZERO TO DIV-30-A4. NC2514.2 064200 MOVE 1 TO REC-CT. NC2514.2 064300 DIV-TEST-F5-8-0. NC2514.2 064400 DIVIDE 4150 BY DIV-30-Y4 GIVING DIV-Z4-30 REMAINDER NC2514.2 064500 DIV-30-A4. NC2514.2 064600 GO TO DIV-TEST-F5-8-1. NC2514.2 064700 DIV-DELETE-F5-8. NC2514.2 064800 PERFORM DE-LETE. NC2514.2 064900 PERFORM PRINT-DETAIL. NC2514.2 065000 GO TO DIV-INIT-F5-9. NC2514.2 065100 DIV-TEST-F5-8-1. NC2514.2 065200 MOVE "DIV-TEST-F5-8-1" TO PAR-NAME. NC2514.2 065300 ADD 1 TO REC-CT. NC2514.2 065400 IF DIV-Z4-30 NOT EQUAL TO 4 NC2514.2 065500 MOVE 4 TO CORRECT-N NC2514.2 065600 MOVE DIV-Z4-30 TO COMPUTED-N NC2514.2 065700 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 065800 PERFORM FAIL NC2514.2 065900 PERFORM PRINT-DETAIL NC2514.2 066000 ELSE NC2514.2 066100 PERFORM PASS NC2514.2 066200 PERFORM PRINT-DETAIL. NC2514.2 066300 DIV-TEST-F5-8-2. NC2514.2 066400 MOVE "DIV-TEST-F5-8-2" TO PAR-NAME. NC2514.2 066500 ADD 1 TO REC-CT. NC2514.2 066600 IF DIV-30-A4 NOT EQUAL TO 110 NC2514.2 066700 MOVE DIV-30-A4 TO COMPUTED-N NC2514.2 066800 MOVE 110 TO CORRECT-N NC2514.2 066900 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 067000 PERFORM FAIL NC2514.2 067100 PERFORM PRINT-DETAIL NC2514.2 067200 ELSE NC2514.2 067300 PERFORM PASS NC2514.2 067400 PERFORM PRINT-DETAIL. NC2514.2 067500* NC2514.2 067600* NC2514.2 067700 DIV-INIT-F5-9. NC2514.2 067800 MOVE "VI-82 6.11.4 GR4" TO ANSI-REFERENCE. NC2514.2 067900 MOVE "DIV-TEST-F5-9-0" TO PAR-NAME. NC2514.2 068000 MOVE 31 TO DIV-30-Y1. NC2514.2 068100 MOVE ZERO TO DIV-Z1-30. NC2514.2 068200 MOVE ZERO TO DIV-30-A1. NC2514.2 068300 MOVE 1 TO REC-CT. NC2514.2 068400 DIV-TEST-F5-9-0. NC2514.2 068500 DIVIDE 150 BY DIV-30-Y1 GIVING DIV-Z1-30 REMAINDER DIV-30-A1.NC2514.2 068600 GO TO DIV-TEST-F5-9-1. NC2514.2 068700 DIV-DELETE-F5-9. NC2514.2 068800 PERFORM DE-LETE. NC2514.2 068900 PERFORM PRINT-DETAIL. NC2514.2 069000 GO TO DIV-INIT-F5-10. NC2514.2 069100 DIV-TEST-F5-9-1. NC2514.2 069200 MOVE "DIV-TEST-F5-9-1" TO PAR-NAME. NC2514.2 069300 ADD 1 TO REC-CT. NC2514.2 069400 IF DIV-Z1-30 NOT EQUAL TO 4 NC2514.2 069500 MOVE 4 TO CORRECT-N NC2514.2 069600 MOVE DIV-Z1-30 TO COMPUTED-N NC2514.2 069700 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 069800 PERFORM FAIL NC2514.2 069900 PERFORM PRINT-DETAIL NC2514.2 070000 ELSE NC2514.2 070100 PERFORM PASS NC2514.2 070200 PERFORM PRINT-DETAIL. NC2514.2 070300 DIV-TEST-F5-9-2. NC2514.2 070400 MOVE "DIV-TEST-F5-9-2" TO PAR-NAME. NC2514.2 070500 ADD 1 TO REC-CT. NC2514.2 070600 IF DIV-30-A1 NOT EQUAL TO 26 NC2514.2 070700 MOVE DIV-30-A4 TO COMPUTED-N NC2514.2 070800 MOVE 26 TO CORRECT-N NC2514.2 070900 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 071000 PERFORM FAIL NC2514.2 071100 PERFORM PRINT-DETAIL NC2514.2 071200 ELSE NC2514.2 071300 PERFORM PASS NC2514.2 071400 PERFORM PRINT-DETAIL. NC2514.2 071500* NC2514.2 071600 DIV-INIT-F5-10. NC2514.2 071700 MOVE "VI-82 6.11.4 GR8" TO ANSI-REFERENCE. NC2514.2 071800 MOVE "DIV-TEST-F5-10-0" TO PAR-NAME. NC2514.2 071900 MOVE 40 TO 25COUNT. NC2514.2 072000 MOVE ZERO TO 25ANS. NC2514.2 072100 MOVE ZERO TO 25REM. NC2514.2 072200 MOVE 1 TO REC-CT. NC2514.2 072300 DIV-TEST-F5-10-0. NC2514.2 072400 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 072500 NOT ON SIZE ERROR NC2514.2 072600 PERFORM PASS NC2514.2 072700 PERFORM PRINT-DETAIL NC2514.2 072800 GO TO DIV-TEST-F5-10-1. NC2514.2 072900 MOVE "NOT ON SIZE ERROR SHOULD HAVE EXECUTED" TO RE-MARK. NC2514.2 073000 PERFORM FAIL. NC2514.2 073100 PERFORM PRINT-DETAIL. NC2514.2 073200 GO TO DIV-TEST-F5-10-1. NC2514.2 073300 DIV-DELETE-F5-10. NC2514.2 073400 PERFORM DE-LETE. NC2514.2 073500 PERFORM PRINT-DETAIL. NC2514.2 073600 GO TO DIV-INIT-F5-11. NC2514.2 073700 DIV-TEST-F5-10-1. NC2514.2 073800 MOVE "DIV-TEST-F5-10-1" TO PAR-NAME. NC2514.2 073900 ADD 1 TO REC-CT. NC2514.2 074000 IF 25ANS NOT = 2 NC2514.2 074100 MOVE 2 TO CORRECT-N NC2514.2 074200 MOVE 25ANS TO COMPUTED-N NC2514.2 074300 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 074400 PERFORM FAIL NC2514.2 074500 PERFORM PRINT-DETAIL NC2514.2 074600 ELSE NC2514.2 074700 PERFORM PASS NC2514.2 074800 PERFORM PRINT-DETAIL. NC2514.2 074900 DIV-TEST-F5-10-2. NC2514.2 075000 MOVE "DIV-TEST-F5-10-2" TO PAR-NAME. NC2514.2 075100 ADD 1 TO REC-CT. NC2514.2 075200 IF 25REM NOT = 20 NC2514.2 075300 MOVE 25REM TO COMPUTED-N NC2514.2 075400 MOVE 20 TO CORRECT-N NC2514.2 075500 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 075600 PERFORM FAIL NC2514.2 075700 PERFORM PRINT-DETAIL NC2514.2 075800 ELSE NC2514.2 075900 PERFORM PASS NC2514.2 076000 PERFORM PRINT-DETAIL. NC2514.2 076100* NC2514.2 076200 DIV-INIT-F5-11. NC2514.2 076300 MOVE "VI-82 6.11.4 GR8" TO ANSI-REFERENCE. NC2514.2 076400 MOVE "DIV-TEST-F5-11-0" TO PAR-NAME. NC2514.2 076500 MOVE ZERO TO 25COUNT. NC2514.2 076600 MOVE ZERO TO 25ANS. NC2514.2 076700 MOVE ZERO TO 25REM. NC2514.2 076800 MOVE 1 TO REC-CT. NC2514.2 076900 DIV-TEST-F5-11-0. NC2514.2 077000 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 077100 NOT ON SIZE ERROR NC2514.2 077200 MOVE "NOT ON SIZE ERROR SHOULD NOT HAVE EXECUTED" NC2514.2 077300 TO RE-MARK NC2514.2 077400 PERFORM FAIL NC2514.2 077500 PERFORM PRINT-DETAIL NC2514.2 077600 GO TO DIV-TEST-F5-11-1. NC2514.2 077700 PERFORM PASS. NC2514.2 077800 PERFORM PRINT-DETAIL. NC2514.2 077900 GO TO DIV-TEST-F5-11-1. NC2514.2 078000 DIV-DELETE-F5-11. NC2514.2 078100 PERFORM DE-LETE. NC2514.2 078200 PERFORM PRINT-DETAIL. NC2514.2 078300 GO TO DIV-INIT-F5-12. NC2514.2 078400 DIV-TEST-F5-11-1. NC2514.2 078500 MOVE "DIV-TEST-F5-11-1" TO PAR-NAME. NC2514.2 078600 ADD 1 TO REC-CT. NC2514.2 078700 IF 25ANS NOT = 0 NC2514.2 078800 MOVE 0 TO CORRECT-N NC2514.2 078900 MOVE 25ANS TO COMPUTED-N NC2514.2 079000 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 079100 PERFORM FAIL NC2514.2 079200 PERFORM PRINT-DETAIL NC2514.2 079300 ELSE NC2514.2 079400 PERFORM PASS NC2514.2 079500 PERFORM PRINT-DETAIL. NC2514.2 079600 DIV-TEST-F5-11-2. NC2514.2 079700 MOVE "DIV-TEST-F5-11-2" TO PAR-NAME. NC2514.2 079800 ADD 1 TO REC-CT. NC2514.2 079900 IF 25REM NOT = ZERO NC2514.2 080000 MOVE 25REM TO COMPUTED-N NC2514.2 080100 MOVE ZERO TO CORRECT-N NC2514.2 080200 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 080300 PERFORM FAIL NC2514.2 080400 PERFORM PRINT-DETAIL NC2514.2 080500 ELSE NC2514.2 080600 PERFORM PASS NC2514.2 080700 PERFORM PRINT-DETAIL. NC2514.2 080800* NC2514.2 080900 DIV-INIT-F5-12. NC2514.2 081000 MOVE "VI-82 6.11.4 GR8" TO ANSI-REFERENCE. NC2514.2 081100 MOVE "DIV-TEST-F5-12-0" TO PAR-NAME. NC2514.2 081200 MOVE 40 TO 25COUNT. NC2514.2 081300 MOVE ZERO TO 25ANS. NC2514.2 081400 MOVE ZERO TO 25REM. NC2514.2 081500 MOVE 1 TO REC-CT. NC2514.2 081600 DIV-TEST-F5-12-0. NC2514.2 081700 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 081800 ON SIZE ERROR NC2514.2 081900 MOVE "ON SIZE ERROR SHOULD NOT HAVE EXECUTED" NC2514.2 082000 TO RE-MARK NC2514.2 082100 PERFORM FAIL NC2514.2 082200 PERFORM PRINT-DETAIL NC2514.2 082300 GO TO DIV-TEST-F5-12-1 NC2514.2 082400 NOT ON SIZE ERROR NC2514.2 082500 PERFORM PASS NC2514.2 082600 PERFORM PRINT-DETAIL NC2514.2 082700 GO TO DIV-TEST-F5-12-1. NC2514.2 082800 DIV-DELETE-F5-12. NC2514.2 082900 PERFORM DE-LETE. NC2514.2 083000 PERFORM PRINT-DETAIL. NC2514.2 083100 GO TO DIV-INIT-F5-13. NC2514.2 083200 DIV-TEST-F5-12-1. NC2514.2 083300 MOVE "DIV-TEST-F5-12-1" TO PAR-NAME. NC2514.2 083400 ADD 1 TO REC-CT. NC2514.2 083500 IF 25ANS NOT = 2 NC2514.2 083600 MOVE 2 TO CORRECT-N NC2514.2 083700 MOVE 25ANS TO COMPUTED-N NC2514.2 083800 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 083900 PERFORM FAIL NC2514.2 084000 PERFORM PRINT-DETAIL NC2514.2 084100 ELSE NC2514.2 084200 PERFORM PASS NC2514.2 084300 PERFORM PRINT-DETAIL. NC2514.2 084400 DIV-TEST-F5-12-2. NC2514.2 084500 MOVE "DIV-TEST-F5-12-2" TO PAR-NAME. NC2514.2 084600 ADD 1 TO REC-CT. NC2514.2 084700 IF 25REM NOT = 20 NC2514.2 084800 MOVE 25REM TO COMPUTED-N NC2514.2 084900 MOVE 20 TO CORRECT-N NC2514.2 085000 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 085100 PERFORM FAIL NC2514.2 085200 PERFORM PRINT-DETAIL NC2514.2 085300 ELSE NC2514.2 085400 PERFORM PASS NC2514.2 085500 PERFORM PRINT-DETAIL. NC2514.2 085600* NC2514.2 085700 DIV-INIT-F5-13. NC2514.2 085800 MOVE "VI-82 6.11.4 GR8" TO ANSI-REFERENCE. NC2514.2 085900 MOVE "DIV-TEST-F5-13-0" TO PAR-NAME. NC2514.2 086000 MOVE ZERO TO 25COUNT. NC2514.2 086100 MOVE ZERO TO 25ANS. NC2514.2 086200 MOVE ZERO TO 25REM. NC2514.2 086300 MOVE 1 TO REC-CT. NC2514.2 086400 DIV-TEST-F5-13-0. NC2514.2 086500 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 086600 ON SIZE ERROR NC2514.2 086700 PERFORM PASS NC2514.2 086800 PERFORM PRINT-DETAIL NC2514.2 086900 GO TO DIV-TEST-F5-13-1 NC2514.2 087000 NOT ON SIZE ERROR NC2514.2 087100 MOVE "NOT ON SIZE ERROR SHOULD NOT HAVE EXECUTED" NC2514.2 087200 TO RE-MARK NC2514.2 087300 PERFORM FAIL NC2514.2 087400 PERFORM PRINT-DETAIL NC2514.2 087500 GO TO DIV-TEST-F5-13-1. NC2514.2 087600 DIV-DELETE-F5-13. NC2514.2 087700 PERFORM DE-LETE. NC2514.2 087800 PERFORM PRINT-DETAIL. NC2514.2 087900 GO TO DIV-INIT-F5-14. NC2514.2 088000 DIV-TEST-F5-13-1. NC2514.2 088100 MOVE "DIV-TEST-F5-13-1" TO PAR-NAME. NC2514.2 088200 ADD 1 TO REC-CT. NC2514.2 088300 IF 25ANS NOT = 0 NC2514.2 088400 MOVE 0 TO CORRECT-N NC2514.2 088500 MOVE 25ANS TO COMPUTED-N NC2514.2 088600 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 088700 PERFORM FAIL NC2514.2 088800 PERFORM PRINT-DETAIL NC2514.2 088900 ELSE NC2514.2 089000 PERFORM PASS NC2514.2 089100 PERFORM PRINT-DETAIL. NC2514.2 089200 DIV-TEST-F5-13-2. NC2514.2 089300 MOVE "DIV-TEST-F5-13-2" TO PAR-NAME. NC2514.2 089400 ADD 1 TO REC-CT. NC2514.2 089500 IF 25REM NOT = ZERO NC2514.2 089600 MOVE 25REM TO COMPUTED-N NC2514.2 089700 MOVE ZERO TO CORRECT-N NC2514.2 089800 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 089900 PERFORM FAIL NC2514.2 090000 PERFORM PRINT-DETAIL NC2514.2 090100 ELSE NC2514.2 090200 PERFORM PASS NC2514.2 090300 PERFORM PRINT-DETAIL. NC2514.2 090400* NC2514.2 090500 DIV-INIT-F5-14. NC2514.2 090600 MOVE "VI-82 6.11.4 GR9" TO ANSI-REFERENCE. NC2514.2 090700 MOVE "DIV-TEST-F5-14-0" TO PAR-NAME. NC2514.2 090800 MOVE 40 TO 25COUNT. NC2514.2 090900 MOVE ZERO TO 25ANS. NC2514.2 091000 MOVE ZERO TO 25REM. NC2514.2 091100 MOVE 1 TO REC-CT. NC2514.2 091200 MOVE SPACE TO WRK-XN-00001-1. NC2514.2 091300 MOVE SPACE TO WRK-XN-00001-2. NC2514.2 091400 DIV-TEST-F5-14-0. NC2514.2 091500 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 091600 ON SIZE ERROR NC2514.2 091700 MOVE "A" TO WRK-XN-00001-1 NC2514.2 091800 END-DIVIDE NC2514.2 091900 MOVE "B" TO WRK-XN-00001-2. NC2514.2 092000 GO TO DIV-TEST-F5-14-1. NC2514.2 092100 DIV-DELETE-F5-14. NC2514.2 092200 PERFORM DE-LETE. NC2514.2 092300 PERFORM PRINT-DETAIL. NC2514.2 092400 GO TO DIV-INIT-F5-15. NC2514.2 092500 DIV-TEST-F5-14-1. NC2514.2 092600 MOVE "DIV-TEST-F5-14-1" TO PAR-NAME. NC2514.2 092700 ADD 1 TO REC-CT. NC2514.2 092800 IF 25ANS NOT = 2 NC2514.2 092900 MOVE 2 TO CORRECT-N NC2514.2 093000 MOVE 25ANS TO COMPUTED-N NC2514.2 093100 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 093200 PERFORM FAIL NC2514.2 093300 PERFORM PRINT-DETAIL NC2514.2 093400 ELSE NC2514.2 093500 PERFORM PASS NC2514.2 093600 PERFORM PRINT-DETAIL. NC2514.2 093700 DIV-TEST-F5-14-2. NC2514.2 093800 MOVE "DIV-TEST-F5-14-2" TO PAR-NAME. NC2514.2 093900 ADD 1 TO REC-CT. NC2514.2 094000 IF 25REM NOT = 20 NC2514.2 094100 MOVE 25REM TO COMPUTED-N NC2514.2 094200 MOVE 20 TO CORRECT-N NC2514.2 094300 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 094400 PERFORM FAIL NC2514.2 094500 PERFORM PRINT-DETAIL NC2514.2 094600 ELSE NC2514.2 094700 PERFORM PASS NC2514.2 094800 PERFORM PRINT-DETAIL. NC2514.2 094900 DIV-TEST-F5-14-3. NC2514.2 095000 MOVE "DIV-TEST-F5-14-3" TO PAR-NAME. NC2514.2 095100 ADD 1 TO REC-CT. NC2514.2 095200 IF WRK-XN-00001-1 = SPACE NC2514.2 095300 PERFORM PASS NC2514.2 095400 PERFORM PRINT-DETAIL NC2514.2 095500 ELSE NC2514.2 095600 MOVE "ON SIZE ERROR SHOULD NOT HAVE EXECUTED" NC2514.2 095700 TO RE-MARK NC2514.2 095800 MOVE SPACE TO CORRECT-A NC2514.2 095900 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2514.2 096000 PERFORM FAIL NC2514.2 096100 PERFORM PRINT-DETAIL. NC2514.2 096200 DIV-TEST-F5-14-4. NC2514.2 096300 MOVE "DIV-TEST-F5-14-4" TO PAR-NAME. NC2514.2 096400 ADD 1 TO REC-CT. NC2514.2 096500 IF WRK-XN-00001-2 = "B" NC2514.2 096600 PERFORM PASS NC2514.2 096700 PERFORM PRINT-DETAIL NC2514.2 096800 ELSE NC2514.2 096900 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2514.2 097000 MOVE "B" TO CORRECT-A NC2514.2 097100 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2514.2 097200 PERFORM FAIL NC2514.2 097300 PERFORM PRINT-DETAIL. NC2514.2 097400* NC2514.2 097500 DIV-INIT-F5-15. NC2514.2 097600 MOVE "VI-82 6.11.4 GR9" TO ANSI-REFERENCE. NC2514.2 097700 MOVE "DIV-TEST-F5-15-0" TO PAR-NAME. NC2514.2 097800 MOVE ZERO TO 25COUNT. NC2514.2 097900 MOVE ZERO TO 25ANS. NC2514.2 098000 MOVE ZERO TO 25REM. NC2514.2 098100 MOVE SPACE TO WRK-XN-00001-1. NC2514.2 098200 MOVE SPACE TO WRK-XN-00001-2. NC2514.2 098300 MOVE 1 TO REC-CT. NC2514.2 098400 DIV-TEST-F5-15-0. NC2514.2 098500 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 098600 ON SIZE ERROR NC2514.2 098700 MOVE "A" TO WRK-XN-00001-1 NC2514.2 098800 END-DIVIDE NC2514.2 098900 MOVE "B" TO WRK-XN-00001-2. NC2514.2 099000 GO TO DIV-TEST-F5-15-1. NC2514.2 099100 DIV-DELETE-F5-15. NC2514.2 099200 PERFORM DE-LETE. NC2514.2 099300 PERFORM PRINT-DETAIL. NC2514.2 099400 GO TO DIV-INIT-F5-16. NC2514.2 099500 DIV-TEST-F5-15-1. NC2514.2 099600 MOVE "DIV-TEST-F5-15-1" TO PAR-NAME. NC2514.2 099700 ADD 1 TO REC-CT. NC2514.2 099800 IF 25ANS NOT = 0 NC2514.2 099900 MOVE 0 TO CORRECT-N NC2514.2 100000 MOVE 25ANS TO COMPUTED-N NC2514.2 100100 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 100200 PERFORM FAIL NC2514.2 100300 PERFORM PRINT-DETAIL NC2514.2 100400 ELSE NC2514.2 100500 PERFORM PASS NC2514.2 100600 PERFORM PRINT-DETAIL. NC2514.2 100700 DIV-TEST-F5-15-2. NC2514.2 100800 MOVE "DIV-TEST-F5-15-2" TO PAR-NAME. NC2514.2 100900 ADD 1 TO REC-CT. NC2514.2 101000 IF 25REM NOT = ZERO NC2514.2 101100 MOVE 25REM TO COMPUTED-N NC2514.2 101200 MOVE ZERO TO CORRECT-N NC2514.2 101300 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 101400 PERFORM FAIL NC2514.2 101500 PERFORM PRINT-DETAIL NC2514.2 101600 ELSE NC2514.2 101700 PERFORM PASS NC2514.2 101800 PERFORM PRINT-DETAIL. NC2514.2 101900 DIV-TEST-F5-15-3. NC2514.2 102000 MOVE "DIV-TEST-F5-15-3" TO PAR-NAME. NC2514.2 102100 ADD 1 TO REC-CT. NC2514.2 102200 IF WRK-XN-00001-1 = "A" NC2514.2 102300 PERFORM PASS NC2514.2 102400 PERFORM PRINT-DETAIL NC2514.2 102500 ELSE NC2514.2 102600 MOVE "ON SIZE ERROR SHOULD HAVE EXECUTED" NC2514.2 102700 TO RE-MARK NC2514.2 102800 MOVE "A" TO CORRECT-A NC2514.2 102900 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2514.2 103000 PERFORM FAIL NC2514.2 103100 PERFORM PRINT-DETAIL. NC2514.2 103200 DIV-TEST-F5-15-4. NC2514.2 103300 MOVE "DIV-TEST-F5-15-4" TO PAR-NAME. NC2514.2 103400 ADD 1 TO REC-CT. NC2514.2 103500 IF WRK-XN-00001-2 = "B" NC2514.2 103600 PERFORM PASS NC2514.2 103700 PERFORM PRINT-DETAIL NC2514.2 103800 ELSE NC2514.2 103900 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2514.2 104000 MOVE SPACE TO CORRECT-A NC2514.2 104100 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2514.2 104200 PERFORM FAIL NC2514.2 104300 PERFORM PRINT-DETAIL. NC2514.2 104400* NC2514.2 104500 DIV-INIT-F5-16. NC2514.2 104600 MOVE "VI-82 6.11.4 GR9" TO ANSI-REFERENCE. NC2514.2 104700 MOVE "DIV-TEST-F5-16-0" TO PAR-NAME. NC2514.2 104800 MOVE 40 TO 25COUNT. NC2514.2 104900 MOVE ZERO TO 25ANS. NC2514.2 105000 MOVE ZERO TO 25REM. NC2514.2 105100 MOVE 1 TO REC-CT. NC2514.2 105200 MOVE SPACE TO WRK-XN-00001-1. NC2514.2 105300 MOVE SPACE TO WRK-XN-00001-2. NC2514.2 105400 DIV-TEST-F5-16-0. NC2514.2 105500 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 105600 NOT ON SIZE ERROR NC2514.2 105700 MOVE "A" TO WRK-XN-00001-1 NC2514.2 105800 END-DIVIDE NC2514.2 105900 MOVE "B" TO WRK-XN-00001-2. NC2514.2 106000 GO TO DIV-TEST-F5-16-1. NC2514.2 106100 DIV-DELETE-F5-16. NC2514.2 106200 PERFORM DE-LETE. NC2514.2 106300 PERFORM PRINT-DETAIL. NC2514.2 106400 GO TO DIV-INIT-F5-17. NC2514.2 106500 DIV-TEST-F5-16-1. NC2514.2 106600 MOVE "DIV-TEST-F5-16-1" TO PAR-NAME. NC2514.2 106700 ADD 1 TO REC-CT. NC2514.2 106800 IF 25ANS NOT = 2 NC2514.2 106900 MOVE 2 TO CORRECT-N NC2514.2 107000 MOVE 25ANS TO COMPUTED-N NC2514.2 107100 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 107200 PERFORM FAIL NC2514.2 107300 PERFORM PRINT-DETAIL NC2514.2 107400 ELSE NC2514.2 107500 PERFORM PASS NC2514.2 107600 PERFORM PRINT-DETAIL. NC2514.2 107700 DIV-TEST-F5-16-2. NC2514.2 107800 MOVE "DIV-TEST-F5-16-2" TO PAR-NAME. NC2514.2 107900 ADD 1 TO REC-CT. NC2514.2 108000 IF 25REM NOT = 20 NC2514.2 108100 MOVE 25REM TO COMPUTED-N NC2514.2 108200 MOVE 20 TO CORRECT-N NC2514.2 108300 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 108400 PERFORM FAIL NC2514.2 108500 PERFORM PRINT-DETAIL NC2514.2 108600 ELSE NC2514.2 108700 PERFORM PASS NC2514.2 108800 PERFORM PRINT-DETAIL. NC2514.2 108900 DIV-TEST-F5-16-3. NC2514.2 109000 MOVE "DIV-TEST-F5-16-3" TO PAR-NAME. NC2514.2 109100 ADD 1 TO REC-CT. NC2514.2 109200 IF WRK-XN-00001-1 = "A" NC2514.2 109300 PERFORM PASS NC2514.2 109400 PERFORM PRINT-DETAIL NC2514.2 109500 ELSE NC2514.2 109600 MOVE "NOT ON SIZE ERROR SHOULD HAVE EXECUTED" NC2514.2 109700 TO RE-MARK NC2514.2 109800 MOVE "A" TO CORRECT-A NC2514.2 109900 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2514.2 110000 PERFORM FAIL NC2514.2 110100 PERFORM PRINT-DETAIL. NC2514.2 110200 DIV-TEST-F5-16-4. NC2514.2 110300 MOVE "DIV-TEST-F5-16-4" TO PAR-NAME. NC2514.2 110400 ADD 1 TO REC-CT. NC2514.2 110500 IF WRK-XN-00001-2 = "B" NC2514.2 110600 PERFORM PASS NC2514.2 110700 PERFORM PRINT-DETAIL NC2514.2 110800 ELSE NC2514.2 110900 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2514.2 111000 MOVE "B" TO CORRECT-A NC2514.2 111100 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2514.2 111200 PERFORM FAIL NC2514.2 111300 PERFORM PRINT-DETAIL. NC2514.2 111400* NC2514.2 111500 DIV-INIT-F5-17. NC2514.2 111600 MOVE "VI-82 6.11.4 GR9" TO ANSI-REFERENCE. NC2514.2 111700 MOVE "DIV-TEST-F5-17-0" TO PAR-NAME. NC2514.2 111800 MOVE ZERO TO 25COUNT. NC2514.2 111900 MOVE ZERO TO 25ANS. NC2514.2 112000 MOVE ZERO TO 25REM. NC2514.2 112100 MOVE SPACE TO WRK-XN-00001-1. NC2514.2 112200 MOVE SPACE TO WRK-XN-00001-2. NC2514.2 112300 MOVE 1 TO REC-CT. NC2514.2 112400 DIV-TEST-F5-17-0. NC2514.2 112500 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 112600 NOT ON SIZE ERROR NC2514.2 112700 MOVE "A" TO WRK-XN-00001-1 NC2514.2 112800 END-DIVIDE NC2514.2 112900 MOVE "B" TO WRK-XN-00001-2. NC2514.2 113000 GO TO DIV-TEST-F5-17-1. NC2514.2 113100 DIV-DELETE-F5-17. NC2514.2 113200 PERFORM DE-LETE. NC2514.2 113300 PERFORM PRINT-DETAIL. NC2514.2 113400 GO TO DIV-INIT-F5-18. NC2514.2 113500 DIV-TEST-F5-17-1. NC2514.2 113600 MOVE "DIV-TEST-F5-17-1" TO PAR-NAME. NC2514.2 113700 ADD 1 TO REC-CT. NC2514.2 113800 IF 25ANS NOT = 0 NC2514.2 113900 MOVE 0 TO CORRECT-N NC2514.2 114000 MOVE 25ANS TO COMPUTED-N NC2514.2 114100 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 114200 PERFORM FAIL NC2514.2 114300 PERFORM PRINT-DETAIL NC2514.2 114400 ELSE NC2514.2 114500 PERFORM PASS NC2514.2 114600 PERFORM PRINT-DETAIL. NC2514.2 114700 DIV-TEST-F5-17-2. NC2514.2 114800 MOVE "DIV-TEST-F5-17-2" TO PAR-NAME. NC2514.2 114900 ADD 1 TO REC-CT. NC2514.2 115000 IF 25REM NOT = ZERO NC2514.2 115100 MOVE 25REM TO COMPUTED-N NC2514.2 115200 MOVE ZERO TO CORRECT-N NC2514.2 115300 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 115400 PERFORM FAIL NC2514.2 115500 PERFORM PRINT-DETAIL NC2514.2 115600 ELSE NC2514.2 115700 PERFORM PASS NC2514.2 115800 PERFORM PRINT-DETAIL. NC2514.2 115900 DIV-TEST-F5-17-3. NC2514.2 116000 MOVE "DIV-TEST-F5-17-3" TO PAR-NAME. NC2514.2 116100 ADD 1 TO REC-CT. NC2514.2 116200 IF WRK-XN-00001-1 = SPACE NC2514.2 116300 PERFORM PASS NC2514.2 116400 PERFORM PRINT-DETAIL NC2514.2 116500 ELSE NC2514.2 116600 MOVE "NOT ON SIZE ERROR SHOULD NOT HAVE EXECUTED" NC2514.2 116700 TO RE-MARK NC2514.2 116800 MOVE SPACE TO CORRECT-A NC2514.2 116900 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2514.2 117000 PERFORM FAIL NC2514.2 117100 PERFORM PRINT-DETAIL. NC2514.2 117200 DIV-TEST-F5-17-4. NC2514.2 117300 MOVE "DIV-TEST-F5-17-4" TO PAR-NAME. NC2514.2 117400 ADD 1 TO REC-CT. NC2514.2 117500 IF WRK-XN-00001-2 = "B" NC2514.2 117600 PERFORM PASS NC2514.2 117700 PERFORM PRINT-DETAIL NC2514.2 117800 ELSE NC2514.2 117900 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2514.2 118000 MOVE "B" TO CORRECT-A NC2514.2 118100 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2514.2 118200 PERFORM FAIL NC2514.2 118300 PERFORM PRINT-DETAIL. NC2514.2 118400* NC2514.2 118500 DIV-INIT-F5-18. NC2514.2 118600 MOVE "VI-82 6.11.4 GR8" TO ANSI-REFERENCE. NC2514.2 118700 MOVE "DIV-TEST-F5-18-0" TO PAR-NAME. NC2514.2 118800 MOVE 40 TO 25COUNT. NC2514.2 118900 MOVE ZERO TO 25ANS. NC2514.2 119000 MOVE ZERO TO 25REM. NC2514.2 119100 MOVE 1 TO REC-CT. NC2514.2 119200 MOVE SPACE TO WRK-XN-00001-1. NC2514.2 119300 MOVE SPACE TO WRK-XN-00001-2. NC2514.2 119400 DIV-TEST-F5-18-0. NC2514.2 119500 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 119600 ON SIZE ERROR NC2514.2 119700 MOVE "A" TO WRK-XN-00001-1 NC2514.2 119800 NOT ON SIZE ERROR NC2514.2 119900 MOVE "B" TO WRK-XN-00001-1 NC2514.2 120000 END-DIVIDE NC2514.2 120100 MOVE "C" TO WRK-XN-00001-2. NC2514.2 120200 GO TO DIV-TEST-F5-18-1. NC2514.2 120300 DIV-DELETE-F5-18. NC2514.2 120400 PERFORM DE-LETE. NC2514.2 120500 PERFORM PRINT-DETAIL. NC2514.2 120600 GO TO DIV-INIT-F5-19. NC2514.2 120700 DIV-TEST-F5-18-1. NC2514.2 120800 MOVE "DIV-TEST-F5-18-1" TO PAR-NAME. NC2514.2 120900 ADD 1 TO REC-CT. NC2514.2 121000 IF 25ANS NOT = 2 NC2514.2 121100 MOVE 2 TO CORRECT-N NC2514.2 121200 MOVE 25ANS TO COMPUTED-N NC2514.2 121300 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 121400 PERFORM FAIL NC2514.2 121500 PERFORM PRINT-DETAIL NC2514.2 121600 ELSE NC2514.2 121700 PERFORM PASS NC2514.2 121800 PERFORM PRINT-DETAIL. NC2514.2 121900 DIV-TEST-F5-18-2. NC2514.2 122000 MOVE "DIV-TEST-F5-18-2" TO PAR-NAME. NC2514.2 122100 ADD 1 TO REC-CT. NC2514.2 122200 IF 25REM NOT = 20 NC2514.2 122300 MOVE 25REM TO COMPUTED-N NC2514.2 122400 MOVE 20 TO CORRECT-N NC2514.2 122500 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 122600 PERFORM FAIL NC2514.2 122700 PERFORM PRINT-DETAIL NC2514.2 122800 ELSE NC2514.2 122900 PERFORM PASS NC2514.2 123000 PERFORM PRINT-DETAIL. NC2514.2 123100 DIV-TEST-F5-18-3. NC2514.2 123200 MOVE "DIV-TEST-F5-18-3" TO PAR-NAME. NC2514.2 123300 ADD 1 TO REC-CT. NC2514.2 123400 IF WRK-XN-00001-1 = "B" NC2514.2 123500 PERFORM PASS NC2514.2 123600 PERFORM PRINT-DETAIL NC2514.2 123700 ELSE NC2514.2 123800 MOVE "NOT ON SIZE ERROR SHOULD HAVE EXECUTED" NC2514.2 123900 TO RE-MARK NC2514.2 124000 MOVE "B" TO CORRECT-A NC2514.2 124100 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2514.2 124200 PERFORM FAIL NC2514.2 124300 PERFORM PRINT-DETAIL. NC2514.2 124400 DIV-TEST-F5-18-4. NC2514.2 124500 MOVE "DIV-TEST-F5-18-4" TO PAR-NAME. NC2514.2 124600 ADD 1 TO REC-CT. NC2514.2 124700 IF WRK-XN-00001-2 = "C" NC2514.2 124800 PERFORM PASS NC2514.2 124900 PERFORM PRINT-DETAIL NC2514.2 125000 ELSE NC2514.2 125100 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2514.2 125200 MOVE "C" TO CORRECT-A NC2514.2 125300 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2514.2 125400 PERFORM FAIL NC2514.2 125500 PERFORM PRINT-DETAIL. NC2514.2 125600* NC2514.2 125700 DIV-INIT-F5-19. NC2514.2 125800 MOVE "VI-82 6.11.4 GR8" TO ANSI-REFERENCE. NC2514.2 125900 MOVE "DIV-TEST-F5-19-0" TO PAR-NAME. NC2514.2 126000 MOVE ZERO TO 25COUNT. NC2514.2 126100 MOVE ZERO TO 25ANS. NC2514.2 126200 MOVE ZERO TO 25REM. NC2514.2 126300 MOVE 1 TO REC-CT. NC2514.2 126400 MOVE SPACE TO WRK-XN-00001-1. NC2514.2 126500 MOVE SPACE TO WRK-XN-00001-2. NC2514.2 126600 DIV-TEST-F5-19-0. NC2514.2 126700 DIVIDE 100 BY 25COUNT GIVING 25ANS REMAINDER 25REM NC2514.2 126800 ON SIZE ERROR NC2514.2 126900 MOVE "A" TO WRK-XN-00001-1 NC2514.2 127000 NOT ON SIZE ERROR NC2514.2 127100 MOVE "B" TO WRK-XN-00001-1 NC2514.2 127200 END-DIVIDE NC2514.2 127300 MOVE "C" TO WRK-XN-00001-2. NC2514.2 127400 GO TO DIV-TEST-F5-19-1. NC2514.2 127500 DIV-DELETE-F5-19. NC2514.2 127600 PERFORM DE-LETE. NC2514.2 127700 PERFORM PRINT-DETAIL. NC2514.2 127800 GO TO DIV-INIT-F5-20. NC2514.2 127900 DIV-TEST-F5-19-1. NC2514.2 128000 MOVE "DIV-TEST-F5-19-1" TO PAR-NAME. NC2514.2 128100 ADD 1 TO REC-CT. NC2514.2 128200 IF 25ANS NOT = 0 NC2514.2 128300 MOVE 0 TO CORRECT-N NC2514.2 128400 MOVE 25ANS TO COMPUTED-N NC2514.2 128500 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 128600 PERFORM FAIL NC2514.2 128700 PERFORM PRINT-DETAIL NC2514.2 128800 ELSE NC2514.2 128900 PERFORM PASS NC2514.2 129000 PERFORM PRINT-DETAIL. NC2514.2 129100 DIV-TEST-F5-19-2. NC2514.2 129200 MOVE "DIV-TEST-F5-19-2" TO PAR-NAME. NC2514.2 129300 ADD 1 TO REC-CT. NC2514.2 129400 IF 25REM NOT = ZERO NC2514.2 129500 MOVE 25REM TO COMPUTED-N NC2514.2 129600 MOVE ZERO TO CORRECT-N NC2514.2 129700 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 129800 PERFORM FAIL NC2514.2 129900 PERFORM PRINT-DETAIL NC2514.2 130000 ELSE NC2514.2 130100 PERFORM PASS NC2514.2 130200 PERFORM PRINT-DETAIL. NC2514.2 130300 DIV-TEST-F5-19-3. NC2514.2 130400 MOVE "DIV-TEST-F5-19-3" TO PAR-NAME. NC2514.2 130500 ADD 1 TO REC-CT. NC2514.2 130600 IF WRK-XN-00001-1 = "A" NC2514.2 130700 PERFORM PASS NC2514.2 130800 PERFORM PRINT-DETAIL NC2514.2 130900 ELSE NC2514.2 131000 MOVE "ON SIZE ERROR SHOULD HAVE EXECUTED" NC2514.2 131100 TO RE-MARK NC2514.2 131200 MOVE "A" TO CORRECT-A NC2514.2 131300 MOVE WRK-XN-00001-1 TO COMPUTED-A NC2514.2 131400 PERFORM FAIL NC2514.2 131500 PERFORM PRINT-DETAIL. NC2514.2 131600 DIV-TEST-F5-19-4. NC2514.2 131700 MOVE "DIV-TEST-F5-19-4" TO PAR-NAME. NC2514.2 131800 ADD 1 TO REC-CT. NC2514.2 131900 IF WRK-XN-00001-2 = "C" NC2514.2 132000 PERFORM PASS NC2514.2 132100 PERFORM PRINT-DETAIL NC2514.2 132200 ELSE NC2514.2 132300 MOVE "SCOPE TERMINATOR IGNORED" TO RE-MARK NC2514.2 132400 MOVE "C" TO CORRECT-A NC2514.2 132500 MOVE WRK-XN-00001-2 TO COMPUTED-A NC2514.2 132600 PERFORM FAIL NC2514.2 132700 PERFORM PRINT-DETAIL. NC2514.2 132800* NC2514.2 132900 DIV-INIT-F5-20. NC2514.2 133000 MOVE "VI-82 6.11.4 GR4" TO ANSI-REFERENCE. NC2514.2 133100 MOVE "DIV-TEST-F5-20-0" TO PAR-NAME. NC2514.2 133200 MOVE ZERO TO 25ANS. NC2514.2 133300 MOVE ZERO TO 25REM. NC2514.2 133400 MOVE ZERO TO WS-REMAINDERS. NC2514.2 133500 MOVE 6 TO 25COUNT. NC2514.2 133600 MOVE 1 TO REC-CT. NC2514.2 133700 DIV-TEST-F5-20-0. NC2514.2 133800 DIVIDE 100 BY 25COUNT GIVING 25ANS NC2514.2 133900 REMAINDER WS-REM (25ANS) NC2514.2 134000 ON SIZE ERROR NC2514.2 134100 MOVE "SIZE ERROR SHOULD NOT HAVE OCCURED" NC2514.2 134200 TO RE-MARK NC2514.2 134300 PERFORM FAIL NC2514.2 134400 PERFORM PRINT-DETAIL NC2514.2 134500 GO TO DIV-TEST-F5-20-1. NC2514.2 134600 PERFORM PASS. NC2514.2 134700 PERFORM PRINT-DETAIL. NC2514.2 134800 GO TO DIV-TEST-F5-20-1. NC2514.2 134900 DIV-DELETE-F5-20. NC2514.2 135000 PERFORM DE-LETE. NC2514.2 135100 PERFORM PRINT-DETAIL. NC2514.2 135200 GO TO CCVS-EXIT. NC2514.2 135300 DIV-TEST-F5-20-1. NC2514.2 135400 MOVE "DIV-TEST-F5-20-1" TO PAR-NAME. NC2514.2 135500 ADD 1 TO REC-CT. NC2514.2 135600 IF 25ANS NOT = 16 NC2514.2 135700 MOVE 16 TO CORRECT-N NC2514.2 135800 MOVE 25ANS TO COMPUTED-N NC2514.2 135900 MOVE "INVALID QUOTIENT" TO RE-MARK NC2514.2 136000 PERFORM FAIL NC2514.2 136100 PERFORM PRINT-DETAIL NC2514.2 136200 ELSE NC2514.2 136300 PERFORM PASS NC2514.2 136400 PERFORM PRINT-DETAIL. NC2514.2 136500 DIV-TEST-F5-20-2. NC2514.2 136600 MOVE "DIV-TEST-F5-20-2" TO PAR-NAME. NC2514.2 136700 ADD 1 TO REC-CT. NC2514.2 136800 IF WS-REM (25ANS) NOT = 4 NC2514.2 136900 MOVE WS-REM (25ANS) TO COMPUTED-N NC2514.2 137000 MOVE 4 TO CORRECT-N NC2514.2 137100 MOVE "INVALID REMAINDER" TO RE-MARK NC2514.2 137200 PERFORM FAIL NC2514.2 137300 PERFORM PRINT-DETAIL NC2514.2 137400 ADD 1 TO REC-CT NC2514.2 137500 MOVE 25ANS TO COMPUTED-N NC2514.2 137600 MOVE 16 TO CORRECT-N NC2514.2 137700 MOVE "INVALID SUBSCRIPT FOR REMAINDER" TO RE-MARK NC2514.2 137800 PERFORM FAIL NC2514.2 137900 PERFORM PRINT-DETAIL NC2514.2 138000 ELSE NC2514.2 138100 PERFORM PASS NC2514.2 138200 PERFORM PRINT-DETAIL. NC2514.2 138300* NC2514.2 138400 DIV-INIT-F5-21. NC2514.2 138500 MOVE "DIV-TEST-F5-21" TO PAR-NAME. NC2514.2 138600 MOVE 10.0 TO WRK-DU-2V1-1. NC2514.2 138700 MOVE ZERO TO REC-CT. NC2514.2 138800 DIVIDE-REMAINDER-TEST-7. NC2514.2 138900 DIVIDE WRK-DU-1V17-1 BY WRK-DU-2V1-1 GIVING WRK-DU-1V5-1 NC2514.2 139000 REMAINDER WRK-NE-1 ON SIZE ERROR GO TO DIV-FAIL-F5-21. NC2514.2 139100 GO TO DIV-TEST-F5-21-1. NC2514.2 139200 DIV-DELETE-F5-21. NC2514.2 139300 PERFORM DE-LETE. NC2514.2 139400 PERFORM PRINT-DETAIL. NC2514.2 139500 GO TO CCVS-EXIT. NC2514.2 139600 DIV-FAIL-F5-21. NC2514.2 139700 PERFORM FAIL. NC2514.2 139800 MOVE "SIZE ERROR BAD" TO RE-MARK. NC2514.2 139900 PERFORM PRINT-DETAIL. NC2514.2 140000 DIV-TEST-F5-21-1. NC2514.2 140100 MOVE "DIV-TEST-F5-21-1" TO ANSI-REFERENCE. NC2514.2 140200 MOVE 1 TO REC-CT. NC2514.2 140300 IF WRK-DU-1V5-1 = 0.31415 PERFORM PASS PERFORM PRINT-DETAIL NC2514.2 140400 ELSE NC2514.2 140500 PERFORM FAIL MOVE WRK-DU-1V5-1 TO COMPUTED-N MOVE 0.31415 NC2514.2 140600 TO CORRECT-N PERFORM PRINT-DETAIL. NC2514.2 140700 ADD 1 TO REC-CT. NC2514.2 140800 DIV-TEST-F5-21-2. NC2514.2 140900 MOVE "DIV-TEST-F5-21-2" TO ANSI-REFERENCE. NC2514.2 141000 IF WRK-NE-1 = ".0000/92653,58979,32" PERFORM PASS NC2514.2 141100 PERFORM PRINT-DETAIL ELSE NC2514.2 141200 PERFORM FAIL MOVE WRK-NE-1 TO COMPUTED-A MOVE NC2514.2 141300 ".0000/92653,58979,32" TO CORRECT-A PERFORM PRINT-DETAIL. NC2514.2 141400* NC2514.2 141500 CCVS-EXIT SECTION. NC2514.2 141600 CCVS-999999. NC2514.2 141700 GO TO CLOSE-FILES. NC2514.2
¤ Dauer der Verarbeitung: 0.46 Sekunden (vorverarbeitet am 2026-04-30) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-05-26