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