giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Copybook/DTSIZ30D.cpy Normal file
View File

@ -0,0 +1,40 @@
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