00001 *****                                                             05/22/01
00002 *                                                                 DTSIT060
00003 *    DTSIT060    ELECTRONIC MEDIA REPORT TRIGGER RECORD.             LV001
00004 *                                                                 DTSIT060
00005 *                                                                 DTSIT060
00006 *                03/26/2001  INITIAL DEVELOPMENT.  GD             DTSIT060
00007 *                                                                 DTSIT060
00008 *                                                                 DTSIT060
00009 *****                                                             DTSIT060
00010                                                                   DTSIT060
00011          10  T060-LENGTH         PIC S9(04)  COMP.                DTSIT060
00012                                                                   DTSIT060
00013          10  T060-COMMON-AREA.                                    DTSIT060
00014              15  T060-REC-TYPE           PIC  X(03)  VALUE '060'. DTSIT060
00015                  88  T060-060-88           VALUE '060'.           DTSIT060
00016              15  T060-LOG-NO             PIC  9(10).              DTSIT060
00017              15  T060-ABSTIME            PIC S9(15)       COMP-3. DTSIT060
00018                                                                   DTSIT060
00019          10  T060-DATA-AREA.                                      DTSIT060
00020              15  T060-TYPE               PIC  X(01).              DTSIT060
00021                  88  T060-TYPE-PCK-LST-88   VALUE '0'.            DTSIT060
00022                  88  T060-TYPE-NOTICE-88    VALUE '1'.            DTSIT060
00023                  88  T060-TYPE-MAIL-LBL-88  VALUE '2'.            DTSIT060
00024              15  T060-COPIES             PIC  9(02).              DTSIT060
00025                                                                   DTSIT060
00026                                                                   DTSIT060
00027              15  FILLER                  PIC  X(38).              DTSIT060