49 lines
3.8 KiB
COBOL
49 lines
3.8 KiB
COBOL
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
|