00001 ***** 02/27/04 00002 * DTSSIS68 DELINQUENT EMPLOYER BY ZIP CODE SEARCH DTSIS68 00003 * SEND/RECEIVE AREA LV007 00004 * DTSIS68 00005 * THIS IS WAS RECONSTRUCTED FROM DTSM68, ANY ERRORS DTSIS68 00006 * PLEASE VERIFY COPYBOOK WITH SCREEN. 2/28/04 ZL1 DTSIS68 00007 ***** DTSIS68 00008 10 FILLER PIC X(12). DTSIS68 00009 DTSIS68 00010 10 MAP-SCR-TYPE-AREA. DTSIS68 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS68 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSIS68 00013 15 MAP-SCR-TYPE PIC X(02). DTSIS68 00014 DTSIS68 00015 10 MAP-CICS-REGION-NAME-AREA. DTSIS68 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS68 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS68 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS68 00019 DTSIS68 00020 10 MAP-SYS-DATE-AREA. DTSIS68 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS68 00022 15 MAP-SYS-DATE-A PIC X(01). DTSIS68 00023 15 MAP-SYS-DATE PIC X(08). DTSIS68 00024 DTSIS68 00025 10 MAP-SYS-TIME-AREA. DTSIS68 00026 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS68 00027 15 MAP-SYS-TIME-A PIC X(01). DTSIS68 00028 15 MAP-SYS-TIME PIC X(08). DTSIS68 00029 DTSIS68 00030 10 F680322. DTSIS68 00031 15 MAP-FLD-ZIP-L PIC S9(04) COMP. DTSIS68 00032 15 MAP-FLD-ZIP-A PIC X(01). DTSIS68 00033 15 MAP-FLD-ZIP PIC X(05). DTSIS68 00034 DTSIS68 00035 10 F680350. DTSIS68 00036 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS68 00037 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS68 00038 15 MAP-FLD-REP-ID PIC X(02). DTSIS68 00039 DTSIS68 00040 10 F680353. DTSIS68 00041 15 MAP-FLD-REP-ID-DSCR-L PIC S9(04) COMP. DTSIS68 00042 15 MAP-FLD-REP-ID-DSCR-A PIC X(01). DTSIS68 00043 15 MAP-FLD-REP-ID-DSCR PIC X(10). DTSIS68 00044 DTSIS68 00045 10 F680422. DTSIS68 00046 15 MAP-ACTIVE-IND-L PIC S9(04) COMP. DTSIS68 00047 15 MAP-ACTIVE-IND-A PIC X(01). DTSIS68 00048 15 MAP-ACTIVE-IND PIC X(01). DTSIS68 00049 88 MAP-ACTIVE-IND-YES VALUE 'Y'. DTSIS68 00050 88 MAP-ACTIVE-IND-NO VALUE 'N'. DTSIS68 00051 88 MAP-ACTIVE-IND-VALID VALUE 'Y' 'N'. DTSIS68 00052 DTSIS68 00053 10 F680435. DTSIS68 00054 15 MAP-SUSPEND-IND-L PIC S9(04) COMP. DTSIS68 00055 15 MAP-SUSPEND-IND-A PIC X(01). DTSIS68 00056 15 MAP-SUSPEND-IND PIC X(01). DTSIS68 00057 88 MAP-SUSPEND-IND-YES VALUE 'Y'. DTSIS68 00058 88 MAP-SUSPEND-IND-NO VALUE 'N'. DTSIS68 00059 88 MAP-SUSPEND-IND-VALID VALUE 'Y' 'N'. DTSIS68 00060 DTSIS68 00061 10 F680450. DTSIS68 00062 15 MAP-BANKRUPT-IND-L PIC S9(04) COMP. DTSIS68 00063 15 MAP-BANKRUPT-IND-A PIC X(01). DTSIS68 00064 15 MAP-BANKRUPT-IND PIC X(01). DTSIS68 00065 88 MAP-BANKRUPT-IND-YES VALUE 'Y'. DTSIS68 00066 88 MAP-BANKRUPT-IND-NO VALUE 'N'. DTSIS68 00067 88 MAP-BANKRUPT-IND-VALID VALUE 'Y' 'N'. DTSIS68 00068 DTSIS68 00069 10 MAP-COMP-DATE-AREA. DTSIS68 00070 15 MAP-COMP-DATE-MO-L PIC S9(04) COMP. DTSIS68 00071 15 MAP-COMP-DATE-MO-A PIC X(01). DTSIS68 00072 15 MAP-COMP-DATE-MO PIC X(02). DTSIS68 00073 DTSIS68 00074 15 MAP-COMP-DATE-DA-L PIC S9(04) COMP. DTSIS68 00075 15 MAP-COMP-DATE-DA-A PIC X(01). DTSIS68 00076 15 MAP-COMP-DATE-DA PIC X(02). DTSIS68 00077 DTSIS68 00078 15 MAP-COMP-DATE-YR-L PIC S9(04) COMP. DTSIS68 00079 15 MAP-COMP-DATE-YR-A PIC X(01). DTSIS68 00080 15 MAP-COMP-DATE-YR PIC X(02). DTSIS68 00081 DTSIS68 00082 DTSIS68 00083 10 MAP-TABLE. DTSIS68 00084 DTSIS68 00085 13 MAP-LINE-AREA OCCURS 12 TIMES. DTSIS68 00086 15 MAP-LINE-L PIC S9(04) COMP. DTSIS68 00087 15 MAP-LINE-A PIC X(01). DTSIS68 00088 15 MAP-LINE-DATA PIC X(79). DTSIS68 00089 DTSIS68 00090 15 FILLER REDEFINES MAP-LINE-DATA. DTSIS68 00091 20 MAP-LINE-NO PIC Z9. DTSIS68 00092 20 FILLER PIC X(02). DTSIS68 00093 20 MAP-PRIMARY-NAME PIC X(26). DTSIS68 00094 20 FILLER PIC X(02). DTSIS68 00095 20 MAP-CITY PIC X(10). DTSIS68 00096 20 FILLER PIC X(01). DTSIS68 00097 20 MAP-STATE PIC X(02). DTSIS68 00098 20 FILLER PIC X(01). DTSIS68 00099 20 MAP-ZIP PIC X(05). DTSIS68 00100 20 FILLER PIC X(02). DTSIS68 00101 20 MAP-RPT-DUE-CNT PIC Z9. DTSIS68 00102 20 FILLER PIC X(01). DTSIS68 00103 20 MAP-TOT-BALANCE-AMT PIC ZZZZ,ZZ9.99. DTSIS68 00104 20 FILLER PIC X(02). DTSIS68 00105 20 MAP-FLD-ASSI PIC X(01). DTSIS68 00106 20 FILLER PIC X(02). DTSIS68 00107 20 MAP-EMP-NO PIC 999B999. DTSIS68 00108 DTSIS68 00109 10 MAP-SELECT-LINE-NO-AREA. DTSIS68 00110 15 MAP-SELECT-LINE-NO-L PIC S9(04) COMP. DTSIS68 00111 15 MAP-SELECT-LINE-NO-A PIC X(01). DTSIS68 00112 15 MAP-SELECT-LINE-NO PIC X(02). DTSIS68 00113 88 MAP-SELECT-LINE-NO-VALID VALUE '01' THRU '12'. DTSIS68 00114 15 MAP-SELECT-LINE-NO-N REDEFINES DTSIS68 00115 MAP-SELECT-LINE-NO PIC 9(02). DTSIS68 00116 DTSIS68 00117 10 F682136. DTSIS68 00118 15 MAP-SELECT-SCREEN-ID-L PIC S9(04) COMP. DTSIS68 00119 15 MAP-SELECT-SCREEN-ID-A PIC X(01). DTSIS68 00120 15 MAP-SELECT-SCREEN-ID PIC X(02). DTSIS68 00121 DTSIS68 00122 10 F682320. DTSIS68 00123 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS68 00124 15 MAP-KEY-BACK-A PIC X(01). DTSIS68 00125 15 MAP-KEY-BACK PIC X(07). DTSIS68 00126 DTSIS68 00127 10 F682329. DTSIS68 00128 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS68 00129 15 MAP-KEY-FWRD-A PIC X(01). DTSIS68 00130 15 MAP-KEY-FWRD PIC X(07). DTSIS68 00131 DTSIS68 00132 10 F682356. DTSIS68 00133 15 MAP-KEY-NEW-SEARCH-L PIC S9(04) COMP. DTSIS68 00134 15 MAP-KEY-NEW-SEARCH-A PIC X(01). DTSIS68 00135 15 MAP-KEY-NEW-SEARCH PIC X(20). DTSIS68 00136 DTSIS68 00137 10 MAP-MSG-AREA. DTSIS68 00138 15 MAP-MSG-ID-AREA. DTSIS68 00139 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS68 00140 20 MAP-MSG-ID-A PIC X(01). DTSIS68 00141 20 MAP-MSG-ID PIC X(08). DTSIS68 00142 15 MAP-MSG-TEXT-AREA. DTSIS68 00143 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS68 00144 20 MAP-MSG-TEXT-A PIC X(01). DTSIS68 00145 20 MAP-MSG-TEXT PIC X(58). DTSIS68 00146 DTSIS68 00147 10 MAP-GOTO-AREA. DTSIS68 00148 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS68 00149 15 MAP-GOTO-A PIC X(01). DTSIS68 00150 15 MAP-GOTO PIC X(02). DTSIS68