00001 *****                                                             05/03/02
00002 *                                                                 DTSILRCM
00003 *   DTSILRCM   REPORT PRINTING COMMON LINKAGE.                       LV010
00004 *                                                                 DTSILRCM
00005 *                                                                 DTSILRCM
00006 *    10/06/1998  REVIEWED AND MODIFIED FOR DC.  EHH               DTSILRCM
00007 *                                                                 DTSILRCM
00008 *    07/14/1999  ADDED LRCM-PICKUP-YRQ.                           DTSILRCM
00009 *                REFERENCE: PICKUP DIR          PROGRAMMER: DVS   DTSILRCM
00010 *****                                                             DTSILRCM
00011                                                                   DTSILRCM
00012          10  LRCM-SYS-DATE               PIC  X(08).              DTSILRCM
00013                                                                   DTSILRCM
00014          10  LRCM-SYS-TIME               PIC  X(08).              DTSILRCM
00015                                                                   DTSILRCM
00016          10  LRCM-SYS-8-DATE             PIC  X(10).              DTSILRCM
00017                                                                   DTSILRCM
00018          10  LRCM-AGY-NAME-LINE1         PIC  X(50).              DTSILRCM
00019                                                                   DTSILRCM
00020          10  LRCM-AGY-NAME-LINE2         PIC  X(50).              DTSILRCM
00021                                                                   DTSILRCM
00022          10  LRCM-DEFAULT-NAME           PIC  X(50).              DTSILRCM
00023                                                                   DTSILRCM
00024          10  LRCM-DEFAULT-VOICE          PIC  X(14).              DTSILRCM
00025                                                                   DTSILRCM
00026          10  LRCM-PICKUP-YRQ             PIC S9(05)     COMP-3.   DTSILRCM
00027                                                                   DTSILRCM
00028          10  FILLER                      PIC  X(62).              DTSILRCM
00029                                                                   DTSILRCM
00030          10  LRCM-EOR-IND                PIC  X(01).              DTSILRCM
00031              88  LRCM-EOR-88                 VALUE 'Y'.           DTSILRCM