116 lines
9.1 KiB
COBOL
116 lines
9.1 KiB
COBOL
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
|