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