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

130
Copybook/DTSIC042.cpy Normal file
View File

@ -0,0 +1,130 @@
00001 ***** 01/29/02
00002 * DTSIC042
00003 * DTSIC042 FILING SCHEDULE CODES VALUES AND DESCRIPTIONS. LV001
00004 * DTSIC042
00005 ***** DTSIC042
00006 SKIP1 DTSIC042
00007 ***** DTSIC042
00008 * OPTION 01 = MFSC-STATUS-CD DTSIC042
00009 ***** DTSIC042
00010 10 C042-01-AREA. DTSIC042
00011 15 FILLER PIC X(01) VALUE 'P'. DTSIC042
00012 15 FILLER PIC X(10) VALUE 'PENDING '. DTSIC042
00013 15 FILLER PIC X(40) DTSIC042
00014 VALUE 'PENDING - EMP REQUEST OR 1C '. DTSIC042
00015 15 FILLER PIC X(01) VALUE 'A'. DTSIC042
00016 15 FILLER PIC X(10) VALUE 'PENDING 1A'. DTSIC042
00017 15 FILLER PIC X(40) DTSIC042
00018 VALUE 'PENDING - POTENTIAL HOUSEHOLD '. DTSIC042
00019 15 FILLER PIC X(01) VALUE 'O'. DTSIC042
00020 15 FILLER PIC X(10) VALUE 'OPEN '. DTSIC042
00021 15 FILLER PIC X(40) DTSIC042
00022 VALUE 'OPEN '. DTSIC042
00023 15 FILLER PIC X(01) VALUE 'W'. DTSIC042
00024 15 FILLER PIC X(10) VALUE 'WITHDRAWN '. DTSIC042
00025 15 FILLER PIC X(40) DTSIC042
00026 VALUE 'WITHDRAWN '. DTSIC042
00027 SKIP1 DTSIC042
00028 10 FILLER REDEFINES C042-01-AREA. DTSIC042
00029 15 C042-01-ENTRY OCCURS 4 TIMES DTSIC042
00030 INDEXED BY C042-01-IDX. DTSIC042
00031 20 C042-01-CD PIC X(01). DTSIC042
00032 20 C042-01-SHORT-DSCR PIC X(10). DTSIC042
00033 20 C042-01-LONG-DSCR PIC X(40). DTSIC042
00034 SKIP3 DTSIC042
00035 ***** DTSIC042
00036 * OPTION 02 = MFSC-FILING-SCHEDULE-CD DTSIC042
00037 ***** DTSIC042
00038 10 C042-02-AREA. DTSIC042
00039 15 FILLER PIC X(01) VALUE 'Q'. DTSIC042
00040 15 FILLER PIC X(10) VALUE 'QUARTERLY '. DTSIC042
00041 15 FILLER PIC X(40) DTSIC042
00042 VALUE 'QUARTERLY '. DTSIC042
00043 15 FILLER PIC X(01) VALUE 'A'. DTSIC042
00044 15 FILLER PIC X(10) VALUE 'ANNUAL '. DTSIC042
00045 15 FILLER PIC X(40) DTSIC042
00046 VALUE 'ANNUAL '. DTSIC042
00047 SKIP1 DTSIC042
00048 10 FILLER REDEFINES C042-02-AREA. DTSIC042
00049 15 C042-02-ENTRY OCCURS 2 TIMES DTSIC042
00050 INDEXED BY C042-02-IDX. DTSIC042
00051 20 C042-02-CD PIC X(01). DTSIC042
00052 20 C042-02-SHORT-DSCR PIC X(10). DTSIC042
00053 20 C042-02-LONG-DSCR PIC X(40). DTSIC042
00054 SKIP3 DTSIC042
00055 ***** DTSIC042
00056 * OPTION 03 = MFSC-REQUEST-TYPE-CD DTSIC042
00057 ***** DTSIC042
00058 10 C042-03-AREA. DTSIC042
00059 15 FILLER PIC X(02) VALUE '01'. DTSIC042
00060 15 FILLER PIC X(10) VALUE 'LIAB DETRM'. DTSIC042
00061 15 FILLER PIC X(40) DTSIC042
00062 VALUE 'LIABILITY DETERMINATION '. DTSIC042
00063 15 FILLER PIC X(02) VALUE '02'. DTSIC042
00064 15 FILLER PIC X(10) VALUE 'EMP REQUST'. DTSIC042
00065 15 FILLER PIC X(40) DTSIC042
00066 VALUE 'EMPLOYER REQUEST '. DTSIC042
00067 15 FILLER PIC X(02) VALUE '03'. DTSIC042
00068 15 FILLER PIC X(10) VALUE 'ADMIN '. DTSIC042
00069 15 FILLER PIC X(40) DTSIC042
00070 VALUE 'ADMINISTRATIVE '. DTSIC042
00071 15 FILLER PIC X(02) VALUE '04'. DTSIC042
00072 15 FILLER PIC X(10) VALUE 'ORG TYPE '. DTSIC042
00073 15 FILLER PIC X(40) DTSIC042
00074 VALUE 'ORGANIZATION TYPE CHANGE '. DTSIC042
00075 15 FILLER PIC X(02) VALUE '09'. DTSIC042
00076 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC042
00077 15 FILLER PIC X(40) DTSIC042
00078 VALUE 'CONVERSION '. DTSIC042
00079 SKIP1 DTSIC042
00080 10 FILLER REDEFINES C042-03-AREA. DTSIC042
00081 15 C042-03-ENTRY OCCURS 5 TIMES DTSIC042
00082 INDEXED BY C042-03-IDX. DTSIC042
00083 20 C042-03-CD PIC X(02). DTSIC042
00084 20 C042-03-SHORT-DSCR PIC X(10). DTSIC042
00085 20 C042-03-LONG-DSCR PIC X(40). DTSIC042
00086 SKIP1 DTSIC042
00087 ***** DTSIC042
00088 * OPTION 05 = MFSC-INIT-NOTICE-TYPE DTSIC042
00089 ***** DTSIC042
00090 10 C042-05-AREA. DTSIC042
00091 15 FILLER PIC X(01) VALUE '0'. DTSIC042
00092 15 FILLER PIC X(10) VALUE 'POTENTIAL '. DTSIC042
00093 15 FILLER PIC X(40) DTSIC042
00094 VALUE 'POTENTIAL HOUSEHOLD EMPLOYER (1A) '. DTSIC042
00095 15 FILLER PIC X(01) VALUE '1'. DTSIC042
00096 15 FILLER PIC X(10) VALUE 'REQUEST '. DTSIC042
00097 15 FILLER PIC X(40) DTSIC042
00098 VALUE 'EMPLOYER REQUESTED CHANGE '. DTSIC042
00099 15 FILLER PIC X(01) VALUE '9'. DTSIC042
00100 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC042
00101 15 FILLER PIC X(40) DTSIC042
00102 VALUE 'CONVERSION '. DTSIC042
00103 SKIP1 DTSIC042
00104 10 FILLER REDEFINES C042-05-AREA. DTSIC042
00105 15 C042-05-ENTRY OCCURS 3 TIMES DTSIC042
00106 INDEXED BY C042-05-IDX. DTSIC042
00107 20 C042-05-CD PIC X(01). DTSIC042
00108 20 C042-05-SHORT-DSCR PIC X(10). DTSIC042
00109 20 C042-05-LONG-DSCR PIC X(40). DTSIC042
00110 SKIP1 DTSIC042
00111 ***** DTSIC042
00112 * OPTION 06 = MFSC-CONF-NOTICE-TYPE DTSIC042
00113 ***** DTSIC042
00114 10 C042-06-AREA. DTSIC042
00115 15 FILLER PIC X(01) VALUE '0'. DTSIC042
00116 15 FILLER PIC X(10) VALUE 'CONFRM QTR'. DTSIC042
00117 15 FILLER PIC X(40) DTSIC042
00118 VALUE 'CONFIRM QUARTERLY FILING '. DTSIC042
00119 15 FILLER PIC X(01) VALUE '1'. DTSIC042
00120 15 FILLER PIC X(10) VALUE 'CONFRM ANN'. DTSIC042
00121 15 FILLER PIC X(40) DTSIC042
00122 VALUE 'CONFIRM ANNUAL FILING '. DTSIC042
00123 SKIP1 DTSIC042
00124 10 FILLER REDEFINES C042-06-AREA. DTSIC042
00125 15 C042-06-ENTRY OCCURS 2 TIMES DTSIC042
00126 INDEXED BY C042-06-IDX. DTSIC042
00127 20 C042-06-CD PIC X(01). DTSIC042
00128 20 C042-06-SHORT-DSCR PIC X(10). DTSIC042
00129 20 C042-06-LONG-DSCR PIC X(40). DTSIC042
00130 SKIP1 DTSIC042