00001 *****                                                             01/29/02
00002 *                                                                 DTSIL410
00003 *    DTSIL410    DETERMINE FILING SCHEDULE FOR A GIVEN QUARTER       LV001
00004 *                MODULE LINKAGE.                                  DTSIL410
00005 *                                                                 DTSIL410
00006 *                DTSBU410 RETURNS EITHER THE EMPLOYER'S MOST      DTSIL410
00007 *                RECENT FILING SCHEDULE OR THE FILING SCHEDULE    DTSIL410
00008 *                THAT APPLIES TO THE INPUT QUARTER, DEPENDING     DTSIL410
00009 *                ON THE SETTING OF L410-MODE.                     DTSIL410
00010 *                IT ALSO RETURNS THE START DATE OF THE FILING     DTSIL410
00011 *                SCHEDULE IN L410-SCHED-START-YRQ.                DTSIL410
00012 *****                                                             DTSIL410
00013      SKIP1                                                        DTSIL410
00014          10  L410-INPUT-AREA.                                     DTSIL410
00015              15  L410-MODE               PIC  X(01).              DTSIL410
00016                  88  L410-MODE-INPUT-YRQ-88   VALUE '0'.          DTSIL410
00017                  88  L410-MODE-MOST-RECENT-88 VALUE '1'.          DTSIL410
00018                  88  L410-MODE-VALID-88       VALUE '0' '1'.      DTSIL410
00019              15  L410-EMP-NO             PIC S9(07) COMP-3.       DTSIL410
00020              15  L410-YRQ                PIC S9(05) COMP-3.       DTSIL410
00021      SKIP1                                                        DTSIL410
00022          10  L410-RETURN-AREA.                                    DTSIL410
00023              15  L410-FILING-SCHED       PIC  X(01).              DTSIL410
00024                  88  L410-QTRLY-SCHED-88     VALUE 'Q'.           DTSIL410
00025                  88  L410-ANN-SCHED-88       VALUE 'A'.           DTSIL410
00026                  88  L410-PENDING-SCHED-88   VALUE 'P'.           DTSIL410
00027                  88  L410-NULL-SCHED-88      VALUE ' '.           DTSIL410
00028                                                                   DTSIL410
00029              15  L410-SCHED-START-YRQ    PIC S9(05) COMP-3.       DTSIL410
00030                                                                   DTSIL410
00031          10  FILLER                      PIC  X(40).              DTSIL410