00001 ***** 08/28/02 00002 * DTSIEPRF 00003 * DTSIEPRF EMPLOYER ELECTRONIC MEDIA TRACKING PROFILE RECORD. LV003 00004 * CONTAINS INFORMATION ABOUT ELECTRONIC DATA SUBMITTEDTSIEPRF 00005 * BY AN EMPLOYER (E.G. DATA FORMAT, TYPE OF MEDIA, TDTSIEPRF 00006 * OF DATA, CONTACT INFORMATION, ETC.) DTSIEPRF 00007 * DTSIEPRF 00008 ***** DTSIEPRF 00009 SKIP1 DTSIEPRF 00010 10 EPRF-KEY-AREA. DTSIEPRF 00011 15 EPRF-REC-TYPE PIC S9(04) COMP. DTSIEPRF 00012 88 EPRF-PRF-88 VALUE +02. DTSIEPRF 00013 15 EPRF-ELF-ID PIC S9(07) COMP-3. DTSIEPRF 00014 15 EPRF-DATA-TYPE-CD PIC X(02). DTSIEPRF 00015 88 EPRF-PRT-UC30-88 VALUE '01'. DTSIEPRF 00016 88 EPRF-BEN-CHARGE-88 VALUE '02'. DTSIEPRF 00017 88 EPRF-WAGE-88 VALUE '03'. DTSIEPRF 00018 88 EPRF-IRS-QTR-FEIN-88 VALUE '04'. DTSIEPRF 00019 88 EPRF-IRS-940-CERT-88 VALUE '05'. DTSIEPRF 00020 88 EPRF-IRS-WKLY-XMTCH-88 VALUE '06'. DTSIEPRF 00021 88 EPRF-RR-RETIRE-88 VALUE '07'. DTSIEPRF 00022 88 EPRF-BANK-RECON-OUT-88 VALUE '08'. DTSIEPRF 00023 88 EPRF-BANK-RECON-IN-88 VALUE '09'. DTSIEPRF 00024 88 EPRF-1099-88 VALUE '10'. DTSIEPRF 00025 88 EPRF-DATA-TYPE-UNK-88 VALUE '99'. DTSIEPRF 00026 88 EPRF-DATA-TYPE-VALID-88 DTSIEPRF 00027 VALUE '01' THRU '10' DTSIEPRF 00028 '99'. DTSIEPRF 00029 15 EPRF-KEY-FILLER PIC X(16). DTSIEPRF 00030 SKIP1 DTSIEPRF 00031 10 EPRF-DATA-AREA. DTSIEPRF 00032 15 EPRF-ELF-NAME PIC X(40). DTSIEPRF 00033 15 EPRF-MEDIUM-TYPE-CD PIC X(02). DTSIEPRF 00034 88 EPRF-CARTRIDGE-SL-88 VALUE 'CS'. DTSIEPRF 00035 88 EPRF-CARTRIDGE-NL-88 VALUE 'CN'. DTSIEPRF 00036 88 EPRF-REEL-SL-88 VALUE 'RS'. DTSIEPRF 00037 88 EPRF-REEL-NL-88 VALUE 'RN'. DTSIEPRF 00038 88 EPRF-DISKETTE-88 VALUE 'DK'. DTSIEPRF 00039 88 EPRF-CD-88 VALUE 'CD'. DTSIEPRF 00040 88 EPRF-EMAIL-88 VALUE 'EM'. DTSIEPRF 00041 88 EPRF-FTP-88 VALUE 'FT'. DTSIEPRF 00042 88 EPRF-WEB-88 VALUE 'WB'. DTSIEPRF 00043 88 EPRF-IVR-88 VALUE 'VR'. DTSIEPRF 00044 88 EPRF-TAPE-88 VALUE 'CS' 'CN' DTSIEPRF 00045 'RS' 'RN'. DTSIEPRF 00046 SKIP1 DTSIEPRF 00047 15 EPRF-FORMAT-CD PIC X(03). DTSIEPRF 00048 88 EPRF-FORMAT-DC-REG-88 VALUE 'DCR'. DTSIEPRF 00049 88 EPRF-FORMAT-DC-GOV-88 VALUE 'DCG'. DTSIEPRF 00050 88 EPRF-FORMAT-ICESA275-88 VALUE 'IC5'. DTSIEPRF 00051 88 EPRF-FORMAT-ICESA276-88 VALUE 'IC6'. DTSIEPRF 00052 88 EPRF-FORMAT-INAPP-88 VALUE SPACES. DTSIEPRF 00053 SKIP1 DTSIEPRF 00054 15 EPRF-JOB-NAME PIC X(08). DTSIEPRF 00055 15 EPRF-FORMAT-NOTES PIC X(60). DTSIEPRF 00056 SKIP1 DTSIEPRF 00057 15 EPRF-BUSINESS-CONTACT-NAME PIC X(32). DTSIEPRF 00058 15 EPRF-BUSINESS-CONTACT-EMAIL PIC X(40). DTSIEPRF 00059 SKIP1 DTSIEPRF 00060 15 EPRF-BUSINESS-CONTACT-PHONE. DTSIEPRF 00061 20 EPRF-BUSINESS-VOICE-AREA-CD PIC X(03). DTSIEPRF 00062 20 EPRF-BUSINESS-VOICE-PREFIX PIC X(03). DTSIEPRF 00063 20 EPRF-BUSINESS-VOICE-SUFFIX PIC X(04). DTSIEPRF 00064 20 EPRF-BUSINESS-VOICE-EXT PIC X(05). DTSIEPRF 00065 SKIP1 DTSIEPRF 00066 15 EPRF-BUSINESS-CONTACT-FAX. DTSIEPRF 00067 20 EPRF-BUSINESS-FAX-AREA-CD PIC X(03). DTSIEPRF 00068 20 EPRF-BUSINESS-FAX-PREFIX PIC X(03). DTSIEPRF 00069 20 EPRF-BUSINESS-FAX-SUFFIX PIC X(04). DTSIEPRF 00070 20 EPRF-BUSINESS-FAX-EXT PIC X(05). DTSIEPRF 00071 SKIP1 DTSIEPRF 00072 15 EPRF-TECH-CONTACT-NAME PIC X(32). DTSIEPRF 00073 15 EPRF-TECH-CONTACT-EMAIL PIC X(40). DTSIEPRF 00074 SKIP1 DTSIEPRF 00075 15 EPRF-TECH-CONTACT-PHONE. DTSIEPRF 00076 20 EPRF-TECH-VOICE-AREA-CD PIC X(03). DTSIEPRF 00077 20 EPRF-TECH-VOICE-PREFIX PIC X(03). DTSIEPRF 00078 20 EPRF-TECH-VOICE-SUFFIX PIC X(04). DTSIEPRF 00079 20 EPRF-TECH-VOICE-EXT PIC X(05). DTSIEPRF 00080 SKIP1 DTSIEPRF 00081 15 EPRF-TECH-CONTACT-FAX. DTSIEPRF 00082 20 EPRF-TECH-FAX-AREA-CD PIC X(03). DTSIEPRF 00083 20 EPRF-TECH-FAX-PREFIX PIC X(03). DTSIEPRF 00084 20 EPRF-TECH-FAX-SUFFIX PIC X(04). DTSIEPRF 00085 20 EPRF-TECH-FAX-EXT PIC X(05). DTSIEPRF 00086 SKIP1 DTSIEPRF 00087 15 EPRF-ADDRESS. DTSIEPRF 00088 20 EPRF-ATTN-LINE PIC X(40). DTSIEPRF 00089 20 EPRF-DELIV-LINE-1 PIC X(40). DTSIEPRF 00090 20 EPRF-DELIV-LINE-2 PIC X(40). DTSIEPRF 00091 20 EPRF-CITY PIC X(25). DTSIEPRF 00092 20 EPRF-ST PIC X(02). DTSIEPRF 00093 20 EPRF-ZIP PIC X(10). DTSIEPRF 00094 20 EPRF-ADVANCED-BARCODE DTSIEPRF 00095 PIC X(14). DTSIEPRF 00096 SKIP1 DTSIEPRF 00097 15 EPRF-FILLER PIC X(194). DTSIEPRF 00098 SKIP1 DTSIEPRF 00099 15 EPRF-UPDATE-DATA. DTSIEPRF 00100 20 EPRF-UPDATE-END-ABSTIME DTSIEPRF 00101 PIC S9(15) COMP-3. DTSIEPRF 00102 88 EPRF-UPDATED-NEVER-88 DTSIEPRF 00103 VALUE +0. DTSIEPRF 00104 88 EPRF-CICS-UPD-ACTIVE-88 DTSIEPRF 00105 VALUE +888888888888888. DTSIEPRF 00106 88 EPRF-BATCH-UPD-ACTIVE-88 DTSIEPRF 00107 VALUE +999999999999999. DTSIEPRF 00108 88 EPRF-UPD-ACTIVE-88 DTSIEPRF 00109 VALUE +888888888888888, DTSIEPRF 00110 +999999999999999. DTSIEPRF 00111 **************************************************************** DTSIEPRF 00112 ** UPDATE-END-ABSTIME = ALL 9'S OR ALL 8'S DTSIEPRF 00113 ** MEANS LOCKED FOR UPDATE !! DTSIEPRF 00114 ** EITHER AN UPDATE IS IN PROGRESS OR HAS FAILED TO COMPLETE DTSIEPRF 00115 ** SUCCESSFULLY DTSIEPRF 00116 **************************************************************** DTSIEPRF 00117 20 EPRF-UPDATE-TASK-ID PIC S9(08) COMP. DTSIEPRF 00118 20 EPRF-UPDATE-OP-ID PIC X(08). DTSIEPRF 00119 20 EPRF-UPDATE-TERMID PIC X(04). DTSIEPRF 00120 20 EPRF-UPDATE-NETNAME PIC X(08). DTSIEPRF 00121 20 EPRF-UPDATE-START-DATE DTSIEPRF 00122 PIC S9(09) COMP-3. DTSIEPRF 00123 20 EPRF-UPDATE-START-TIME DTSIEPRF 00124 PIC S9(07) COMP-3. DTSIEPRF 00125 20 EPRF-UPDATE-SCR-ID PIC X(02). DTSIEPRF 00126 20 EPRF-UPDATE-FUNCTION DTSIEPRF 00127 PIC X(01). DTSIEPRF 00128 88 EPRF-UPDATE-ADD-88 VALUE 'A'. DTSIEPRF 00129 88 EPRF-UPDATE-MODIFY-88 VALUE 'M'. DTSIEPRF 00130 88 EPRF-UPDATE-DELETE-88 VALUE 'D'. DTSIEPRF 00131 DTSIEPRF 00132 15 EPRF-CONVERTED-IND PIC X(01). DTSIEPRF 00133 88 EPRF-CONVERTED-88 VALUE 'Y'. DTSIEPRF 00134 88 EPRF-NOT-CONVERTED-88 VALUE 'N'. DTSIEPRF 00135 DTSIEPRF 00136 15 EPRF-ESTB-DATE PIC S9(09) COMP-3. DTSIEPRF 00137 15 EPRF-CHNG-DATE PIC S9(09) COMP-3. DTSIEPRF 00138 15 EPRF-CHNG-OPID PIC X(08). DTSIEPRF 00139 DTSIEPRF