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