61 lines
4.7 KiB
COBOL
61 lines
4.7 KiB
COBOL
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
|