136 lines
11 KiB
COBOL
136 lines
11 KiB
COBOL
00001 * 01/24/01
|
|
00002 01 LETTER-DETAIL-START. DTSIZ434
|
|
00003 05 LTS-LINE-2. LV049
|
|
00004 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00005 10 LTS-PARAGRAPH-LINE-1 PIC X(70). DTSIZ434
|
|
00006 DTSIZ434
|
|
00007 01 LETTER-DETAIL-LINE. DTSIZ434
|
|
00008 05 LDL-LINE-1. DTSIZ434
|
|
00009 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00010 10 LDL-PARAGRAPH-LINE-IDX PIC X(70). DTSIZ434
|
|
00011 DTSIZ434
|
|
00012 01 LETTER-YRQTR. DTSIZ434
|
|
00013 05 LYQ-LINE-1. DTSIZ434
|
|
00014 10 FILLER PIC X(18) VALUE SPACES. DTSIZ434
|
|
00015 10 WS-COVERED-QTR-1 PIC X(06). DTSIZ434
|
|
00016 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
|
00017 10 WS-COVERED-QTR-2 PIC X(06). DTSIZ434
|
|
00018 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
|
00019 10 WS-COVERED-QTR-3 PIC X(06). DTSIZ434
|
|
00020 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
|
00021 10 WS-COVERED-QTR-4 PIC X(06). DTSIZ434
|
|
00022 10 FILLER PIC X(03) VALUE SPACES. DTSIZ434
|
|
00023 10 WS-COVERED-QTR-5 PIC X(06). DTSIZ434
|
|
00024 DTSIZ434
|
|
00025 01 LETTER-PARA2. DTSIZ434
|
|
00026 05 LP2-LINE-1. DTSIZ434
|
|
00027 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00028 10 FILLER PIC X(40) DTSIZ434
|
|
00029 VALUE ' Interest will be computed on all un'. DTSIZ434
|
|
00030 10 FILLER PIC X(40) DTSIZ434
|
|
00031 VALUE 'paid contributions from the '. DTSIZ434
|
|
00032 05 LP2-LINE-2. DTSIZ434
|
|
00033 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00034 10 FILLER PIC X(40) DTSIZ434
|
|
00035 VALUE 'due date until paid, at 1.5% per month. '. DTSIZ434
|
|
00036 DTSIZ434
|
|
00037 01 LETTER-TEXT. DTSIZ434
|
|
00038 05 LTX-LINE-2. DTSIZ434
|
|
00039 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00040 10 FILLER PIC X(40) DTSIZ434
|
|
00041 VALUE ' For any default on this agreement, '. DTSIZ434
|
|
00042 10 FILLER PIC X(40) DTSIZ434
|
|
00043 VALUE 'a notice of lien against '. DTSIZ434
|
|
00044 05 LTX-LINE-3. DTSIZ434
|
|
00045 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00046 10 FILLER PIC X(40) DTSIZ434
|
|
00047 VALUE 'the business property and/or assets will'. DTSIZ434
|
|
00048 10 FILLER PIC X(01) VALUE SPACE. DTSIZ434
|
|
00049 10 FILLER PIC X(40) DTSIZ434
|
|
00050 VALUE 'be filed with the Office '. DTSIZ434
|
|
00051 05 LTX-LINE-4. DTSIZ434
|
|
00052 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00053 10 FILLER PIC X(40) DTSIZ434
|
|
00054 VALUE 'of the Recorder of Deeds for the Distric'. DTSIZ434
|
|
00055 10 FILLER PIC X(40) DTSIZ434
|
|
00056 VALUE 't of Columbia. '. DTSIZ434
|
|
00057 05 LTX-LINE-5 PIC X(133) VALUE SPACES. DTSIZ434
|
|
00058 05 LTX-LINE-6. DTSIZ434
|
|
00059 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00060 10 FILLER PIC X(40) DTSIZ434
|
|
00061 VALUE ' Should timely payments not be made '. DTSIZ434
|
|
00062 10 FILLER PIC X(40) DTSIZ434
|
|
00063 VALUE 'and/or future quarterly '. DTSIZ434
|
|
00064 05 LTX-LINE-7. DTSIZ434
|
|
00065 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00066 10 FILLER PIC X(40) DTSIZ434
|
|
00067 VALUE 'reports are not filed in accordance with'. DTSIZ434
|
|
00068 10 FILLER PIC X(40) DTSIZ434
|
|
00069 VALUE ' the terms of this '. DTSIZ434
|
|
00070 05 LTX-LINE-8. DTSIZ434
|
|
00071 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00072 10 FILLER PIC X(40) DTSIZ434
|
|
00073 VALUE 'agreement, the payment arrangement herei'. DTSIZ434
|
|
00074 10 FILLER PIC X(40) DTSIZ434
|
|
00075 VALUE 'n will be considered null '. DTSIZ434
|
|
00076 05 LTX-LINE-9. DTSIZ434
|
|
00077 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00078 10 FILLER PIC X(40) DTSIZ434
|
|
00079 VALUE 'and void, at which time, all indebtness '. DTSIZ434
|
|
00080 10 FILLER PIC X(40) DTSIZ434
|
|
00081 VALUE 'will become due and '. DTSIZ434
|
|
00082 05 LTX-LINE-10. DTSIZ434
|
|
00083 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00084 10 FILLER PIC X(40) DTSIZ434
|
|
00085 VALUE 'payable forthwith. '. DTSIZ434
|
|
00086 10 FILLER PIC X(40) DTSIZ434
|
|
00087 VALUE ' '. DTSIZ434
|
|
00088 01 LETTER-FOOTING. DTSIZ434
|
|
00089 05 LFT-LINE-1. DTSIZ434
|
|
00090 10 FILLER PIC X(60) VALUE SPACES. DTSIZ434
|
|
00091 10 FILLER PIC X(20) DTSIZ434
|
|
00092 VALUE '____________________'. DTSIZ434
|
|
00093 05 LFT-LINE-2. DTSIZ434
|
|
00094 10 FILLER PIC X(71) VALUE SPACES. DTSIZ434
|
|
00095 10 FILLER PIC X(10) DTSIZ434
|
|
00096 VALUE 'Signature'. DTSIZ434
|
|
00097 05 LFT-LINE-3. DTSIZ434
|
|
00098 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00099 10 FILLER PIC X(20) DTSIZ434
|
|
00100 VALUE '____________________'. DTSIZ434
|
|
00101 10 FILLER PIC X(32) VALUE SPACES. DTSIZ434
|
|
00102 10 LFT-SIGNEE-TITLE PIC X(20). DTSIZ434
|
|
00103 05 LFT-LINE-4. DTSIZ434
|
|
00104 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00105 10 FILLER PIC X(08) DTSIZ434
|
|
00106 VALUE 'Witness'. DTSIZ434
|
|
00107 10 FILLER PIC X(59) VALUE SPACES. DTSIZ434
|
|
00108 10 FILLER PIC X(05) DTSIZ434
|
|
00109 value 'Title'. DTSIZ434
|
|
00110 05 LFT-LINE-5. DTSIZ434
|
|
00111 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00112 10 FILLER PIC X(24) DTSIZ434
|
|
00113 VALUE all '-'. DTSIZ434
|
|
00114 10 FILLER PIC X(25) DTSIZ434
|
|
00115 value '-- FOR AGENCY USE ONLY --'. DTSIZ434
|
|
00116 10 FILLER PIC X(23) DTSIZ434
|
|
00117 VALUE all '-'. DTSIZ434
|
|
00118 05 LFT-LINE-6. DTSIZ434
|
|
00119 10 FILLER PIC X(27) VALUE SPACES. DTSIZ434
|
|
00120 10 FILLER PIC X(33) DTSIZ434
|
|
00121 VALUE 'APPROVED_______DISAPPROVED_______'. DTSIZ434
|
|
00122 05 LFT-LINE-7. DTSIZ434
|
|
00123 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00124 10 FILLER PIC X(20) DTSIZ434
|
|
00125 VALUE '____________________'. DTSIZ434
|
|
00126 10 FILLER PIC X(42) VALUE SPACES. DTSIZ434
|
|
00127 10 FILLER PIC X(20) DTSIZ434
|
|
00128 VALUE '____________________'. DTSIZ434
|
|
00129 05 LFT-LINE-8. DTSIZ434
|
|
00130 10 FILLER PIC X(08) VALUE SPACES. DTSIZ434
|
|
00131 10 FILLER PIC X(05) DTSIZ434
|
|
00132 VALUE 'Title'. DTSIZ434
|
|
00133 10 FILLER PIC X(58) VALUE SPACES. DTSIZ434
|
|
00134 10 FILLER PIC X(10) DTSIZ434
|
|
00135 VALUE 'Signature '. DTSIZ434
|