32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
00001 ***** 01/29/02
|
|
00002 * DTSIL410
|
|
00003 * DTSIL410 DETERMINE FILING SCHEDULE FOR A GIVEN QUARTER LV001
|
|
00004 * MODULE LINKAGE. DTSIL410
|
|
00005 * DTSIL410
|
|
00006 * DTSBU410 RETURNS EITHER THE EMPLOYER'S MOST DTSIL410
|
|
00007 * RECENT FILING SCHEDULE OR THE FILING SCHEDULE DTSIL410
|
|
00008 * THAT APPLIES TO THE INPUT QUARTER, DEPENDING DTSIL410
|
|
00009 * ON THE SETTING OF L410-MODE. DTSIL410
|
|
00010 * IT ALSO RETURNS THE START DATE OF THE FILING DTSIL410
|
|
00011 * SCHEDULE IN L410-SCHED-START-YRQ. DTSIL410
|
|
00012 ***** DTSIL410
|
|
00013 SKIP1 DTSIL410
|
|
00014 10 L410-INPUT-AREA. DTSIL410
|
|
00015 15 L410-MODE PIC X(01). DTSIL410
|
|
00016 88 L410-MODE-INPUT-YRQ-88 VALUE '0'. DTSIL410
|
|
00017 88 L410-MODE-MOST-RECENT-88 VALUE '1'. DTSIL410
|
|
00018 88 L410-MODE-VALID-88 VALUE '0' '1'. DTSIL410
|
|
00019 15 L410-EMP-NO PIC S9(07) COMP-3. DTSIL410
|
|
00020 15 L410-YRQ PIC S9(05) COMP-3. DTSIL410
|
|
00021 SKIP1 DTSIL410
|
|
00022 10 L410-RETURN-AREA. DTSIL410
|
|
00023 15 L410-FILING-SCHED PIC X(01). DTSIL410
|
|
00024 88 L410-QTRLY-SCHED-88 VALUE 'Q'. DTSIL410
|
|
00025 88 L410-ANN-SCHED-88 VALUE 'A'. DTSIL410
|
|
00026 88 L410-PENDING-SCHED-88 VALUE 'P'. DTSIL410
|
|
00027 88 L410-NULL-SCHED-88 VALUE ' '. DTSIL410
|
|
00028 DTSIL410
|
|
00029 15 L410-SCHED-START-YRQ PIC S9(05) COMP-3. DTSIL410
|
|
00030 DTSIL410
|
|
00031 10 FILLER PIC X(40). DTSIL410
|