68 lines
5.3 KiB
COBOL
68 lines
5.3 KiB
COBOL
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
|