140 lines
11 KiB
COBOL
140 lines
11 KiB
COBOL
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
|