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

65
Copybook/DTSIT001.cpy Normal file
View File

@ -0,0 +1,65 @@
00001 ***** 04/05/04
00002 * DTSIT001
00003 * DTSIT001 REGISTRATION TRANSACTION RECORD. LV013
00004 * DTSIT001
00005 * DTSIT001
00006 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIT001
00007 * DTSIT001
00008 * 06/02/1999 ADDED T001-INACT-LTR-8ZEROWAGE-88. DTSIT001
00009 * EHH DTSIT001
00010 * DTSIT001
00011 * 10/29/2001 ADDED HOUSEHOLD INDICATOR. GD DTSIT001
00012 * DTSIT001
00013 * 07/23/2003 ADDED ENROLLMENT INDICATOR. GD DTSIT001
00014 * DTSIT001
00015 ***** DTSIT001
00016 DTSIT001
00017 10 T001-LENGTH PIC S9(04) COMP. DTSIT001
00018 DTSIT001
00019 10 T001-COMMON-AREA. DTSIT001
00020 15 T001-REC-TYPE PIC X(03) VALUE '001'. DTSIT001
00021 15 T001-EMP-NO PIC S9(07) COMP-3. DTSIT001
00022 15 T001-ORIGIN PIC X(10). DTSIT001
00023 15 FILLER REDEFINES T001-ORIGIN. DTSIT001
00024 20 T001-OP-ID PIC X(08). DTSIT001
00025 20 T001-SCR-ID PIC X(02). DTSIT001
00026 15 T001-SYS-DATE PIC S9(09) COMP-3. DTSIT001
00027 15 T001-SYS-TIME PIC S9(07) COMP-3. DTSIT001
00028 DTSIT001
00029 10 T001-DATA-AREA. DTSIT001
00030 15 T001-TRN-CD PIC X(02). DTSIT001
00031 88 T001-LIABLE-PKG VALUE '01'. DTSIT001
00032 88 T001-NOT-LIABLE-LTR VALUE '02'. DTSIT001
00033 88 T001-INACTIVE-LTR VALUE '03'. DTSIT001
00034 88 T001-ERA-CYCLE VALUE '04'. DTSIT001
00035 88 T001-FILE-CLERK-LIST VALUE '06'. DTSIT001
00036 88 T001-HSEHLD-NOTICES VALUE '07'. DTSIT001
00037 88 T001-EFT-ENROLLMENT VALUE '08'. DTSIT001
00038 DTSIT001
00039 15 T001-RESP-OP-ID PIC X(08). DTSIT001
00040 DTSIT001
00041 15 T001-INACT-LTR-TYPE PIC X(01). DTSIT001
00042 88 T001-INACT-LTR-GENERIC-88 VALUE 'G'. DTSIT001
00043 88 T001-INACT-LTR-DEMAND-88 VALUE 'D'. DTSIT001
00044 88 T001-INACT-LTR-8ZEROWAGE-88 VALUE '8'. DTSIT001
00045 DTSIT001
00046 15 T001-NOT-LIABLE-LTR-TYPE DTSIT001
00047 PIC X(01). DTSIT001
00048 DTSIT001
00049 15 T001-WELCOME-LTR-IND PIC X(01). DTSIT001
00050 DTSIT001
00051 15 T001-HSEHLD-RPT-TYPE PIC X(02). DTSIT001
00052 88 T001-HH-POT-HOUSEHOLD-88 VALUE '01'. DTSIT001
00053 88 T001-HH-EMP-REQUEST-88 VALUE '02'. DTSIT001
00054 88 T001-HH-CONFIRM-QTR-88 VALUE '10'. DTSIT001
00055 88 T001-HH-CONFIRM-ANN-88 VALUE '11'. DTSIT001
00056 88 T001-HH-ADMIN-DELQNT-88 VALUE '20'. DTSIT001
00057 88 T001-HH-ADMIN-REACT-88 VALUE '21'. DTSIT001
00058 DTSIT001
00059 15 T001-HH-START-YRQ PIC S9(05) COMP-3. DTSIT001
00060 DTSIT001
00061 15 T001-EFT-ENROLL-TYPE PIC X(01). DTSIT001
00062 88 T001-EFT-ENROLL-ADD-88 VALUE '0'. DTSIT001
00063 88 T001-EFT-ENROLL-DEL-88 VALUE '1'. DTSIT001
00064 DTSIT001
00065 15 FILLER PIC X(17). DTSIT001