00001 *****                                                             10/10/12
00002 *                                                                 DTSIL084
00003 *    DTSIL084    STATUS CHANGE APPROVAL MODULE LINKAGE.              LV002
00004 *                                                                 DTSIL084
00005 *                PASS EMPLOYER NUMBER AND CURRENT RUN DATE        DTSIL084
00006 *                TO THIS MODULE.                                  DTSIL084
00007 *                RETURN: IF A VALID APPROVAL IS FOUND,            DTSIL084
00008 *                RETURN THE APPROVAL TYPE AND DOCUMENT ID.        DTSIL084
00009 *****                                                             DTSIL084
00010                                                                   DTSIL084
00011          10  L084-RETURN-AREA.                                    DTSIL084
00012              15  L084-RETURN-CODE            PIC  X(01).          DTSIL084
00013                  88  L084-NOT-FOUND-88           VALUE '0'.       DTSIL084
00014                  88  L084-VALID-APPROVAL-88      VALUE '1'.       DTSIL084
00015                  88  L084-FILE-CLOSED-88         VALUE '9'.       DTSIL084
00016              15  L084-DOC-ID                 PIC S9(11) COMP-3.   DTSIL084
00017                                                                   DTSIL084
00018          10  L084-PARAMETERS.                                     DTSIL084
00019              15  L084-EMP-NO                 PIC S9(07) COMP-3.   DTSIL084
00020                                                                   DTSIL084
00021              15  L084-APPROVAL-NEEDED        PIC  X(01).          DTSIL084
00022                  88  L084-SUCCESSOR-88           VALUE '1'.       DTSIL084
00023                  88  L084-SOL-CHANGE-88          VALUE '2'.       DTSIL084
00024                  88  L084-RATE-CHANGE-88         VALUE '3'.       DTSIL084
00025                  88  L084-WRITE-OFF-88           VALUE '4'.          CL**2
00026                                                                   DTSIL084
00027              15  L084-CURR-RUN-DATE          PIC S9(09) COMP-3.   DTSIL084
00028                                                                   DTSIL084
00029          10  FILLER                          PIC  X(16).          DTSIL084