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