DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
124
Copybook/DTSIMJRN.cpy
Normal file
124
Copybook/DTSIMJRN.cpy
Normal file
@ -0,0 +1,124 @@
|
||||
00001 ***** 11/11/02
|
||||
00002 * DTSIMJRN
|
||||
00003 * DTSIMJRN MASTER FILE 'JOURNAL' RECORD DEFINITION. LV004
|
||||
00004 * DTSIMJRN
|
||||
00005 * DTSIMJRN
|
||||
00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMJRN
|
||||
00007 * DTSIMJRN
|
||||
00008 ***** DTSIMJRN
|
||||
00009 DTSIMJRN
|
||||
00010 10 MJRN-KEY-AREA. DTSIMJRN
|
||||
00011 15 MJRN-EMP-NO PIC S9(07) COMP-3. DTSIMJRN
|
||||
00012 15 MJRN-REC-TYPE PIC S9(04) COMP. DTSIMJRN
|
||||
00013 88 MJRN-JRN-88 VALUE +51. DTSIMJRN
|
||||
00014 15 MJRN-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMJRN
|
||||
00015 15 MJRN-KEY-FILLER PIC X(02). DTSIMJRN
|
||||
00016 DTSIMJRN
|
||||
00017 DTSIMJRN
|
||||
00018 10 MJRN-PURGE-DATE PIC S9(09) COMP-3. DTSIMJRN
|
||||
00019 DTSIMJRN
|
||||
00020 DTSIMJRN
|
||||
00021 10 MJRN-DATA-AREA. DTSIMJRN
|
||||
00022 15 MJRN-DOC-NO. DTSIMJRN
|
||||
00023 20 MJRN-BATCH-NO PIC S9(05) COMP-3. DTSIMJRN
|
||||
00024 20 MJRN-ITEM-NO PIC S9(03) COMP-3. DTSIMJRN
|
||||
00025 DTSIMJRN
|
||||
00026 15 MJRN-TRAN-CATEGORY PIC X(01). DTSIMJRN
|
||||
00027 88 MJRN-TRAN-RPT-88 VALUE 'R'. DTSIMJRN
|
||||
00028 88 MJRN-TRAN-ATX-88 VALUE 'T'. DTSIMJRN
|
||||
00029 88 MJRN-TRAN-PAY-88 VALUE 'P'. DTSIMJRN
|
||||
00030 88 MJRN-TRAN-ADJ-88 VALUE 'A'. DTSIMJRN
|
||||
00031 88 MJRN-TRAN-CNVR-88 VALUE 'C'. DTSIMJRN
|
||||
00032 DTSIMJRN
|
||||
00033 15 MJRN-TRAN-TYPE PIC X(02). DTSIMJRN
|
||||
00034 88 MJRN-ORIG-RPT-88 VALUE 'OR'. DTSIMJRN
|
||||
00035 88 MJRN-EMP-AMEND-RPT-88 VALUE 'EA'. DTSIMJRN
|
||||
00036 88 MJRN-AUDIT-RPT-88 VALUE 'AU'. DTSIMJRN
|
||||
00037 88 MJRN-FLD-SUP-RPT-88 VALUE 'FS'. DTSIMJRN
|
||||
00038 88 MJRN-ADMN-CORR-RPT-88 VALUE 'AC'. DTSIMJRN
|
||||
00039 88 MJRN-ESTIM-RPT-88 VALUE 'ES'. DTSIMJRN
|
||||
00040 88 MJRN-WITHDRW-RPT-88 VALUE 'WD'. DTSIMJRN
|
||||
00041 DTSIMJRN
|
||||
00042 88 MJRN-PAYMENT-PAY-88 VALUE 'PA'. DTSIMJRN
|
||||
00043 88 MJRN-PAY-REV-PAY-88 VALUE 'PR'. DTSIMJRN
|
||||
00044 88 MJRN-REFUND-PAY-88 VALUE 'RF'. DTSIMJRN
|
||||
00045 88 MJRN-REF-REV-PAY-88 VALUE 'RR'. DTSIMJRN
|
||||
00046 88 MJRN-NO-GOOD-CHECK-PAY-88 VALUE 'NG'. DTSIMJRN
|
||||
00047 DTSIMJRN
|
||||
00048 88 MJRN-CHARGE-ADJ-88 VALUE 'CH'. DTSIMJRN
|
||||
00049 88 MJRN-WAIVE-ADJ-88 VALUE 'WV'. DTSIMJRN
|
||||
00050 88 MJRN-TOLER-ADJ-88 VALUE 'TL'. DTSIMJRN
|
||||
00051 88 MJRN-AUTO-ADJ-88 VALUE 'CA'. DTSIMJRN
|
||||
00052 88 MJRN-MANUAL-ADJ-88 VALUE 'CM'. DTSIMJRN
|
||||
00053 88 MJRN-WAGE-RPT-ADJ-88 VALUE 'WG'. DTSIMJRN
|
||||
00054 88 MJRN-DUE-DATE-ADJ-88 VALUE 'QD'. DTSIMJRN
|
||||
00055 88 MJRN-WAIVE-DATE-ADJ-88 VALUE 'WD'. DTSIMJRN
|
||||
00056 88 MJRN-INT-DATE-ADJ-88 VALUE 'ID'. DTSIMJRN
|
||||
00057 88 MJRN-WRITE-OFF-ADJ-88 VALUE 'WO'. DTSIMJRN
|
||||
00058 88 MJRN-WRITE-OFF-REV-ADJ-88 VALUE 'WR'. DTSIMJRN
|
||||
00059 DTSIMJRN
|
||||
00060 15 MJRN-RECEIVED-DATE PIC S9(09) COMP-3. DTSIMJRN
|
||||
00061 DTSIMJRN
|
||||
00062 15 MJRN-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIMJRN
|
||||
00063 DTSIMJRN
|
||||
00064 15 MJRN-EMP-CLASS PIC X(01). DTSIMJRN
|
||||
00065 88 MJRN-EMP-RATED-88 VALUE 'R'. DTSIMJRN
|
||||
00066 88 MJRN-EMP-SELF-INS-88 VALUE 'S'. DTSIMJRN
|
||||
00067 88 MJRN-EMP-CHG-ONLY-88 VALUE 'C'. DTSIMJRN
|
||||
00068 88 MJRN-EMP-UNK-88 VALUE 'U'. DTSIMJRN
|
||||
00069 DTSIMJRN
|
||||
00070 15 MJRN-ELIGIBLE-CD PIC S9(03) COMP-3. DTSIMJRN
|
||||
00071 88 MJRN-ELIGIBLE-RATED-88 VALUE +00. DTSIMJRN
|
||||
00072 88 MJRN-ELIGIBLE-UCX-88 VALUE +01. DTSIMJRN
|
||||
00073 88 MJRN-ELIGIBLE-UCFE-88 VALUE +02. DTSIMJRN
|
||||
00074 88 MJRN-ELIGIBLE-INTERSTATE-88 VALUE +04. DTSIMJRN
|
||||
00075 88 MJRN-ELIGIBLE-VOL-QUIT-88 VALUE +05. DTSIMJRN
|
||||
00076 88 MJRN-ELIGIBLE-MISCONDUCT-88 VALUE +06. DTSIMJRN
|
||||
00077 88 MJRN-ELIGIBLE-EB-88 VALUE +07. DTSIMJRN
|
||||
00078 88 MJRN-ELIGIBLE-SELF-INS-88 VALUE +08. DTSIMJRN
|
||||
00079 88 MJRN-ELIGIBLE-TRA-88 VALUE +09. DTSIMJRN
|
||||
00080 88 MJRN-ELIGIBLE-DC-GOV-88 VALUE +10. DTSIMJRN
|
||||
00081 88 MJRN-ELIGIBLE-NOT-SUBJECT-88 VALUE +13. DTSIMJRN
|
||||
00082 88 MJRN-ELIGIBLE-CHG-ONLY-88 VALUE DTSIMJRN
|
||||
00083 +01 +02 +04 +05 +06 +07 +09 +10. DTSIMJRN
|
||||
00084 DTSIMJRN
|
||||
00085 15 MJRN-RESPONSIBLE-ACTIVITY DTSIMJRN
|
||||
00086 PIC X(03). DTSIMJRN
|
||||
00087 DTSIMJRN
|
||||
00088 15 MJRN-RESPONSIBLE-OP-ID PIC X(08). DTSIMJRN
|
||||
00089 DTSIMJRN
|
||||
00090 DTSIMJRN
|
||||
00091 15 FILLER PIC X(24). DTSIMJRN
|
||||
00092 DTSIMJRN
|
||||
00093 DTSIMJRN
|
||||
00094 15 MJRN-CONVERTED-IND PIC X(01). DTSIMJRN
|
||||
00095 88 MJRN-CONVERTED-88 VALUE 'Y'. DTSIMJRN
|
||||
00096 88 MJRN-NOT-CONVERTED-88 VALUE 'N'. DTSIMJRN
|
||||
00097 DTSIMJRN
|
||||
00098 DTSIMJRN
|
||||
00099 15 MJRN-ESTB-DATE PIC S9(09) COMP-3. DTSIMJRN
|
||||
00100 DTSIMJRN
|
||||
00101 DTSIMJRN
|
||||
00102 15 MJRN-OCC-CNT PIC S9(04) COMP. DTSIMJRN
|
||||
00103 DTSIMJRN
|
||||
00104 15 MJRN-ACCT-AREA. DTSIMJRN
|
||||
00105 20 MJRN-ACCT-GROUP DTSIMJRN
|
||||
00106 OCCURS 100 TIMES DTSIMJRN
|
||||
00107 INDEXED BY MJRN-OCC-IDX. DTSIMJRN
|
||||
00108 25 MJRN-ACCT-ROW PIC X(02). DTSIMJRN
|
||||
00109 88 MJRN-ROW-UI-88 VALUE 'UI'. DTSIMJRN
|
||||
00110 88 MJRN-ROW-SUR-88 VALUE 'SU'. DTSIMJRN
|
||||
00111 88 MJRN-ROW-INT-88 VALUE 'I '. DTSIMJRN
|
||||
00112 88 MJRN-ROW-LATE-PEN-88 VALUE 'LP'. DTSIMJRN
|
||||
00113 88 MJRN-ROW-NSF-PEN-88 VALUE 'NP'. DTSIMJRN
|
||||
00114 88 MJRN-ROW-MISC-PEN-88 VALUE 'MP'. DTSIMJRN
|
||||
00115 88 MJRN-ROW-CREDIT-88 VALUE 'CR'. DTSIMJRN
|
||||
00116 25 MJRN-ACCT-COL PIC X(02). DTSIMJRN
|
||||
00117 88 MJRN-COL-CHARGED-88 VALUE 'CH'. DTSIMJRN
|
||||
00118 88 MJRN-COL-PAID-88 VALUE 'PD'. DTSIMJRN
|
||||
00119 88 MJRN-COL-WAIVED-88 VALUE 'WV'. DTSIMJRN
|
||||
00120 88 MJRN-COL-WRITTEN-OFF-88 VALUE 'WO'. DTSIMJRN
|
||||
00121 88 MJRN-COL-TOLERATED-88 VALUE 'TL'. DTSIMJRN
|
||||
00122 25 MJRN-YRQ PIC S9(05) COMP-3. DTSIMJRN
|
||||
00123 88 MJRN-YRQ-CREDIT-88 VALUE +99999. DTSIMJRN
|
||||
00124 25 MJRN-AMT PIC S9(09)V9(02) COMP-3. DTSIMJRN
|
||||
Reference in New Issue
Block a user