29 lines
2.2 KiB
COBOL
29 lines
2.2 KiB
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL015
|
|
00003 * DTSIL015 DATE FROM SCREEN FORMAT/EDIT MODULE LINKAGE. LV003
|
|
00004 * DTSIL015
|
|
00005 ***** DTSIL015
|
|
00006 SKIP1 DTSIL015
|
|
00007 10 L015-RESULT-IND PIC X(01). DTSIL015
|
|
00008 88 L015-NO-ENTRY VALUE '0'. DTSIL015
|
|
00009 88 L015-VALID VALUE '1'. DTSIL015
|
|
00010 88 L015-NOT-VALID VALUE '2'. DTSIL015
|
|
00011 SKIP1 DTSIL015
|
|
00012 10 L015-S-DATE-AREA. DTSIL015
|
|
00013 15 L015-S-MO-AREA. DTSIL015
|
|
00014 20 L015-S-MO-L PIC S9(04) COMP. DTSIL015
|
|
00015 20 L015-S-MO-A PIC X(01). DTSIL015
|
|
00016 20 L015-S-MO PIC X(02). DTSIL015
|
|
00017 15 L015-S-DA-AREA. DTSIL015
|
|
00018 20 L015-S-DA-L PIC S9(04) COMP. DTSIL015
|
|
00019 20 L015-S-DA-A PIC X(01). DTSIL015
|
|
00020 20 L015-S-DA PIC X(02). DTSIL015
|
|
00021 15 L015-S-YR-AREA. DTSIL015
|
|
00022 20 L015-S-YR-L PIC S9(04) COMP. DTSIL015
|
|
00023 20 L015-S-YR-A PIC X(01). DTSIL015
|
|
00024 20 L015-S-YR PIC X(02). DTSIL015
|
|
00025 SKIP1 DTSIL015
|
|
00026 10 L015-DATE PIC S9(09) COMP-3. DTSIL015
|
|
00027 SKIP1 DTSIL015
|
|
00028 10 FILLER PIC X(09). DTSIL015
|