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

26
Copybook/DTSIIEPR.cpy Normal file
View File

@ -0,0 +1,26 @@
00001 ***** 05/22/01
00002 * DTSIIEPR
00003 * DTSIIEPR ALTERNATE INDEX FILE LV001
00004 * ELECTRONIC FILER ID SEARCH RECORD DEFINITION. DTSIIEPR
00005 * DTSIIEPR
00006 * FUNCTION: ONE EXISTS FOR EACH ELECTRONIC FILER PROFILE REC. DTSIIEPR
00007 * INPUT: ELF-ID DTSIIEPR
00008 * RETURN: DATA-TYPE-CD DTSIIEPR
00009 * DTSIIEPR
00010 * THIS RECORD EXISTS ONLY TO SIMPLIFY THE SEARCH DTSIIEPR
00011 * PROCESS IN SCREEN L6. DTSIIEPR
00012 * DTSIIEPR
00013 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEPR
00014 * DTSIIEPR
00015 ***** DTSIIEPR
00016 DTSIIEPR
00017 10 IEPR-KEY-AREA. DTSIIEPR
00018 15 IEPR-REC-TYPE PIC S9(04) COMP. DTSIIEPR
00019 88 IEPR-EPR-88 VALUE +19. DTSIIEPR
00020 15 IEPR-ELF-ID PIC S9(07) COMP-3. DTSIIEPR
00021 15 IEPR-DATA-TYPE-CD PIC X(02). DTSIIEPR
00022 88 IEPR-PRINT-UC30-88 VALUE '01'. DTSIIEPR
00023 88 IEPR-BEN-CHARGE-88 VALUE '02'. DTSIIEPR
00024 88 IEPR-WAGE-ONLY-88 VALUE '11'. DTSIIEPR
00025 88 IEPR-WAGE-TAX-88 VALUE '12'. DTSIIEPR
00026 15 IEPR-KEY-FILLER PIC X(56). DTSIIEPR