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

51
Copybook/DTSIT002.cpy Normal file
View File

@ -0,0 +1,51 @@
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