Impressum ic213a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         IC2134.2
000200 PROGRAM-ID.                                                      IC2134.2
000300     IC213A.                                                      IC2134.2
000400****************************************************************  IC2134.2
000500*                                                              *  IC2134.2
000600*    VALIDATION FOR:-                                          *  IC2134.2
000700*                                                              *  IC2134.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IC2134.2
000900*                                                              *  IC2134.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IC2134.2
001100*                                                              *  IC2134.2
001200****************************************************************  IC2134.2
001300*                                                              *  IC2134.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IC2134.2
001500*                                                              *  IC2134.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  IC2134.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  IC2134.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  IC2134.2
001900*                                                              *  IC2134.2
002000****************************************************************  IC2134.2
002100*    THIS IS MAIN PROGRAM IC213.                                  IC2134.2
002200****************************************************************  IC2134.2
002300 ENVIRONMENT DIVISION.                                            IC2134.2
002400 CONFIGURATION SECTION.                                           IC2134.2
002500 SOURCE-COMPUTER.                                                 IC2134.2
002600     Card0130.                                                    IC2134.2
002700 OBJECT-COMPUTER.                                                 IC2134.2
002800     Card0131.                                                    IC2134.2
002900 INPUT-OUTPUT SECTION.                                            IC2134.2
003000 FILE-CONTROL.                                                    IC2134.2
003100     SELECT PRINT-FILE ASSIGN TO                                  IC2134.2
003200     "C0085" .                                                    IC2134.2
003300 DATA DIVISION.                                                   IC2134.2
003400 FILE SECTION.                                                    IC2134.2
003500 FD  PRINT-FILE.                                                  IC2134.2
003600 01  PRINT-REC PICTURE X(120).                                    IC2134.2
003700 01  DUMMY-RECORD PICTURE X(120).                                 IC2134.2
003800 WORKING-STORAGE SECTION.                                         IC2134.2
003900 01  DN1                         PICTURE S9      VALUE ZERO.      IC2134.2
004000 01  DN2                         PICTURE S9      VALUE ZERO.      IC2134.2
004100 01  DN3                         PICTURE S9      VALUE ZERO.      IC2134.2
004200 01  TEST-RESULTS.                                                IC2134.2
004300     02 FILLER                   PIC X      VALUE SPACE.          IC2134.2
004400     02 FEATURE                  PIC X(20)  VALUE SPACE.          IC2134.2
004500     02 FILLER                   PIC X      VALUE SPACE.          IC2134.2
004600     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IC2134.2
004700     02 FILLER                   PIC X      VALUE SPACE.          IC2134.2
004800     02  PAR-NAME.                                                IC2134.2
004900       03 FILLER                 PIC X(19)  VALUE SPACE.          IC2134.2
005000       03  PARDOT-X              PIC X      VALUE SPACE.          IC2134.2
005100       03 DOTVALUE               PIC 99     VALUE ZERO.           IC2134.2
005200     02 FILLER                   PIC X(8)   VALUE SPACE.          IC2134.2
005300     02 RE-MARK                  PIC X(61).                       IC2134.2
005400 01  TEST-COMPUTED.                                               IC2134.2
005500     02 FILLER                   PIC X(30)  VALUE SPACE.          IC2134.2
005600     02 FILLER                   PIC X(17)  VALUE                 IC2134.2
005700            " COMPUTED=".                                   IC2134.2
005800     02 COMPUTED-X.                                               IC2134.2
005900     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IC2134.2
006000     03 COMPUTED-N               REDEFINES COMPUTED-A             IC2134.2
006100                                 PIC -9(9).9(9).                  IC2134.2
006200     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IC2134.2
006300     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IC2134.2
006400     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IC2134.2
006500     03       CM-18V0 REDEFINES COMPUTED-A.                       IC2134.2
006600         04 COMPUTED-18V0                    PIC -9(18).          IC2134.2
006700         04 FILLER                           PIC X.               IC2134.2
006800     03 FILLER PIC X(50) VALUE SPACE.                             IC2134.2
006900 01  TEST-CORRECT.                                                IC2134.2
007000     02 FILLER PIC X(30) VALUE SPACE.                             IC2134.2
007100     02 FILLER PIC X(17) VALUE " CORRECT =".                IC2134.2
007200     02 CORRECT-X.                                                IC2134.2
007300     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IC2134.2
007400     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IC2134.2
007500     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IC2134.2
007600     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IC2134.2
007700     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IC2134.2
007800     03      CR-18V0 REDEFINES CORRECT-A.                         IC2134.2
007900         04 CORRECT-18V0                     PIC -9(18).          IC2134.2
008000         04 FILLER                           PIC X.               IC2134.2
008100     03 FILLER PIC X(2) VALUE SPACE.                              IC2134.2
008200     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IC2134.2
008300 01  CCVS-C-1.                                                    IC2134.2
008400     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIC2134.2
008500-    "SS PARAGRAPH-NAME IC2134.2
008600-    " REMARKS".                                            IC2134.2
008700     02 FILLER                     PIC X(20)    VALUE SPACE.      IC2134.2
008800 01  CCVS-C-2.                                                    IC2134.2
008900     02 FILLER                     PIC X        VALUE SPACE.      IC2134.2
009000     02 FILLER                     PIC X(6)     VALUE "TESTED".   IC2134.2
009100     02 FILLER                     PIC X(15)    VALUE SPACE.      IC2134.2
009200     02 FILLER                     PIC X(4)     VALUE "FAIL".     IC2134.2
009300     02 FILLER                     PIC X(94)    VALUE SPACE.      IC2134.2
009400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IC2134.2
009500 01  REC-CT                        PIC 99       VALUE ZERO.       IC2134.2
009600 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IC2134.2
009700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IC2134.2
009800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IC2134.2
009900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IC2134.2
010000 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IC2134.2
010100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IC2134.2
010200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IC2134.2
010300 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IC2134.2
010400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IC2134.2
010500 01  CCVS-H-1.                                                    IC2134.2
010600     02  FILLER                    PIC X(39)    VALUE SPACES.     IC2134.2
010700     02  FILLER                    PIC X(42)    VALUE             IC2134.2
010800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IC2134.2
010900     02  FILLER                    PIC X(39)    VALUE SPACES.     IC2134.2
011000 01  CCVS-H-2A.                                                   IC2134.2
011100   02  FILLER                        PIC X(40)  VALUE SPACE.      IC2134.2
011200   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IC2134.2
011300   02  FILLER                        PIC XXXX   VALUE             IC2134.2
011400     "4.2 ".                                                      IC2134.2
011500   02  FILLER                        PIC X(28)  VALUE             IC2134.2
011600            " COPY - NOT FOR DISTRIBUTION".                       IC2134.2
011700   02  FILLER                        PIC X(41)  VALUE SPACE.      IC2134.2
011800                                                                  IC2134.2
011900 01  CCVS-H-2B.                                                   IC2134.2
012000   02  FILLER                        PIC X(15)  VALUE             IC2134.2
012100            "TEST RESULT OF ".                                    IC2134.2
012200   02  TEST-ID                       PIC X(9).                    IC2134.2
012300   02  FILLER                        PIC X(4)   VALUE             IC2134.2
012400            " IN ".                                               IC2134.2
012500   02  FILLER                        PIC X(12)  VALUE             IC2134.2
012600     " HIGH ".                                              IC2134.2
012700   02  FILLER                        PIC X(22)  VALUE             IC2134.2
012800            " LEVEL VALIDATION FOR ".                             IC2134.2
012900   02  FILLER                        PIC X(58)  VALUE             IC2134.2
013000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2134.2
013100 01  CCVS-H-3.                                                    IC2134.2
013200     02  FILLER                      PIC X(34)  VALUE             IC2134.2
013300            " FOR OFFICIAL USE ONLY ".                         IC2134.2
013400     02  FILLER                      PIC X(58)  VALUE             IC2134.2
013500     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IC2134.2
013600     02  FILLER                      PIC X(28)  VALUE             IC2134.2
013700            " COPYRIGHT 1985 ".                                IC2134.2
013800 01  CCVS-E-1.                                                    IC2134.2
013900     02 FILLER                       PIC X(52)  VALUE SPACE.      IC2134.2
014000     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              IC2134.2
014100     02 ID-AGAIN                     PIC X(9).                    IC2134.2
014200     02 FILLER                       PIC X(45)  VALUE SPACES.     IC2134.2
014300 01  CCVS-E-2.                                                    IC2134.2
014400     02  FILLER                      PIC X(31)  VALUE SPACE.      IC2134.2
014500     02  FILLER                      PIC X(21)  VALUE SPACE.      IC2134.2
014600     02 CCVS-E-2-2.                                               IC2134.2
014700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IC2134.2
014800         03 FILLER                   PIC X      VALUE SPACE.      IC2134.2
014900         03 ENDER-DESC               PIC X(44)  VALUE             IC2134.2
015000            "ERRORS ENCOUNTERED".                                 IC2134.2
015100 01  CCVS-E-3.                                                    IC2134.2
015200     02  FILLER                      PIC X(22)  VALUE             IC2134.2
015300            " FOR OFFICIAL USE ONLY".                             IC2134.2
015400     02  FILLER                      PIC X(12)  VALUE SPACE.      IC2134.2
015500     02  FILLER                      PIC X(58)  VALUE             IC2134.2
015600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2134.2
015700     02  FILLER                      PIC X(13)  VALUE SPACE.      IC2134.2
015800     02 FILLER                       PIC X(15)  VALUE             IC2134.2
015900             " COPYRIGHT 1985".                                   IC2134.2
016000 01  CCVS-E-4.                                                    IC2134.2
016100     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IC2134.2
016200     02 FILLER                       PIC X(4)   VALUE " OF ".     IC2134.2
016300     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IC2134.2
016400     02 FILLER                       PIC X(40)  VALUE             IC2134.2
016500      " TESTS WERE EXECUTED SUCCESSFULLY".                       IC2134.2
016600 01  XXINFO.                                                      IC2134.2
016700     02 FILLER                       PIC X(19)  VALUE             IC2134.2
016800            "*** INFORMATION ***".                                IC2134.2
016900     02 INFO-TEXT.                                                IC2134.2
017000       04 FILLER                     PIC X(8)   VALUE SPACE.      IC2134.2
017100       04 XXCOMPUTED                 PIC X(20).                   IC2134.2
017200       04 FILLER                     PIC X(5)   VALUE SPACE.      IC2134.2
017300       04 XXCORRECT                  PIC X(20).                   IC2134.2
017400     02 INF-ANSI-REFERENCE           PIC X(48).                   IC2134.2
017500 01  HYPHEN-LINE.                                                 IC2134.2
017600     02 FILLER  PIC IS X VALUE IS SPACE.                          IC2134.2
017700     02 FILLER  PIC IS X(65)    VALUE IS "************************IC2134.2
017800-    "*****************************************".                 IC2134.2
017900     02 FILLER  PIC IS X(54)    VALUE IS "************************IC2134.2
018000-    "******************************".                            IC2134.2
018100 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IC2134.2
018200     "IC213A".                                                    IC2134.2
018300 PROCEDURE DIVISION.                                              IC2134.2
018400 CCVS1 SECTION.                                                   IC2134.2
018500 OPEN-FILES.                                                      IC2134.2
018600     OPEN     OUTPUT PRINT-FILE.                                  IC2134.2
018700     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   IC2134.2
018800     MOVE    SPACE TO TEST-RESULTS.                               IC2134.2
018900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             IC2134.2
019000     GO TO CCVS1-EXIT.                                            IC2134.2
019100 CLOSE-FILES.                                                     IC2134.2
019200     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IC2134.2
019300 TERMINATE-CCVS.                                                  IC2134.2
019400     EXIT PROGRAM.                                                IC2134.2
019500 TERMINATE-CALL.                                                  IC2134.2
019600     STOP     RUN.                                                IC2134.2
019700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IC2134.2
019800 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IC2134.2
019900 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IC2134.2
020000 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IC2134.2
020100     MOVE "****TEST DELETED****" TO RE-MARK.                      IC2134.2
020200 PRINT-DETAIL.                                                    IC2134.2
020300     IF REC-CT NOT EQUAL TO ZERO                                  IC2134.2
020400             MOVE "." TO PARDOT-X                                 IC2134.2
020500             MOVE REC-CT TO DOTVALUE.                             IC2134.2
020600     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IC2134.2
020700     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IC2134.2
020800        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IC2134.2
020900          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IC2134.2
021000     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IC2134.2
021100     MOVE SPACE TO CORRECT-X.                                     IC2134.2
021200     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IC2134.2
021300     MOVE     SPACE TO RE-MARK.                                   IC2134.2
021400 HEAD-ROUTINE.                                                    IC2134.2
021500     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IC2134.2
021600     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IC2134.2
021700     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IC2134.2
021800     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IC2134.2
021900 COLUMN-NAMES-ROUTINE.                                            IC2134.2
022000     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IC2134.2
022100     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2134.2
022200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IC2134.2
022300 END-ROUTINE.                                                     IC2134.2
022400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IC2134.2
022500 END-RTN-EXIT.                                                    IC2134.2
022600     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2134.2
022700 END-ROUTINE-1.                                                   IC2134.2
022800      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IC2134.2
022900      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IC2134.2
023000      ADD PASS-COUNTER TO ERROR-HOLD.                             IC2134.2
023100*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IC2134.2
023200      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IC2134.2
023300      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IC2134.2
023400      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IC2134.2
023500      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IC2134.2
023600  END-ROUTINE-12.                                                 IC2134.2
023700      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IC2134.2
023800     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IC2134.2
023900         MOVE "NO " TO ERROR-TOTAL                                IC2134.2
024000         ELSE                                                     IC2134.2
024100         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IC2134.2
024200     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IC2134.2
024300     PERFORM WRITE-LINE.                                          IC2134.2
024400 END-ROUTINE-13.                                                  IC2134.2
024500     IF DELETE-COUNTER IS EQUAL TO ZERO                           IC2134.2
024600         MOVE "NO " TO ERROR-TOTAL  ELSE                          IC2134.2
024700         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IC2134.2
024800     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IC2134.2
024900     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IC2134.2
025000      IF   INSPECT-COUNTER EQUAL TO ZERO                          IC2134.2
025100          MOVE "NO " TO ERROR-TOTAL                               IC2134.2
025200      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IC2134.2
025300      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IC2134.2
025400      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IC2134.2
025500     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IC2134.2
025600 WRITE-LINE.                                                      IC2134.2
025700     ADD 1 TO RECORD-COUNT.                                       IC2134.2
025800     IF RECORD-COUNT GREATER 50                                   IC2134.2
025900         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IC2134.2
026000         MOVE SPACE TO DUMMY-RECORD                               IC2134.2
026100         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IC2134.2
026200         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             IC2134.2
026300         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     IC2134.2
026400         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IC2134.2
026500         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IC2134.2
026600         MOVE ZERO TO RECORD-COUNT.                               IC2134.2
026700     PERFORM WRT-LN.                                              IC2134.2
026800 WRT-LN.                                                          IC2134.2
026900     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IC2134.2
027000     MOVE SPACE TO DUMMY-RECORD.                                  IC2134.2
027100 BLANK-LINE-PRINT.                                                IC2134.2
027200     PERFORM WRT-LN.                                              IC2134.2
027300 FAIL-ROUTINE.                                                    IC2134.2
027400     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. IC2134.2
027500     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IC2134.2
027600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IC2134.2
027700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IC2134.2
027800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2134.2
027900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IC2134.2
028000     GO TO  FAIL-ROUTINE-EX.                                      IC2134.2
028100 FAIL-ROUTINE-WRITE.                                              IC2134.2
028200     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IC2134.2
028300     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IC2134.2
028400     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IC2134.2
028500     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IC2134.2
028600 FAIL-ROUTINE-EX. EXIT.                                           IC2134.2
028700 BAIL-OUT.                                                        IC2134.2
028800     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IC2134.2
028900     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IC2134.2
029000 BAIL-OUT-WRITE.                                                  IC2134.2
029100     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IC2134.2
029200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IC2134.2
029300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2134.2
029400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IC2134.2
029500 BAIL-OUT-EX. EXIT.                                               IC2134.2
029600 CCVS1-EXIT.                                                      IC2134.2
029700     EXIT.                                                        IC2134.2
029800 CALL-TEST-1.                                                     IC2134.2
029900     MOVE "CALL...USING DATA-NM" TO FEATURE.                      IC2134.2
030000     MOVE "CALL-TEST-1" TO PAR-NAME.                              IC2134.2
030100     MOVE "MAIN PROGRAM CALLS SUBPROGRAM1" TO RE-MARK.            IC2134.2
030200     CALL "IC214A" USING DN1.                                     IC2134.2
030300     IF DN1 IS EQUAL TO 1                                         IC2134.2
030400         PERFORM PASS                                             IC2134.2
030500         GO TO CALL-WRITE-1.                                      IC2134.2
030600 CALL-FAIL-1.                                                     IC2134.2
030700     MOVE 1 TO CORRECT-18V0.                                      IC2134.2
030800     MOVE DN1 TO COMPUTED-18V0.                                   IC2134.2
030900     PERFORM FAIL.                                                IC2134.2
031000 CALL-WRITE-1.                                                    IC2134.2
031100     PERFORM PRINT-DETAIL.                                        IC2134.2
031200 CALL-TEST-2.                                                     IC2134.2
031300     MOVE "CALL...USING DATA-NM" TO FEATURE.                      IC2134.2
031400     MOVE "CALL-TEST-2" TO PAR-NAME.                              IC2134.2
031500     MOVE "MAIN PROGRAM CALLS SUBPROGRAM2" TO RE-MARK.            IC2134.2
031600     CALL "IC215A" USING DN2, DN3.                                IC2134.2
031700     IF DN2 IS EQUAL TO 1                                         IC2134.2
031800         PERFORM PASS                                             IC2134.2
031900         GO TO CALL-WRITE-2.                                      IC2134.2
032000 CALL-FAIL-2.                                                     IC2134.2
032100     MOVE 1 TO CORRECT-18V0.                                      IC2134.2
032200     MOVE DN2 TO COMPUTED-18V0.                                   IC2134.2
032300     PERFORM FAIL.                                                IC2134.2
032400 CALL-WRITE-2.                                                    IC2134.2
032500     PERFORM PRINT-DETAIL.                                        IC2134.2
032600 CANCEL-TEST-1.                                                   IC2134.2
032700     MOVE "CANCEL" TO FEATURE.                                    IC2134.2
032800     MOVE "CANCEL-TEST-1" TO PAR-NAME.                            IC2134.2
032900     MOVE "SUBPROGRAM2 CANCELS SUBPROGRAM1" TO RE-MARK.           IC2134.2
033000     IF DN3 IS EQUAL TO 1                                         IC2134.2
033100         PERFORM PASS                                             IC2134.2
033200         GO TO CANCEL-WRITE-1.                                    IC2134.2
033300 CANCEL-FAIL-1.                                                   IC2134.2
033400     MOVE 1 TO CORRECT-18V0.                                      IC2134.2
033500     MOVE DN3 TO COMPUTED-18V0.                                   IC2134.2
033600     PERFORM FAIL.                                                IC2134.2
033700 CANCEL-WRITE-1.                                                  IC2134.2
033800     PERFORM PRINT-DETAIL.                                        IC2134.2
033900 CCVS-EXIT SECTION.                                               IC2134.2
034000 CCVS-999999.                                                     IC2134.2
034100     GO TO CLOSE-FILES.                                           IC2134.2