DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
26
Copybook/DTSIZ41A.cpy
Normal file
26
Copybook/DTSIZ41A.cpy
Normal file
@ -0,0 +1,26 @@
|
||||
00001 ***** 03/26/13
|
||||
00002 * DTSIZ41A
|
||||
00003 * MACIZ41A MACBR417 MIXED CASE LITERALS. DONE AS A SEPARATE LV001
|
||||
00004 * COPYLIB TO AVOID PUTTING MIXED CASE CODE INTO DTSIZ41A
|
||||
00005 * MACBR417. DTSIZ41A
|
||||
00006 * DTSIZ41A
|
||||
00007 ***** DTSIZ41A
|
||||
00008 DTSIZ41A
|
||||
00009 05 MC-LIT-WAS-DUE-BY PIC X(40) DTSIZ41A
|
||||
00010 VALUE 'was due by '. DTSIZ41A
|
||||
00011 DTSIZ41A
|
||||
00012 05 MC-LIT-IS-NOW-DEL PIC X(40) DTSIZ41A
|
||||
00013 VALUE 'and is now '. DTSIZ41A
|
||||
00014 DTSIZ41A
|
||||
00015 05 MC-LIT-QUARTER PIC X(40) DTSIZ41A
|
||||
00016 VALUE 'quarter '. DTSIZ41A
|
||||
00017 DTSIZ41A
|
||||
00018 05 MC-LIT-NOTICE-TO-US PIC X(40) DTSIZ41A
|
||||
00019 VALUE 'Return this notice by '. DTSIZ41A
|
||||
00020 DTSIZ41A
|
||||
00021 05 MC-LIT-NOTICE-TO-US1 PIC X(40) DTSIZ41A
|
||||
00022 VALUE 'with either your original report '. DTSIZ41A
|
||||
00023 DTSIZ41A
|
||||
00024 05 MC-LIT-NOTICE-TO-US2 PIC X(40) DTSIZ41A
|
||||
00025 VALUE ' '. DTSIZ41A
|
||||
00026 DTSIZ41A
|
||||
Reference in New Issue
Block a user