DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
139
Copybook/DTSIEPRF.cpy
Normal file
139
Copybook/DTSIEPRF.cpy
Normal file
@ -0,0 +1,139 @@
|
||||
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
|
||||
Reference in New Issue
Block a user