00001 *****                                                             04/09/13
00002 *                                                                 DTSIL415
00003 *    DTSIL415    KEY DATES FOR ANNUAL FILING                         LV002
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-ESTIMATED-DATE                           CL**2
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