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