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

33
Copybook/DTSIR128.cpy Normal file
View File

@ -0,0 +1,33 @@
00001 ***** 02/26/08
00002 * DTSIR128
00003 * DTSIR128 AUTOMATED EMPLOYER REGISTRATION REPORT RECORD. LV001
00004 * DTSIR128
00005 * NOTE: ON THIS REPORT THERE WILL OFTEN BE MULTIPLE REPORT DTSIR128
00006 * TYPES (EACH IN A DIFFERENT CATEGORY) FOR THE SAME DTSIR128
00007 * EMPLOYER. DTSIR128
00008 * DTSIR128
00009 * 06/21/2005 INITIAL DEVELOPMENT GD DTSIR128
00010 * DTSIR128
00011 ***** DTSIR128
00012 SKIP1 DTSIR128
00013 10 R128-LENGTH PIC S9(04) COMP. DTSIR128
00014 SKIP1 DTSIR128
00015 10 R128-SORT-AREA. DTSIR128
00016 15 R128-REC-TYPE PIC X(03). DTSIR128
00017 15 R128-CATEGORY PIC X(01). DTSIR128
00018 88 R128-PENDING-DETERM-88 VALUE '1'. DTSIR128
00019 88 R128-LIAB-UPDATE-88 VALUE '2'. DTSIR128
00020 88 R128-EMP-UPDATE-88 VALUE '3'. DTSIR128
00021 88 R128-LIAB-ENTERED-NEW-88 VALUE '4'. DTSIR128
00022 SKIP1 DTSIR128
00023 15 R128-EMP-NO PIC S9(07) COMP-3. DTSIR128
00024 SKIP1 DTSIR128
00025 10 R128-DATA-AREA. DTSIR128
00026 15 R128-SOURCE PIC X(02). DTSIR128
00027 88 R128-SOURCE-UC30-SYS-88 VALUE '15'. DTSIR128
00028 88 R128-SOURCE-FISC-AGNT-88 VALUE '16'. DTSIR128
00029 88 R128-SOURCE-WEB-88 VALUE DTSIR128
00030 '17' THRU '19'. DTSIR128
00031 15 R128-LIAB-PRIMARY-NAME PIC X(40). DTSIR128
00032 15 R128-ESTB-DATE PIC S9(09) COMP-3. DTSIR128
00033 15 FILLER PIC X(32). DTSIR128