00001  IDENTIFICATION DIVISION.                                         05/28/14
00002  PROGRAM-ID.             DTSBU003.                                DTSBU003
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV020
00004  DATE-WRITTEN.           JULY 1994.                               DTSBU003
00005  DATE-COMPILED.                                                   DTSBU003
00006      SKIP3                                                        DTSBU003
00007 *****                                                             DTSBU003
00008 *                                                                 DTSBU003
00009 *    FUNCTION:  WORK DAYS.                                        DTSBU003
00010 *                                                                 DTSBU003
00011 *                                                                 DTSBU003
00012 *    MODIFICATION LOG:                                            DTSBU003
00013 *                                                                 DTSBU003
00014 *    07/07/94  INITIAL DEVELOPMENT.                               DTSBU003
00015 *              WORK ORDER:                      PROGRAMMER: RHC   DTSBU003
00016 *                                                                 DTSBU003
00017 *    07/26/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBU003
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBU003
00019 *                                                                 DTSBU003
00020 *                                                                 DTSBU003
00021 *    02/08/2012  REVIEWED AND MODIFIED FOR DC HOLIDAY             DTSBU003
00022 *                EMNCIPATION DAY APRIL 16                         DTSBU003
00023 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSBU003
00024 *                                                                 DTSBU003
00025 *    05/20/2012  REVIEWED AND MODIFIED FOR DC HOLIDAY             DTSBU003
00026 *                EMNCIPATION DAY APRIL 16                         DTSBU003
00027 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: NH1   DTSBU003
00028 *                                                                 DTSBU003
00029 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU003
00030 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBU003
00031 *                                                                 DTSBU003
00032 *                                                                 DTSBU003
00033 *    DESCRIPTION:                                                 DTSBU003
00034 *                                                                 DTSBU003
00035 *        DETERMINE WHETHER A GIVEN DATE IS AN AGENCY WORK DAY.    DTSBU003
00036 *                                                                 DTSBU003
00037 *****                                                             DTSBU003
00038      SKIP3                                                        DTSBU003
00039  ENVIRONMENT DIVISION.                                            DTSBU003
00040  INPUT-OUTPUT SECTION.                                            DTSBU003
00041                                                                   DTSBU003
00042  FILE-CONTROL.                                                    DTSBU003
00043      SELECT HDAY-FILE ASSIGN TO DTS003F1.                         DTSBU003
00044                                                                   DTSBU003
00045  DATA DIVISION.                                                   DTSBU003
00046                                                                   DTSBU003
00047  FILE SECTION.                                                    DTSBU003
00048  FD  HDAY-FILE                                                    DTSBU003
00049      RECORDING MODE IS F.                                         DTSBU003
00050  01  HDAY-DATA                   PIC  X(80).                      DTSBU003
00051                                                                   DTSBU003
00052      SKIP3                                                        DTSBU003
00053  WORKING-STORAGE SECTION.                                         DTSBU003
000535 77  PAN-VALET PICTURE X(24) VALUE '020DTSBU003  05/28/14'.       DTSBU003
00054  77  PAN-VALET PICTURE X(24) VALUE '024DTSBU003  05/28/14'.       DTSBU003
00055      SKIP3                                                        DTSBU003
00056  01  WRK-AREA.                                                    DTSBU003
00057      05  WRK-HDAY-AREA.                                           DTSBU003
00058          10  HDAY-YEAR           PIC  9(04).                      DTSBU003
00059          10  FILLER              PIC  X(01) VALUE ','.            DTSBU003
00060          10  HDAY-DAY-FILLER     PIC  X(24).                      DTSBU003
00061          10  HDAY-DAY            PIC  X(26).                      DTSBU003
00062          10  FILLER              PIC  X(01) VALUE ','.            DTSBU003
00063          10  HDAY-DATE           PIC  X(10).                      DTSBU003
00064          10  FILLER2             PIC  X(14).                      DTSBU003
00065      05  WRK-ABEND-CD            PIC S9(04) COMP VALUE +003.      DTSBU003
00066                                                                   DTSBU003
00067      05  WRK-MODULE-NAME         PIC  X(08)  VALUE 'DTSBU003'.    DTSBU003
00068      05  WRK-OPTION              PIC  X(01)  VALUE SPACES.        DTSBU003
00069                                                                   DTSBU003
00070      05  WRK-ABEND-MSG           PIC  X(60).                      DTSBU003
00071      SKIP3                                                        DTSBU003
00072      05  FIRST-TIME-IND          PIC  X(01)  VALUE 'Y'.           DTSBU003
00073      SKIP3                                                        DTSBU003
00074      05  HOLIDAY-AREA.                                            DTSBU003
00075          10  HOLIDAY-YEAR        PIC  9(04).                      DTSBU003
00076                                                                   DTSBU003
00077          10  HOLIDAYS-IN-YEAR.                                    DTSBU003
00078              15  NEW-YEARS-DAY               PIC S9(09)  COMP-3.  DTSBU003
00079              15  MARTIN-LUTHER-KING-DAY      PIC S9(09)  COMP-3.  DTSBU003
00080              15  PRESIDENTS-DAY              PIC S9(09)  COMP-3.  DTSBU003
00081              15  INAGURATION-DAY             PIC S9(09)  COMP-3.  DTSBU003
00082              15  MEMORIAL-DAY                PIC S9(09)  COMP-3.  DTSBU003
00083 **           15  EMANCIPATION-DAY            PIC S9(09)  COMP-3.  DTSBU003
00084              15  INDEPENDENCE-DAY            PIC S9(09)  COMP-3.  DTSBU003
00085              15  LABOR-DAY                   PIC S9(09)  COMP-3.  DTSBU003
00086              15  COLUMBUS-DAY                PIC S9(09)  COMP-3.  DTSBU003
00087              15  VETERANS-DAY                PIC S9(09)  COMP-3.  DTSBU003
00088              15  THANKSGIVING-DAY            PIC S9(09)  COMP-3.  DTSBU003
00089              15  CHRISTMAS-DAY               PIC S9(09)  COMP-3.  DTSBU003
00090              15  NEW-YEARS-EVE               PIC S9(09)  COMP-3.  DTSBU003
00091                                                                   DTSBU003
00092          10  FILLER REDEFINES HOLIDAYS-IN-YEAR.                   DTSBU003
00093              15  HOLIDAY-DATE                                     DTSBU003
00094 **               OCCURS 13 TIMES                                  DTSBU003
00095                  OCCURS 12 TIMES                                  DTSBU003
00096                  INDEXED BY HOLIDAY-IDX      PIC S9(09)  COMP-3.  DTSBU003
00097                                                                   DTSBU003
00098          10  HOLIDAY-CNT                     PIC S9(04)  COMP     DTSBU003
00099 **                                                 VALUE +13.     DTSBU003
00100                                                    VALUE +12.     DTSBU003
00101      SKIP3                                                        DTSBU003
00102      05  WRK-RESULT                          PIC S9(05)  COMP-3.  DTSBU003
00103                                                                   DTSBU003
00104      05  WRK-REMAINDER                       PIC S9(05)  COMP-3.  DTSBU003
00105      EJECT                                                        DTSBU003
00106  01  L001-LINK-AREA.                                              DTSBU003
00107  ++INCLUDE DTSIL001                                               DTSBU003
00108      EJECT                                                        DTSBU003
00109  01  L005-LINK-AREA.                                              DTSBU003
00110  ++INCLUDE DTSIL005                                               DTSBU003
00111      EJECT                                                        DTSBU003
00112  LINKAGE SECTION.                                                 DTSBU003
00113      SKIP3                                                        DTSBU003
00114  01  L003-LINK-AREA.                                              DTSBU003
00115  ++INCLUDE DTSIL003                                               DTSBU003
00116      EJECT                                                        DTSBU003
00117  PROCEDURE DIVISION USING L003-LINK-AREA.                         DTSBU003
00118                                                                   DTSBU003
00119                                                                   DTSBU003
00120      IF L003-OPEN-FILE                                            DTSBU003
00121         DISPLAY 'OPEN FILES FOR HOLIDAYS'                         DTSBU003
00122         MOVE '2' TO WRK-OPTION                                    DTSBU003
00123         OPEN OUTPUT HDAY-FILE                                     DTSBU003
00124         MOVE 'Y' TO FIRST-TIME-IND                                DTSBU003
00125         MOVE '1' TO L003-OPTION.                                  DTSBU003
00126                                                                   DTSBU003
00127      IF FIRST-TIME-IND = 'Y'                                      DTSBU003
00128          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBU003
00129          MOVE 'N' TO FIRST-TIME-IND.                              DTSBU003
00130                                                                   DTSBU003
00131                                                                   DTSBU003
00132      IF L003-AGENCY-DAY                                           DTSBU003
00133          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBU003
00134      ELSE                                                         DTSBU003
00135          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00136                                                                   DTSBU003
00137                                                                   DTSBU003
00138      GOBACK.                                                      DTSBU003
00139      EJECT                                                        DTSBU003
00140  I0000-INITIALIZE.                                                DTSBU003
00141      PERFORM S005-FROM-SYS THRU S005-EXIT.                        DTSBU003
00142                                                                   DTSBU003
00143      MOVE L005-DATE TO L001-FED-8-DATE-9.                         DTSBU003
00144                                                                   DTSBU003
00145      MOVE L001-FED-8-YR TO HOLIDAY-YEAR.                          DTSBU003
00146                                                                   DTSBU003
00147      PERFORM S1000-DETERMINE-HOLIDAYS THRU S1000-EXIT.            DTSBU003
00148                                                                   DTSBU003
00149      PERFORM I1000-DISPLAY-HOLIDAYS THRU I1000-EXIT.              DTSBU003
00150                                                                   DTSBU003
00151      MOVE L005-DATE TO L001-FED-8-DATE-9.                         DTSBU003
00152                                                                   DTSBU003
00153      MOVE L001-FED-8-YR TO HOLIDAY-YEAR.                          DTSBU003
00154                                                                   DTSBU003
00155      IF WRK-OPTION = '2'                                          DTSBU003
00156         MOVE HOLIDAY-YEAR TO HDAY-YEAR                            DTSBU003
00157         PERFORM I1100-WRITE-HOLIDAYS THRU I1100-EXIT.             DTSBU003
00158                                                                   DTSBU003
00159      ADD 1 TO HOLIDAY-YEAR.                                       DTSBU003
00160                                                                   DTSBU003
00161      PERFORM S1000-DETERMINE-HOLIDAYS THRU S1000-EXIT.            DTSBU003
00162                                                                   DTSBU003
00163      PERFORM                                                      DTSBU003
00164        8 TIMES                                                    DTSBU003
00165          DISPLAY ' '                                              DTSBU003
00166      END-PERFORM.                                                 DTSBU003
00167                                                                   DTSBU003
00168      PERFORM I1000-DISPLAY-HOLIDAYS THRU I1000-EXIT.              DTSBU003
00169  I0000-EXIT.                                                      DTSBU003
00170      EXIT.                                                        DTSBU003
00171  I1000-DISPLAY-HOLIDAYS.                                          DTSBU003
00172      DISPLAY '***  '                                              DTSBU003
00173              HOLIDAY-YEAR                                         DTSBU003
00174              ' HOLIDAYS'.                                         DTSBU003
00175                                                                   DTSBU003
00176      DISPLAY ' '.                                                 DTSBU003
00177                                                                   DTSBU003
00178                                                                   DTSBU003
00179      MOVE NEW-YEARS-DAY TO L001-FED-8-DATE-9.                     DTSBU003
00180                                                                   DTSBU003
00181      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00182                                                                   DTSBU003
00183      DISPLAY '             NEW YEARS DAY: '                       DTSBU003
00184              L001-SLASH-8-DATE.                                   DTSBU003
00185                                                                   DTSBU003
00186                                                                   DTSBU003
00187      MOVE MARTIN-LUTHER-KING-DAY TO L001-FED-8-DATE-9.            DTSBU003
00188                                                                   DTSBU003
00189      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00190                                                                   DTSBU003
00191      DISPLAY '    MARTIN LUTHER KING DAY: '                       DTSBU003
00192              L001-SLASH-8-DATE.                                   DTSBU003
00193                                                                   DTSBU003
00194                                                                   DTSBU003
00195      MOVE INAGURATION-DAY TO L001-FED-8-DATE-9.                   DTSBU003
00196                                                                   DTSBU003
00197      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00198                                                                   DTSBU003
00199      DISPLAY '           INAGURATION DAY: '                       DTSBU003
00200              L001-SLASH-8-DATE.                                   DTSBU003
00201                                                                   DTSBU003
00202                                                                   DTSBU003
00203      MOVE PRESIDENTS-DAY TO L001-FED-8-DATE-9.                    DTSBU003
00204                                                                   DTSBU003
00205      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00206                                                                   DTSBU003
00207      DISPLAY '            PRESIDENTS DAY: '                       DTSBU003
00208              L001-SLASH-8-DATE.                                   DTSBU003
00209                                                                   DTSBU003
00210                                                                   DTSBU003
00211 **   MOVE EMANCIPATION-DAY TO L001-FED-8-DATE-9.                  DTSBU003
00212                                                                   DTSBU003
00213 **   PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00214                                                                   DTSBU003
00215 **   DISPLAY '         EMANCIPATION  DAY: '                       DTSBU003
00216 **           L001-SLASH-8-DATE.                                   DTSBU003
00217                                                                   DTSBU003
00218                                                                   DTSBU003
00219      MOVE MEMORIAL-DAY TO L001-FED-8-DATE-9.                      DTSBU003
00220                                                                   DTSBU003
00221      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00222                                                                   DTSBU003
00223      DISPLAY '              MEMORIAL DAY: '                       DTSBU003
00224              L001-SLASH-8-DATE.                                   DTSBU003
00225                                                                   DTSBU003
00226                                                                   DTSBU003
00227      MOVE INDEPENDENCE-DAY TO L001-FED-8-DATE-9.                  DTSBU003
00228                                                                   DTSBU003
00229      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00230                                                                   DTSBU003
00231      DISPLAY '          INDEPENDENCE DAY: '                       DTSBU003
00232              L001-SLASH-8-DATE.                                   DTSBU003
00233                                                                   DTSBU003
00234                                                                   DTSBU003
00235      MOVE LABOR-DAY TO L001-FED-8-DATE-9.                         DTSBU003
00236                                                                   DTSBU003
00237      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00238                                                                   DTSBU003
00239      DISPLAY '                 LABOR DAY: '                       DTSBU003
00240              L001-SLASH-8-DATE.                                   DTSBU003
00241                                                                   DTSBU003
00242                                                                   DTSBU003
00243      MOVE COLUMBUS-DAY TO L001-FED-8-DATE-9.                      DTSBU003
00244                                                                   DTSBU003
00245      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00246                                                                   DTSBU003
00247      DISPLAY '              COLUMBUS DAY: '                       DTSBU003
00248              L001-SLASH-8-DATE.                                   DTSBU003
00249                                                                   DTSBU003
00250                                                                   DTSBU003
00251      MOVE VETERANS-DAY TO L001-FED-8-DATE-9.                      DTSBU003
00252                                                                   DTSBU003
00253      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00254                                                                   DTSBU003
00255      DISPLAY '              VETERANS DAY: '                       DTSBU003
00256              L001-SLASH-8-DATE.                                   DTSBU003
00257                                                                   DTSBU003
00258                                                                   DTSBU003
00259      MOVE THANKSGIVING-DAY TO L001-FED-8-DATE-9.                  DTSBU003
00260                                                                   DTSBU003
00261      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00262                                                                   DTSBU003
00263      DISPLAY '          THANKSGIVING DAY: '                       DTSBU003
00264              L001-SLASH-8-DATE.                                   DTSBU003
00265                                                                   DTSBU003
00266                                                                   DTSBU003
00267      MOVE CHRISTMAS-DAY TO L001-FED-8-DATE-9.                     DTSBU003
00268                                                                   DTSBU003
00269      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00270                                                                   DTSBU003
00271      DISPLAY '             CHRISTMAS DAY: '                       DTSBU003
00272              L001-SLASH-8-DATE.                                   DTSBU003
00273                                                                   DTSBU003
00274                                                                   DTSBU003
00275      MOVE NEW-YEARS-EVE TO L001-FED-8-DATE-9.                     DTSBU003
00276                                                                   DTSBU003
00277      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00278                                                                   DTSBU003
00279      DISPLAY '             NEW YEARS EVE: '                       DTSBU003
00280              L001-SLASH-8-DATE.                                   DTSBU003
00281                                                                   DTSBU003
00282                                                                   DTSBU003
00283      DISPLAY ' '.                                                 DTSBU003
00284                                                                   DTSBU003
00285      DISPLAY '***  IF ANY OF THE ABOVE DATES ARE NOT CORRECT, '   DTSBU003
00286              'CONTACT UI TAX PROGRAMMER IMMEDIATELY.'.            DTSBU003
00287  I1000-EXIT.                                                      DTSBU003
00288      EXIT.                                                        DTSBU003
00289      EJECT                                                        DTSBU003
00290  I1100-WRITE-HOLIDAYS.                                            DTSBU003
00291      MOVE SPACES TO HDAY-DAY-FILLER FILLER2.                      DTSBU003
00292      MOVE NEW-YEARS-DAY TO L001-FED-8-DATE-9.                     DTSBU003
00293      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00294      MOVE   '             NEW YEARS DAY' TO HDAY-DAY              DTSBU003
00295      MOVE   L001-SLASH-8-DATE            TO HDAY-DATE.            DTSBU003
00296      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00297                                                                   DTSBU003
00298      MOVE MARTIN-LUTHER-KING-DAY TO L001-FED-8-DATE-9.            DTSBU003
00299      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00300      MOVE    '    MARTIN LUTHER KING DAY' TO HDAY-DAY.            DTSBU003
00301      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00302      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00303                                                                   DTSBU003
00304      MOVE INAGURATION-DAY TO L001-FED-8-DATE-9.                   DTSBU003
00305      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00306      MOVE    '           INAGURATION DAY' TO HDAY-DAY.            DTSBU003
00307      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00308      IF HDAY-DATE = '0000000000'                                  DTSBU003
00309         MOVE SPACES TO HDAY-DATE.                                 DTSBU003
00310      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00311                                                                   DTSBU003
00312      MOVE PRESIDENTS-DAY TO L001-FED-8-DATE-9.                    DTSBU003
00313      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00314      MOVE    '            PRESIDENTS DAY' TO HDAY-DAY.            DTSBU003
00315      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00316      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00317                                                                   DTSBU003
00318 **   MOVE EMANCIPATION-DAY TO L001-FED-8-DATE-9.                  DTSBU003
00319 **   PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00320 **   MOVE    '          EMANCIPATION DAY' TO HDAY-DAY.            DTSBU003
00321 **   MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00322 **   IF HDAY-DATE = '0000000000'                                  DTSBU003
00323 **      MOVE SPACES TO HDAY-DATE.                                 DTSBU003
00324 **   WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00325                                                                   DTSBU003
00326                                                                   DTSBU003
00327      MOVE MEMORIAL-DAY TO L001-FED-8-DATE-9.                      DTSBU003
00328      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00329      MOVE    '              MEMORIAL DAY' TO HDAY-DAY.            DTSBU003
00330      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00331      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00332                                                                   DTSBU003
00333                                                                   DTSBU003
00334      MOVE INDEPENDENCE-DAY TO L001-FED-8-DATE-9.                  DTSBU003
00335      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00336      MOVE    '          INDEPENDENCE DAY' TO HDAY-DAY.            DTSBU003
00337      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00338      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00339                                                                   DTSBU003
00340                                                                   DTSBU003
00341      MOVE LABOR-DAY TO L001-FED-8-DATE-9.                         DTSBU003
00342      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00343      MOVE    '                 LABOR DAY' TO HDAY-DAY.            DTSBU003
00344      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00345      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00346                                                                   DTSBU003
00347                                                                   DTSBU003
00348      MOVE COLUMBUS-DAY TO L001-FED-8-DATE-9.                      DTSBU003
00349      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00350      MOVE    '              COLUMBUS DAY' TO HDAY-DAY.            DTSBU003
00351      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00352      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00353                                                                   DTSBU003
00354                                                                   DTSBU003
00355      MOVE VETERANS-DAY TO L001-FED-8-DATE-9.                      DTSBU003
00356      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00357      MOVE    '              VETERANS DAY' TO HDAY-DAY.            DTSBU003
00358      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00359      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00360                                                                   DTSBU003
00361                                                                   DTSBU003
00362      MOVE THANKSGIVING-DAY TO L001-FED-8-DATE-9.                  DTSBU003
00363      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00364      MOVE    '          THANKSGIVING DAY' TO HDAY-DAY.            DTSBU003
00365      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00366      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00367                                                                   DTSBU003
00368                                                                   DTSBU003
00369      MOVE CHRISTMAS-DAY TO L001-FED-8-DATE-9.                     DTSBU003
00370      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00371      MOVE    '             CHRISTMAS DAY'  TO HDAY-DAY.           DTSBU003
00372      MOVE    L001-SLASH-8-DATE             TO HDAY-DATE.          DTSBU003
00373      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00374                                                                   DTSBU003
00375                                                                   DTSBU003
00376      MOVE NEW-YEARS-EVE TO L001-FED-8-DATE-9.                     DTSBU003
00377      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00378      MOVE    '             NEW YEARS EVE' TO HDAY-DAY.            DTSBU003
00379      MOVE    L001-SLASH-8-DATE            TO HDAY-DATE.           DTSBU003
00380      IF HDAY-DATE = '0000000000'                                  DTSBU003
00381         MOVE SPACES TO HDAY-DATE.                                 DTSBU003
00382      WRITE HDAY-DATA FROM WRK-HDAY-AREA.                          DTSBU003
00383      CLOSE HDAY-FILE.                                             DTSBU003
00384  I1100-EXIT.                                                      DTSBU003
00385      EXIT.                                                        DTSBU003
00386      EJECT                                                        DTSBU003
00387  P0000-PROCESS.                                                   DTSBU003
00388      MOVE L003-DATE TO L001-FED-8-DATE-9.                         DTSBU003
00389                                                                   DTSBU003
00390      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00391                                                                   DTSBU003
00392      IF L001-INVALID-DATE                                         DTSBU003
00393          MOVE 'L003-DATE IS NOT A VALID DATE'                     DTSBU003
00394            TO WRK-ABEND-MSG                                       DTSBU003
00395          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00396                                                                   DTSBU003
00397                                                                   DTSBU003
00398      IF L001-SATURDAY OR L001-SUNDAY                              DTSBU003
00399          SET L003-NOT-WORK-DAY TO TRUE                            DTSBU003
00400      ELSE                                                         DTSBU003
00401          SET L003-IS-WORK-DAY TO TRUE                             DTSBU003
00402          PERFORM P1000-CHECK-FOR-HOLIDAY THRU P1000-EXIT.         DTSBU003
00403  P0000-EXIT.                                                      DTSBU003
00404      EXIT.                                                        DTSBU003
00405      EJECT                                                        DTSBU003
00406  P1000-CHECK-FOR-HOLIDAY.                                         DTSBU003
00407      MOVE L003-DATE TO L001-FED-8-DATE-9.                         DTSBU003
00408                                                                   DTSBU003
00409      IF L001-FED-8-YR = HOLIDAY-YEAR                              DTSBU003
00410          NEXT SENTENCE                                            DTSBU003
00411      ELSE                                                         DTSBU003
00412          MOVE L001-FED-8-YR TO HOLIDAY-YEAR                       DTSBU003
00413          PERFORM S1000-DETERMINE-HOLIDAYS THRU S1000-EXIT.        DTSBU003
00414                                                                   DTSBU003
00415      PERFORM                                                      DTSBU003
00416        VARYING HOLIDAY-IDX FROM 1 BY 1                            DTSBU003
00417        UNTIL HOLIDAY-IDX > HOLIDAY-CNT                            DTSBU003
00418          IF HOLIDAY-DATE (HOLIDAY-IDX) = L003-DATE                DTSBU003
00419              SET L003-NOT-WORK-DAY TO TRUE                        DTSBU003
00420          END-IF                                                   DTSBU003
00421      END-PERFORM.                                                 DTSBU003
00422  P1000-EXIT.                                                      DTSBU003
00423      EXIT.                                                        DTSBU003
00424      EJECT                                                        DTSBU003
00425  S1000-DETERMINE-HOLIDAYS.                                        DTSBU003
00426      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00427                                                                   DTSBU003
00428      MOVE 01 TO L001-FED-8-MO.                                    DTSBU003
00429                                                                   DTSBU003
00430      MOVE 01 TO L001-FED-8-DA.                                    DTSBU003
00431                                                                   DTSBU003
00432      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00433                                                                   DTSBU003
00434      IF L001-INVALID-DATE                                         DTSBU003
00435          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:001'         DTSBU003
00436            TO WRK-ABEND-MSG                                       DTSBU003
00437          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00438                                                                   DTSBU003
00439      IF L001-SUNDAY                                               DTSBU003
00440          MOVE 02 TO L001-FED-8-DA                                 DTSBU003
00441          MOVE L001-FED-8-DATE-9                                   DTSBU003
00442            TO NEW-YEARS-DAY                                       DTSBU003
00443      ELSE                                                         DTSBU003
00444      IF L001-SATURDAY                                             DTSBU003
00445          MOVE 0 TO NEW-YEARS-DAY                                  DTSBU003
00446      ELSE                                                         DTSBU003
00447          MOVE L001-FED-8-DATE-9 TO NEW-YEARS-DAY.                 DTSBU003
00448                                                                   DTSBU003
00449                                                                   DTSBU003
00450      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00451                                                                   DTSBU003
00452      MOVE 01 TO L001-FED-8-MO.                                    DTSBU003
00453                                                                   DTSBU003
00454      MOVE 21 TO L001-FED-8-DA.                                    DTSBU003
00455                                                                   DTSBU003
00456      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00457                                                                   DTSBU003
00458      IF L001-INVALID-DATE                                         DTSBU003
00459          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:002'         DTSBU003
00460            TO WRK-ABEND-MSG                                       DTSBU003
00461          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00462                                                                   DTSBU003
00463      IF L001-MONDAY                                               DTSBU003
00464          NEXT SENTENCE                                            DTSBU003
00465      ELSE                                                         DTSBU003
00466      IF L001-SUNDAY                                               DTSBU003
00467          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY - 6          DTSBU003
00468      ELSE                                                         DTSBU003
00469          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00470            = L001-JUL-ABS-DAY - (L001-DAY-OF-WEEK - 2).           DTSBU003
00471                                                                   DTSBU003
00472      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00473                                                                   DTSBU003
00474      IF L001-INVALID-DATE                                         DTSBU003
00475          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:003'         DTSBU003
00476            TO WRK-ABEND-MSG                                       DTSBU003
00477          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00478                                                                   DTSBU003
00479      MOVE L001-FED-8-DATE-9 TO MARTIN-LUTHER-KING-DAY.            DTSBU003
00480                                                                   DTSBU003
00481                                                                   DTSBU003
00482      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00483                                                                   DTSBU003
00484      MOVE 01 TO L001-FED-8-MO.                                    DTSBU003
00485                                                                   DTSBU003
00486      MOVE 20 TO L001-FED-8-DA.                                    DTSBU003
00487                                                                   DTSBU003
00488      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00489                                                                   DTSBU003
00490      IF L001-INVALID-DATE                                         DTSBU003
00491          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:004'         DTSBU003
00492            TO WRK-ABEND-MSG                                       DTSBU003
00493          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00494                                                                   DTSBU003
00495      DIVIDE L001-FED-8-YR BY 4                                    DTSBU003
00496          GIVING WRK-RESULT                                        DTSBU003
00497          REMAINDER WRK-REMAINDER.                                 DTSBU003
00498                                                                   DTSBU003
00499      IF (WRK-REMAINDER NOT = 1)                                   DTSBU003
00500              OR                                                   DTSBU003
00501         (L001-SATURDAY)                                           DTSBU003
00502              OR                                                   DTSBU003
00503         (L001-SUNDAY)                                             DTSBU003
00504              OR                                                   DTSBU003
00505         (L001-FED-8-DATE-9 = MARTIN-LUTHER-KING-DAY)              DTSBU003
00506          MOVE +0 TO INAGURATION-DAY                               DTSBU003
00507      ELSE                                                         DTSBU003
00508          MOVE L001-FED-8-DATE-9 TO INAGURATION-DAY.               DTSBU003
00509                                                                   DTSBU003
00510                                                                   DTSBU003
00511      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00512                                                                   DTSBU003
00513      MOVE 02 TO L001-FED-8-MO.                                    DTSBU003
00514                                                                   DTSBU003
00515      MOVE 01 TO L001-FED-8-DA.                                    DTSBU003
00516                                                                   DTSBU003
00517      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00518                                                                   DTSBU003
00519      IF L001-INVALID-DATE                                         DTSBU003
00520          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:005'         DTSBU003
00521            TO WRK-ABEND-MSG                                       DTSBU003
00522          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00523                                                                   DTSBU003
00524      IF L001-DAY-OF-WEEK < 3                                      DTSBU003
00525          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00526            = L001-JUL-ABS-DAY + 16 - L001-DAY-OF-WEEK             DTSBU003
00527      ELSE                                                         DTSBU003
00528          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00529            = L001-JUL-ABS-DAY + 23 - L001-DAY-OF-WEEK.            DTSBU003
00530                                                                   DTSBU003
00531      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00532                                                                   DTSBU003
00533      IF L001-INVALID-DATE                                         DTSBU003
00534          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:006'         DTSBU003
00535            TO WRK-ABEND-MSG                                       DTSBU003
00536          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00537                                                                   DTSBU003
00538      MOVE L001-FED-8-DATE-9 TO PRESIDENTS-DAY.                    DTSBU003
00539                                                                   DTSBU003
00540                                                                   DTSBU003
00541 **   MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00542                                                                   DTSBU003
00543 **   MOVE 04 TO L001-FED-8-MO.                                    DTSBU003
00544                                                                   DTSBU003
00545 **   MOVE 16 TO L001-FED-8-DA.                                    DTSBU003
00546                                                                   DTSBU003
00547 **   PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00548                                                                   DTSBU003
00549 **   IF L001-INVALID-DATE                                         DTSBU003
00550 **       MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:007'         DTSBU003
00551 **         TO WRK-ABEND-MSG                                       DTSBU003
00552 **       PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00553                                                                   DTSBU003
00554                                                                   DTSBU003
00555 **   IF L001-SUNDAY                                               DTSBU003
00556 **       COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY + 1          DTSBU003
00557 **   ELSE                                                         DTSBU003
00558 **   IF L001-SATURDAY                                             DTSBU003
00559 **       COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY - 1.         DTSBU003
00560                                                                   DTSBU003
00561                                                                   DTSBU003
00562 **   PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00563                                                                   DTSBU003
00564 **   IF L001-INVALID-DATE                                         DTSBU003
00565 **       MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:008'         DTSBU003
00566 **         TO WRK-ABEND-MSG                                       DTSBU003
00567 **       PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00568                                                                   DTSBU003
00569 **   MOVE L001-FED-8-DATE-9 TO EMANCIPATION-DAY.                  DTSBU003
00570                                                                   DTSBU003
00571                                                                   DTSBU003
00572                                                                   DTSBU003
00573      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00574                                                                   DTSBU003
00575      MOVE 05 TO L001-FED-8-MO.                                    DTSBU003
00576                                                                   DTSBU003
00577      MOVE 31 TO L001-FED-8-DA.                                    DTSBU003
00578                                                                   DTSBU003
00579      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00580                                                                   DTSBU003
00581      IF L001-INVALID-DATE                                         DTSBU003
00582          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:007'         DTSBU003
00583            TO WRK-ABEND-MSG                                       DTSBU003
00584          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00585                                                                   DTSBU003
00586      IF L001-MONDAY                                               DTSBU003
00587          NEXT SENTENCE                                            DTSBU003
00588      ELSE                                                         DTSBU003
00589      IF L001-SUNDAY                                               DTSBU003
00590          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY - 6          DTSBU003
00591      ELSE                                                         DTSBU003
00592          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00593            = L001-JUL-ABS-DAY - (L001-DAY-OF-WEEK - 2).           DTSBU003
00594                                                                   DTSBU003
00595      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00596                                                                   DTSBU003
00597      IF L001-INVALID-DATE                                         DTSBU003
00598          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:008'         DTSBU003
00599            TO WRK-ABEND-MSG                                       DTSBU003
00600          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00601                                                                   DTSBU003
00602      MOVE L001-FED-8-DATE-9 TO MEMORIAL-DAY.                      DTSBU003
00603                                                                   DTSBU003
00604                                                                   DTSBU003
00605      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00606                                                                   DTSBU003
00607      MOVE 07 TO L001-FED-8-MO.                                    DTSBU003
00608                                                                   DTSBU003
00609      MOVE 04 TO L001-FED-8-DA.                                    DTSBU003
00610                                                                   DTSBU003
00611      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00612                                                                   DTSBU003
00613      IF L001-INVALID-DATE                                         DTSBU003
00614          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:009'         DTSBU003
00615            TO WRK-ABEND-MSG                                       DTSBU003
00616          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00617                                                                   DTSBU003
00618      IF L001-SUNDAY                                               DTSBU003
00619          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY + 1          DTSBU003
00620      ELSE                                                         DTSBU003
00621      IF L001-SATURDAY                                             DTSBU003
00622          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY - 1.         DTSBU003
00623                                                                   DTSBU003
00624      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00625                                                                   DTSBU003
00626      IF L001-INVALID-DATE                                         DTSBU003
00627          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:010'         DTSBU003
00628            TO WRK-ABEND-MSG                                       DTSBU003
00629          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00630                                                                   DTSBU003
00631      MOVE L001-FED-8-DATE-9 TO INDEPENDENCE-DAY.                  DTSBU003
00632                                                                   DTSBU003
00633                                                                   DTSBU003
00634      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00635                                                                   DTSBU003
00636      MOVE 09 TO L001-FED-8-MO.                                    DTSBU003
00637                                                                   DTSBU003
00638      MOVE 01 TO L001-FED-8-DA.                                    DTSBU003
00639                                                                   DTSBU003
00640      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00641                                                                   DTSBU003
00642      IF L001-INVALID-DATE                                         DTSBU003
00643          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:011'         DTSBU003
00644            TO WRK-ABEND-MSG                                       DTSBU003
00645          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00646                                                                   DTSBU003
00647      IF L001-DAY-OF-WEEK < 3                                      DTSBU003
00648          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00649            = L001-JUL-ABS-DAY + 2 - L001-DAY-OF-WEEK              DTSBU003
00650      ELSE                                                         DTSBU003
00651          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00652            = L001-JUL-ABS-DAY + 9 - L001-DAY-OF-WEEK.             DTSBU003
00653                                                                   DTSBU003
00654      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00655                                                                   DTSBU003
00656      IF L001-INVALID-DATE                                         DTSBU003
00657          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:012'         DTSBU003
00658            TO WRK-ABEND-MSG                                       DTSBU003
00659          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00660                                                                   DTSBU003
00661      MOVE L001-FED-8-DATE-9 TO LABOR-DAY.                         DTSBU003
00662                                                                   DTSBU003
00663                                                                   DTSBU003
00664      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00665                                                                   DTSBU003
00666      MOVE 10 TO L001-FED-8-MO.                                    DTSBU003
00667                                                                   DTSBU003
00668      MOVE 01 TO L001-FED-8-DA.                                    DTSBU003
00669                                                                   DTSBU003
00670      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00671                                                                   DTSBU003
00672      IF L001-INVALID-DATE                                         DTSBU003
00673          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:013'         DTSBU003
00674            TO WRK-ABEND-MSG                                       DTSBU003
00675          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00676                                                                   DTSBU003
00677      IF L001-DAY-OF-WEEK < 3                                      DTSBU003
00678          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00679            = L001-JUL-ABS-DAY + 9 - L001-DAY-OF-WEEK              DTSBU003
00680      ELSE                                                         DTSBU003
00681          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00682            = L001-JUL-ABS-DAY + 16 - L001-DAY-OF-WEEK.            DTSBU003
00683                                                                   DTSBU003
00684      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00685                                                                   DTSBU003
00686      IF L001-INVALID-DATE                                         DTSBU003
00687          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:012'         DTSBU003
00688            TO WRK-ABEND-MSG                                       DTSBU003
00689          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00690                                                                   DTSBU003
00691      MOVE L001-FED-8-DATE-9 TO COLUMBUS-DAY.                      DTSBU003
00692                                                                   DTSBU003
00693                                                                   DTSBU003
00694      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00695                                                                   DTSBU003
00696      MOVE 11 TO L001-FED-8-MO.                                    DTSBU003
00697                                                                   DTSBU003
00698      MOVE 11 TO L001-FED-8-DA.                                    DTSBU003
00699                                                                   DTSBU003
00700      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00701                                                                   DTSBU003
00702      IF L001-INVALID-DATE                                         DTSBU003
00703          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:014'         DTSBU003
00704            TO WRK-ABEND-MSG                                       DTSBU003
00705          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00706                                                                   DTSBU003
00707      IF L001-SUNDAY                                               DTSBU003
00708          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY + 1          DTSBU003
00709      ELSE                                                         DTSBU003
00710      IF L001-SATURDAY                                             DTSBU003
00711          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY - 1.         DTSBU003
00712                                                                   DTSBU003
00713      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00714                                                                   DTSBU003
00715      IF L001-INVALID-DATE                                         DTSBU003
00716          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:015'         DTSBU003
00717            TO WRK-ABEND-MSG                                       DTSBU003
00718          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00719                                                                   DTSBU003
00720      MOVE L001-FED-8-DATE-9 TO VETERANS-DAY.                      DTSBU003
00721                                                                   DTSBU003
00722                                                                   DTSBU003
00723      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00724                                                                   DTSBU003
00725      MOVE 11 TO L001-FED-8-MO.                                    DTSBU003
00726                                                                   DTSBU003
00727      MOVE 01 TO L001-FED-8-DA.                                    DTSBU003
00728                                                                   DTSBU003
00729      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00730                                                                   DTSBU003
00731      IF L001-INVALID-DATE                                         DTSBU003
00732          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:016'         DTSBU003
00733            TO WRK-ABEND-MSG                                       DTSBU003
00734          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00735                                                                   DTSBU003
00736      IF L001-DAY-OF-WEEK < 6                                      DTSBU003
00737          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00738            = L001-JUL-ABS-DAY + 26 - L001-DAY-OF-WEEK             DTSBU003
00739      ELSE                                                         DTSBU003
00740          COMPUTE L001-JUL-ABS-DAY                                 DTSBU003
00741            = L001-JUL-ABS-DAY + 33 - L001-DAY-OF-WEEK.            DTSBU003
00742                                                                   DTSBU003
00743      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00744                                                                   DTSBU003
00745      IF L001-INVALID-DATE                                         DTSBU003
00746          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:017'         DTSBU003
00747            TO WRK-ABEND-MSG                                       DTSBU003
00748          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00749                                                                   DTSBU003
00750      MOVE L001-FED-8-DATE-9 TO THANKSGIVING-DAY.                  DTSBU003
00751                                                                   DTSBU003
00752                                                                   DTSBU003
00753      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00754                                                                   DTSBU003
00755      MOVE 12 TO L001-FED-8-MO.                                    DTSBU003
00756                                                                   DTSBU003
00757      MOVE 25 TO L001-FED-8-DA.                                    DTSBU003
00758                                                                   DTSBU003
00759      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00760                                                                   DTSBU003
00761      IF L001-INVALID-DATE                                         DTSBU003
00762          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:018'         DTSBU003
00763            TO WRK-ABEND-MSG                                       DTSBU003
00764          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00765                                                                   DTSBU003
00766      IF L001-SUNDAY                                               DTSBU003
00767          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY + 1          DTSBU003
00768      ELSE                                                         DTSBU003
00769      IF L001-SATURDAY                                             DTSBU003
00770          COMPUTE L001-JUL-ABS-DAY = L001-JUL-ABS-DAY - 1.         DTSBU003
00771                                                                   DTSBU003
00772      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBU003
00773                                                                   DTSBU003
00774      IF L001-INVALID-DATE                                         DTSBU003
00775          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:019'         DTSBU003
00776            TO WRK-ABEND-MSG                                       DTSBU003
00777          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00778                                                                   DTSBU003
00779      MOVE L001-FED-8-DATE-9 TO CHRISTMAS-DAY.                     DTSBU003
00780                                                                   DTSBU003
00781                                                                   DTSBU003
00782      MOVE HOLIDAY-YEAR TO L001-FED-8-YR.                          DTSBU003
00783                                                                   DTSBU003
00784      ADD +1 TO L001-FED-8-YR.                                     DTSBU003
00785                                                                   DTSBU003
00786      MOVE 01 TO L001-FED-8-MO.                                    DTSBU003
00787                                                                   DTSBU003
00788      MOVE 01 TO L001-FED-8-DA.                                    DTSBU003
00789                                                                   DTSBU003
00790      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBU003
00791                                                                   DTSBU003
00792      IF L001-INVALID-DATE                                         DTSBU003
00793          MOVE 'UNEXPECTED L001-INVALID-DATE AT S1000:020'         DTSBU003
00794            TO WRK-ABEND-MSG                                       DTSBU003
00795          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU003
00796                                                                   DTSBU003
00797      IF L001-SATURDAY                                             DTSBU003
00798          MOVE HOLIDAY-YEAR TO L001-FED-8-YR                       DTSBU003
00799          MOVE 12 TO L001-FED-8-MO                                 DTSBU003
00800          MOVE 31 TO L001-FED-8-DA                                 DTSBU003
00801          MOVE L001-FED-8-DATE-9 TO NEW-YEARS-EVE                  DTSBU003
00802      ELSE                                                         DTSBU003
00803          MOVE +0 TO NEW-YEARS-EVE.                                DTSBU003
00804  S1000-EXIT.                                                      DTSBU003
00805      EXIT.                                                        DTSBU003
00806      EJECT                                                        DTSBU003
00807  S001-FROM-FED-8.                                                 DTSBU003
00808      SET L001-FROM-FED-8 TO TRUE.                                 DTSBU003
00809      GO TO S001-DATE-CONVERT.                                     DTSBU003
00810                                                                   DTSBU003
00811  S001-FROM-ABS-DAY.                                               DTSBU003
00812      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBU003
00813      GO TO S001-DATE-CONVERT.                                     DTSBU003
00814                                                                   DTSBU003
00815  S001-DATE-CONVERT.                                               DTSBU003
00816      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBU003
00817  S001-EXIT.                                                       DTSBU003
00818      EXIT.                                                        DTSBU003
00819      SKIP3                                                        DTSBU003
00820  S005-FROM-SYS.                                                   DTSBU003
00821      SET L005-FROM-SYS TO TRUE.                                   DTSBU003
00822      GO TO S005-ABSTIME.                                          DTSBU003
00823                                                                   DTSBU003
00824  S005-ABSTIME.                                                    DTSBU003
00825      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBU003
00826  S005-EXIT.                                                       DTSBU003
00827      EXIT.                                                        DTSBU003
00828      SKIP3                                                        DTSBU003
00829  S999-ABEND.                                                      DTSBU003
00830      DISPLAY '***  '                                              DTSBU003
00831              WRK-MODULE-NAME                                      DTSBU003
00832              ' IS ABENDING: '                                     DTSBU003
00833              WRK-ABEND-MSG.                                       DTSBU003
00834                                                                   DTSBU003
00835      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBU003
00836  S999-EXIT.                                                       DTSBU003
00837      EXIT.                                                        DTSBU003
