Quelle  ic222a.cob   Sprache: Cobol

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

--> maximum size reached

--> --------------------