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

65
Copybook/DTSIL420.cpy Normal file
View File

@ -0,0 +1,65 @@
00001 ***** 10/01/12
00002 * DTSIL420
00003 * DTSIL420 FORMAT AND RELEASE WAGE TRANSACTIONS LV002
00004 * MODULE LINKAGE. DTSIL420
00005 * DTSIL420
00006 * DTSIL420
00007 * 02/07/2002 INITIAL DEVELOPMENT. GD DTSIL420
00008 * 09/02/2003 MODIFIED FOR WAGE UPDATES. DTSIL420
00009 * ADDED EMPLOYER ACCOUNT NUMBER DTSIL420
00010 * CODE TO INDICATE TYPE OF NAME DTSIL420
00011 * (I.E., 3 CHARACTER, FULL) AND DTSIL420
00012 * ABSTIME FIELD. GD DTSIL420
00013 * 11/14/2011 MODIFIED TO INCLUDE BOTH THE DTSIL420
00014 * PSEUDO BATCH AND ITEM NUMBERS DTSIL420
00015 * AND THE ACCOUNTING BATCH AND DTSIL420
00016 * AND ITME NUMBERS. DTSIL420
00017 * ALSO ADDED SYSTEM DATE. GD DTSIL420
00018 * DTSIL420
00019 * 03/02/2012 MODIFIED TO INCLUDE THE QUARTER. DTSIL420
00020 * GD DTSIL420
00021 * 10/01/2012 REMOVED TAXABLE WAGE ADJUSTMENT CL**2
00022 * 10/01/2012 AND ADDED CLAIMANT WAGE TO CL**2
00023 * L420-RPT-TYPE GD CL**2
00024 * CL**2
00025 ***** DTSIL420
00026 DTSIL420
00027 10 L420-REQUEST-AREA. DTSIL420
00028 15 L420-CMND-CD PIC X(01). DTSIL420
00029 88 L420-CMND-OPEN-88 VALUE '0'. DTSIL420
00030 88 L420-CMND-UPDATE-88 VALUE '1'. DTSIL420
00031 88 L420-CMND-DELETE-88 VALUE '2'. DTSIL420
00032 88 L420-CMND-CLOSE-88 VALUE '3'. DTSIL420
00033 DTSIL420
00034 15 L420-PSEUDO-BATCH-NO PIC S9(05) COMP-3. DTSIL420
00035 15 L420-PSEUDO-ITEM-NO PIC S9(03) COMP-3. DTSIL420
00036 15 L420-BATCH-NO PIC S9(05) COMP-3. DTSIL420
00037 15 L420-ITEM-NO PIC S9(03) COMP-3. DTSIL420
00038 15 L420-YRQ PIC S9(05) COMP-3. DTSIL420
00039 15 L420-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL420
00040 15 L420-EMP-NO PIC S9(07) COMP-3. DTSIL420
00041 15 L420-EMP-NAME PIC X(04). DTSIL420
00042 15 L420-RPT-TYPE PIC X(02). DTSIL420
00043 88 L420-RPT-TYPE-ORIG-88 VALUE 'OR'. DTSIL420
00044 88 L420-RPT-TYPE-WITHDRW-88 VALUE 'WD'. DTSIL420
00045 88 L420-RPT-TYPE-CLMT-WG-88 VALUE 'CW'. CL**2
00046 15 L420-NAME-TYPE PIC X(02). DTSIL420
00047 88 L420-NAME-TYPE-3CHAR-88 VALUE '00'. DTSIL420
00048 88 L420-NAME-TYPE-FULL-88 VALUE '01'. DTSIL420
00049 15 L420-ABSTIME PIC S9(15) COMP-3. DTSIL420
00050 15 L420-SYS-DATE PIC X(10). DTSIL420
00051 DTSIL420
00052 DTSIL420
00053 10 L420-RESULT-IND PIC X(01). DTSIL420
00054 88 L420-RESULT-OK VALUE '0'. DTSIL420
00055 88 L420-REC-NOT-FOUND VALUE '1'. DTSIL420
00056 88 L420-FILE-CLOSED VALUE '9'. DTSIL420
00057 88 L420-RESULT-NOT-OK VALUE '1' '9'. DTSIL420
00058 DTSIL420
00059 DTSIL420
00060 10 L420-MSG-AREA. DTSIL420
00061 15 L420-MSG-ID PIC X(04). DTSIL420
00062 15 L420-MSG-TEXT PIC X(60). DTSIL420
00063 DTSIL420
00064 DTSIL420
00065 10 FILLER PIC X(28). DTSIL420