|
000100 IDENTIFICATION DIVISION. IF1264.2
000200 PROGRAM-ID. IF1264.2
000300 IF126A. IF1264.2
000400 IF1264.2
000500*********************************************************** IF1264.2
000600* * IF1264.2
000700* This program forms part of the CCVS85 COBOL Test Suite. * IF1264.2
000800* It contains tests for the Intrinsic Function * IF1264.2
000900* NUMVAL-C. * IF1264.2
001000* * IF1264.2
001100* * IF1264.2
001200*********************************************************** IF1264.2
001300 ENVIRONMENT DIVISION. IF1264.2
001400 CONFIGURATION SECTION. IF1264.2
001500 SOURCE-COMPUTER. IF1264.2
001600 Card0130. IF1264.2
001700 OBJECT-COMPUTER. IF1264.2
001800 Card0131. IF1264.2
001900 INPUT-OUTPUT SECTION. IF1264.2
002000 FILE-CONTROL. IF1264.2
002100 SELECT PRINT-FILE ASSIGN TO IF1264.2
002200 "C0085" . IF1264.2
002300 DATA DIVISION. IF1264.2
002400 FILE SECTION. IF1264.2
002500 FD PRINT-FILE. IF1264.2
002600 01 PRINT-REC PICTURE X(120). IF1264.2
002700 01 DUMMY-RECORD PICTURE X(120). IF1264.2
002800 WORKING-STORAGE SECTION. IF1264.2
002900*********************************************************** IF1264.2
003000* Variables specific to the Intrinsic Function Test IF126A* IF1264.2
003100*********************************************************** IF1264.2
003200 01 A PIC X(1) VALUE "4". IF1264.2
003300 01 B PIC X(5) VALUE "203". IF1264.2
003400 01 C PIC X(4) VALUE ".429". IF1264.2
003500 01 D PIC X(7) VALUE "928.344". IF1264.2
003600 01 E PIC X(9) VALUE "-042.3240". IF1264.2
003700 01 F PIC X(7) VALUE " 23.000". IF1264.2
003800 01 G PIC X(8) VALUE "-92924.3". IF1264.2
003900 01 H PIC X(6) VALUE "93.21+". IF1264.2
004000 01 I PIC X(9) VALUE " 92.92 -". IF1264.2
004100 01 J PIC X(9) VALUE "8,848.934". IF1264.2
004200 01 K PIC X(12) VALUE "4,825,293.92". IF1264.2
004300 01 L PIC X(12) VALUE " - 5,555.55 ". IF1264.2
004400 01 M PIC X(9) VALUE "5,555.55-". IF1264.2
004500 01 N PIC X(13) VALUE " 77,777.77 + ". IF1264.2
004600 01 O PIC X(3) VALUE "$33". IF1264.2
004700 01 P PIC X(5) VALUE "$0.11". IF1264.2
004800 01 Q PIC X(9) VALUE "$4,000.00". IF1264.2
004900 01 R PIC X(14) VALUE "$1,000,000.50". IF1264.2
005000 01 S PIC X(14) VALUE " $ 3,900.21". IF1264.2
005100 01 T PIC X(14) VALUE " + $ 9,000.99". IF1264.2
005200 01 U PIC X(15) VALUE " $ 3,890.20 + ". IF1264.2
005300 01 TEMP PIC S9(7)V9(5). IF1264.2
005400 IF1264.2
005500* IF1264.2
005600********************************************************** IF1264.2
005700* IF1264.2
005800 01 TEST-RESULTS. IF1264.2
005900 02 FILLER PIC X VALUE SPACE. IF1264.2
006000 02 FEATURE PIC X(20) VALUE SPACE. IF1264.2
006100 02 FILLER PIC X VALUE SPACE. IF1264.2
006200 02 P-OR-F PIC X(5) VALUE SPACE. IF1264.2
006300 02 FILLER PIC X VALUE SPACE. IF1264.2
006400 02 PAR-NAME. IF1264.2
006500 03 FILLER PIC X(19) VALUE SPACE. IF1264.2
006600 03 PARDOT-X PIC X VALUE SPACE. IF1264.2
006700 03 DOTVALUE PIC 99 VALUE ZERO. IF1264.2
006800 02 FILLER PIC X(8) VALUE SPACE. IF1264.2
006900 02 RE-MARK PIC X(61). IF1264.2
007000 01 TEST-COMPUTED. IF1264.2
007100 02 FILLER PIC X(30) VALUE SPACE. IF1264.2
007200 02 FILLER PIC X(17) VALUE IF1264.2
007300 " COMPUTED=". IF1264.2
007400 02 COMPUTED-X. IF1264.2
007500 03 COMPUTED-A PIC X(20) VALUE SPACE. IF1264.2
007600 03 COMPUTED-N REDEFINES COMPUTED-A IF1264.2
007700 PIC -9(9).9(9). IF1264.2
007800 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). IF1264.2
007900 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). IF1264.2
008000 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). IF1264.2
008100 03 CM-18V0 REDEFINES COMPUTED-A. IF1264.2
008200 04 COMPUTED-18V0 PIC -9(18). IF1264.2
008300 04 FILLER PIC X. IF1264.2
008400 03 FILLER PIC X(50) VALUE SPACE. IF1264.2
008500 01 TEST-CORRECT. IF1264.2
008600 02 FILLER PIC X(30) VALUE SPACE. IF1264.2
008700 02 FILLER PIC X(17) VALUE " CORRECT =". IF1264.2
008800 02 CORRECT-X. IF1264.2
008900 03 CORRECT-A PIC X(20) VALUE SPACE. IF1264.2
009000 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). IF1264.2
009100 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). IF1264.2
009200 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). IF1264.2
009300 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). IF1264.2
009400 03 CR-18V0 REDEFINES CORRECT-A. IF1264.2
009500 04 CORRECT-18V0 PIC -9(18). IF1264.2
009600 04 FILLER PIC X. IF1264.2
009700 03 FILLER PIC X(2) VALUE SPACE. IF1264.2
009800 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. IF1264.2
009900 01 CCVS-C-1. IF1264.2
010000 02 FILLER PIC IS X(99) VALUE IS " FEATURE PAIF1264.2
010100- "SS PARAGRAPH-NAME IF1264.2
010200- " REMARKS". IF1264.2
010300 02 FILLER PIC X(20) VALUE SPACE. IF1264.2
010400 01 CCVS-C-2. IF1264.2
010500 02 FILLER PIC X VALUE SPACE. IF1264.2
010600 02 FILLER PIC X(6) VALUE "TESTED". IF1264.2
010700 02 FILLER PIC X(15) VALUE SPACE. IF1264.2
010800 02 FILLER PIC X(4) VALUE "FAIL". IF1264.2
010900 02 FILLER PIC X(94) VALUE SPACE. IF1264.2
011000 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. IF1264.2
011100 01 REC-CT PIC 99 VALUE ZERO. IF1264.2
011200 01 DELETE-COUNTER PIC 999 VALUE ZERO. IF1264.2
011300 01 ERROR-COUNTER PIC 999 VALUE ZERO. IF1264.2
011400 01 INSPECT-COUNTER PIC 999 VALUE ZERO. IF1264.2
011500 01 PASS-COUNTER PIC 999 VALUE ZERO. IF1264.2
011600 01 TOTAL-ERROR PIC 999 VALUE ZERO. IF1264.2
011700 01 ERROR-HOLD PIC 999 VALUE ZERO. IF1264.2
011800 01 DUMMY-HOLD PIC X(120) VALUE SPACE. IF1264.2
011900 01 RECORD-COUNT PIC 9(5) VALUE ZERO. IF1264.2
012000 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. IF1264.2
012100 01 CCVS-H-1. IF1264.2
012200 02 FILLER PIC X(39) VALUE SPACES. IF1264.2
012300 02 FILLER PIC X(42) VALUE IF1264.2
012400 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". IF1264.2
012500 02 FILLER PIC X(39) VALUE SPACES. IF1264.2
012600 01 CCVS-H-2A. IF1264.2
012700 02 FILLER PIC X(40) VALUE SPACE. IF1264.2
012800 02 FILLER PIC X(7) VALUE "CCVS85 ". IF1264.2
012900 02 FILLER PIC XXXX VALUE IF1264.2
013000 "4.2 ". IF1264.2
013100 02 FILLER PIC X(28) VALUE IF1264.2
013200 " COPY - NOT FOR DISTRIBUTION". IF1264.2
013300 02 FILLER PIC X(41) VALUE SPACE. IF1264.2
013400 IF1264.2
013500 01 CCVS-H-2B. IF1264.2
013600 02 FILLER PIC X(15) VALUE IF1264.2
013700 "TEST RESULT OF ". IF1264.2
013800 02 TEST-ID PIC X(9). IF1264.2
013900 02 FILLER PIC X(4) VALUE IF1264.2
014000 " IN ". IF1264.2
014100 02 FILLER PIC X(12) VALUE IF1264.2
014200 " HIGH ". IF1264.2
014300 02 FILLER PIC X(22) VALUE IF1264.2
014400 " LEVEL VALIDATION FOR ". IF1264.2
014500 02 FILLER PIC X(58) VALUE IF1264.2
014600 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IF1264.2
014700 01 CCVS-H-3. IF1264.2
014800 02 FILLER PIC X(34) VALUE IF1264.2
014900 " FOR OFFICIAL USE ONLY ". IF1264.2
015000 02 FILLER PIC X(58) VALUE IF1264.2
015100 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IF1264.2
015200 02 FILLER PIC X(28) VALUE IF1264.2
015300 " COPYRIGHT 1985 ". IF1264.2
015400 01 CCVS-E-1. IF1264.2
015500 02 FILLER PIC X(52) VALUE SPACE. IF1264.2
015600 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". IF1264.2
015700 02 ID-AGAIN PIC X(9). IF1264.2
015800 02 FILLER PIC X(45) VALUE SPACES. IF1264.2
015900 01 CCVS-E-2. IF1264.2
016000 02 FILLER PIC X(31) VALUE SPACE. IF1264.2
016100 02 FILLER PIC X(21) VALUE SPACE. IF1264.2
016200 02 CCVS-E-2-2. IF1264.2
016300 03 ERROR-TOTAL PIC XXX VALUE SPACE. IF1264.2
016400 03 FILLER PIC X VALUE SPACE. IF1264.2
016500 03 ENDER-DESC PIC X(44) VALUE IF1264.2
016600 "ERRORS ENCOUNTERED". IF1264.2
016700 01 CCVS-E-3. IF1264.2
016800 02 FILLER PIC X(22) VALUE IF1264.2
016900 " FOR OFFICIAL USE ONLY". IF1264.2
017000 02 FILLER PIC X(12) VALUE SPACE. IF1264.2
017100 02 FILLER PIC X(58) VALUE IF1264.2
017200 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IF1264.2
017300 02 FILLER PIC X(13) VALUE SPACE. IF1264.2
017400 02 FILLER PIC X(15) VALUE IF1264.2
017500 " COPYRIGHT 1985". IF1264.2
017600 01 CCVS-E-4. IF1264.2
017700 02 CCVS-E-4-1 PIC XXX VALUE SPACE. IF1264.2
017800 02 FILLER PIC X(4) VALUE " OF ". IF1264.2
017900 02 CCVS-E-4-2 PIC XXX VALUE SPACE. IF1264.2
018000 02 FILLER PIC X(40) VALUE IF1264.2
018100 " TESTS WERE EXECUTED SUCCESSFULLY". IF1264.2
018200 01 XXINFO. IF1264.2
018300 02 FILLER PIC X(19) VALUE IF1264.2
018400 "*** INFORMATION ***". IF1264.2
018500 02 INFO-TEXT. IF1264.2
018600 04 FILLER PIC X(8) VALUE SPACE. IF1264.2
018700 04 XXCOMPUTED PIC X(20). IF1264.2
018800 04 FILLER PIC X(5) VALUE SPACE. IF1264.2
018900 04 XXCORRECT PIC X(20). IF1264.2
019000 02 INF-ANSI-REFERENCE PIC X(48). IF1264.2
019100 01 HYPHEN-LINE. IF1264.2
019200 02 FILLER PIC IS X VALUE IS SPACE. IF1264.2
019300 02 FILLER PIC IS X(65) VALUE IS "************************IF1264.2
019400- "*****************************************". IF1264.2
019500 02 FILLER PIC IS X(54) VALUE IS "************************IF1264.2
019600- "******************************". IF1264.2
019700 01 CCVS-PGM-ID PIC X(9) VALUE IF1264.2
019800 "IF126A". IF1264.2
019900 PROCEDURE DIVISION. IF1264.2
020000 CCVS1 SECTION. IF1264.2
020100 OPEN-FILES. IF1264.2
020200 OPEN OUTPUT PRINT-FILE. IF1264.2
020300 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. IF1264.2
020400 MOVE SPACE TO TEST-RESULTS. IF1264.2
020500 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. IF1264.2
020600 GO TO CCVS1-EXIT. IF1264.2
020700 CLOSE-FILES. IF1264.2
020800 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. IF1264.2
020900 TERMINATE-CCVS. IF1264.2
021000 STOP RUN. IF1264.2
021100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. IF1264.2
021200 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. IF1264.2
021300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. IF1264.2
021400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. IF1264.2
021500 MOVE "****TEST DELETED****" TO RE-MARK. IF1264.2
021600 PRINT-DETAIL. IF1264.2
021700 IF REC-CT NOT EQUAL TO ZERO IF1264.2
021800 MOVE "." TO PARDOT-X IF1264.2
021900 MOVE REC-CT TO DOTVALUE. IF1264.2
022000 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. IF1264.2
022100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE IF1264.2
022200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX IF1264.2
022300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. IF1264.2
022400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. IF1264.2
022500 MOVE SPACE TO CORRECT-X. IF1264.2
022600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. IF1264.2
022700 MOVE SPACE TO RE-MARK. IF1264.2
022800 HEAD-ROUTINE. IF1264.2
022900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IF1264.2
023000 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IF1264.2
023100 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IF1264.2
023200 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. IF1264.2
023300 COLUMN-NAMES-ROUTINE. IF1264.2
023400 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. IF1264.2
023500 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IF1264.2
023600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. IF1264.2
023700 END-ROUTINE. IF1264.2
023800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IF1264.2
023900 END-RTN-EXIT. IF1264.2
024000 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IF1264.2
024100 END-ROUTINE-1. IF1264.2
024200 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO IF1264.2
024300 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. IF1264.2
024400 ADD PASS-COUNTER TO ERROR-HOLD. IF1264.2
024500 MOVE PASS-COUNTER TO CCVS-E-4-1. IF1264.2
024600 MOVE ERROR-HOLD TO CCVS-E-4-2. IF1264.2
024700 MOVE CCVS-E-4 TO CCVS-E-2-2. IF1264.2
024800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. IF1264.2
024900 END-ROUTINE-12. IF1264.2
025000 MOVE "TEST(S) FAILED" TO ENDER-DESC. IF1264.2
025100 IF ERROR-COUNTER IS EQUAL TO ZERO IF1264.2
025200 MOVE "NO " TO ERROR-TOTAL IF1264.2
025300 ELSE IF1264.2
025400 MOVE ERROR-COUNTER TO ERROR-TOTAL. IF1264.2
025500 MOVE CCVS-E-2 TO DUMMY-RECORD. IF1264.2
025600 PERFORM WRITE-LINE. IF1264.2
025700 END-ROUTINE-13. IF1264.2
025800 IF DELETE-COUNTER IS EQUAL TO ZERO IF1264.2
025900 MOVE "NO " TO ERROR-TOTAL ELSE IF1264.2
026000 MOVE DELETE-COUNTER TO ERROR-TOTAL. IF1264.2
026100 MOVE "TEST(S) DELETED " TO ENDER-DESC. IF1264.2
026200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IF1264.2
026300 IF INSPECT-COUNTER EQUAL TO ZERO IF1264.2
026400 MOVE "NO " TO ERROR-TOTAL IF1264.2
026500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. IF1264.2
026600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. IF1264.2
026700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. IF1264.2
026800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. IF1264.2
026900 WRITE-LINE. IF1264.2
027000 ADD 1 TO RECORD-COUNT. IF1264.2
027100 IF RECORD-COUNT GREATER 42 IF1264.2
027200 MOVE DUMMY-RECORD TO DUMMY-HOLD IF1264.2
027300 MOVE SPACE TO DUMMY-RECORD IF1264.2
027400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE IF1264.2
027500 MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IF1264.2
027600 MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES IF1264.2
027700 MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IF1264.2
027800 MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES IF1264.2
027900 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN IF1264.2
028000 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN IF1264.2
028100 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN IF1264.2
028200 MOVE DUMMY-HOLD TO DUMMY-RECORD IF1264.2
028300 MOVE ZERO TO RECORD-COUNT. IF1264.2
028400 PERFORM WRT-LN. IF1264.2
028500 WRT-LN. IF1264.2
028600 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. IF1264.2
028700 MOVE SPACE TO DUMMY-RECORD. IF1264.2
028800 BLANK-LINE-PRINT. IF1264.2
028900 PERFORM WRT-LN. IF1264.2
029000 FAIL-ROUTINE. IF1264.2
029100 IF COMPUTED-X NOT EQUAL TO SPACE IF1264.2
029200 GO TO FAIL-ROUTINE-WRITE. IF1264.2
029300 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IF1264.2
029400 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IF1264.2
029500 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. IF1264.2
029600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IF1264.2
029700 MOVE SPACES TO INF-ANSI-REFERENCE. IF1264.2
029800 GO TO FAIL-ROUTINE-EX. IF1264.2
029900 FAIL-ROUTINE-WRITE. IF1264.2
030000 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE IF1264.2
030100 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. IF1264.2
030200 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IF1264.2
030300 MOVE SPACES TO COR-ANSI-REFERENCE. IF1264.2
030400 FAIL-ROUTINE-EX. EXIT. IF1264.2
030500 BAIL-OUT. IF1264.2
030600 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. IF1264.2
030700 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. IF1264.2
030800 BAIL-OUT-WRITE. IF1264.2
030900 MOVE CORRECT-A TO XXCORRECT. IF1264.2
031000 MOVE COMPUTED-A TO XXCOMPUTED. IF1264.2
031100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. IF1264.2
031200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. IF1264.2
031300 MOVE SPACES TO INF-ANSI-REFERENCE. IF1264.2
031400 BAIL-OUT-EX. EXIT. IF1264.2
031500 CCVS1-EXIT. IF1264.2
031600 EXIT. IF1264.2
031700******************************************************** IF1264.2
031800* * IF1264.2
031900* Intrinsic Function Tests IF126A - NUMVAL-C * IF1264.2
032000* * IF1264.2
032100******************************************************** IF1264.2
032200 SECT-IF126A SECTION. IF1264.2
032300 F-NUMVALC-INFO. IF1264.2
032400 MOVE "See ref. A-59 2.30" TO ANSI-REFERENCE. IF1264.2
032500 MOVE "NUMVAL-C Function" TO FEATURE. IF1264.2
032600*****************TEST (a) ****************************** IF1264.2
032700 F-NUMVALC-01. IF1264.2
032800 MOVE ZERO TO TEMP. IF1264.2
032900 F-NUMVALC-TEST-01. IF1264.2
033000 COMPUTE TEMP = FUNCTION NUMVAL-C ("9"). IF1264.2
033100 IF TEMP = 9 THEN IF1264.2
033200 PERFORM PASS IF1264.2
033300 ELSE IF1264.2
033400 MOVE 9 TO CORRECT-N IF1264.2
033500 MOVE TEMP TO COMPUTED-N IF1264.2
033600 PERFORM FAIL. IF1264.2
033700 GO TO F-NUMVALC-WRITE-01. IF1264.2
033800 F-NUMVALC-DELETE-01. IF1264.2
033900 PERFORM DE-LETE. IF1264.2
034000 GO TO F-NUMVALC-WRITE-01. IF1264.2
034100 F-NUMVALC-WRITE-01. IF1264.2
034200 MOVE "F-NUMVALC-01" TO PAR-NAME. IF1264.2
034300 PERFORM PRINT-DETAIL. IF1264.2
034400*****************TEST (b) ******************************* IF1264.2
034500 F-NUMVALC-02. IF1264.2
034600 MOVE 77 TO TEMP. IF1264.2
034700 F-NUMVALC-TEST-02. IF1264.2
034800 EVALUATE FUNCTION NUMVAL-C (B) IF1264.2
034900 ALSO ( TEMP + 96 ) * 2 IF1264.2
035000 WHEN 203 IF1264.2
035100 ALSO 346 IF1264.2
035200 PERFORM PASS IF1264.2
035300 GO TO F-NUMVALC-WRITE-02. IF1264.2
035400 PERFORM FAIL. IF1264.2
035500 GO TO F-NUMVALC-WRITE-02. IF1264.2
035600 F-NUMVALC-DELETE-02. IF1264.2
035700 PERFORM DE-LETE. IF1264.2
035800 GO TO F-NUMVALC-WRITE-02. IF1264.2
035900 F-NUMVALC-WRITE-02. IF1264.2
036000 MOVE "F-NUMVALC-02" TO PAR-NAME. IF1264.2
036100 PERFORM PRINT-DETAIL. IF1264.2
036200*****************TEST (c) ****************************** IF1264.2
036300 F-NUMVALC-TEST-03. IF1264.2
036400 IF FUNCTION NUMVAL-C ("92,483") = 92483 THEN IF1264.2
036500 PERFORM PASS IF1264.2
036600 ELSE IF1264.2
036700 PERFORM FAIL. IF1264.2
036800 GO TO F-NUMVALC-WRITE-03. IF1264.2
036900 F-NUMVALC-DELETE-03. IF1264.2
037000 PERFORM DE-LETE. IF1264.2
037100 GO TO F-NUMVALC-WRITE-03. IF1264.2
037200 F-NUMVALC-WRITE-03. IF1264.2
037300 MOVE "F-NUMVALC-03" TO PAR-NAME. IF1264.2
037400 PERFORM PRINT-DETAIL. IF1264.2
037500*****************TEST (d) ****************************** IF1264.2
037600 F-NUMVALC-04. IF1264.2
037700 MOVE ZERO TO TEMP. IF1264.2
037800 F-NUMVALC-TEST-04. IF1264.2
037900 COMPUTE TEMP = FUNCTION NUMVAL-C (C). IF1264.2
038000 IF (TEMP >= 0.428991) AND IF1264.2
038100 (TEMP <= 0.429009) IF1264.2
038200 PERFORM PASS IF1264.2
038300 ELSE IF1264.2
038400 MOVE 0.429 TO CORRECT-N IF1264.2
038500 MOVE TEMP TO COMPUTED-N IF1264.2
038600 PERFORM FAIL. IF1264.2
038700 GO TO F-NUMVALC-WRITE-04. IF1264.2
038800 F-NUMVALC-DELETE-04. IF1264.2
038900 PERFORM DE-LETE. IF1264.2
039000 GO TO F-NUMVALC-WRITE-04. IF1264.2
039100 F-NUMVALC-WRITE-04. IF1264.2
039200 MOVE "F-NUMVALC-04" TO PAR-NAME. IF1264.2
039300 PERFORM PRINT-DETAIL. IF1264.2
039400*****************TEST (e) ****************************** IF1264.2
039500 F-NUMVALC-05. IF1264.2
039600 MOVE ZERO TO TEMP. IF1264.2
039700 F-NUMVALC-TEST-05. IF1264.2
039800 COMPUTE TEMP = FUNCTION NUMVAL-C ("385.93"). IF1264.2
039900 IF (TEMP >= 385.922) AND IF1264.2
040000 (TEMP <= 385.938) IF1264.2
040100 PERFORM PASS IF1264.2
040200 ELSE IF1264.2
040300 MOVE 385.93 TO CORRECT-N IF1264.2
040400 MOVE TEMP TO COMPUTED-N IF1264.2
040500 PERFORM FAIL. IF1264.2
040600 GO TO F-NUMVALC-WRITE-05. IF1264.2
040700 F-NUMVALC-DELETE-05. IF1264.2
040800 PERFORM DE-LETE. IF1264.2
040900 GO TO F-NUMVALC-WRITE-05. IF1264.2
041000 F-NUMVALC-WRITE-05. IF1264.2
041100 MOVE "F-NUMVALC-05" TO PAR-NAME. IF1264.2
041200 PERFORM PRINT-DETAIL. IF1264.2
041300*****************TEST (f) ****************************** IF1264.2
041400 F-NUMVALC-06. IF1264.2
041500 MOVE ZERO TO TEMP. IF1264.2
041600 F-NUMVALC-TEST-06. IF1264.2
041700 COMPUTE TEMP = FUNCTION NUMVAL-C (J). IF1264.2
041800 IF (TEMP >= 8848.76) AND IF1264.2
041900 (TEMP <= 8849.11) IF1264.2
042000 PERFORM PASS IF1264.2
042100 ELSE IF1264.2
042200 MOVE 8848.934 TO CORRECT-N IF1264.2
042300 MOVE TEMP TO COMPUTED-N IF1264.2
042400 PERFORM FAIL. IF1264.2
042500 GO TO F-NUMVALC-WRITE-06. IF1264.2
042600 F-NUMVALC-DELETE-06. IF1264.2
042700 PERFORM DE-LETE. IF1264.2
042800 GO TO F-NUMVALC-WRITE-06. IF1264.2
042900 F-NUMVALC-WRITE-06. IF1264.2
043000 MOVE "F-NUMVALC-06" TO PAR-NAME. IF1264.2
043100 PERFORM PRINT-DETAIL. IF1264.2
043200*****************TEST (g) ****************************** IF1264.2
043300 F-NUMVALC-07. IF1264.2
043400 MOVE ZERO TO TEMP. IF1264.2
043500 F-NUMVALC-TEST-07. IF1264.2
043600 COMPUTE TEMP = FUNCTION NUMVAL-C ("+394.2 "). IF1264.2
043700 IF (TEMP >= 394.192) AND IF1264.2
043800 (TEMP <= 394.208) IF1264.2
043900 PERFORM PASS IF1264.2
044000 ELSE IF1264.2
044100 MOVE 394.2 TO CORRECT-N IF1264.2
044200 MOVE TEMP TO COMPUTED-N IF1264.2
044300 PERFORM FAIL. IF1264.2
044400 GO TO F-NUMVALC-WRITE-07. IF1264.2
044500 F-NUMVALC-DELETE-07. IF1264.2
044600 PERFORM DE-LETE. IF1264.2
044700 GO TO F-NUMVALC-WRITE-07. IF1264.2
044800 F-NUMVALC-WRITE-07. IF1264.2
044900 MOVE "F-NUMVALC-07" TO PAR-NAME. IF1264.2
045000 PERFORM PRINT-DETAIL. IF1264.2
045100*****************TEST (h) ****************************** IF1264.2
045200 F-NUMVALC-08. IF1264.2
045300 MOVE ZERO TO TEMP. IF1264.2
045400 F-NUMVALC-TEST-08. IF1264.2
045500 COMPUTE TEMP = FUNCTION NUMVAL-C (" 939.83"). IF1264.2
045600 IF (TEMP >= 939.811) AND IF1264.2
045700 (TEMP <= 939.849) IF1264.2
045800 PERFORM PASS IF1264.2
045900 ELSE IF1264.2
046000 MOVE 939.83 TO CORRECT-N IF1264.2
046100 MOVE TEMP TO COMPUTED-N IF1264.2
046200 PERFORM FAIL. IF1264.2
046300 GO TO F-NUMVALC-WRITE-08. IF1264.2
046400 F-NUMVALC-DELETE-08. IF1264.2
046500 PERFORM DE-LETE. IF1264.2
046600 GO TO F-NUMVALC-WRITE-08. IF1264.2
046700 F-NUMVALC-WRITE-08. IF1264.2
046800 MOVE "F-NUMVALC-08" TO PAR-NAME. IF1264.2
046900 PERFORM PRINT-DETAIL. IF1264.2
047000*****************TEST (i) ****************************** IF1264.2
047100 F-NUMVALC-09. IF1264.2
047200 MOVE ZERO TO TEMP. IF1264.2
047300 F-NUMVALC-TEST-09. IF1264.2
047400 COMPUTE TEMP = FUNCTION NUMVAL-C (" - 4929.0323"). IF1264.2
047500 IF (TEMP >= -4929.1309) AND IF1264.2
047600 (TEMP <= -4928.9337) IF1264.2
047700 PERFORM PASS IF1264.2
047800 ELSE IF1264.2
047900 MOVE -4929.0323 TO CORRECT-N IF1264.2
048000 MOVE TEMP TO COMPUTED-N IF1264.2
048100 PERFORM FAIL. IF1264.2
048200 GO TO F-NUMVALC-WRITE-09. IF1264.2
048300 F-NUMVALC-DELETE-09. IF1264.2
048400 PERFORM DE-LETE. IF1264.2
048500 GO TO F-NUMVALC-WRITE-09. IF1264.2
048600 F-NUMVALC-WRITE-09. IF1264.2
048700 MOVE "F-NUMVALC-09" TO PAR-NAME. IF1264.2
048800 PERFORM PRINT-DETAIL. IF1264.2
048900*****************TEST (j) ****************************** IF1264.2
049000 F-NUMVALC-10. IF1264.2
049100 MOVE ZERO TO TEMP. IF1264.2
049200 F-NUMVALC-TEST-10. IF1264.2
049300 COMPUTE TEMP = FUNCTION NUMVAL-C (K). IF1264.2
049400 IF (TEMP >= 4825197.41) AND IF1264.2
049500 (TEMP <= 4825390.43) IF1264.2
049600 PERFORM PASS IF1264.2
049700 ELSE IF1264.2
049800 MOVE 4825293.92 TO CORRECT-N IF1264.2
049900 MOVE TEMP TO COMPUTED-N IF1264.2
050000 PERFORM FAIL. IF1264.2
050100 GO TO F-NUMVALC-WRITE-10. IF1264.2
050200 F-NUMVALC-DELETE-10. IF1264.2
050300 PERFORM DE-LETE. IF1264.2
050400 GO TO F-NUMVALC-WRITE-10. IF1264.2
050500 F-NUMVALC-WRITE-10. IF1264.2
050600 MOVE "F-NUMVALC-10" TO PAR-NAME. IF1264.2
050700 PERFORM PRINT-DETAIL. IF1264.2
050800*****************TEST (k) ****************************** IF1264.2
050900 F-NUMVALC-11. IF1264.2
051000 MOVE ZERO TO TEMP. IF1264.2
051100 F-NUMVALC-TEST-11. IF1264.2
051200 COMPUTE TEMP = FUNCTION NUMVAL-C (L). IF1264.2
051300 IF (TEMP >= -5555.66) AND IF1264.2
051400 (TEMP <= -5555.44) IF1264.2
051500 PERFORM PASS IF1264.2
051600 ELSE IF1264.2
051700 MOVE -5555.55 TO CORRECT-N IF1264.2
051800 MOVE TEMP TO COMPUTED-N IF1264.2
051900 PERFORM FAIL. IF1264.2
052000 GO TO F-NUMVALC-WRITE-11. IF1264.2
052100 F-NUMVALC-DELETE-11. IF1264.2
052200 PERFORM DE-LETE. IF1264.2
052300 GO TO F-NUMVALC-WRITE-11. IF1264.2
052400 F-NUMVALC-WRITE-11. IF1264.2
052500 MOVE "F-NUMVALC-11" TO PAR-NAME. IF1264.2
052600 PERFORM PRINT-DETAIL. IF1264.2
052700*****************TEST (l) ****************************** IF1264.2
052800 F-NUMVALC-12. IF1264.2
052900 MOVE ZERO TO TEMP. IF1264.2
053000 F-NUMVALC-TEST-12. IF1264.2
053100 COMPUTE TEMP = FUNCTION NUMVAL-C ("82.9312+"). IF1264.2
053200 IF (TEMP >= 82.9295) AND IF1264.2
053300 (TEMP <= 82.9329) IF1264.2
053400 PERFORM PASS IF1264.2
053500 ELSE IF1264.2
053600 MOVE 82.9312 TO CORRECT-N IF1264.2
053700 MOVE TEMP TO COMPUTED-N IF1264.2
053800 PERFORM FAIL. IF1264.2
053900 GO TO F-NUMVALC-WRITE-12. IF1264.2
054000 F-NUMVALC-DELETE-12. IF1264.2
054100 PERFORM DE-LETE. IF1264.2
054200 GO TO F-NUMVALC-WRITE-12. IF1264.2
054300 F-NUMVALC-WRITE-12. IF1264.2
054400 MOVE "F-NUMVALC-12" TO PAR-NAME. IF1264.2
054500 PERFORM PRINT-DETAIL. IF1264.2
054600*****************TEST (m) ****************************** IF1264.2
054700 F-NUMVALC-13. IF1264.2
054800 MOVE ZERO TO TEMP. IF1264.2
054900 F-NUMVALC-TEST-13. IF1264.2
055000 COMPUTE TEMP = FUNCTION NUMVAL-C (M). IF1264.2
055100 IF (TEMP >= -5555.66) AND IF1264.2
055200 (TEMP <= -5555.44) IF1264.2
055300 PERFORM PASS IF1264.2
055400 ELSE IF1264.2
055500 MOVE -5555.55 TO CORRECT-N IF1264.2
055600 MOVE TEMP TO COMPUTED-N IF1264.2
055700 PERFORM FAIL. IF1264.2
055800 GO TO F-NUMVALC-WRITE-13. IF1264.2
055900 F-NUMVALC-DELETE-13. IF1264.2
056000 PERFORM DE-LETE. IF1264.2
056100 GO TO F-NUMVALC-WRITE-13. IF1264.2
056200 F-NUMVALC-WRITE-13. IF1264.2
056300 MOVE "F-NUMVALC-13" TO PAR-NAME. IF1264.2
056400 PERFORM PRINT-DETAIL. IF1264.2
056500*****************TEST (n) ****************************** IF1264.2
056600 F-NUMVALC-14. IF1264.2
056700 MOVE ZERO TO TEMP. IF1264.2
056800 F-NUMVALC-TEST-14. IF1264.2
056900 COMPUTE TEMP = FUNCTION NUMVAL-C (" 200.0002 - "). IF1264.2
057000 IF (TEMP >= -200.0042) AND IF1264.2
057100 (TEMP <= -199.9962) IF1264.2
057200 PERFORM PASS IF1264.2
057300 ELSE IF1264.2
057400 MOVE -200.0002 TO CORRECT-N IF1264.2
057500 MOVE TEMP TO COMPUTED-N IF1264.2
057600 PERFORM FAIL. IF1264.2
057700 GO TO F-NUMVALC-WRITE-14. IF1264.2
057800 F-NUMVALC-DELETE-14. IF1264.2
057900 PERFORM DE-LETE. IF1264.2
058000 GO TO F-NUMVALC-WRITE-14. IF1264.2
058100 F-NUMVALC-WRITE-14. IF1264.2
058200 MOVE "F-NUMVALC-14" TO PAR-NAME. IF1264.2
058300 PERFORM PRINT-DETAIL. IF1264.2
058400*****************TEST (o) ****************************** IF1264.2
058500 F-NUMVALC-15. IF1264.2
058600 MOVE ZERO TO TEMP. IF1264.2
058700 F-NUMVALC-TEST-15. IF1264.2
058800 COMPUTE TEMP = FUNCTION NUMVAL-C (N). IF1264.2
058900 IF (TEMP >= 77776.21) AND IF1264.2
059000 (TEMP <= 77779.33) IF1264.2
059100 PERFORM PASS IF1264.2
059200 ELSE IF1264.2
059300 MOVE 77777.77 TO CORRECT-N IF1264.2
059400 MOVE TEMP TO COMPUTED-N IF1264.2
059500 PERFORM FAIL. IF1264.2
059600 GO TO F-NUMVALC-WRITE-15. IF1264.2
059700 F-NUMVALC-DELETE-15. IF1264.2
059800 PERFORM DE-LETE. IF1264.2
059900 GO TO F-NUMVALC-WRITE-15. IF1264.2
060000 F-NUMVALC-WRITE-15. IF1264.2
060100 MOVE "F-NUMVALC-15" TO PAR-NAME. IF1264.2
060200 PERFORM PRINT-DETAIL. IF1264.2
060300*****************TEST (p) ****************************** IF1264.2
060400 F-NUMVALC-16. IF1264.2
060500 MOVE ZERO TO TEMP. IF1264.2
060600 F-NUMVALC-TEST-16. IF1264.2
060700 COMPUTE TEMP = FUNCTION NUMVAL-C ("$5", "$"). IF1264.2
060800 IF TEMP = 5 THEN IF1264.2
060900 PERFORM PASS IF1264.2
061000 ELSE IF1264.2
061100 MOVE 5 TO CORRECT-N IF1264.2
061200 MOVE TEMP TO COMPUTED-N IF1264.2
061300 PERFORM FAIL. IF1264.2
061400 GO TO F-NUMVALC-WRITE-16. IF1264.2
061500 F-NUMVALC-DELETE-16. IF1264.2
061600 PERFORM DE-LETE. IF1264.2
061700 GO TO F-NUMVALC-WRITE-16. IF1264.2
061800 F-NUMVALC-WRITE-16. IF1264.2
061900 MOVE "F-NUMVALC-16" TO PAR-NAME. IF1264.2
062000 PERFORM PRINT-DETAIL. IF1264.2
062100*****************TEST (q) ****************************** IF1264.2
062200 F-NUMVALC-17. IF1264.2
062300 MOVE ZERO TO TEMP. IF1264.2
062400 F-NUMVALC-TEST-17. IF1264.2
062500 COMPUTE TEMP = FUNCTION NUMVAL-C (O, "$"). IF1264.2
062600 IF TEMP = 33 THEN IF1264.2
062700 PERFORM PASS IF1264.2
062800 ELSE IF1264.2
062900 MOVE 33 TO CORRECT-N IF1264.2
063000 MOVE TEMP TO COMPUTED-N IF1264.2
063100 PERFORM FAIL. IF1264.2
063200 GO TO F-NUMVALC-WRITE-17. IF1264.2
063300 F-NUMVALC-DELETE-17. IF1264.2
063400 PERFORM DE-LETE. IF1264.2
063500 GO TO F-NUMVALC-WRITE-17. IF1264.2
063600 F-NUMVALC-WRITE-17. IF1264.2
063700 MOVE "F-NUMVALC-17" TO PAR-NAME. IF1264.2
063800 PERFORM PRINT-DETAIL. IF1264.2
063900*****************TEST (r) ****************************** IF1264.2
064000 F-NUMVALC-18. IF1264.2
064100 MOVE ZERO TO TEMP. IF1264.2
064200 F-NUMVALC-TEST-18. IF1264.2
064300 COMPUTE TEMP = FUNCTION NUMVAL-C ("$93,021", "$"). IF1264.2
064400 IF TEMP = 93021 THEN IF1264.2
064500 PERFORM PASS IF1264.2
064600 ELSE IF1264.2
064700 MOVE 93021 TO CORRECT-N IF1264.2
064800 MOVE TEMP TO COMPUTED-N IF1264.2
064900 PERFORM FAIL. IF1264.2
065000 GO TO F-NUMVALC-WRITE-18. IF1264.2
065100 F-NUMVALC-DELETE-18. IF1264.2
065200 PERFORM DE-LETE. IF1264.2
065300 GO TO F-NUMVALC-WRITE-18. IF1264.2
065400 F-NUMVALC-WRITE-18. IF1264.2
065500 MOVE "F-NUMVALC-18" TO PAR-NAME. IF1264.2
065600 PERFORM PRINT-DETAIL. IF1264.2
065700*****************TEST (t) ****************************** IF1264.2
065800 F-NUMVALC-20. IF1264.2
065900 MOVE ZERO TO TEMP. IF1264.2
066000 F-NUMVALC-TEST-20. IF1264.2
066100 COMPUTE TEMP = FUNCTION NUMVAL-C ("$924.93", "$"). IF1264.2
066200 IF (TEMP >= 924.912) AND IF1264.2
066300 (TEMP <= 924.948) IF1264.2
066400 PERFORM PASS IF1264.2
066500 ELSE IF1264.2
066600 MOVE 924.93 TO CORRECT-N IF1264.2
066700 MOVE TEMP TO COMPUTED-N IF1264.2
066800 PERFORM FAIL. IF1264.2
066900 GO TO F-NUMVALC-WRITE-20. IF1264.2
067000 F-NUMVALC-DELETE-20. IF1264.2
067100 PERFORM DE-LETE. IF1264.2
067200 GO TO F-NUMVALC-WRITE-20. IF1264.2
067300 F-NUMVALC-WRITE-20. IF1264.2
067400 MOVE "F-NUMVALC-20" TO PAR-NAME. IF1264.2
067500 PERFORM PRINT-DETAIL. IF1264.2
067600*****************TEST (u) ****************************** IF1264.2
067700 F-NUMVALC-21. IF1264.2
067800 MOVE ZERO TO TEMP. IF1264.2
067900 F-NUMVALC-TEST-21. IF1264.2
068000 COMPUTE TEMP = FUNCTION NUMVAL-C (Q, "$"). IF1264.2
068100 IF TEMP = 4000 THEN IF1264.2
068200 PERFORM PASS IF1264.2
068300 ELSE IF1264.2
068400 MOVE 4000 TO CORRECT-N IF1264.2
068500 MOVE TEMP TO COMPUTED-N IF1264.2
068600 PERFORM FAIL. IF1264.2
068700 GO TO F-NUMVALC-WRITE-21. IF1264.2
068800 F-NUMVALC-DELETE-21. IF1264.2
068900 PERFORM DE-LETE. IF1264.2
069000 GO TO F-NUMVALC-WRITE-21. IF1264.2
069100 F-NUMVALC-WRITE-21. IF1264.2
069200 MOVE "F-NUMVALC-21" TO PAR-NAME. IF1264.2
069300 PERFORM PRINT-DETAIL. IF1264.2
069400*****************TEST (v) ****************************** IF1264.2
069500 F-NUMVALC-22. IF1264.2
069600 MOVE ZERO TO TEMP. IF1264.2
069700 F-NUMVALC-TEST-22. IF1264.2
069800 COMPUTE TEMP = FUNCTION NUMVAL-C ("-$34.03", "$"). IF1264.2
069900 IF (TEMP >= -34.0307) AND IF1264.2
070000 (TEMP <= -34.0293) IF1264.2
070100 PERFORM PASS IF1264.2
070200 ELSE IF1264.2
070300 MOVE -34.03 TO CORRECT-N IF1264.2
070400 MOVE TEMP TO COMPUTED-N IF1264.2
070500 PERFORM FAIL. IF1264.2
070600 GO TO F-NUMVALC-WRITE-22. IF1264.2
070700 F-NUMVALC-DELETE-22. IF1264.2
070800 PERFORM DE-LETE. IF1264.2
070900 GO TO F-NUMVALC-WRITE-22. IF1264.2
071000 F-NUMVALC-WRITE-22. IF1264.2
071100 MOVE "F-NUMVALC-22" TO PAR-NAME. IF1264.2
071200 PERFORM PRINT-DETAIL. IF1264.2
071300*****************TEST (w) ****************************** IF1264.2
071400 F-NUMVALC-23. IF1264.2
071500 MOVE ZERO TO TEMP. IF1264.2
071600 F-NUMVALC-TEST-23. IF1264.2
071700 COMPUTE TEMP = FUNCTION NUMVAL-C (R, "$"). IF1264.2
071800 IF (TEMP >= 999980.5) AND IF1264.2
071900 (TEMP <= 1000020.5) IF1264.2
072000 PERFORM PASS IF1264.2
072100 ELSE IF1264.2
072200 MOVE 1000000.5 TO CORRECT-N IF1264.2
072300 MOVE TEMP TO COMPUTED-N IF1264.2
072400 PERFORM FAIL. IF1264.2
072500 GO TO F-NUMVALC-WRITE-23. IF1264.2
072600 F-NUMVALC-DELETE-23. IF1264.2
072700 PERFORM DE-LETE. IF1264.2
072800 GO TO F-NUMVALC-WRITE-23. IF1264.2
072900 F-NUMVALC-WRITE-23. IF1264.2
073000 MOVE "F-NUMVALC-23" TO PAR-NAME. IF1264.2
073100 PERFORM PRINT-DETAIL. IF1264.2
073200*****************TEST (x) ****************************** IF1264.2
073300 F-NUMVALC-24. IF1264.2
073400 MOVE ZERO TO TEMP. IF1264.2
073500 F-NUMVALC-TEST-24. IF1264.2
073600 COMPUTE TEMP = FUNCTION NUMVAL-C (" $ 89.01", "$"). IF1264.2
073700 IF (TEMP >= 89.0082) AND IF1264.2
073800 (TEMP <= 89.0118) IF1264.2
073900 PERFORM PASS IF1264.2
074000 ELSE IF1264.2
074100 MOVE 89.01 TO CORRECT-N IF1264.2
074200 MOVE TEMP TO COMPUTED-N IF1264.2
074300 PERFORM FAIL. IF1264.2
074400 GO TO F-NUMVALC-WRITE-24. IF1264.2
074500 F-NUMVALC-DELETE-24. IF1264.2
074600 PERFORM DE-LETE. IF1264.2
074700 GO TO F-NUMVALC-WRITE-24. IF1264.2
074800 F-NUMVALC-WRITE-24. IF1264.2
074900 MOVE "F-NUMVALC-24" TO PAR-NAME. IF1264.2
075000 PERFORM PRINT-DETAIL. IF1264.2
075100*****************TEST (y) ****************************** IF1264.2
075200 F-NUMVALC-25. IF1264.2
075300 MOVE ZERO TO TEMP. IF1264.2
075400 F-NUMVALC-TEST-25. IF1264.2
075500 COMPUTE TEMP = FUNCTION NUMVAL-C (S, "$"). IF1264.2
075600 IF (TEMP >= 3900.13) AND IF1264.2
075700 (TEMP <= 3900.29) IF1264.2
075800 PERFORM PASS IF1264.2
075900 ELSE IF1264.2
076000 MOVE 3900.21 TO CORRECT-N IF1264.2
076100 MOVE TEMP TO COMPUTED-N IF1264.2
076200 PERFORM FAIL. IF1264.2
076300 GO TO F-NUMVALC-WRITE-25. IF1264.2
076400 F-NUMVALC-DELETE-25. IF1264.2
076500 PERFORM DE-LETE. IF1264.2
076600 GO TO F-NUMVALC-WRITE-25. IF1264.2
076700 F-NUMVALC-WRITE-25. IF1264.2
076800 MOVE "F-NUMVALC-25" TO PAR-NAME. IF1264.2
076900 PERFORM PRINT-DETAIL. IF1264.2
077000*****************TEST (z) ****************************** IF1264.2
077100 F-NUMVALC-26. IF1264.2
077200 MOVE ZERO TO TEMP. IF1264.2
077300 F-NUMVALC-TEST-26. IF1264.2
077400 COMPUTE TEMP = FUNCTION NUMVAL-C ("- $ 890.21", "$"). IF1264.2
077500 IF (TEMP >= -890.228) AND IF1264.2
077600 (TEMP <= -890.192) IF1264.2
077700 PERFORM PASS IF1264.2
077800 ELSE IF1264.2
077900 MOVE -890.21 TO CORRECT-N IF1264.2
078000 MOVE TEMP TO COMPUTED-N IF1264.2
078100 PERFORM FAIL. IF1264.2
078200 GO TO F-NUMVALC-WRITE-26. IF1264.2
078300 F-NUMVALC-DELETE-26. IF1264.2
078400 PERFORM DE-LETE. IF1264.2
078500 GO TO F-NUMVALC-WRITE-26. IF1264.2
078600 F-NUMVALC-WRITE-26. IF1264.2
078700 MOVE "F-NUMVALC-26" TO PAR-NAME. IF1264.2
078800 PERFORM PRINT-DETAIL. IF1264.2
078900*****************TEST (aa) ****************************** IF1264.2
079000 F-NUMVALC-27. IF1264.2
079100 MOVE ZERO TO TEMP. IF1264.2
079200 F-NUMVALC-TEST-27. IF1264.2
079300 COMPUTE TEMP = FUNCTION NUMVAL-C (T, "$"). IF1264.2
079400 IF (TEMP >= 9000.81) AND IF1264.2
079500 (TEMP <= 9001.17) IF1264.2
079600 PERFORM PASS IF1264.2
079700 ELSE IF1264.2
079800 MOVE 9000.99 TO CORRECT-N IF1264.2
079900 MOVE TEMP TO COMPUTED-N IF1264.2
080000 PERFORM FAIL. IF1264.2
080100 GO TO F-NUMVALC-WRITE-27. IF1264.2
080200 F-NUMVALC-DELETE-27. IF1264.2
080300 PERFORM DE-LETE. IF1264.2
080400 GO TO F-NUMVALC-WRITE-27. IF1264.2
080500 F-NUMVALC-WRITE-27. IF1264.2
080600 MOVE "F-NUMVALC-27" TO PAR-NAME. IF1264.2
080700 PERFORM PRINT-DETAIL. IF1264.2
080800*****************TEST (bb) ****************************** IF1264.2
080900 F-NUMVALC-28. IF1264.2
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.96 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.
|
