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

94
Copybook/DTSIR127.cpy Normal file
View File

@ -0,0 +1,94 @@
00001 ***** 10/15/98
00002 * DTSIR127
00003 * DTSIR127 EMPLOYER REGISTRATION FORM GENERATION. LV003
00004 * DTSIR127
00005 * CL**2
00006 * 10/15/1998 CREATED FOR DC. EHH CL**2
00007 * CL**2
00008 ***** DTSIR127
00009 DTSIR127
00010 10 R127-LENGTH PIC S9(04) COMP. DTSIR127
00011 DTSIR127
00012 10 R127-SORT-AREA. DTSIR127
00013 15 R127-REC-TYPE PIC X(03) VALUE '127'. DTSIR127
00014 15 R127-GENED-WITH-CD PIC X(01). CL**2
00015 88 R127-GENED-WITH-LETTER-ONE-88 VALUE '1'. CL**2
00016 88 R127-GENED-WITH-LETTER-TWO-88 VALUE '2'. CL**2
00017 88 R127-GENED-WITH-COOP-LETTER-88 VALUE '3'. CL**2
00018 15 R127-OP-ID PIC X(08). CL**2
00019 15 R127-LETTER-ONE-TYPE PIC X(02). CL**2
00020 15 R127-EMP-NO PIC S9(07) COMP-3. CL**2
00021 DTSIR127
00022 10 R127-DATA-AREA. DTSIR127
00023 15 R127-FEIN PIC S9(09) COMP-3. CL**2
00024 15 R127-POT-PRED-EMP-NO PIC S9(07) COMP-3. CL**3
00025 15 R127-PRIMARY-NAME PIC X(40). CL**2
00026 15 R127-ENTITY-NAME PIC X(40). CL**2
00027 15 R127-STREET-ADDRESS. CL**2
00028 20 R127-STREET-ATTN-LINE CL**2
00029 PIC X(40). CL**2
00030 20 R127-STREET-DELIV-LINE-1 CL**2
00031 PIC X(40). CL**2
00032 20 R127-STREET-DELIV-LINE-2 CL**2
00033 PIC X(40). CL**2
00034 20 R127-STREET-CITY CL**2
00035 PIC X(25). CL**2
00036 20 R127-STREET-ST CL**2
00037 PIC X(02). CL**2
00038 20 R127-STREET-ZIP CL**2
00039 PIC X(10). CL**2
00040 20 R127-STREET-ADVANCED-BARCODE CL**2
00041 PIC X(14). CL**2
00042 15 R127-MAILING-ADDRESS. CL**2
00043 20 R127-MAILING-ATTN-LINE CL**2
00044 PIC X(40). CL**2
00045 20 R127-MAILING-DELIV-LINE-1 CL**2
00046 PIC X(40). CL**2
00047 20 R127-MAILING-DELIV-LINE-2 CL**2
00048 PIC X(40). CL**2
00049 20 R127-MAILING-CITY CL**2
00050 PIC X(25). CL**2
00051 20 R127-MAILING-ST CL**2
00052 PIC X(02). CL**2
00053 20 R127-MAILING-ZIP CL**2
00054 PIC X(10). CL**2
00055 20 R127-MAILING-ADVANCED-BARCODE CL**2
00056 PIC X(14). CL**2
00057 15 R127-STREET-VOICE-1. CL**2
00058 20 R127-STREET-VOICE-1-AREA-CD CL**2
00059 PIC X(03). CL**2
00060 20 R127-STREET-VOICE-1-PREFIX CL**2
00061 PIC X(03). CL**2
00062 20 R127-STREET-VOICE-1-SUFFIX CL**2
00063 PIC X(04). CL**2
00064 20 R127-STREET-VOICE-1-EXT CL**2
00065 PIC X(05). CL**2
00066 15 R127-STREET-FAX. CL**2
00067 20 R127-STREET-FAX-AREA-CD CL**2
00068 PIC X(03). CL**2
00069 20 R127-STREET-FAX-PREFIX CL**2
00070 PIC X(03). CL**2
00071 20 R127-STREET-FAX-SUFFIX CL**2
00072 PIC X(04). CL**2
00073 20 R127-STREET-FAX-EXT CL**2
00074 PIC X(05). CL**2
00075 15 R127-MAILING-VOICE-1. CL**2
00076 20 R127-MAILING-VOICE-1-AREA-CD CL**2
00077 PIC X(03). CL**2
00078 20 R127-MAILING-VOICE-1-PREFIX CL**2
00079 PIC X(03). CL**2
00080 20 R127-MAILING-VOICE-1-SUFFIX CL**2
00081 PIC X(04). CL**2
00082 20 R127-MAILING-VOICE-1-EXT CL**2
00083 PIC X(05). CL**2
00084 15 R127-MAILING-FAX. CL**2
00085 20 R127-MAILING-FAX-AREA-CD CL**2
00086 PIC X(03). CL**2
00087 20 R127-MAILING-FAX-PREFIX CL**2
00088 PIC X(03). CL**2
00089 20 R127-MAILING-FAX-SUFFIX CL**2
00090 PIC X(04). CL**2
00091 20 R127-MAILING-FAX-EXT CL**2
00092 PIC X(05). CL**2
00093 15 R127-MAILING-EMAIL-ADDRESS CL**2
00094 PIC X(40). CL**2