204 lines
16 KiB
COBOL
204 lines
16 KiB
COBOL
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
|