giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Copybook/DTSIL400.cpy Normal file
View File

@ -0,0 +1,48 @@
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