00001 ***** 04/13/99 00002 * DTSIS79 00003 * DTSIS79 BENEFIT MAILING ADDRESS SEND/RECEIVE AREA. LV005 00004 * DTSIS79 00005 ***** DTSIS79 00006 SKIP1 DTSIS79 00007 10 FILLER PIC X(12). DTSIS79 00008 SKIP1 DTSIS79 00009 10 MAP-SCR-TYPE-AREA. DTSIS79 00010 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS79 00011 15 MAP-SCR-TYPE-A PIC X(01). DTSIS79 00012 15 MAP-SCR-TYPE PIC X(02). DTSIS79 00013 SKIP1 DTSIS79 00014 10 MAP-CICS-REGION-NAME-AREA. DTSIS79 00015 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS79 00016 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS79 00017 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS79 00018 SKIP1 DTSIS79 00019 10 MAP-SYS-DATE-AREA. DTSIS79 00020 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS79 00021 15 MAP-SYS-DATE-A PIC X(01). DTSIS79 00022 15 MAP-SYS-DATE PIC X(08). DTSIS79 00023 SKIP1 DTSIS79 00024 10 MAP-SYS-TIME-AREA. DTSIS79 00025 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS79 00026 15 MAP-SYS-TIME-A PIC X(01). DTSIS79 00027 15 MAP-SYS-TIME PIC X(08). DTSIS79 00028 ***** DTSIS79 00029 10 MAP-EMP-NO-AREA. DTSIS79 00030 15 MAP-EMP-NO-1-AREA. DTSIS79 00031 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS79 00032 20 MAP-EMP-NO-1-A PIC X(01). DTSIS79 00033 20 MAP-EMP-NO-1 PIC X(03). DTSIS79 00034 20 MAP-EMP-NO-1-N REDEFINES MAP-EMP-NO-1 DTSIS79 00035 PIC 9(03). DTSIS79 00036 15 MAP-EMP-NO-2-AREA. DTSIS79 00037 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS79 00038 20 MAP-EMP-NO-2-A PIC X(01). DTSIS79 00039 20 MAP-EMP-NO-2 PIC X(03). DTSIS79 00040 20 MAP-EMP-NO-2-N REDEFINES MAP-EMP-NO-2 DTSIS79 00041 PIC 9(03). DTSIS79 00042 SKIP1 DTSIS79 00043 10 MAP-PRIMARY-NAME-AREA. CL**5 00044 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**5 00045 15 MAP-PRIMARY-NAME-A PIC X(01). CL**5 00046 15 MAP-PRIMARY-NAME PIC X(40). CL**5 00047 SKIP1 CL**5 00048 10 MAP-ALT-NAME-AREA. CL**5 00049 15 MAP-ALT-NAME-L PIC S9(04) COMP. CL**5 00050 15 MAP-ALT-NAME-A PIC X(01). CL**5 00051 15 MAP-ALT-NAME PIC X(40). CL**5 00052 SKIP1 DTSIS79 00053 10 MAP-ADDR-AREA. DTSIS79 00054 15 MAP-ATTN-AREA. DTSIS79 00055 20 MAP-ATTN-L PIC S9(04) COMP. DTSIS79 00056 20 MAP-ATTN-A PIC X(01). DTSIS79 00057 20 MAP-ATTN PIC X(40). DTSIS79 00058 15 MAP-CIND-AREA. CL**2 00059 20 MAP-CIND-L PIC S9(04) COMP. CL**2 00060 20 MAP-CIND-A PIC X(01). CL**2 00061 20 MAP-CIND PIC X(01). CL**2 00062 15 MAP-DLV1-AREA. CL**2 00063 20 MAP-DLV1-L PIC S9(04) COMP. CL**2 00064 20 MAP-DLV1-A PIC X(01). CL**2 00065 20 MAP-DLV1 PIC X(40). CL**2 00066 15 MAP-DLV2-AREA. CL**2 00067 20 MAP-DLV2-L PIC S9(04) COMP. CL**2 00068 20 MAP-DLV2-A PIC X(01). CL**2 00069 20 MAP-DLV2 PIC X(40). CL**2 00070 15 MAP-CASS-AREA. CL**2 00071 20 MAP-CASS-L PIC S9(04) COMP. CL**2 00072 20 MAP-CASS-A PIC X(01). CL**2 00073 20 MAP-CASS PIC X(25). CL**2 00074 15 MAP-CITY-AREA. DTSIS79 00075 20 MAP-CITY-L PIC S9(04) COMP. DTSIS79 00076 20 MAP-CITY-A PIC X(01). DTSIS79 00077 20 MAP-CITY PIC X(25). DTSIS79 00078 15 MAP-STAT-AREA. DTSIS79 00079 20 MAP-STAT-L PIC S9(04) COMP. DTSIS79 00080 20 MAP-STAT-A PIC X(01). DTSIS79 00081 20 MAP-STAT PIC X(02). DTSIS79 00082 15 MAP-ZIPC-AREA. DTSIS79 00083 20 MAP-ZIPC-L PIC S9(04) COMP. DTSIS79 00084 20 MAP-ZIPC-A PIC X(01). DTSIS79 00085 20 MAP-ZIPC PIC X(10). DTSIS79 00086 SKIP1 DTSIS79 00087 10 MAP-ALL-PHONES-AREA. DTSIS79 00088 * 1=VOICE, 2=VOICE#2, 3=FAX DTSIS79 00089 15 MAP-PHONE-AREA OCCURS 3. DTSIS79 00090 20 MAP-PHONE-A-CD-AREA. DTSIS79 00091 25 MAP-PHONE-A-CD-L PIC S9(04) COMP. DTSIS79 00092 25 MAP-PHONE-A-CD-A PIC X(01). DTSIS79 00093 25 MAP-PHONE-A-CD PIC X(03). DTSIS79 00094 20 MAP-PHONE-PREF-AREA. DTSIS79 00095 25 MAP-PHONE-PREF-L PIC S9(04) COMP. DTSIS79 00096 25 MAP-PHONE-PREF-A PIC X(01). DTSIS79 00097 25 MAP-PHONE-PREF PIC X(03). DTSIS79 00098 20 MAP-PHONE-SUFF-AREA. DTSIS79 00099 25 MAP-PHONE-SUFF-L PIC S9(04) COMP. DTSIS79 00100 25 MAP-PHONE-SUFF-A PIC X(01). DTSIS79 00101 25 MAP-PHONE-SUFF PIC X(04). DTSIS79 00102 20 MAP-PHONE-EXT-AREA. CL**2 00103 25 MAP-PHONE-EXT-L PIC S9(04) COMP. CL**2 00104 25 MAP-PHONE-EXT-A PIC X(01). CL**2 00105 25 MAP-PHONE-EXT PIC X(05). CL**2 00106 SKIP1 DTSIS79 00107 10 MAP-EMAIL-AREA. CL**2 00108 15 MAP-EMAIL-L PIC S9(04) COMP. CL**2 00109 15 MAP-EMAIL-A PIC X(01). CL**2 00110 15 MAP-EMAIL PIC X(40). CL**2 00111 SKIP1 DTSIS79 00112 10 MAP-CREATE-DATE-TIME-AREA. CL**4 00113 15 MAP-CREATE-DATE-TIME-L PIC S9(04) COMP. CL**4 00114 15 MAP-CREATE-DATE-TIME-A PIC X(01). CL**4 00115 15 MAP-CREATE-DATE-TIME PIC X(15). CL**4 00116 SKIP1 CL**2 00117 10 MAP-KEY-ADD-AREA. DTSIS79 00118 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS79 00119 15 MAP-KEY-ADD-A PIC X(01). DTSIS79 00120 15 MAP-KEY-ADD PIC X(06). DTSIS79 00121 SKIP1 DTSIS79 00122 10 MAP-KEY-MOD-AREA. DTSIS79 00123 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS79 00124 15 MAP-KEY-MOD-A PIC X(01). DTSIS79 00125 15 MAP-KEY-MOD PIC X(07). DTSIS79 00126 SKIP1 DTSIS79 00127 10 MAP-KEY-DEL-AREA. DTSIS79 00128 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS79 00129 15 MAP-KEY-DEL-A PIC X(01). DTSIS79 00130 15 MAP-KEY-DEL PIC X(07). DTSIS79 00131 SKIP1 DTSIS79 00132 10 MAP-MSG-AREA. DTSIS79 00133 15 MAP-MSG-ID-AREA. DTSIS79 00134 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS79 00135 20 MAP-MSG-ID-A PIC X(01). DTSIS79 00136 20 MAP-MSG-ID PIC X(08). DTSIS79 00137 15 MAP-MSG-TEXT-AREA. DTSIS79 00138 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS79 00139 20 MAP-MSG-TEXT-A PIC X(01). DTSIS79 00140 20 MAP-MSG-TEXT PIC X(58). DTSIS79 00141 SKIP1 DTSIS79 00142 10 MAP-GOTO-AREA. DTSIS79 00143 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS79 00144 15 MAP-GOTO-A PIC X(01). DTSIS79 00145 15 MAP-GOTO PIC X(02). DTSIS79