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

30
Copybook/DTSIR117.cpy Normal file
View File

@ -0,0 +1,30 @@
00001 ***** 12/13/19
00002 * DTSIR117
00003 * DTSIR117 EMPLOYER REGISTRATION INACTIVATION LETTER LV006
00004 * REPORT RECORD. DTSIR117
00005 * DTSIR117
00006 * CL**5
00007 * 06/02/1999 ADDED R117-8ZEROWAGE-88. EHH CL**5
00008 * CL**5
00009 ***** DTSIR117
00010 CL**3
00011 10 R117-LENGTH PIC S9(04) COMP. CL**3
00012 CL**3
00013 10 R117-SORT-AREA. DTSIR117
00014 15 R117-REC-TYPE PIC X(03) VALUE '117'. DTSIR117
00015 15 R117-OP-ID PIC X(08). DTSIR117
00016 15 R117-LETTER-TYPE PIC X(01). DTSIR117
00017 88 R117-GENERIC-88 VALUE '1'. DTSIR117
00018 88 R117-DEMAND-88 VALUE '2'. DTSIR117
00019 88 R117-8ZEROWAGE-88 VALUE '3'. CL**5
00020 15 R117-EMP-NO PIC S9(07) COMP-3. DTSIR117
00021 CL**3
00022 10 R117-DATA-AREA. DTSIR117
00023 15 R117-MAIL-DATE PIC S9(09) COMP-3. DTSIR117
00024 15 R117-FMT-ADDR. DTSIR117
00025 20 R117-FMT-LINE OCCURS 5 TIMES DTSIR117
00026 INDEXED BY R117-FMT-IDX DTSIR117
00027 PIC X(40). DTSIR117
00028 15 R117-ZIP PIC X(10). DTSIR117
00029 15 R117-ADVANCED-BARCODE PIC X(14). CL**3
00030 10 R117-INACT-DATE PIC S9(09) COMP-3. CL**6