26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL016
|
|
00003 * DTSIL016 YEAR/QUARTER FROM SCREEN FORMAT/EDIT LV003
|
|
00004 * MODULE LINKAGE DTSIL016
|
|
00005 * DTSIL016
|
|
00006 ***** DTSIL016
|
|
00007 SKIP1 DTSIL016
|
|
00008 10 L016-RESULT-IND PIC X(01). DTSIL016
|
|
00009 88 L016-NO-ENTRY VALUE '0'. DTSIL016
|
|
00010 88 L016-VALID VALUE '1'. DTSIL016
|
|
00011 88 L016-NOT-VALID VALUE '2'. DTSIL016
|
|
00012 SKIP1 DTSIL016
|
|
00013 10 L016-S-YRQ-AREA. DTSIL016
|
|
00014 15 L016-S-YR-AREA. DTSIL016
|
|
00015 20 L016-S-YR-L PIC S9(04) COMP. DTSIL016
|
|
00016 20 L016-S-YR-A PIC X(01). DTSIL016
|
|
00017 20 L016-S-YR PIC X(02). DTSIL016
|
|
00018 15 L016-S-Q-AREA. DTSIL016
|
|
00019 20 L016-S-Q-L PIC S9(04) COMP. DTSIL016
|
|
00020 20 L016-S-Q-A PIC X(01). DTSIL016
|
|
00021 20 L016-S-Q PIC X(01). DTSIL016
|
|
00022 SKIP1 DTSIL016
|
|
00023 10 L016-YRQ PIC S9(05) COMP-3. DTSIL016
|
|
00024 SKIP1 DTSIL016
|
|
00025 10 FILLER PIC X(17). DTSIL016
|