00001 *****                                                             05/13/99
00002 *                                                                 DTSIL029
00003 *    DTSIL029  YEAR/QUARTER (PICKUP INCLUDED) FROM SCREEN            LV005
00004 *              FORMAT/EDIT MODULE LINKAGE.                           CL**4
00005 *                                                                 DTSIL029
00006 *                                                                    CL**5
00007 *              05/13/1999  CLONED FROM DTSIL016.                     CL**5
00008 *                          REFERENCE: PICKUP DIR  PROGRAMMER: EHH    CL**5
00009 *                                                                    CL**5
00010 *****                                                             DTSIL029
00011                                                                      CL**4
00012          10  L029-RESULT-IND             PIC  X(01).                 CL**4
00013              88  L029-NO-ENTRY               VALUE '0'.              CL**4
00014              88  L029-VALID                  VALUE '1'.              CL**4
00015              88  L029-NOT-VALID              VALUE '2'.              CL**4
00016                                                                      CL**4
00017          10  L029-S-YRQ-AREA.                                        CL**4
00018              15  L029-S-YR-AREA.                                     CL**4
00019                  20  L029-S-YR-L         PIC S9(04)      COMP.       CL**4
00020                  20  L029-S-YR-A         PIC  X(01).                 CL**4
00021                  20  L029-S-YR           PIC  X(02).                 CL**4
00022              15  L029-S-Q-AREA.                                      CL**4
00023                  20  L029-S-Q-L          PIC S9(04)      COMP.       CL**4
00024                  20  L029-S-Q-A          PIC  X(01).                 CL**4
00025                  20  L029-S-Q            PIC  X(01).                 CL**4
00026                                                                      CL**4
00027          10  L029-YRQ                   PIC S9(05)       COMP-3.     CL**4
00028                                                                      CL**4
00029          10  FILLER                      PIC  X(17).              DTSIL029