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

55
Copybook/DTSIX47Z.cpy Normal file
View File

@ -0,0 +1,55 @@
00001 ***** 03/13/25
00002 * DTSIX47Z
00003 * DTSIX477 EMPLOYER DATA EXTRACT FOR BENEFITS (UIBS) LV004
00004 * DTSIX47Z
00005 * DTSIX47Z
00006 * 11/06/2023 INITIAL DEVELOPMENT. ZL1 DTSIX47Z
00007 * DTSIX47Z
00008 ***** DTSIX47Z
00009 DTSIX47Z
00010 10 X476-KEY-AREA. DTSIX47Z
00011 15 X476-EMP-NO PIC 9(06). DTSIX47Z
00012 10 FILLER PIC X VALUE '|'. CL**2
00013 10 X476-DATA-AREA. DTSIX47Z
00014 15 X476-TRADE-NAME PIC X(40) VALUE SPACES. DTSIX47Z
00015 15 FILLER PIC X VALUE '|'. CL**2
00016 15 X476-ENTITY-NAME PIC X(40) VALUE SPACES. DTSIX47Z
00017 15 FILLER PIC X VALUE '|'. CL**2
00018 15 X476-ADDRESS. DTSIX47Z
00019 20 X476-ATTN PIC X(40). DTSIX47Z
00020 20 FILLER1 PIC X VALUE '|'. CL**4
00021 20 X476-DELV1 PIC X(40). DTSIX47Z
00022 20 FILLER2 PIC X VALUE '|'. CL**4
00023 20 X476-DELV2 PIC X(40). DTSIX47Z
00024 20 FILLER3 PIC X VALUE '|'. CL**4
00025 20 X476-CITY PIC X(25). DTSIX47Z
00026 20 FILLER4 PIC X VALUE '|'. CL**4
00027 20 X476-STATE PIC X(02). DTSIX47Z
00028 20 FILLER5 PIC X VALUE '|'. CL**4
00029 20 X476-ZIP PIC X(10). DTSIX47Z
00030 15 FILLER PIC X VALUE '|'. CL**4
00031 15 X476-FEIN PIC 9(09). DTSIX47Z
00032 15 FILLER PIC X VALUE '|'. CL**3
00033 15 X476-REIMB-IND PIC X(01). DTSIX47Z
00034 88 X476-REIMB-YES-88 VALUE '1'. DTSIX47Z
00035 88 X476-REIMB-NO-88 VALUE '2'. DTSIX47Z
00036 15 FILLER PIC X VALUE '|'. CL**2
00037 15 X476-EMP-STATUS-CODE PIC X(01) VALUE SPACES. DTSIX47Z
00038 88 X476-STATUS-ACT-88 VALUE 'A'. DTSIX47Z
00039 88 X476-STATUS-INACT-88 VALUE 'I'. DTSIX47Z
00040 88 X476-STATUS-NEVERSUB-88 VALUE 'N'. DTSIX47Z
00041 88 X476-STATUS-UNK-88 VALUE 'U'. DTSIX47Z
00042 15 FILLER PIC X VALUE '|'. CL**2
00043 15 X476-EMP-TYPE PIC 9(02). DTSIX47Z
00044 15 FILLER PIC X VALUE '|'. CL**2
00045 15 X476-SIC-CODE PIC X(04). DTSIX47Z
00046 15 FILLER PIC X VALUE '|'. CL**2
00047 15 X476-NAICS-CODE PIC X(06). DTSIX47Z
00048 15 FILLER PIC X VALUE '|'. CL**2
00049 15 X476-OWN-CODE PIC X(02). DTSIX47Z
00050 15 FILLER PIC X VALUE '|'. CL**2
00051 15 X476-PHONE PIC 9(10). DTSIX47Z
00052 15 FILLER PIC X VALUE '|'. CL**2
00053 15 X476-FAX PIC 9(10). DTSIX47Z
00054 15 FILLER PIC X VALUE '|'. CL**2
00055 15 X476-EMAIL PIC X(40). DTSIX47Z