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