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

44
Copybook/DTSIL424.cpy Normal file
View File

@ -0,0 +1,44 @@
00001 ***** 11/15/12
00002 * DTSIL424
00003 * DTSIL424 DETERMINE TOTAL AND TAXABLE WAGES FOR LV013
00004 * AMENDED REPORTS: LINKAGE. CL**3
00005 * DTSIL424
00006 * DTSIL424
00007 * 11/07/2012 INITIAL DEVELOPMENT. GD CL**3
00008 * CL**2
00009 ***** DTSIL424
00010 DTSIL424
00011 10 L424-REQUEST-AREA. CL**3
00012 15 L424-CMND PIC X(01). CL*11
00013 88 L424-CMND-CHK-WG-88 VALUE '0'. CL*12
00014 88 L424-CMND-PROCESS-88 VALUE '1'. CL*12
00015 15 L424-EMP-NO PIC S9(07) COMP-3. CL*10
00016 15 L424-BATCH-NO PIC S9(05) COMP-3. CL**7
00017 15 L424-ITEM-NO PIC S9(03) COMP-3. CL**5
00018 15 L424-YRQ PIC S9(05) COMP-3. CL**5
00019 DTSIL424
00020 10 L424-RETURN-AREA. CL**4
00021 15 L424-TOTAL-WAGES PIC S9(11)V99 COMP-3. CL**5
00022 15 L424-TAX-WAGES PIC S9(11)V99 COMP-3. CL**8
00023 DTSIL424
00024 10 L424-RESULT-AREA. CL*11
00025 15 L424-WGH-WAGES-IND PIC X(01). CL*11
00026 88 L424-WGH-WAGES-YES-88 VALUE 'Y'. CL*13
00027 88 L424-WGH-WAGES-NO-88 VALUE 'N'. CL*13
00028 15 L424-WTC-WAGES-IND PIC X(01). CL*11
00029 88 L424-WTC-WAGES-YES-88 VALUE 'Y'. CL*13
00030 88 L424-WTC-WAGES-NO-88 VALUE 'N'. CL*13
00031 15 L424-PROCESS-IND PIC X(01). CL*11
00032 88 L424-PROCESS-OK-88 VALUE '0'. CL*13
00033 88 L424-WGH-NOT-FOUND-88 VALUE '1'. CL*13
00034 88 L424-WTC-NOT-FOUND-88 VALUE '2'. CL*13
00035 88 L424-FILE-CLOSED-88 VALUE '9'. CL*13
00036 88 L424-RESULT-NOT-OK-88 VALUE '1' THRU '9'. CL*13
00037 DTSIL424
00038 DTSIL424
00039 10 L424-MSG-AREA. CL**3
00040 15 L424-MSG-ID PIC X(04). CL**5
00041 15 L424-MSG-TEXT PIC X(60). CL**5
00042 DTSIL424
00043 DTSIL424
00044 10 FILLER PIC X(28). CL**5