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