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