00001 **** 003/20/01 00002 * DDTSXL30B 00003 * DTSXL30B: DTSXL309 WAS SPLIT INTO TWO: DTSIZ30A AND LV086 00004 * DTSIZ30B BECAUSE TWO REPORTS ARE GENERATED. DTSXL30B 00005 * ONE REPORT GOES TO XEROX LASER AS A REPORT DTSXL30B 00006 * AND THE OTHER AS SELF-MAILER RESPECTIVELY. DTSXL30B 00007 **** DTSXL30B 00008 DTSXL30B 00009 01 BUREAU-STATEMENT-HEADING. DTSXL30B 00010 05 BSH-LINE-8. DTSXL30B 00011 10 FILLER PIC X(37) VALUE SPACES. DTSXL30B 00012 10 FILLER PIC X(20) DTSXL30B 00013 VALUE 'DISTRICT OF COLUMBIA'. DTSXL30B 00014 05 BSH-LINE-9. DTSXL30B 00015 10 FILLER PIC X(30) VALUE SPACES. DTSXL30B 00016 10 FILLER PIC X(34) DTSXL30B 00017 VALUE 'DEPARTMENT OF EMPLOYMENT SERVICES '. DTSXL30B 00018 05 BSH-LINE-10. DTSXL30B 00019 10 FILLER PIC X(40) VALUE SPACES. DTSXL30B 00020 10 FILLER PIC X(40) DTSXL30B 00021 VALUE 'TAX DIVISION'. DTSXL30B 00022 05 BSH-LINE-11. DTSXL30B 00023 10 FILLER PIC X(34) VALUE SPACES. DTSXL30B 00024 10 WS-MAIL1-PHYS1-STRING PIC X(40). DTSXL30B 00025 05 BSH-LINE-12. DTSXL30B 00026 10 FILLER PIC X(36) VALUE SPACES. DTSXL30B 00027 10 WS-AGY-MAIL2-CAPS PIC X(40). DTSXL30B 00028 05 BSH-LINE-13. DTSXL30B 00029 10 FILLER PIC X(26) VALUE SPACES. DTSXL30B 00030 10 FILLER PIC X(16) DTSXL30B 00031 VALUE 'TELEPHONE (202) '. DTSXL30B 00032 10 BSH-OPR-VOICE-1 PIC X(03). DTSXL30B 00033 10 FILLER PIC X(01) DTSXL30B 00034 VALUE '-'. DTSXL30B 00035 10 BSH-OPR-VOICE-2 PIC X(04). DTSXL30B 00036 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00037 10 FILLER PIC X(11) DTSXL30B 00038 VALUE 'FAX: (202) '. DTSXL30B 00039 10 BSH-OPR-FAX-1 PIC X(03). DTSXL30B 00040 10 FILLER PIC X(01) DTSXL30B 00041 VALUE '-'. DTSXL30B 00042 10 BSH-OPR-FAX-2 PIC X(04). DTSXL30B 00043 05 BSH-LINE-14 PIC X(133) VALUE SPACES. DTSXL30B 00044 05 BSH-LINE-15. DTSXL30B 00045 10 FILLER PIC X(37) VALUE SPACES. DTSXL30B 00046 10 FILLER PIC X(20) DTSXL30B 00047 VALUE 'STATEMENT OF ACCOUNT'. DTSXL30B 00048 05 BSH-LINE-16 PIC X(133) VALUE SPACES. DTSXL30B 00049 05 BSH-LINE-17 PIC X(133) VALUE SPACES. DTSXL30B 00050 05 BSH-LINE-18. DTSXL30B 00051 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B 00052 10 BSH-FMT-LINE-1 PIC X(40). DTSXL30B 00053 10 FILLER PIC X(10) VALUE SPACES. DTSXL30B 00054 10 FILLER PIC X(14) DTSXL30B 00055 VALUE 'UI ACCOUNT NO:'. DTSXL30B 00056 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00057 10 BSH-EMP-NO PIC 999B999. DTSXL30B 00058 05 BSH-LINE-19. DTSXL30B 00059 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B 00060 10 BSH-FMT-LINE-2 PIC X(40). DTSXL30B 00061 05 BSH-LINE-20. DTSXL30B 00062 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B 00063 10 BSH-FMT-LINE-3 PIC X(40). DTSXL30B 00064 10 FILLER PIC X(09) VALUE SPACES. DTSXL30B 00065 10 FILLER PIC X(15) DTSXL30B 00066 VALUE ' FEIN:'. DTSXL30B 00067 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00068 10 BSH-EMP-FEIN PIC ZZBZZZZZZZ. DTSXL30B 00069 05 BSH-LINE-21. DTSXL30B 00070 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B 00071 10 BSH-FMT-LINE-4 PIC X(40). DTSXL30B 00072 05 BSH-LINE-22. DTSXL30B 00073 10 FILLER PIC X(06) VALUE SPACES. DTSXL30B 00074 10 BSH-FMT-LINE-5 PIC X(40). DTSXL30B 00075 10 FILLER PIC X(09) VALUE SPACES. DTSXL30B 00076 10 FILLER PIC X(15) DTSXL30B 00077 VALUE 'STATEMENT DATE:'. DTSXL30B 00078 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00079 10 BSH-STMT-DATE PIC X(10). DTSXL30B 00080 DTSXL30B 00081 01 BUREAU-STATEMENT-TEXT-LINE. DTSXL30B 00082 05 BST-LINE-23. DTSXL30B 00083 10 FILLER PIC X(03) VALUE SPACES. DTSXL30B 00084 10 BST-STMT-TEXT PIC X(72). DTSXL30B 00085 SKIP2 DTSXL30B 00086 01 BUREAU-STATEMENT-FOOTING. DTSXL30B 00087 05 BSF-LINE-24 PIC X(133) VALUE SPACES. DTSXL30B 00088 05 BSF-LINE-25 PIC X(133) VALUE SPACES. DTSXL30B 00089 05 BSF-LINE-26. DTSXL30B 00090 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00091 10 BSF-PARA-LINE-1 PIC X(80). DTSXL30B 00092 05 BSF-LINE-27. DTSXL30B 00093 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00094 10 BSF-PARA-LINE-2 PIC X(80). DTSXL30B 00095 05 BSF-LINE-28. DTSXL30B 00096 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00097 10 BSF-PARA-LINE-3 PIC X(80). DTSXL30B 00098 05 BSF-LINE-29. DTSXL30B 00099 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00100 10 BSF-PARA-LINE-4 PIC X(80). DTSXL30B 00101 05 BSF-LINE-30 PIC X(133) VALUE SPACES. DTSXL30B 00102 05 BSF-LINE-31. DTSXL30B 00103 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00104 10 FILLER PIC X(40) DTSXL30B 00105 VALUE 'NOTE: ALL CREDITS ARE SUBJECT TO REVIEW'. DTSXL30B 00106 10 FILLER PIC X(33) DTSXL30B 00107 VALUE '. IF OTHER LIABILITIES ACCRUE TO'. DTSXL30B 00108 05 BSF-LINE-32. DTSXL30B 00109 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00110 10 FILLER PIC X(40) DTSXL30B 00111 VALUE 'YOUR UNEMPLOYMENT INSURANCE ACCOUNT, THI'. DTSXL30B 00112 10 FILLER PIC X(33) DTSXL30B 00113 VALUE 'S CREDIT WILL BE APPLIED TOWARD '. DTSXL30B 00114 05 BSF-LINE-33. DTSXL30B 00115 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00116 10 FILLER PIC X(40) DTSXL30B 00117 VALUE 'AMOUNTS DUE. IF THERE ARE CONTRIBUTION R'. DTSXL30B 00118 10 FILLER PIC X(40) DTSXL30B 00119 VALUE 'EPORTS THAT HAVE NOT BEEN FILED, YOUR '. DTSXL30B 00120 05 BSF-LINE-34. DTSXL30B 00121 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00122 10 FILLER PIC X(30) DTSXL30B 00123 VALUE 'REQUEST WILL BE DENIED.'. DTSXL30B 00124 05 BSF-LINE-35 PIC X(133) VALUE SPACES. DTSXL30B 00125 05 BSF-LINE-36. DTSXL30B 00126 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00127 10 FILLER PIC X(40) DTSXL30B 00128 VALUE 'THE INFORMATION SHOWN ABOVE REFLECTS TRA'. DTSXL30B 00129 10 FILLER PIC X(28) DTSXL30B 00130 VALUE 'NSACTIONS PROCESSED THROUGH '. DTSXL30B 00131 10 BSF-LAST-ACCT-UPD-DATE PIC X(10). DTSXL30B 00132 10 FILLER PIC X(01) DTSXL30B 00133 VALUE '.'. DTSXL30B 00134 05 BSF-LINE-37 PIC X(133) VALUE SPACES. DTSXL30B 00135 05 BSF-LINE-38. DTSXL30B 00136 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00137 10 FILLER PIC X(40) DTSXL30B 00138 VALUE 'REFUND AUTHORIZATION: (COMPLETE ONLY IF'. DTSXL30B 00139 10 FILLER PIC X(33) DTSXL30B 00140 VALUE ' YOU ARE REQUESTING A REFUND) '. DTSXL30B 00141 05 BSF-LINE-39 PIC X(133) VALUE SPACES. DTSXL30B 00142 05 BSF-LINE-40. DTSXL30B 00143 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00144 10 FILLER PIC X(40) DTSXL30B 00145 VALUE 'I REQUEST A REFUND OF MY CREDIT. I UNDE'. DTSXL30B 00146 10 FILLER PIC X(33) DTSXL30B 00147 VALUE 'RSTAND THE CREDIT IS SUBJECT TO '. DTSXL30B 00148 05 BSF-LINE-41. DTSXL30B 00149 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00150 10 FILLER PIC X(40) DTSXL30B 00151 VALUE 'REVIEW PRIOR TO REFUNDING. ANY ADDRESS '. DTSXL30B 00152 10 FILLER PIC X(33) DTSXL30B 00153 VALUE 'CHANGE IS INDICATED BELOW. '. DTSXL30B 00154 05 BSF-LINE-42 PIC X(133) VALUE SPACES. DTSXL30B 00155 05 BSF-LINE-43 PIC X(133) VALUE SPACES. DTSXL30B 00156 05 BSF-LINE-44 PIC X(133) VALUE SPACES. DTSXL30B 00157 05 BSF-LINE-45 PIC X(133) VALUE SPACES. DTSXL30B 00158 05 BSF-LINE-46. DTSXL30B 00159 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00160 10 FILLER PIC X(45) DTSXL30B 00161 VALUE ALL '_'. DTSXL30B 00162 05 BSF-LINE-47. DTSXL30B 00163 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00164 10 FILLER PIC X(49) DTSXL30B 00165 VALUE 'AUTHORIZED SIGNATURE'. DTSXL30B 00166 10 FILLER PIC X(10) VALUE SPACES. DTSXL30B 00167 10 FILLER PIC X(16) DTSXL30B 00168 VALUE 'DATE'. DTSXL30B 00169 05 BSF-LINE-48 PIC X(133) VALUE SPACES. DTSXL30B 00170 05 BSF-LINE-49 PIC X(133) VALUE SPACES. DTSXL30B 00171 05 BSF-LINE-50. DTSXL30B 00172 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00173 10 FILLER PIC X(20) DTSXL30B 00174 VALUE 'ADDRESS CHANGE: '. DTSXL30B 00175 05 BSF-LINE-51 PIC X(133) VALUE SPACES. DTSXL30B 00176 05 BSF-LINE-52. DTSXL30B 00177 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00178 10 FILLER PIC X(45) DTSXL30B 00179 VALUE ALL '_'. DTSXL30B 00180 05 BSF-LINE-53 PIC X(133) VALUE SPACES. DTSXL30B 00181 05 BSF-LINE-54. DTSXL30B 00182 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00183 10 FILLER PIC X(45) DTSXL30B 00184 VALUE ALL '_'. DTSXL30B 00185 05 BSF-LINE-55 PIC X(133) VALUE SPACES. DTSXL30B 00186 05 BSF-LINE-56 PIC X(133) VALUE SPACES. DTSXL30B 00187 05 BSF-LINE-57 PIC X(133) VALUE SPACES. DTSXL30B 00188 05 BSF-LINE-58 PIC X(133) VALUE SPACES. DTSXL30B 00189 05 BSF-LINE-59. DTSXL30B 00190 10 FILLER PIC X(01) VALUE SPACE. DTSXL30B 00191 10 FILLER PIC X(16) DTSXL30B 00192 VALUE 'TELEPHONE (202) '. DTSXL30B 00193 10 BSF-OPR-VOICE-1 PIC X(03). DTSXL30B 00194 10 FILLER PIC X(01) DTSXL30B 00195 VALUE '-'. DTSXL30B 00196 10 BSF-OPR-VOICE-2 PIC X(04). DTSXL30B 00197 10 FILLER PIC X(04) VALUE SPACES. DTSXL30B 00198 10 FILLER PIC X(11) DTSXL30B 00199 VALUE 'FAX: (202) '. DTSXL30B 00200 10 BSF-OPR-FAX-1 PIC X(03). DTSXL30B 00201 10 FILLER PIC X(01) DTSXL30B 00202 VALUE '-'. DTSXL30B 00203 10 BSF-OPR-FAX-2 PIC X(04). DTSXL30B