66 lines
5.1 KiB
COBOL
66 lines
5.1 KiB
COBOL
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
|