30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
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
|