53 lines
4.1 KiB
COBOL
53 lines
4.1 KiB
COBOL
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
|
|
RCODE 15 T002-REC-TYPE PIC X(03). 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
|