50 lines
3.9 KiB
COBOL
50 lines
3.9 KiB
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL024
|
|
00003 * DTSIL024 START/END YEAR/QUARTER FROM SCREEN FORMAT/EDIT LV003
|
|
00004 * MODULE LINKAGE. DTSIL024
|
|
00005 * DTSIL024
|
|
00006 ***** DTSIL024
|
|
00007 SKIP1 DTSIL024
|
|
00008 10 L024-OPTION PIC X(01). DTSIL024
|
|
00009 88 L024-END-REQUIRED VALUE '1'. DTSIL024
|
|
00010 88 L024-END-DEFAULT VALUE '2'. DTSIL024
|
|
00011 SKIP1 DTSIL024
|
|
00012 10 L024-START-RESULT-IND PIC X(01). DTSIL024
|
|
00013 88 L024-START-NO-ENTRY VALUE '0'. DTSIL024
|
|
00014 88 L024-START-VALID VALUE '1'. DTSIL024
|
|
00015 88 L024-START-NOT-VALID VALUE '2'. DTSIL024
|
|
00016 10 L024-END-RESULT-IND PIC X(01). DTSIL024
|
|
00017 88 L024-END-NO-ENTRY VALUE '0'. DTSIL024
|
|
00018 88 L024-END-VALID VALUE '1'. DTSIL024
|
|
00019 88 L024-END-NOT-VALID VALUE '2'. DTSIL024
|
|
00020 88 L024-END-COPIED-FROM-START VALUE '9'. DTSIL024
|
|
00021 SKIP1 DTSIL024
|
|
00022 10 L024-QTRS-SPANNED PIC S9(04) COMP. DTSIL024
|
|
00023 88 L024-SPAN-INVALID VALUE +0. DTSIL024
|
|
00024 88 L024-END-BEFORE-START VALUE -1. DTSIL024
|
|
00025 SKIP1 DTSIL024
|
|
00026 10 L024-S-YRQ-RANGE-AREA. DTSIL024
|
|
00027 15 L024-S-START-YRQ-AREA. DTSIL024
|
|
00028 20 L024-S-START-YR-AREA. DTSIL024
|
|
00029 25 L024-S-START-YR-L PIC S9(04) COMP. DTSIL024
|
|
00030 25 L024-S-START-YR-A PIC X(01). DTSIL024
|
|
00031 25 L024-S-START-YR PIC X(02). DTSIL024
|
|
00032 20 L024-S-START-Q-AREA. DTSIL024
|
|
00033 25 L024-S-START-Q-L PIC S9(04) COMP. DTSIL024
|
|
00034 25 L024-S-START-Q-A PIC X(01). DTSIL024
|
|
00035 25 L024-S-START-Q PIC X(01). DTSIL024
|
|
00036 15 L024-S-END-YRQ-AREA. DTSIL024
|
|
00037 20 L024-S-END-YR-AREA. DTSIL024
|
|
00038 25 L024-S-END-YR-L PIC S9(04) COMP. DTSIL024
|
|
00039 25 L024-S-END-YR-A PIC X(01). DTSIL024
|
|
00040 25 L024-S-END-YR PIC X(02). DTSIL024
|
|
00041 20 L024-S-END-Q-AREA. DTSIL024
|
|
00042 25 L024-S-END-Q-L PIC S9(04) COMP. DTSIL024
|
|
00043 25 L024-S-END-Q-A PIC X(01). DTSIL024
|
|
00044 25 L024-S-END-Q PIC X(01). DTSIL024
|
|
00045 SKIP1 DTSIL024
|
|
00046 10 L024-START-YRQ PIC S9(05) COMP-3. DTSIL024
|
|
00047 10 L024-END-YRQ PIC S9(05) COMP-3. DTSIL024
|
|
00048 SKIP1 DTSIL024
|
|
00049 10 FILLER PIC X(17). DTSIL024
|