00001 *****                                                             01/29/02
00002 *                                                                 DTSIL400
00003 *    DTSIL400    FILING SCHEDULE MAINTENANCE                         LV001
00004 *                MODULE LINKAGE.                                  DTSIL400
00005 *                                                                 DTSIL400
00006 *    DTSCU400 PROVIDES FILING SCHEDULE MAINTENANCE FUNCTIONS      DTSIL400
00007 *    FOR CICS PROGRAMS IN THE REGISTRATION AREA. THE CALLING      DTSIL400
00008 *    SETS L400-OPTION BASED ON WHAT FUNCTIONS IT NEEDS:           DTSIL400
00009 *       L400-FIND-PRIOR - RETURNS THE EMPLOYER'S CURRENT STATUS   DTSIL400
00010 *       L400-ADD-PENDING-1A - ADDS A PENDING MFSC RECORD          DTSIL400
00011 *          AND TRIGGERS PRINTING OF R131 NOTICE                   DTSIL400
00012 *       L400-DETERM-PENDING - ADDS A PENDING MFSC RECORD          DTSIL400
00013 *          AND TRIGGERS PRINTING OF R131 NOTICE WITH DUE DATE SET DTSIL400
00014 *          FOR 15 DAYS                                            DTSIL400
00015 *       L400-LIAB-DETERM - COMPLETES PROCESS OF ESTABLISHING      DTSIL400
00016 *          FILING SCHEDULE.                                       DTSIL400
00017 *       L400-NOT-LIAB-DETERM - WITHDRAWS PENDING MFSC             DTSIL400
00018 *       L400-ORG-TYPE-CHANGE - ESTABLISHES QUARTERLY SCHEDULE     DTSIL400
00019 *          IF ORG TYPE CHANGES TO HOUSEHOLD.                      DTSIL400
00020 *****                                                             DTSIL400
00021      SKIP1                                                        DTSIL400
00022          10  L400-OPTION         PIC S9(04)   COMP.               DTSIL400
00023              88  L400-FIND-PRIOR-88             VALUE +01.        DTSIL400
00024              88  L400-ADD-PENDING-1A-88         VALUE +02.        DTSIL400
00025              88  L400-DETERM-PENDING-88         VALUE +03.        DTSIL400
00026              88  L400-LIAB-DETERM-88            VALUE +04.        DTSIL400
00027              88  L400-NOT-LIAB-DETERM-88        VALUE +05.        DTSIL400
00028              88  L400-ORG-TYPE-CHANGE-88        VALUE +06.        DTSIL400
00029      SKIP1                                                        DTSIL400
00030          10  L400-INPUT-AREA.                                     DTSIL400
00031              15  L400-EMP-NO             PIC S9(07) COMP-3.       DTSIL400
00032              15  L400-FIRST-LIAB-YRQ     PIC S9(05) COMP-3.       DTSIL400
00033              15  L400-ORG-TYPE           PIC  X(03).              DTSIL400
00034                  88  L400-ORG-HOUSEHOLD-88    VALUE 'H  '.        DTSIL400
00035              15  L400-FILING-SCHED       PIC  X(01).              DTSIL400
00036              15  L400-CURR-RUN-DATE      PIC S9(09) COMP-3.       DTSIL400
00037              15  L400-OP-ID              PIC  X(08).              DTSIL400
00038      SKIP1                                                        DTSIL400
00039          10  L400-RETURN-AREA.                                    DTSIL400
00040              15  L400-PRIOR-STATE-IND    PIC  X(01).              DTSIL400
00041                  88  L400-PENDING-MFSC-88       VALUE '1'.        DTSIL400
00042                  88  L400-ORIG-DETERM-88        VALUE '2'.        DTSIL400
00043                  88  L400-REDETERM-88           VALUE '3'.        DTSIL400
00044              15  L400-NOTICE-SENT-IND    PIC  X(01).              DTSIL400
00045                  88  L400-NOTICE-SENT-YES-88    VALUE 'Y'.        DTSIL400
00046                  88  L400-NOTICE-SENT-NO-88     VALUE 'N'.        DTSIL400
00047      SKIP1                                                        DTSIL400
00048          10  FILLER                      PIC  X(40).              DTSIL400