00001 ***** 09/04/98 00002 * DTSIL113 00003 * DTSIL113 RETURNS A FEW BITS (PRIMARY NAME, CLASS, LV002 00004 * STATUS, FIRST OPO NAME, FIRST OPO TITLE, AND DTSIL113 00005 * DEFAULT TAX MAILING ADDRESS) FOR A SPECIFIED DTSIL113 00006 * RELATED-EMP-NO. RESETS FILE POSITION INDICATOR DTSIL113 00007 * TO THE MPRF RECORD OF L113-CURRENT-EMP-NO. DTSIL113 00008 * DTSIL113 00009 * GENERALLY USED TO OBTAIN INFORMATION ABOUT DTSIL113 00010 * A PREDECESSOR (OR OTHER RELATED EMPLOYER). DTSIL113 00011 * DTSIL113 00012 ***** DTSIL113 00013 SKIP1 DTSIL113 00014 10 L113-LENGTH PIC S9(04) COMP VALUE +450. DTSIL113 00015 SKIP1 DTSIL113 00016 10 L113-CURRENT-EMP-NO PIC S9(07) COMP-3. DTSIL113 00017 SKIP1 DTSIL113 00018 10 L113-RELATED-EMP-NO PIC S9(07) COMP-3. DTSIL113 00019 SKIP3 DTSIL113 00020 10 L113-EMP-RESULT-IND PIC X(01). DTSIL113 00021 88 L113-EMP-FOUND-88 VALUE '0'. DTSIL113 00022 88 L113-EMP-NOT-FOUND-88 VALUE '1'. DTSIL113 00023 88 L113-FILE-CLOSED-88 VALUE '9'. DTSIL113 00024 SKIP1 DTSIL113 00025 10 L113-ADDR-RESULT-IND PIC X(01). DTSIL113 00026 88 L113-ADDR-FOUND-88 VALUE '0'. DTSIL113 00027 88 L113-ADDR-NOT-FOUND-88 VALUE '1'. DTSIL113 00028 SKIP1 DTSIL113 00029 10 L113-OPO-RESULT-IND PIC X(01). DTSIL113 00030 88 L113-OPO-FOUND-88 VALUE '0'. DTSIL113 00031 88 L113-OPO-NOT-FOUND-88 VALUE '1'. DTSIL113 00032 SKIP3 DTSIL113 00033 10 L113-RETURN-AREA. DTSIL113 00034 15 L113-PRIMARY-NAME PIC X(40). CL**2 00035 SKIP1 DTSIL113 00036 15 L113-EMP-CLASS PIC X(01). DTSIL113 00037 88 L113-CLASS-CHG-ONLY-88 VALUE 'C'. DTSIL113 00038 88 L113-CLASS-REG-88 VALUE 'R'. DTSIL113 00039 88 L113-CLASS-REIMB-88 VALUE 'S'. DTSIL113 00040 88 L113-CLASS-UNK-88 VALUE 'U'. DTSIL113 00041 88 L113-CLASS-SUB-88 VALUE 'R' 'S' DTSIL113 00042 'G'. DTSIL113 00043 SKIP1 DTSIL113 00044 15 L113-EMP-STATUS PIC X(01). DTSIL113 00045 88 L113-STATUS-ACT-88 VALUE 'A'. DTSIL113 00046 88 L113-STATUS-INACT-88 VALUE 'I'. DTSIL113 00047 88 L113-STATUS-NEVERSUB-88 VALUE 'N'. DTSIL113 00048 88 L113-STATUS-UNK-88 VALUE 'U'. DTSIL113 00049 88 L113-STATUS-SUB-88 VALUE 'A' 'I'. DTSIL113 00050 SKIP1 DTSIL113 00051 15 L113-OPO-ID-1-NAME PIC X(32). DTSIL113 00052 15 L113-OPO-ID-1-TITLE PIC X(20). DTSIL113 00053 SKIP1 DTSIL113 00054 15 L113-MAILING-ADDRESS. DTSIL113 00055 20 L113-MAILING-LINE OCCURS 5 TIMES DTSIL113 00056 INDEXED BY L113-MAILING-IDXDTSIL113 00057 PIC X(40). DTSIL113 00058 SKIP1 DTSIL113 00059 15 L113-ZIP PIC X(10). DTSIL113 00060 15 L113-DELIV-POINT PIC X(02). DTSIL113 00061 15 L113-CHECK-DIGIT PIC X(01). DTSIL113 00062 SKIP1 DTSIL113 00063 10 FILLER PIC X(66). DTSIL113 00064 SKIP1 DTSIL113 00065 10 L113-MSG-AREA. DTSIL113 00066 15 L113-MSG-ID PIC X(04). DTSIL113 00067 15 L113-MSG-TEXT PIC X(60). DTSIL113