00001 ***** 05/22/01 00002 * DTSIC200 00003 * DTSIC200 ELECTRONIC MEDIA CONSTANTS. LV001 00004 * DTSIC200 00005 * THIS TABLE CONTAINS INFORMATION ABOUT THE PROGRAMS DTSIC200 00006 * THAT EDIT ELECTRONICALLY SUBMITTED DATA. DTSIC200 00007 * DTSIC200 00008 * C200-DATA-TYPE-CD INDICATES THE TYPE OF DATA THE PROGRAM DTSIC200 00009 * USES, AS DEFINED IN EPRF-DATA-TYPE-CD: DTSIC200 00010 * 01: 'RATE TAPE' DATA FOR PRINTING UC-30 FORMS. DTSIC200 00011 * 02: BENEFIT CHARGE DATA. DTSIC200 00012 * 03: WAGE DATA. DTSIC200 00013 * DTSIC200 00014 * C200-DATE-TYPE INDICATES THE TYPE OF DATE AND THE DATE DTSIC200 00015 * FORMAT IN WHICH THE PROGRAM PASSES THE REPORTING DATE TO DTSIC200 00016 * DTSBU937: DTSIC200 00017 * Q01: QUARTER IN YYYYQ FORMAT. DTSIC200 00018 * Q02: QUARTER IN YYQ FORMAT. DTSIC200 00019 ***** DTSIC200 00020 DTSIC200 00021 10 C200-TABLE-MAX PIC S9(04) COMP VALUE +6. DTSIC200 00022 10 C200-PROGRAM-TABLE. DTSIC200 00023 15 FILLER PIC X(08) VALUE 'WAGEMAG '. DTSIC200 00024 15 FILLER PIC X(02) VALUE '03'. DTSIC200 00025 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200 00026 DTSIC200 00027 15 FILLER PIC X(08) VALUE 'WAGEDC '. DTSIC200 00028 15 FILLER PIC X(02) VALUE '03'. DTSIC200 00029 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200 00030 DTSIC200 00031 15 FILLER PIC X(08) VALUE 'WAGECAPS'. DTSIC200 00032 15 FILLER PIC X(02) VALUE '03'. DTSIC200 00033 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200 00034 DTSIC200 00035 15 FILLER PIC X(08) VALUE 'BCP0430G'. DTSIC200 00036 15 FILLER PIC X(02) VALUE '03'. DTSIC200 00037 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200 00038 DTSIC200 00039 15 FILLER PIC X(08) VALUE 'BCP0430H'. DTSIC200 00040 15 FILLER PIC X(02) VALUE '03'. DTSIC200 00041 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200 00042 DTSIC200 00043 15 FILLER PIC X(08) VALUE 'TDECVAL1'. DTSIC200 00044 15 FILLER PIC X(02) VALUE '03'. DTSIC200 00045 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200 00046 DTSIC200 00047 15 FILLER PIC X(08) VALUE 'TDECVAL '. DTSIC200 00048 15 FILLER PIC X(02) VALUE '03'. DTSIC200 00049 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200 00050 DTSIC200 00051 10 C200-PROGRAM-ENTRY REDEFINES C200-PROGRAM-TABLE DTSIC200 00052 OCCURS 7 TIMES DTSIC200 00053 INDEXED BY C200-IDX. DTSIC200 00054 15 C200-PROG-NAME PIC X(08). DTSIC200 00055 15 C200-DATA-TYPE-CD PIC X(02). DTSIC200 00056 15 C200-DATE-TYPE PIC X(03). DTSIC200 00057 DTSIC200 00058 *************************************************************** DTSIC200 00059 * ELECTRONIC MEDIA JOBS DTSIC200 00060 * THIS TABLE ASSOCIATES A JOB NAME WITH THE FORM DTSIC200 00061 *************************************************************** DTSIC200 00062 10 C200-JOB-TABLE-MAX PIC S9(04) COMP VALUE +11. DTSIC200 00063 10 C200-JOB-TABLE. DTSIC200 00064 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200 00065 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200 00066 15 FILLER PIC X(08) VALUE 'XXUI430Q'. DTSIC200 00067 DTSIC200 00068 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200 00069 15 FILLER PIC X(02) VALUE 'CN'. DTSIC200 00070 15 FILLER PIC X(08) VALUE 'XXUI430Q'. DTSIC200 00071 DTSIC200 00072 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200 00073 15 FILLER PIC X(02) VALUE 'RS'. DTSIC200 00074 15 FILLER PIC X(08) VALUE 'XXUI431Q'. DTSIC200 00075 DTSIC200 00076 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200 00077 15 FILLER PIC X(02) VALUE 'RN'. DTSIC200 00078 15 FILLER PIC X(08) VALUE 'XXUI431Q'. DTSIC200 00079 DTSIC200 00080 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200 00081 15 FILLER PIC X(02) VALUE 'DK'. DTSIC200 00082 15 FILLER PIC X(08) VALUE 'XXUI440Q'. DTSIC200 00083 DTSIC200 00084 15 FILLER PIC X(03) VALUE 'DCG'. DTSIC200 00085 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200 00086 15 FILLER PIC X(08) VALUE 'XXUI413Q'. DTSIC200 00087 DTSIC200 00088 15 FILLER PIC X(03) VALUE 'CAP'. DTSIC200 00089 15 FILLER PIC X(02) VALUE 'RS'. DTSIC200 00090 15 FILLER PIC X(08) VALUE 'XXUI414Q'. DTSIC200 00091 DTSIC200 00092 15 FILLER PIC X(03) VALUE 'IC5'. DTSIC200 00093 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200 00094 15 FILLER PIC X(08) VALUE 'XXUI422Q'. DTSIC200 00095 DTSIC200 00096 15 FILLER PIC X(03) VALUE 'IC5'. DTSIC200 00097 15 FILLER PIC X(02) VALUE 'CN'. DTSIC200 00098 15 FILLER PIC X(08) VALUE 'XXUI422Q'. DTSIC200 00099 DTSIC200 00100 15 FILLER PIC X(03) VALUE 'IC6'. DTSIC200 00101 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200 00102 15 FILLER PIC X(08) VALUE 'XXUI420Q'. DTSIC200 00103 DTSIC200 00104 15 FILLER PIC X(03) VALUE 'IC6'. DTSIC200 00105 15 FILLER PIC X(02) VALUE 'CN'. DTSIC200 00106 15 FILLER PIC X(08) VALUE 'XXUI420Q'. DTSIC200 00107 DTSIC200 00108 10 C200-JOB-ENTRY REDEFINES C200-JOB-TABLE DTSIC200 00109 OCCURS 11 TIMES DTSIC200 00110 INDEXED BY C200-JOB-IDX. DTSIC200 00111 15 C200-FORMAT PIC X(03). DTSIC200 00112 15 C200-MEDIUM PIC X(02). DTSIC200 00113 15 C200-JOB PIC X(08). DTSIC200 00114 DTSIC200 00115 DTSIC200