giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
Copybook/CHGIM003.cpy Normal file
View File

@ -0,0 +1,56 @@
00001 ***** 04/24/20
00002 * CHGIM003
00003 * CHGIM003 PRINT PARM RECORD PRODUCED IN CHGBD210. LV005
00004 * CHGIM003
00005 * CHGIM003
00006 * CHGIM003
00007 ***** CHGIM003
00008 05 CHG3-RUN-TYPE PIC X(03). CHGIM003
00009 88 CHG3-RUN-TYPE-QTRLY-88 VALUE 'QTR' 'QTE'. CHGIM003
00010 88 CHG3-RUN-TYPE-QTR-88 VALUE 'QTR'. CHGIM003
00011 88 CHG3-RUN-TYPE-QTR-EMP-88 VALUE 'QTE'. CHGIM003
00012 88 CHG3-RUN-TYPE-ANN-88 VALUE 'ANN'. CHGIM003
00013 88 CHG3-RUN-TYPE-ANN-EMP-88 VALUE 'ANE'. CHGIM003
00014 88 CHG3-RUN-TYPE-ANNUAL-88 VALUE 'ANN' 'ANE'. CHGIM003
00015 88 CHG3-RUN-TYPE-MON-88 VALUE 'MON'. CHGIM003
00016 88 CHG3-RUN-TYPE-MON-EMP-88 VALUE 'MNE'. CHGIM003
00017 88 CHG3-RUN-TYPE-MONTHLY-88 VALUE 'MON' 'MNE'. CHGIM003
00018 88 CHG3-RUN-TYPE-WK-88 VALUE 'WK '. CHGIM003
00019 88 CHG3-RUN-TYPE-WK-EMP-88 VALUE 'WKE'. CHGIM003
00020 88 CHG3-RUN-TYPE-WEEKLY-88 VALUE 'WK ' 'WKE'. CHGIM003
00021 88 CHG3-RUN-TYPE-EMP-88 VALUE 'EMP'. CHGIM003
00022 88 CHG3-RUN-TYPE-RPTS-88 VALUE 'RPT'. CHGIM003
00023 88 CHG3-RUN-TYPE-AGENT-88 VALUE 'AGT'. CHGIM003
00024 88 CHG3-RUN-TYPE-TEUC-88 VALUE 'TEU'. CHGIM003
00025 88 CHG3-RUN-TYPE-FPUC-88 VALUE 'PUC'. CL**2
00026 CHGIM003
00027 88 CHG3-RUN-TYPE-SPECIAL-88 VALUE 'EMP' 'RPT' CHGIM003
00028 'AGT'. CHGIM003
00029 88 CHG3-RUN-TYPE-VALID-88 VALUE 'QTR' 'ANN' CHGIM003
00030 'EMP' 'RPT' CHGIM003
00031 'AGT' 'ANE' CHGIM003
00032 'MON' 'MNE' CHGIM003
00033 'WKE' 'TEU' CL**2
00034 'PUC'. CL**2
00035 05 CHG3-BEGIN-DATE PIC S9(09) COMP-3. CHGIM003
00036 05 CHG3-END-DATE PIC S9(09) COMP-3. CHGIM003
00037 CHGIM003
00038 05 CHG3-RPT-TYPES. CHGIM003
00039 10 CHG3-RPT-TYPE-RATED-IND PIC X(01). CHGIM003
00040 88 CHG3-RPT-TYPE-RATED-88 VALUE 'Y'. CHGIM003
00041 10 CHG3-RPT-TYPE-SELF-INS-IND PIC X(01). CHGIM003
00042 88 CHG3-RPT-TYPE-SELF-INS-88 VALUE 'Y'. CHGIM003
00043 10 CHG3-RPT-TYPE-CWC-IND PIC X(01). CHGIM003
00044 88 CHG3-RPT-TYPE-CWC-88 VALUE 'Y'. CHGIM003
00045 10 CHG3-RPT-TYPE-FED-IND PIC X(01). CHGIM003
00046 88 CHG3-RPT-TYPE-FED-88 VALUE 'Y'. CHGIM003
00047 10 CHG3-RPT-TYPE-TEUC-IND PIC X(01). CHGIM003
00048 88 CHG3-RPT-TYPE-TEUC-88 VALUE 'Y'. CHGIM003
00049 10 CHG3-RPT-TYPE-DC-IND PIC X(01). CHGIM003
00050 88 CHG3-RPT-TYPE-DC-88 VALUE 'Y'. CHGIM003
00051 10 CHG3-RPT-TYPE-FPUC-IND PIC X(01). CL**2
00052 88 CHG3-RPT-TYPE-FPUC-88 VALUE 'Y'. CL**2
00053 CHGIM003
00054 05 CHG3-EMP-NO PIC S9(07) COMP-3. CHGIM003
00055 05 FILLER PIC X(56). CL**5
00056 CHGIM003