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

60
Copybook/DTSIL415.cpy Normal file
View File

@ -0,0 +1,60 @@
00001 ***** 07/17/03
00002 * DTSIL415
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV005
00004 * MODULE LINKAGE. DTSIL415
00005 * DTSIL415
00006 * THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSIL415
00007 * RETURN THE RELEVANT DATES FOR THE YEAR SPECIFIED IN L415-YR DTSIL415
00008 * OR THE MOST RECENT DATES FOR THE UC30H MASS MAILING AND DTSIL415
00009 * MOST RECENT YEAR DECLARED DELINQUENT FOR ANNUAL FILERS. DTSIL415
00010 * DTSIL415
00011 * DTSIL415
00012 * THERE ARE 'YRQ' FIELDS ASSOCIATED WITH THE MASS MAILING, THE DTSIL415
00013 * PENALTY ASSESSMENT AND THE FIRST DELINQUENCY PROCESS. THESE DTSIL415
00014 * FIELDS INDICATE THE SUBJECT YEAR FOR EACH OF THESE PROCESSES,DTSIL415
00015 * WHILE THE DATE FIELDS INDICATE THE ACTUAL RUN DATE OF THE DTSIL415
00016 * PROCESSES. DTSIL415
00017 * DTSIL415
00018 ***** DTSIL415
00019 SKIP1 DTSIL415
00020 10 L415-INPUT-AREA. DTSIL415
00021 15 L415-YR PIC S9(05) COMP-3. DTSIL415
00022 15 L415-MODE PIC X(01). DTSIL415
00023 88 L415-MODE-INPUT-YEAR-88 VALUE '0'. DTSIL415
00024 88 L415-MODE-MOST-RECENT-88 VALUE '1'. DTSIL415
00025 SKIP1 DTSIL415
00026 10 L415-RETURN-AREA. DTSIL415
00027 15 L415-RETURN-CD PIC X(01). DTSIL415
00028 88 L415-OK-88 VALUE '0'. DTSIL415
00029 88 L415-NOT-FOUND-88 VALUE '1'. DTSIL415
00030 DTSIL415
00031 15 L415-UC30H-MASS-MAIL-DATE DTSIL415
00032 PIC S9(09) COMP-3. DTSIL415
00033 15 L415-UC30H-MASS-MAIL-STRT-YRQ DTSIL415
00034 PIC S9(05) COMP-3. DTSIL415
00035 15 L415-UC30H-MASS-MAIL-END-YRQ DTSIL415
00036 PIC S9(05) COMP-3. DTSIL415
00037 15 L415-UC30H-RPT-DUE-DATE DTSIL415
00038 PIC S9(09) COMP-3. DTSIL415
00039 15 L415-UC30H-LATE-PEN-DATE DTSIL415
00040 PIC S9(09) COMP-3. DTSIL415
00041 15 L415-UC30H-LATE-PEN-STRT-YRQ DTSIL415
00042 PIC S9(05) COMP-3. DTSIL415
00043 15 L415-UC30H-LATE-PEN-END-YRQ DTSIL415
00044 PIC S9(05) COMP-3. DTSIL415
00045 15 L415-UC30H-FIRST-DEL-DATE DTSIL415
00046 PIC S9(09) COMP-3. DTSIL415
00047 15 L415-UC30H-FIRST-DEL-STRT-YRQ DTSIL415
00048 PIC S9(05) COMP-3. DTSIL415
00049 15 L415-UC30H-FIRST-DEL-END-YRQ DTSIL415
00050 PIC S9(05) COMP-3. DTSIL415
00051 15 L415-UC30H-FINAL-DEL-DATE DTSIL415
00052 PIC S9(09) COMP-3. DTSIL415
00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415
00054 PIC S9(05) COMP-3. DTSIL415
00055 15 L415-UC30H-FINAL-DEL-END-YRQ DTSIL415
00056 PIC S9(05) COMP-3. DTSIL415
00057 15 L415-UC30H-FINAL-ACTION-DATE DTSIL415
00058 PIC S9(09) COMP-3. DTSIL415
00059 SKIP1 DTSIL415
00060 10 FILLER PIC X(40). DTSIL415