181 lines
14 KiB
COBOL
181 lines
14 KiB
COBOL
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
|