00001 ***** 02/26/08 00002 * DTSIT002 00003 * DTSIT002 POTENTIAL EMPLOYER TRANSACTION RECORD. LV005 00004 * DTSIT002 00005 * 11/12/2002 INITIAL DEVELOPMENT. GD DTSIT002 00006 * DTSIT002 00007 * THIS RECORD IS USED FOR SEVERAL PURPOSES. DTSIT002 00008 * 1. ADD A POTENTIAL EMPLOYER (FROM EXTERNAL DTSIT002 00009 * SOURCES SUCH AS THE WEB). DTSIT002 00010 * 2. UPDATE EMPLOYER NAME/ADDRESS DTSIT002 00011 * 3. UPDATE EMPLOYER CONTACT INFORMATION DTSIT002 00012 * DTSIT002 00013 * SPECIFIC TRANSACTION TYPES, SUCH AS ADDRESSES DTSIT002 00014 * ARE PASSED THROUGH DTSIY*** RECORDS, WHICCH DTSIT002 00015 * ARE MOVED INTO THE T002-DATA-AREA. DTSIT002 00016 * THE PARTICULAR TYPE OF DATA IS INDICATED BY DTSIT002 00017 * THE T002-TRN-CD. DTSIT002 00018 * ALL TRANSACTION TYPES ARE PROCESSED BY DTSBD380, DTSIT002 00019 * (PART OF THE DAILY UPDATE) WHICH CALLS THE DTSIT002 00020 * APPROPRIATE BD38* PROGRAM. DTSIT002 00021 * DTSIT002 00022 ***** DTSIT002 00023 DTSIT002 00024 10 T002-LENGTH PIC S9(04) COMP. DTSIT002 00025 88 T002-LENGTH-DETERM-88 VALUE +181. DTSIT002 00026 88 T002-LENGTH-EMP-ADDR-88 VALUE +254. DTSIT002 00027 88 T002-LENGTH-EMP-NAME-88 VALUE +70. DTSIT002 00028 88 T002-LENGTH-CONTACT-88 VALUE +404. DTSIT002 00029 88 T002-LENGTH-REL-88 VALUE +271. DTSIT002 00030 88 T002-LENGTH-RATE-88 VALUE +36. DTSIT002 00031 DTSIT002 00032 10 T002-COMMON-AREA. DTSIT002 00033 15 T002-REC-TYPE PIC X(03) VALUE '002'. DTSIT002 00034 15 T002-EMP-NO PIC S9(07) COMP-3. DTSIT002 00035 15 T002-ORIGIN PIC X(10). DTSIT002 00036 15 FILLER REDEFINES T002-ORIGIN. DTSIT002 00037 20 T002-OP-ID PIC X(08). DTSIT002 00038 20 T002-SCR-ID PIC X(02). DTSIT002 00039 15 T002-SYS-DATE PIC S9(09) COMP-3. DTSIT002 00040 15 T002-SYS-TIME PIC S9(07) COMP-3. DTSIT002 00041 DTSIT002 00042 10 T002-DATA-AREA. DTSIT002 00043 15 T002-TRN-CD PIC X(02). DTSIT002 00044 88 T002-DETERM-88 VALUE '01'. DTSIT002 00045 88 T002-EMP-ADDR-88 VALUE '02'. DTSIT002 00046 88 T002-CONTACT-88 VALUE '03'. DTSIT002 00047 88 T002-EMP-NAME-88 VALUE '04'. DTSIT002 00048 88 T002-EMP-REL-88 VALUE '05'. DTSIT002 00049 88 T002-EMP-RATE-88 VALUE '06'. DTSIT002 00050 DTSIT002 00051 15 FILLER PIC X(4059). DTSIT002