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

42
Copybook/DTSIL421.cpy Normal file
View File

@ -0,0 +1,42 @@
00001 ***** 11/11/02
00002 * DTSIL421
00003 * DTSIL421 BUILD A TABLE OF CURRENT WAGES FOR A GIVEN LV001
00004 * EMPLOYER DURING A CALENDAR YEAR. DTSIL421
00005 * DTSIL421
00006 * *** ANNUAL VERSION *** DTSIL421
00007 * DTSIL421
00008 * DTSIL421
00009 * 09/19/2002 INITIAL DEVELOPMENT. GD DTSIL421
00010 * DTSIL421
00011 * DTSIL421
00012 ***** DTSIL421
00013 DTSIL421
00014 10 L421-INPUT-AREA. DTSIL421
00015 15 L421-RPT-TYPE PIC X(01). DTSIL421
00016 88 L421-RPT-TYPE-ORIG-88 VALUE '0'. DTSIL421
00017 88 L421-RPT-TYPE-SUPPL-88 VALUE '1'. DTSIL421
00018 15 L421-EMP-NO PIC S9(07) COMP-3. DTSIL421
00019 15 L421-QTR1 PIC S9(05) COMP-3. DTSIL421
00020 15 L421-QTR2 PIC S9(05) COMP-3. DTSIL421
00021 15 L421-QTR3 PIC S9(05) COMP-3. DTSIL421
00022 15 L421-QTR4 PIC S9(05) COMP-3. DTSIL421
00023 DTSIL421
00024 10 L421-SSN-TBL OCCURS 250 TIMES. DTSIL421
00025 15 L421-SSN PIC S9(09) COMP-3. DTSIL421
00026 88 L421-SSN-DUMMY-88 VALUE +1 THRU +999999. DTSIL421
00027 15 L421-QTR1-CURR-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00028 15 L421-QTR1-TAX-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00029 15 L421-QTR2-CURR-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00030 15 L421-QTR2-TAX-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00031 15 L421-QTR3-CURR-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00032 15 L421-QTR3-TAX-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00033 15 L421-QTR4-CURR-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00034 15 L421-QTR4-TAX-WAGE PIC S9(07)V99 COMP-3. DTSIL421
00035 DTSIL421
00036 DTSIL421
00037 10 L421-WAGE-TBL-CNT PIC S9(04) COMP. DTSIL421
00038 10 L421-ERR-IND PIC X(02). DTSIL421
00039 88 L421-ERR-NO-88 VALUE '00'. DTSIL421
00040 88 L421-ERR-OVER-250-88 VALUE '01'. DTSIL421
00041 DTSIL421
00042 10 FILLER PIC X(28). DTSIL421