41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 11/29/13
|
|
00002 * DTSIZ41D
|
|
00003 * MACIZ41A MACBR417 MIXED CASE LITERALS. DONE AS A SEPARATE LV021
|
|
00004 * COPYLIB TO AVOID PUTTING MIXED CASE CODE INTO DTSIZ41D
|
|
00005 * MACBR417. DTSIZ41D
|
|
00006 * DTSIZ41D
|
|
00007 ***** DTSIZ41D
|
|
00008 DTSIZ41D
|
|
00009 05 MC-LIT-WAS-DUE-BY PIC X(24) CL**6
|
|
00010 VALUE 'date was '. CL*11
|
|
00011 DTSIZ41D
|
|
00012 05 MC-LIT-IS-NOW-DEL. CL*11
|
|
00013 10 MC-LIT-IS-NOW-DELa PIC X(53) value CL*11
|
|
00014 'A penalty has been assessed against your account and '. CL*11
|
|
00015 10 MC-LIT-IS-NOW-DELb PIC X(30) value CL*15
|
|
00016 'your account is '. CL*16
|
|
00017 DTSIZ41D
|
|
00018 05 MC-LIT-QUARTER PIC X(20) CL**3
|
|
00019 VALUE 'quarter '. CL**3
|
|
00020 DTSIZ41D
|
|
00021 05 MC-LIT-NOTICE-TO-US. CL*12
|
|
00022 10 MC-LIT-NOTICE-TO-USa PIC X(53) value CL*12
|
|
00023 'You are required to file the original report for the '. CL*16
|
|
00024 10 MC-LIT-NOTICE-TO-USb PIC X(17) value CL*12
|
|
00025 'quarter ending '. CL*14
|
|
00026 DTSIZ41D
|
|
00027 05 MC-LIT-NOTICE-TO-US1 PIC X(48) CL*10
|
|
00028 VALUE 'and pay '. CL*18
|
|
00029 DTSIZ41D
|
|
00030 05 MC-LIT-NOTICE-TO-US2. CL*16
|
|
00031 10 MC-LIT-NOTICE-TO-US2a pic x(53) value CL*18
|
|
00032 'all amounts due. If the original report is not recei'. CL*21
|
|
00033 10 MC-LIT-NOTICE-TO-US2b pic x(53) value CL*16
|
|
00034 'ved by '. CL*21
|
|
00035 DTSIZ41D
|
|
00036 05 MC-LIT-NOTICE-TO-US3. CL*12
|
|
00037 10 MC-LIT-NOTICE-TO-US3a pic x(53) value CL*12
|
|
00038 'your account '. CL*18
|
|
00039 10 MC-LIT-NOTICE-TO-US3b pic x(53) value CL*19
|
|
00040 ' '. CL*18
|