00001 **** 009/17/99 00002 * DDTSIZ30B 00003 * DTSIZ30B: DTSIZ309 WAS SPLIT INTO TWO: DTSIZ30A AND LV017 00004 * DTSIZ30B BECAUSE COULDN'T GET "REPLACING" CL**9 00005 * TO WORK WITH ++INCLUDE. CL**9 00006 **** CL**9 00007 CL**9 00008 RD BUREAU-STATEMENT-OF-ACCOUNT CL**9 00009 CONTROLS ARE FINAL CL**9 00010 LINE LIMIT 80 CL**9 00011 PAGE LIMIT 60 LINES CL**9 00012 FIRST DETAIL 1 CL**9 00013 LAST DETAIL 60. CL**9 00014 SKIP2 CL**9 00015 01 BUREAU-STATEMENT-HEADING TYPE IS DETAIL CL**9 00016 * NEXT GROUP IS PLUS 1. CL*15 00017 * 05 LINE 1. CL*15 00018 * 10 COLUMN 31 PIC X(20) CL*15 00019 * VALUE 'DISTRICT OF COLUMBIA'. CL*15 00020 * 05 LINE 2. CL*15 00021 * 10 COLUMN 23 PIC X(34) CL*15 00022 * VALUE 'DEPARTMENT OF EMPLOYMENT SERVICES '. CL*15 00023 * 05 LINE 3. CL*15 00024 * 10 COLUMN 33 PIC X(40) CL*15 00025 * VALUE 'TAX DIVISION'. CL*15 00026 * 05 LINE 4. CL*15 00027 * 10 COLUMN 27 PIC X(40) CL*15 00028 * SOURCE WS-MAIL1-PHYS1-STRING. CL*15 00029 * 05 LINE 5. CL*15 00030 * 10 COLUMN 29 PIC X(40) CL*15 00031 * SOURCE WS-AGY-MAIL2-CAPS. CL*15 00032 * 05 LINE PLUS 1. CL*15 00033 * 10 COLUMN 17 PIC X(16) CL*15 00034 * VALUE 'TELEPHONE (202) '. CL*15 00035 * 10 COLUMN 33 PIC X(03) CL*15 00036 * SOURCE WS-PROGRAM-VOICE (4:3). CL*15 00037 * 10 COLUMN 36 PIC X(01) CL*15 00038 * VALUE '-'. CL*15 00039 * 10 COLUMN 37 PIC X(04) CL*15 00040 * SOURCE WS-PROGRAM-VOICE (7:4). CL*15 00041 * 10 COLUMN 44 PIC X(11) CL*15 00042 * VALUE 'FAX: (202) '. CL*15 00043 * 10 COLUMN 55 PIC X(03) CL*15 00044 * SOURCE WS-PROGRAM-FAX (4:3). CL*15 00045 * 10 COLUMN 58 PIC X(01) CL*15 00046 * VALUE '-'. CL*15 00047 * 10 COLUMN 59 PIC X(04) CL*15 00048 * SOURCE WS-PROGRAM-FAX (7:4). CL*15 00049 05 LINE 13. CL*16 00050 10 COLUMN 30 PIC X(20) CL**9 00051 VALUE 'STATEMENT OF ACCOUNT'. CL**9 00052 05 LINE PLUS 2. CL*16 00053 10 COLUMN 7 PIC X(40) CL**9 00054 SOURCE R309-FMT-LINE (1). CL**9 00055 10 COLUMN 55 PIC X(14) CL**9 00056 VALUE 'UI ACCOUNT NO:'. CL**9 00057 10 COLUMN 70 PIC 999B999 CL**9 00058 SOURCE R309-EMP-NO. CL**9 00059 05 LINE PLUS 1. CL*16 00060 10 COLUMN 7 PIC X(40) CL**9 00061 SOURCE R309-FMT-LINE (2). CL**9 00062 05 LINE PLUS 1. CL*16 00063 10 COLUMN 7 PIC X(40) CL**9 00064 SOURCE R309-FMT-LINE (3). CL**9 00065 10 COLUMN 54 PIC X(15) CL**9 00066 VALUE 'STATEMENT DATE:'. CL**9 00067 10 COLUMN 70 PIC X(10) CL*16 00068 SOURCE WS-STMT-DATE. CL**9 00069 05 LINE PLUS 1. CL*16 00070 10 COLUMN 8 PIC X(40) CL*17 00071 SOURCE R309-FMT-LINE (4). CL**9 00072 05 LINE PLUS 1. CL*16 00073 10 COLUMN 8 PIC X(40) CL*17 00074 SOURCE R309-FMT-LINE (5). CL**9 00075 SKIP2 CL**9 00076 01 BUREAU-STATEMENT-TEXT-LINE TYPE IS DETAIL. CL**9 00077 05 LINE PLUS 1. CL**9 00078 10 COLUMN 4 PIC X(72) CL**9 00079 SOURCE R309-STMT-TEXT (R309-STMT-TEXT-IDX). CL**9 00080 SKIP2 CL**9 00081 01 BUREAU-STATEMENT-FOOTING TYPE IS DETAIL CL**9 00082 NEXT GROUP IS NEXT PAGE. CL**9 00083 05 LINE 26. CL**9 00084 10 COLUMN 2 PIC X(77) CL*17 00085 SOURCE L090-PARAGRAPH-LINE (1). CL**9 00086 05 LINE 27. CL**9 00087 10 COLUMN 2 PIC X(77) CL*17 00088 SOURCE L090-PARAGRAPH-LINE (2). CL**9 00089 05 LINE 28. CL**9 00090 10 COLUMN 2 PIC X(20) CL*17 00091 SOURCE L090-PARAGRAPH-LINE (3). CL**9 00092 10 COLUMN 23 PIC X(40) CL*17 00093 VALUE 'TO REQUEST A REFUND, SIGN BELOW AND RETU'. CL**9 00094 10 COLUMN 63 PIC X(19) CL*17 00095 VALUE 'RN THIS FORM TO THE'. CL**9 00096 05 LINE 29. CL**9 00097 10 COLUMN 2 PIC X(8) CL*17 00098 VALUE 'DISTRICT'. CL**9 00099 10 COLUMN 10 PIC X CL*17 00100 VALUE QUOTE. CL**9 00101 10 COLUMN 11 PIC X(25) CL*17 00102 VALUE 'S UNEMPLOYMENT INSURANCE '. CL*17 00103 10 COLUMN 37 PIC X(9) CL*17 00104 VALUE 'DIVISION.'. CL**9 00105 05 LINE 31. CL**9 00106 10 COLUMN 2 PIC X(40) CL*17 00107 VALUE 'NOTE: ALL CREDITS ARE SUBJECT TO REVIEW'. CL**9 00108 10 COLUMN 42 PIC X(33) CL*17 00109 VALUE '. IF OTHER LIABILITIES ACCRUE TO'. CL**9 00110 05 LINE 32. CL**9 00111 10 COLUMN 2 PIC X(40) CL*17 00112 VALUE 'YOUR UNEMPLOYMENT INSURANCE ACCOUNT, THI'. CL**9 00113 10 COLUMN 42 PIC X(33) CL*17 00114 VALUE 'S CREDIT WILL BE APPLIED TOWARD '. CL**9 00115 05 LINE 33. CL**9 00116 10 COLUMN 2 PIC X(40) CL*17 00117 VALUE 'AMOUNTS DUE. IF THERE ARE CONTRIBUTION R'. CL**9 00118 10 COLUMN 42 PIC X(40) CL*17 00119 VALUE 'EPORTS THAT HAVE NOT BEEN FILED, YOUR '. CL**9 00120 05 LINE 34. CL**9 00121 10 COLUMN 2 PIC X(30) CL*17 00122 VALUE 'REQUEST WILL BE DENIED.'. CL**9 00123 05 LINE 36. CL**9 00124 10 COLUMN 2 PIC X(40) CL*17 00125 VALUE 'THE INFORMATION SHOWN ABOVE REFLECTS TRA'. CL**9 00126 10 COLUMN 42 PIC X(28) CL*17 00127 VALUE 'NSACTIONS PROCESSED THROUGH '. CL**9 00128 10 COLUMN 70 PIC X(08) CL*17 00129 SOURCE WS-LAST-ACCT-UPDATE-DATE. CL**9 00130 05 LINE 38. CL**9 00131 10 COLUMN 2 PIC X(40) CL*17 00132 VALUE 'REFUND AUTHORIZATION: (COMPLETE ONLY IF'. CL**9 00133 10 COLUMN 42 PIC X(33) CL*17 00134 VALUE ' YOU ARE REQUESTING A REFUND) '. CL**9 00135 05 LINE 40. CL**9 00136 10 COLUMN 2 PIC X(40) CL*17 00137 VALUE 'I REQUEST A REFUND OF MY CREDIT. I UNDE'. CL**9 00138 10 COLUMN 42 PIC X(33) CL*17 00139 VALUE 'RSTAND THE CREDIT IS SUBJECT TO '. CL**9 00140 05 LINE 41. CL**9 00141 10 COLUMN 2 PIC X(40) CL*17 00142 VALUE 'REVIEW PRIOR TO REFUNDING. ANY ADDRESS '. CL**9 00143 10 COLUMN 42 PIC X(33) CL*17 00144 VALUE 'CHANGE IS INDICATED BELOW. '. CL**9 00145 05 LINE 44. CL*13 00146 10 COLUMN 2 PIC X(36) CL*17 00147 VALUE ALL '_'. CL**9 00148 10 COLUMN 50 PIC X(16) CL**9 00149 VALUE ALL '_'. CL**9 00150 05 LINE 45. CL*13 00151 10 COLUMN 2 PIC X(20) CL*17 00152 VALUE 'AUTHORIZED SIGNATURE'. CL**9 00153 10 COLUMN 50 PIC X(04) CL**9 00154 VALUE 'DATE'. CL**9 00155 05 LINE 47. CL*13 00156 10 COLUMN 2 PIC X(20) CL*17 00157 VALUE 'ADDRESS CHANGE: '. CL**9 00158 05 LINE 49. CL*13 00159 10 COLUMN 2 PIC X(45) CL*17 00160 VALUE ALL '_'. CL**9 00161 05 LINE 51. CL*13 00162 10 COLUMN 2 PIC X(45) CL*17 00163 VALUE ALL '_'. CL**9 00164 05 LINE PLUS 1. CL*15 00165 10 COLUMN 17 PIC X(16) CL*15 00166 VALUE 'TELEPHONE (202) '. CL*15 00167 10 COLUMN 33 PIC X(03) CL*15 00168 SOURCE WS-PROGRAM-VOICE (4:3). CL*15 00169 10 COLUMN 36 PIC X(01) CL*15 00170 VALUE '-'. CL*15 00171 10 COLUMN 37 PIC X(04) CL*15 00172 SOURCE WS-PROGRAM-VOICE (7:4). CL*15 00173 10 COLUMN 44 PIC X(11) CL*15 00174 VALUE 'FAX: (202) '. CL*15 00175 10 COLUMN 55 PIC X(03) CL*15 00176 SOURCE WS-PROGRAM-FAX (4:3). CL*15 00177 10 COLUMN 58 PIC X(01) CL*15 00178 VALUE '-'. CL*15 00179 10 COLUMN 59 PIC X(04) CL*15 00180 SOURCE WS-PROGRAM-FAX (7:4). CL*15