35 lines
2.7 KiB
COBOL
35 lines
2.7 KiB
COBOL
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
|