47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
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
|