00001  IDENTIFICATION DIVISION.                                         01/29/03
00002  PROGRAM-ID.             DTSCU415.                                DTSCU415
00003  AUTHOR.                 TRW.                                        LV003
00004  DATE-WRITTEN.           OCTOBER 20001.                           DTSCU415
00005  DATE-COMPILED.                                                   DTSCU415
00006                                                                   DTSCU415
00007 *****                                                             DTSCU415
00008 *                                                                 DTSCU415
00009 *    FUNCTION:  FIND KEY DATES FOR ANNUAL FILERS                  DTSCU415
00010 *                                                                 DTSCU415
00011 *                                                                 DTSCU415
00012 *    MODIFICATION LOG:                                            DTSCU415
00013 *                                                                 DTSCU415
00014 *    08/16/2002  INITIAL DEVELOPMENT.                             DTSCU415
00015 *                WORK ORDER:                      PROGRAMMER: GD  DTSCU415
00016 *                                                                 DTSCU415
00017 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU415
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU415
00019 *                WORK ORDER:                      PROGRAMMER: XXX DTSCU415
00020 *****                                                             DTSCU415
00021 *                                                                 DTSCU415
00022 *    DESCRIPTION:                                                 DTSCU415
00023 *                                                                 DTSCU415
00024 *    DTSCU415 RETURNS KEY DATES FROM THE FAFD REFERENCE FILE.     DTSCU415
00025 *                                                                 DTSCU415
00026 *    THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSCU415
00027 *    RETURN THE RELEVANT DATES FOR THE YEAR SPECIFIED IN L415-YR  DTSCU415
00028 *    OR THE MOST RECENT YEAR ON FILE.                             DTSCU415
00029 *                                                                 DTSCU415
00030 *****                                                             DTSCU415
00031      SKIP3                                                        DTSCU415
00032  ENVIRONMENT DIVISION.                                            DTSCU415
00033      SKIP3                                                        DTSCU415
00034  DATA DIVISION.                                                   DTSCU415
00035      SKIP3                                                        DTSCU415
00036  WORKING-STORAGE SECTION.                                         DTSCU415
000365 77  PAN-VALET PICTURE X(24) VALUE '003DTSCU415  01/29/03'.       DTSCU415
00037      SKIP3                                                        DTSCU415
00038  01  WRK-AREA.                                                    DTSCU415
00039      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U415'.    DTSCU415
00040                                                                   DTSCU415
00041      05  WRK-YR                      PIC S9(05)  COMP-3.          DTSCU415
00042      05  WRK-FIRST-HSEHLD-YR         PIC S9(05)  COMP-3           DTSCU415
00043                                        VALUE +2002.               DTSCU415
00044                                                                   DTSCU415
00045      05  WRK-YRQ-AREA                PIC  9(05).                  DTSCU415
00046      05  FILLER REDEFINES WRK-YRQ-AREA.                           DTSCU415
00047          10  WRK-YRQ-CCYY            PIC  9(04).                  DTSCU415
00048          10  WRK-YRQ-Q               PIC  9(01).                  DTSCU415
00049                                                                   DTSCU415
00050      05  WRK-LAST-YRQ                PIC  9(05).                  DTSCU415
00051      05  FILLER REDEFINES WRK-LAST-YRQ.                           DTSCU415
00052          10  WRK-LAST-YYYY           PIC  9(04).                  DTSCU415
00053          10  WRK-LAST-Q              PIC  9(01).                  DTSCU415
00054                                                                   DTSCU415
00055      05  WRK-LAST-MASS-MAIL-DATE          PIC S9(09) COMP-3.      DTSCU415
00056      05  WRK-LAST-MASS-MAIL-YR            PIC S9(05) COMP-3.      DTSCU415
00057      05  WRK-LAST-LATE-PEN-DATE           PIC S9(09) COMP-3.      DTSCU415
00058      05  WRK-LAST-LATE-PEN-YR             PIC S9(05) COMP-3.      DTSCU415
00059      05  WRK-LAST-FIRST-DEL-DATE          PIC S9(09) COMP-3.      DTSCU415
00060      05  WRK-LAST-FIRST-DEL-YR            PIC S9(05) COMP-3.      DTSCU415
00061      05  WRK-LAST-FINAL-DEL-DATE          PIC S9(09) COMP-3.      DTSCU415
00062      05  WRK-LAST-FINAL-DEL-YR            PIC S9(05) COMP-3.      DTSCU415
00063      05  WRK-LAST-FINAL-ACTION-DATE       PIC S9(09) COMP-3.      DTSCU415
00064                                                                   DTSCU415
00065      05  WRK-FAFD-FOUND-IND          PIC  X(01).                  DTSCU415
00066          88  WRK-FAFD-FOUND-YES-88     VALUE 'Y'.                 DTSCU415
00067          88  WRK-FAFD-FOUND-NO-88      VALUE 'N'.                 DTSCU415
00068                                                                   DTSCU415
00069  01  L831-COMM-AREA.                                              DTSCU415
00070      05  L831-CONTROL-BLOCK.                                      DTSCU415
00071  ++INCLUDE DTSIL831                                               DTSCU415
00072      05  FSKL-REC.                                                DTSCU415
00073  ++INCLUDE DTSIFSKL                                               DTSCU415
00074      EJECT                                                        DTSCU415
00075      05  FAFD-REC REDEFINES FSKL-REC.                             DTSCU415
00076  ++INCLUDE DTSIFAFD                                               DTSCU415
00077      EJECT                                                        DTSCU415
00078  LINKAGE SECTION.                                                 DTSCU415
00079      SKIP3                                                        DTSCU415
00080  01  DFHCOMMAREA.                                                 DTSCU415
00081  ++INCLUDE DTSIL415                                               DTSCU415
00082      EJECT                                                        DTSCU415
00083  PROCEDURE DIVISION.                                              DTSCU415
00084      SKIP2                                                        DTSCU415
00085  DTSCU400-MAINLINE.                                               DTSCU415
00086      PERFORM I0000-INITIALIZE           THRU I0000-EXIT.          DTSCU415
00087                                                                   DTSCU415
00088      PERFORM P0000-PROCESS              THRU P0000-EXIT.          DTSCU415
00089                                                                   DTSCU415
00090  DTSCU400-MAINLINE-EXIT.                                          DTSCU415
00091      EXEC CICS                                                    DTSCU415
00092         RETURN                                                    DTSCU415
00093      END-EXEC.                                                    DTSCU415
00094                                                                   DTSCU415
00095      EJECT                                                        DTSCU415
00096  I0000-INITIALIZE.                                                DTSCU415
00097      PERFORM I1000-EDIT-INPUT           THRU I1000-EXIT.          DTSCU415
00098                                                                   DTSCU415
00099      PERFORM I2000-INIT-RETURN          THRU I2000-EXIT.          DTSCU415
00100                                                                   DTSCU415
00101  I0000-EXIT.                                                      DTSCU415
00102      EXIT.                                                        DTSCU415
00103  I1000-EDIT-INPUT.                                                DTSCU415
00104      IF L415-MODE-INPUT-YEAR-88                                   DTSCU415
00105         IF L415-YR  NOT NUMERIC                                   DTSCU415
00106            PERFORM S899-ABEND              THRU S899-EXIT         DTSCU415
00107         ELSE                                                      DTSCU415
00108            MOVE L415-YR                    TO WRK-YR              DTSCU415
00109      ELSE                                                         DTSCU415
00110         MOVE ZERO                          TO WRK-YR.             DTSCU415
00111                                                                   DTSCU415
00112  I1000-EXIT.                                                      DTSCU415
00113      EXIT.                                                        DTSCU415
00114                                                                   DTSCU415
00115  I2000-INIT-RETURN.                                               DTSCU415
00116      MOVE ZERO            TO L415-UC30H-RPT-DUE-DATE              DTSCU415
00117                              L415-UC30H-MASS-MAIL-DATE            DTSCU415
00118                              L415-UC30H-MASS-MAIL-STRT-YRQ        DTSCU415
00119                              L415-UC30H-MASS-MAIL-END-YRQ         DTSCU415
00120                              L415-UC30H-LATE-PEN-DATE             DTSCU415
00121                              L415-UC30H-LATE-PEN-STRT-YRQ         DTSCU415
00122                              L415-UC30H-LATE-PEN-END-YRQ          DTSCU415
00123                              L415-UC30H-FIRST-DEL-DATE            DTSCU415
00124                              L415-UC30H-FIRST-DEL-STRT-YRQ        DTSCU415
00125                              L415-UC30H-FIRST-DEL-END-YRQ         DTSCU415
00126                              L415-UC30H-FINAL-DEL-DATE            DTSCU415
00127                              L415-UC30H-FINAL-DEL-STRT-YRQ        DTSCU415
00128                              L415-UC30H-FINAL-DEL-END-YRQ         DTSCU415
00129                              L415-UC30H-FINAL-ACTION-DATE         DTSCU415
00130                              WRK-LAST-MASS-MAIL-DATE              DTSCU415
00131                              WRK-LAST-MASS-MAIL-YR                DTSCU415
00132                              WRK-LAST-LATE-PEN-DATE               DTSCU415
00133                              WRK-LAST-LATE-PEN-YR                 DTSCU415
00134                              WRK-LAST-FIRST-DEL-DATE              DTSCU415
00135                              WRK-LAST-FIRST-DEL-YR                DTSCU415
00136                              WRK-LAST-FINAL-DEL-DATE              DTSCU415
00137                              WRK-LAST-FINAL-DEL-YR                DTSCU415
00138                              WRK-LAST-FINAL-ACTION-DATE.          DTSCU415
00139                                                                   DTSCU415
00140                                                                   DTSCU415
00141  I2000-EXIT.                                                      DTSCU415
00142      EXIT.                                                        DTSCU415
00143                                                                   DTSCU415
00144  P0000-PROCESS.                                                   DTSCU415
00145      SET L415-NOT-FOUND-88              TO TRUE.                  DTSCU415
00146                                                                   DTSCU415
00147      IF L415-MODE-INPUT-YEAR-88                                   DTSCU415
00148         PERFORM P1000-INPUT-YEAR        THRU P1000-EXIT           DTSCU415
00149         IF L415-OK-88                                             DTSCU415
00150            PERFORM P1100-RETURN-VALUES  THRU P1100-EXIT           DTSCU415
00151         END-IF                                                    DTSCU415
00152      ELSE                                                         DTSCU415
00153         PERFORM P2000-MOST-RECENT        THRU P2000-EXIT          DTSCU415
00154         PERFORM P2200-RETURN-VALUES      THRU P2200-EXIT.         DTSCU415
00155                                                                   DTSCU415
00156  P0000-EXIT.                                                      DTSCU415
00157      EXIT.                                                        DTSCU415
00158                                                                   DTSCU415
00159  P1000-INPUT-YEAR.                                                DTSCU415
00160      MOVE LOW-VALUES        TO FAFD-KEY-AREA.                     DTSCU415
00161      MOVE WRK-YR            TO FAFD-YR.                           DTSCU415
00162      SET FAFD-AFD-88        TO TRUE.                              DTSCU415
00163      MOVE FAFD-KEY-AREA     TO FSKL-KEY-AREA.                     DTSCU415
00164      PERFORM S831-READ      THRU S831-EXIT.                       DTSCU415
00165      IF L831-NO-REC-88                                            DTSCU415
00166         NEXT SENTENCE                                             DTSCU415
00167      ELSE                                                         DTSCU415
00168         MOVE FSKL-REC       TO FAFD-REC                           DTSCU415
00169         SET L415-OK-88      TO TRUE.                              DTSCU415
00170                                                                   DTSCU415
00171  P1000-EXIT.                                                      DTSCU415
00172      EXIT.                                                        DTSCU415
00173                                                                   DTSCU415
00174  P1100-RETURN-VALUES.                                             DTSCU415
00175      MOVE FAFD-UC30H-RPT-DUE-DATE                                 DTSCU415
00176                              TO L415-UC30H-RPT-DUE-DATE.          DTSCU415
00177                                                                   DTSCU415
00178      MOVE FAFD-UC30H-MASS-MAIL-DATE                               DTSCU415
00179                              TO L415-UC30H-MASS-MAIL-DATE.        DTSCU415
00180      MOVE FAFD-YR            TO WRK-LAST-YYYY.                    DTSCU415
00181      MOVE 1                  TO WRK-LAST-Q.                       DTSCU415
00182      MOVE WRK-LAST-YRQ                                            DTSCU415
00183                              TO L415-UC30H-MASS-MAIL-STRT-YRQ.    DTSCU415
00184      MOVE 4                  TO WRK-LAST-Q.                       DTSCU415
00185      MOVE WRK-LAST-YRQ                                            DTSCU415
00186                              TO L415-UC30H-MASS-MAIL-END-YRQ.     DTSCU415
00187                                                                   DTSCU415
00188      MOVE FAFD-LATE-PEN-ASSESSED-DATE                             DTSCU415
00189                              TO L415-UC30H-LATE-PEN-DATE.         DTSCU415
00190      MOVE FAFD-YR            TO WRK-LAST-YYYY                     DTSCU415
00191      MOVE 1                  TO WRK-LAST-Q.                       DTSCU415
00192      MOVE WRK-LAST-YRQ                                            DTSCU415
00193                         TO L415-UC30H-LATE-PEN-STRT-YRQ.          DTSCU415
00194      MOVE 4                  TO WRK-LAST-Q.                       DTSCU415
00195      MOVE WRK-LAST-YRQ                                            DTSCU415
00196                         TO L415-UC30H-LATE-PEN-END-YRQ.           DTSCU415
00197                                                                   DTSCU415
00198      MOVE FAFD-UC30H-FIRST-DEL-DATE                               DTSCU415
00199                              TO L415-UC30H-FIRST-DEL-DATE.        DTSCU415
00200      MOVE FAFD-YR            TO WRK-LAST-YYYY                     DTSCU415
00201      MOVE 1                  TO WRK-LAST-Q.                       DTSCU415
00202      MOVE WRK-LAST-YRQ                                            DTSCU415
00203                              TO L415-UC30H-FIRST-DEL-STRT-YRQ.    DTSCU415
00204      MOVE 4                  TO WRK-LAST-Q.                       DTSCU415
00205      MOVE WRK-LAST-YRQ                                            DTSCU415
00206                              TO L415-UC30H-FIRST-DEL-END-YRQ.     DTSCU415
00207                                                                   DTSCU415
00208      MOVE FAFD-UC30H-FINAL-DEL-DATE                               DTSCU415
00209                              TO L415-UC30H-FINAL-DEL-DATE.        DTSCU415
00210      MOVE FAFD-YR            TO WRK-LAST-YYYY                     DTSCU415
00211      MOVE 1                  TO WRK-LAST-Q.                       DTSCU415
00212      MOVE WRK-LAST-YRQ                                            DTSCU415
00213                              TO L415-UC30H-FINAL-DEL-STRT-YRQ.    DTSCU415
00214      MOVE 4                  TO WRK-LAST-Q.                       DTSCU415
00215      MOVE WRK-LAST-YRQ                                            DTSCU415
00216                              TO L415-UC30H-FINAL-DEL-END-YRQ.     DTSCU415
00217                                                                   DTSCU415
00218      MOVE FAFD-UC30H-FINAL-ACTION-DATE                            DTSCU415
00219                              TO L415-UC30H-FINAL-ACTION-DATE.     DTSCU415
00220                                                                   DTSCU415
00221  P1100-EXIT.                                                      DTSCU415
00222      EXIT.                                                        DTSCU415
00223                                                                   DTSCU415
00224  P2000-MOST-RECENT.                                               DTSCU415
00225      MOVE LOW-VALUES           TO FAFD-KEY-AREA.                  DTSCU415
00226      SET FAFD-AFD-88           TO TRUE.                           DTSCU415
00227      MOVE FAFD-KEY-AREA        TO FSKL-KEY-AREA.                  DTSCU415
00228      PERFORM S831-START-BROWSE THRU S831-EXIT.                    DTSCU415
00229      IF L831-OK-88                                                DTSCU415
00230         SET L415-OK-88  TO TRUE                                   DTSCU415
00231         PERFORM P2100-SCAN-FAFD  THRU P2100-EXIT                  DTSCU415
00232            UNTIL L831-NO-REC-88.                                  DTSCU415
00233                                                                   DTSCU415
00234  P2000-EXIT.                                                      DTSCU415
00235      EXIT.                                                        DTSCU415
00236                                                                   DTSCU415
00237  P2100-SCAN-FAFD.                                                 DTSCU415
00238      MOVE FSKL-REC               TO FAFD-REC.                     DTSCU415
00239                                                                   DTSCU415
00240      IF FAFD-UC30H-MASS-MAIL-DATE >                               DTSCU415
00241                              WRK-LAST-MASS-MAIL-DATE              DTSCU415
00242         MOVE FAFD-UC30H-MASS-MAIL-DATE TO                         DTSCU415
00243                              WRK-LAST-MASS-MAIL-DATE              DTSCU415
00244         MOVE FAFD-YR     TO  WRK-LAST-MASS-MAIL-YR.               DTSCU415
00245                                                                   DTSCU415
00246      IF FAFD-LATE-PEN-ASSESSED-DATE >                             DTSCU415
00247                              WRK-LAST-LATE-PEN-DATE               DTSCU415
00248         MOVE FAFD-LATE-PEN-ASSESSED-DATE TO                       DTSCU415
00249                              WRK-LAST-LATE-PEN-DATE               DTSCU415
00250         MOVE FAFD-YR     TO  WRK-LAST-LATE-PEN-YR.                DTSCU415
00251                                                                   DTSCU415
00252      IF FAFD-UC30H-FIRST-DEL-DATE >                               DTSCU415
00253                              WRK-LAST-FIRST-DEL-DATE              DTSCU415
00254         MOVE FAFD-UC30H-FIRST-DEL-DATE TO                         DTSCU415
00255                              WRK-LAST-FIRST-DEL-DATE              DTSCU415
00256         MOVE FAFD-YR     TO  WRK-LAST-FIRST-DEL-YR.               DTSCU415
00257                                                                   DTSCU415
00258      IF FAFD-UC30H-FINAL-DEL-DATE >                               DTSCU415
00259                              WRK-LAST-FINAL-DEL-DATE              DTSCU415
00260         MOVE FAFD-UC30H-FINAL-DEL-DATE TO                         DTSCU415
00261                              WRK-LAST-FINAL-DEL-DATE              DTSCU415
00262         MOVE FAFD-YR     TO  WRK-LAST-FINAL-DEL-YR.               DTSCU415
00263                                                                   DTSCU415
00264      IF FAFD-UC30H-FINAL-ACTION-DATE >                            DTSCU415
00265                              WRK-LAST-FINAL-ACTION-DATE           DTSCU415
00266         MOVE FAFD-UC30H-FINAL-ACTION-DATE TO                      DTSCU415
00267                              WRK-LAST-FINAL-ACTION-DATE.          DTSCU415
00268                                                                   DTSCU415
00269      PERFORM S831-READ-NEXT    THRU S831-EXIT.                    DTSCU415
00270                                                                   DTSCU415
00271  P2100-EXIT.                                                      DTSCU415
00272      EXIT.                                                        DTSCU415
00273                                                                   DTSCU415
00274  P2200-RETURN-VALUES.                                             DTSCU415
00275      MOVE ZERO               TO L415-UC30H-RPT-DUE-DATE.          DTSCU415
00276                                                                   DTSCU415
00277      MOVE WRK-LAST-MASS-MAIL-DATE                                 DTSCU415
00278                              TO L415-UC30H-MASS-MAIL-DATE.        DTSCU415
00279      IF WRK-LAST-MASS-MAIL-YR > 0                                 DTSCU415
00280         MOVE WRK-LAST-MASS-MAIL-YR                                DTSCU415
00281                              TO WRK-LAST-YYYY                     DTSCU415
00282         MOVE 1               TO WRK-LAST-Q                        DTSCU415
00283         MOVE WRK-LAST-YRQ    TO L415-UC30H-MASS-MAIL-STRT-YRQ     DTSCU415
00284         MOVE 4               TO WRK-LAST-Q                        DTSCU415
00285         MOVE WRK-LAST-YRQ    TO L415-UC30H-MASS-MAIL-END-YRQ.     DTSCU415
00286                                                                   DTSCU415
00287      MOVE WRK-LAST-LATE-PEN-DATE                                  DTSCU415
00288                              TO L415-UC30H-LATE-PEN-DATE.         DTSCU415
00289      IF WRK-LAST-LATE-PEN-YR > 0                                  DTSCU415
00290         MOVE WRK-LAST-LATE-PEN-YR                                 DTSCU415
00291                              TO WRK-LAST-YYYY                     DTSCU415
00292         MOVE 1               TO WRK-LAST-Q                        DTSCU415
00293         MOVE WRK-LAST-YRQ    TO L415-UC30H-LATE-PEN-STRT-YRQ      DTSCU415
00294         MOVE 4               TO WRK-LAST-Q                        DTSCU415
00295         MOVE WRK-LAST-YRQ    TO L415-UC30H-LATE-PEN-END-YRQ.      DTSCU415
00296                                                                   DTSCU415
00297      MOVE WRK-LAST-FIRST-DEL-DATE                                 DTSCU415
00298                              TO L415-UC30H-FIRST-DEL-DATE.        DTSCU415
00299      IF WRK-LAST-FIRST-DEL-YR > 0                                 DTSCU415
00300         MOVE WRK-LAST-FIRST-DEL-YR                                DTSCU415
00301                              TO WRK-LAST-YYYY                     DTSCU415
00302         MOVE 1               TO WRK-LAST-Q                        DTSCU415
00303         MOVE WRK-LAST-YRQ    TO L415-UC30H-FIRST-DEL-STRT-YRQ     DTSCU415
00304         MOVE 4               TO WRK-LAST-Q                        DTSCU415
00305         MOVE WRK-LAST-YRQ    TO L415-UC30H-FIRST-DEL-END-YRQ.     DTSCU415
00306                                                                   DTSCU415
00307      MOVE WRK-LAST-FINAL-DEL-DATE                                 DTSCU415
00308                              TO L415-UC30H-FINAL-DEL-DATE.        DTSCU415
00309      IF WRK-LAST-FINAL-DEL-YR > 0                                 DTSCU415
00310         MOVE WRK-LAST-FINAL-DEL-YR                                DTSCU415
00311                              TO WRK-LAST-YYYY                     DTSCU415
00312         MOVE 1               TO WRK-LAST-Q                        DTSCU415
00313         MOVE WRK-LAST-YRQ    TO L415-UC30H-FINAL-DEL-STRT-YRQ     DTSCU415
00314         MOVE 4               TO WRK-LAST-Q                        DTSCU415
00315         MOVE WRK-LAST-YRQ    TO L415-UC30H-FINAL-DEL-END-YRQ.     DTSCU415
00316                                                                   DTSCU415
00317      MOVE WRK-LAST-FINAL-ACTION-DATE                              DTSCU415
00318                              TO L415-UC30H-FINAL-ACTION-DATE.     DTSCU415
00319                                                                   DTSCU415
00320  P2200-EXIT.                                                      DTSCU415
00321      EXIT.                                                        DTSCU415
00322                                                                   DTSCU415
00323  S831-READ.                                                       DTSCU415
00324      SET L831-READ-88 TO TRUE.                                    DTSCU415
00325      GO TO S831-REF-IO.                                           DTSCU415
00326                                                                   DTSCU415
00327  S831-START-BROWSE.                                               DTSCU415
00328      SET L831-START-BROWSE-88 TO TRUE.                            DTSCU415
00329      GO TO S831-REF-IO.                                           DTSCU415
00330                                                                   DTSCU415
00331  S831-READ-NEXT.                                                  DTSCU415
00332      SET L831-READ-NEXT-88    TO TRUE.                            DTSCU415
00333      GO TO S831-REF-IO.                                           DTSCU415
00334                                                                   DTSCU415
00335  S831-REF-IO.                                                     DTSCU415
00336       EXEC CICS LINK                                              DTSCU415
00337           PROGRAM  ('DTSCU831')                                   DTSCU415
00338           COMMAREA (L831-COMM-AREA)                               DTSCU415
00339       END-EXEC.                                                   DTSCU415
00340       SKIP1                                                       DTSCU415
00341  S831-EXIT.                                                       DTSCU415
00342      EXIT.                                                        DTSCU415
00343                                                                   DTSCU415
00344  S899-ABEND.                                                      DTSCU415
00345      EXEC CICS ABEND                                              DTSCU415
00346          ABCODE(WRK-ABEND-CODE)                                   DTSCU415
00347      END-EXEC.                                                    DTSCU415
00348                                                                   DTSCU415
00349  S899-EXIT.                                                       DTSCU415
00350      EXIT.                                                        DTSCU415
