00001 ***** 05/22/01 00002 * DTSIELOG 00003 * DTSIELOG ELECTRONIC FILER LOG RECORD. LV001 00004 * THERE IS ONE LOG RECORD FOR EACH ITEM SUBMITTED DTSIELOG 00005 * ELECTRONICALLY. DTSIELOG 00006 * DTSIELOG 00007 ***** DTSIELOG 00008 SKIP1 DTSIELOG 00009 10 ELOG-KEY-AREA. DTSIELOG 00010 15 ELOG-REC-TYPE PIC S9(04) COMP. DTSIELOG 00011 88 ELOG-LOG-88 VALUE +03. DTSIELOG 00012 15 ELOG-LOG-NO PIC 9(10). DTSIELOG 00013 15 FILLER REDEFINES ELOG-LOG-NO. DTSIELOG 00014 20 ELOG-LOG-NO-PFX PIC 9(04). DTSIELOG 00015 20 ELOG-LOG-NO-SFX PIC 9(06). DTSIELOG 00016 15 ELOG-KEY-FILLER PIC X(12). DTSIELOG 00017 SKIP1 DTSIELOG 00018 10 ELOG-DATA-AREA. DTSIELOG 00019 15 ELOG-ELF-ID PIC S9(07) COMP-3. DTSIELOG 00020 15 ELOG-DATA-TYPE-CD PIC X(02). DTSIELOG 00021 88 ELOG-PRT-UC30-88 VALUE '01'. DTSIELOG 00022 88 ELOG-BEN-CHARGE-88 VALUE '02'. DTSIELOG 00023 88 ELOG-WAGE-88 VALUE '03'. DTSIELOG 00024 88 ELOG-IRS-1TR-FEIN-88 VALUE '04'. DTSIELOG 00025 88 ELOG-IRS-940-CERT-88 VALUE '05'. DTSIELOG 00026 88 ELOG-IRS-WKLY-XMATCH-88 VALUE '06'. DTSIELOG 00027 88 ELOG-RR-RETIRE-88 VALUE '07'. DTSIELOG 00028 88 ELOG-BANK-RECON-OUT-88 VALUE '08'. DTSIELOG 00029 88 ELOG-BANK-RECON-IN-88 VALUE '09'. DTSIELOG 00030 88 ELOG-1099-88 VALUE '10'. DTSIELOG 00031 15 ELOG-BOX-NO PIC X(08). DTSIELOG 00032 15 ELOG-STATUS-CD PIC X(01). DTSIELOG 00033 88 ELOG-STAT-RCVD-88 VALUE '0'. DTSIELOG 00034 88 ELOG-STAT-DATA-CNTR-88 VALUE '1'. DTSIELOG 00035 88 ELOG-STAT-COMPLETE-88 VALUE '2'. DTSIELOG 00036 88 ELOG-STAT-FAILED-88 VALUE '3'. DTSIELOG 00037 88 ELOG-STAT-WITHDRAWN-88 VALUE '4'. DTSIELOG 00038 15 ELOG-RCVD-DATE PIC S9(09) COMP-3. DTSIELOG 00039 15 ELOG-COMPLETE-DATE PIC S9(09) COMP-3. DTSIELOG 00040 88 ELOG-STATUS-ACTIVE-88 VALUE ZERO. DTSIELOG 00041 15 ELOG-ORIG-VOL PIC X(06). DTSIELOG 00042 15 ELOG-FILLER PIC X(29). DTSIELOG 00043 15 ELOG-ESTB-OPID PIC X(08). DTSIELOG 00044 15 ELOG-ESTB-DATE PIC S9(09) COMP-3. DTSIELOG 00045 15 ELOG-CHNG-OPID PIC X(08). DTSIELOG 00046 15 ELOG-CHNG-DATE PIC S9(09) COMP-3. DTSIELOG