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

34
Copybook/DTSIL610.cpy Normal file
View File

@ -0,0 +1,34 @@
00001 ***** 07/16/99
00002 * DTSIL610
00003 * DTSIL610 EDIT FISCAL AGENT EMPLOYER DATA. LV008
00004 * DTSIL610
00005 * THE CALLING PROGRAM SETS THE TYPE OF REQUEST, THE CL**7
00006 * EMPLOYER ACCOUNT NUMBER AND OPTIONALLY THE FEIN CL**7
00007 * CL**5
00008 * DTSBU610 WILL READ THE MASTER FILE AND PERFORM THE CL**7
00009 * FOLLOWING TESTS: CL**7
00010 * CL**7
00011 * 1. THE EMPLOYER MUST EXIST. CL**7
00012 * 2. THE EMPLOYER MUST BE ACTIVE. CL**7
00013 * 3. IF THE MPRF-FISCAL-AGENT-CD IS DIFFERENT FROM THE CL**8
00014 * PARAMETER FISCAL AGENT CODE, RETURN THE CURRENT CL**8
00015 * FISCAL AGENT CODE. CL**8
00016 * CL**5
00017 ***** DTSIL610
00018 CL**3
00019 10 L610-REQUEST-TYPE PIC X(01). CL**8
00020 88 L610-UC30-88 VALUE '0'. CL**8
00021 88 L610-CHARGE-88 VALUE '1'. CL**8
00022 CL**8
00023 10 L610-EMP-NO PIC S9(07) COMP-3. CL**8
00024 CL**3
00025 10 L610-FISCAL-AGENT-CD PIC X(03). CL**8
00026 CL**3
00027 10 L610-CURR-FISCAL-AGENT PIC X(03). CL**8
00028 CL**8
00029 10 L610-RETURN-CODE PIC X(01). CL**8
00030 88 L610-NO-EMPLOYER-88 VALUE '0'. CL**8
00031 88 L610-NO-SUCCESSOR-88 VALUE '1'. CL**8
00032 88 L610-ERROR-88 VALUE '2'. CL**8
00033 CL**3
00034 10 FILLER PIC X(53). CL**6