00001  IDENTIFICATION DIVISION.                                         06/29/02
00002  PROGRAM-ID.             DTSCU410.                                DTSCU410
00003  AUTHOR.                 TRW.                                        LV003
00004  DATE-WRITTEN.           OCTOBER 20001.                           DTSCU410
00005  DATE-COMPILED.                                                   DTSCU410
00006 *****                                                             DTSCU410
00007 *                                                                 DTSCU410
00008 *    FUNCTION:  FIND FILING SCHEDULE FOR A GIVEN QUARTER          DTSCU410
00009 *                                                                 DTSCU410
00010 *                                                                 DTSCU410
00011 *    MODIFICATION LOG:                                            DTSCU410
00012 *                                                                 DTSCU410
00013 *    10/30/2001  INITIAL DEVELOPMENT.                             DTSCU410
00014 *                WORK ORDER:                      PROGRAMMER: GD  DTSCU410
00015 *                                                                 DTSCU410
00016 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU410
00017 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU410
00018 *                WORK ORDER:                      PROGRAMMER: XXX DTSCU410
00019 *****                                                             DTSCU410
00020 *                                                                 DTSCU410
00021 *    DESCRIPTION:                                                 DTSCU410
00022 *                                                                 DTSCU410
00023 *    DTSCU410 RETURNS THE FILING SCHEDULE FOR A GIVEN QUARTER.    DTSCU410
00024 *                                                                 DTSCU410
00025 *                                                                 DTSCU410
00026 *****                                                             DTSCU410
00027      SKIP3                                                        DTSCU410
00028  ENVIRONMENT DIVISION.                                            DTSCU410
00029      SKIP3                                                        DTSCU410
00030  DATA DIVISION.                                                   DTSCU410
00031      SKIP3                                                        DTSCU410
00032  WORKING-STORAGE SECTION.                                         DTSCU410
000325 77  PAN-VALET PICTURE X(24) VALUE '003DTSCU410  06/29/02'.       DTSCU410
00033      SKIP3                                                        DTSCU410
00034  01  WRK-AREA.                                                    DTSCU410
00035      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U410'.    DTSCU410
00036      05  WRK-ABEND-MSG               PIC  X(60).                  DTSCU410
00037                                                                   DTSCU410
00038      05  WRK-MODE                    PIC  X(01).                  DTSCU410
00039          88  WRK-MODE-INPUT-YRQ-88   VALUE '0'.                   DTSCU410
00040          88  WRK-MODE-MOST-RECENT-88 VALUE '1'.                   DTSCU410
00041                                                                   DTSCU410
00042      05  WRK-CURR-SCHED              PIC  X(01).                  DTSCU410
00043      05  WRK-CURR-STRT-YRQ           PIC S9(05)  COMP-3.          DTSCU410
00044                                                                   DTSCU410
00045      05  WRK-YRQ-FOUND-IND          PIC  X(01).                   DTSCU410
00046          88  WRK-YRQ-FOUND-YES-88 VALUE 'Y'.                      DTSCU410
00047          88  WRK-YRQ-FOUND-NO-88  VALUE 'N'.                      DTSCU410
00048                                                                   DTSCU410
00049  01  L810-LINK-AREA.                                              DTSCU410
00050      05  L810-CONTROL-BLOCK.                                      DTSCU410
00051  ++INCLUDE DTSIL810                                               DTSCU410
00052      05  MSKL-REC.                                                DTSCU410
00053  ++INCLUDE DTSIMSKL                                               DTSCU410
00054      EJECT                                                        DTSCU410
00055  01  MFSC-REC.                                                    DTSCU410
00056  ++INCLUDE DTSIMFSC                                               DTSCU410
00057      EJECT                                                        DTSCU410
00058  LINKAGE SECTION.                                                 DTSCU410
00059      SKIP3                                                        DTSCU410
00060  01  DFHCOMMAREA.                                                 DTSCU410
00061  ++INCLUDE DTSIL410                                               DTSCU410
00062      EJECT                                                        DTSCU410
00063  PROCEDURE DIVISION.                                              DTSCU410
00064      SKIP2                                                        DTSCU410
00065  DTSCU410-MAINLINE.                                               DTSCU410
00066      PERFORM P0000-PROCESS              THRU P0000-EXIT.          DTSCU410
00067                                                                   DTSCU410
00068  DTSCU410-MAINLINE-EXIT.                                          DTSCU410
00069      EXEC CICS                                                    DTSCU410
00070         RETURN                                                    DTSCU410
00071      END-EXEC.                                                    DTSCU410
00072      EJECT                                                        DTSCU410
00073  P0000-PROCESS.                                                   DTSCU410
00074      MOVE SPACES                        TO WRK-CURR-SCHED.        DTSCU410
00075      MOVE ZERO                          TO WRK-CURR-STRT-YRQ.     DTSCU410
00076                                                                   DTSCU410
00077      SET L410-NULL-SCHED-88  TO TRUE.                             DTSCU410
00078      MOVE ZEROS              TO L410-SCHED-START-YRQ.             DTSCU410
00079                                                                   DTSCU410
00080      MOVE LOW-VALUES TO MFSC-KEY-AREA.                            DTSCU410
00081      MOVE L410-EMP-NO TO MFSC-EMP-NO.                             DTSCU410
00082      SET MFSC-FSC-88 TO TRUE.                                     DTSCU410
00083      MOVE MFSC-KEY-AREA TO MSKL-KEY-AREA.                         DTSCU410
00084      PERFORM S810-START-BROWSE THRU S810-EXIT.                    DTSCU410
00085      IF L810-NO-REC-88                                            DTSCU410
00086         GO TO P0000-EXIT                                          DTSCU410
00087      ELSE                                                         DTSCU410
00088         IF L410-MODE-INPUT-YRQ-88                                 DTSCU410
00089            SET WRK-YRQ-FOUND-NO-88  TO TRUE                       DTSCU410
00090            PERFORM P1000-INPUT-YRQ   THRU P1000-EXIT              DTSCU410
00091               UNTIL WRK-YRQ-FOUND-YES-88                          DTSCU410
00092               OR    L810-NO-REC-88                                DTSCU410
00093         ELSE                                                      DTSCU410
00094            PERFORM P2000-MOST-RECENT THRU P2000-EXIT              DTSCU410
00095               UNTIL L810-NO-REC-88                                DTSCU410
00096            MOVE WRK-CURR-SCHED       TO L410-FILING-SCHED         DTSCU410
00097            MOVE WRK-CURR-STRT-YRQ    TO L410-SCHED-START-YRQ.     DTSCU410
00098                                                                   DTSCU410
00099      PERFORM S810-END-BROWSE THRU S810-EXIT.                      DTSCU410
00100  P0000-EXIT.                                                      DTSCU410
00101      EXIT.                                                        DTSCU410
00102                                                                   DTSCU410
00103  P1000-INPUT-YRQ.                                                 DTSCU410
00104      MOVE MSKL-REC               TO MFSC-REC.                     DTSCU410
00105                                                                   DTSCU410
00106      IF L410-YRQ >= MFSC-START-YRQ                                DTSCU410
00107      AND L410-YRQ <= MFSC-END-YRQ                                 DTSCU410
00108         IF MFSC-STATUS-OPEN-88                                    DTSCU410
00109            SET WRK-YRQ-FOUND-YES-88   TO TRUE                     DTSCU410
00110            MOVE MFSC-FILING-SCHEDULE-CD TO L410-FILING-SCHED      DTSCU410
00111            MOVE MFSC-START-YRQ          TO L410-SCHED-START-YRQ   DTSCU410
00112            GO TO P1000-EXIT.                                      DTSCU410
00113                                                                   DTSCU410
00114      PERFORM S810-READ-NEXT         THRU S810-EXIT.               DTSCU410
00115                                                                   DTSCU410
00116  P1000-EXIT.                                                      DTSCU410
00117      EXIT.                                                        DTSCU410
00118                                                                   DTSCU410
00119  P2000-MOST-RECENT.                                               DTSCU410
00120      MOVE MSKL-REC               TO MFSC-REC.                     DTSCU410
00121                                                                   DTSCU410
00122      IF MFSC-STATUS-OPEN-88                                       DTSCU410
00123         IF MFSC-START-YRQ > WRK-CURR-STRT-YRQ                     DTSCU410
00124            MOVE MFSC-START-YRQ TO WRK-CURR-STRT-YRQ               DTSCU410
00125            MOVE MFSC-FILING-SCHEDULE-CD TO WRK-CURR-SCHED.        DTSCU410
00126                                                                   DTSCU410
00127      PERFORM S810-READ-NEXT         THRU S810-EXIT.               DTSCU410
00128                                                                   DTSCU410
00129  P2000-EXIT.                                                      DTSCU410
00130      EXIT.                                                        DTSCU410
00131                                                                   DTSCU410
00132  S810-READ.                                                       DTSCU410
00133      SET L810-READ-88 TO TRUE.                                    DTSCU410
00134      GO TO S810-MSTR-IO.                                          DTSCU410
00135                                                                   DTSCU410
00136  S810-START-BROWSE.                                               DTSCU410
00137      SET L810-START-BROWSE-88 TO TRUE.                            DTSCU410
00138      GO TO S810-MSTR-IO.                                          DTSCU410
00139                                                                   DTSCU410
00140  S810-READ-NEXT.                                                  DTSCU410
00141      SET L810-READ-NEXT-88 TO TRUE.                               DTSCU410
00142      GO TO S810-MSTR-IO.                                          DTSCU410
00143                                                                   DTSCU410
00144  S810-END-BROWSE.                                                 DTSCU410
00145      SET L810-END-BROWSE-88 TO TRUE.                              DTSCU410
00146      GO TO S810-MSTR-IO.                                          DTSCU410
00147                                                                   DTSCU410
00148  S810-MSTR-IO.                                                    DTSCU410
00149      EXEC CICS                                                    DTSCU410
00150         LINK                                                      DTSCU410
00151         PROGRAM('DTSCU810')                                       DTSCU410
00152         COMMAREA(L810-LINK-AREA)                                  DTSCU410
00153      END-EXEC.                                                    DTSCU410
00154                                                                   DTSCU410
00155      IF L810-FILE-CLOSED-88                                       DTSCU410
00156         GO TO DTSCU410-MAINLINE-EXIT.                             DTSCU410
00157                                                                   DTSCU410
00158  S810-EXIT.                                                       DTSCU410
00159      EXIT.                                                        DTSCU410
00160                                                                   DTSCU410
00161  S899-ABEND.                                                      DTSCU410
00162      SKIP1                                                        DTSCU410
00163      EXEC CICS                                                    DTSCU410
00164         ABEND                                                     DTSCU410
00165            ABCODE(WRK-ABEND-CODE)                                 DTSCU410
00166      END-EXEC.                                                    DTSCU410
00167      SKIP1                                                        DTSCU410
00168  S899-EXIT.                                                       DTSCU410
00169      EXIT.                                                        DTSCU410
