DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
119
Copybook/OJRPE123.cpy
Normal file
119
Copybook/OJRPE123.cpy
Normal file
@ -0,0 +1,119 @@
|
||||
00001 I1000-EDIT-AND-DEFAULT-PARMS. 08/02/02
|
||||
00002 PERFORM I1100-STATUS-05-CUTOFF-DATE THRU I1100-EXIT. OJRPE123
|
||||
00003 LV001
|
||||
00004 PERFORM I1200-STATUS-06-CUTOFF-DATE THRU I1200-EXIT. OJRPE123
|
||||
00005 OJRPE123
|
||||
00006 PERFORM I1300-STATUS-09-CUTOFF-DATE THRU I1300-EXIT. OJRPE123
|
||||
00007 OJRPE123
|
||||
00008 PERFORM I1400-STATUS-11-CUTOFF-DATE THRU I1400-EXIT. OJRPE123
|
||||
00009 OJRPE123
|
||||
00010 I1000-EXIT. OJRPE123
|
||||
00011 EXIT. OJRPE123
|
||||
00012 SKIP3 OJRPE123
|
||||
00013 I1100-STATUS-05-CUTOFF-DATE. OJRPE123
|
||||
00014 IF OJR-PARM-05-CUTOFF-DATE = SPACES OJRPE123
|
||||
00015 IF OJR-PERIOD-END-DATE > +0 OJRPE123
|
||||
00016 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123
|
||||
00017 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123
|
||||
00018 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123
|
||||
00019 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123
|
||||
00020 MOVE L001-FED-8-DATE-9 TO WRK-PARM-05-CUTOFF-DATE OJRPE123
|
||||
00021 ELSE OJRPE123
|
||||
00022 MOVE 'OJR-PARM-05-CUTOFF-DATE MISSING' OJRPE123
|
||||
00023 TO ABEND-MSG OJRPE123
|
||||
00024 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00025 END-IF OJRPE123
|
||||
00026 ELSE OJRPE123
|
||||
00027 MOVE OJR-PARM-05-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123
|
||||
00028 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123
|
||||
00029 IF L001-VALID-DATE OJRPE123
|
||||
00030 MOVE L001-FED-8-DATE-9 TO WRK-PARM-05-CUTOFF-DATE OJRPE123
|
||||
00031 ELSE OJRPE123
|
||||
00032 MOVE 'OJR-PARM-05-CUTOFF-DATE NOT VALID' OJRPE123
|
||||
00033 TO ABEND-MSG OJRPE123
|
||||
00034 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00035 END-IF OJRPE123
|
||||
00036 END-IF. OJRPE123
|
||||
00037 I1100-EXIT. OJRPE123
|
||||
00038 EXIT. OJRPE123
|
||||
00039 SKIP3 OJRPE123
|
||||
00040 I1200-STATUS-06-CUTOFF-DATE. OJRPE123
|
||||
00041 IF OJR-PARM-06-CUTOFF-DATE = SPACES OJRPE123
|
||||
00042 IF OJR-PERIOD-END-DATE > +0 OJRPE123
|
||||
00043 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123
|
||||
00044 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123
|
||||
00045 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123
|
||||
00046 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123
|
||||
00047 MOVE L001-FED-8-DATE-9 TO WRK-PARM-06-CUTOFF-DATE OJRPE123
|
||||
00048 ELSE OJRPE123
|
||||
00049 MOVE 'OJR-PARM-06-CUTOFF-DATE MISSING' OJRPE123
|
||||
00050 TO ABEND-MSG OJRPE123
|
||||
00051 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00052 END-IF OJRPE123
|
||||
00053 ELSE OJRPE123
|
||||
00054 MOVE OJR-PARM-06-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123
|
||||
00055 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123
|
||||
00056 IF L001-VALID-DATE OJRPE123
|
||||
00057 MOVE L001-FED-8-DATE-9 TO WRK-PARM-06-CUTOFF-DATE OJRPE123
|
||||
00058 ELSE OJRPE123
|
||||
00059 MOVE 'OJR-PARM-06-CUTOFF-DATE NOT VALID' OJRPE123
|
||||
00060 TO ABEND-MSG OJRPE123
|
||||
00061 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00062 END-IF OJRPE123
|
||||
00063 END-IF. OJRPE123
|
||||
00064 I1200-EXIT. OJRPE123
|
||||
00065 EXIT. OJRPE123
|
||||
00066 SKIP3 OJRPE123
|
||||
00067 I1300-STATUS-09-CUTOFF-DATE. OJRPE123
|
||||
00068 IF OJR-PARM-09-CUTOFF-DATE = SPACES OJRPE123
|
||||
00069 IF OJR-PERIOD-END-DATE > +0 OJRPE123
|
||||
00070 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123
|
||||
00071 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123
|
||||
00072 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123
|
||||
00073 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123
|
||||
00074 MOVE L001-FED-8-DATE-9 TO WRK-PARM-09-CUTOFF-DATE OJRPE123
|
||||
00075 ELSE OJRPE123
|
||||
00076 MOVE 'OJR-PARM-09-CUTOFF-DATE MISSING' OJRPE123
|
||||
00077 TO ABEND-MSG OJRPE123
|
||||
00078 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00079 END-IF OJRPE123
|
||||
00080 ELSE OJRPE123
|
||||
00081 MOVE OJR-PARM-09-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123
|
||||
00082 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123
|
||||
00083 IF L001-VALID-DATE OJRPE123
|
||||
00084 MOVE L001-FED-8-DATE-9 TO WRK-PARM-09-CUTOFF-DATE OJRPE123
|
||||
00085 ELSE OJRPE123
|
||||
00086 MOVE 'OJR-PARM-09-CUTOFF-DATE NOT VALID' OJRPE123
|
||||
00087 TO ABEND-MSG OJRPE123
|
||||
00088 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00089 END-IF OJRPE123
|
||||
00090 END-IF. OJRPE123
|
||||
00091 I1300-EXIT. OJRPE123
|
||||
00092 EXIT. OJRPE123
|
||||
00093 SKIP3 OJRPE123
|
||||
00094 I1400-STATUS-11-CUTOFF-DATE. OJRPE123
|
||||
00095 IF OJR-PARM-11-CUTOFF-DATE = SPACES OJRPE123
|
||||
00096 IF OJR-PERIOD-END-DATE > +0 OJRPE123
|
||||
00097 MOVE OJR-PERIOD-END-DATE TO L001-FED-8-DATE-9 OJRPE123
|
||||
00098 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE123
|
||||
00099 SUBTRACT DEFAULT-CUTOFF-DAYS FROM L001-JUL-ABS-DAY OJRPE123
|
||||
00100 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE123
|
||||
00101 MOVE L001-FED-8-DATE-9 TO WRK-PARM-11-CUTOFF-DATE OJRPE123
|
||||
00102 ELSE OJRPE123
|
||||
00103 MOVE 'OJR-PARM-11-CUTOFF-DATE MISSING' OJRPE123
|
||||
00104 TO ABEND-MSG OJRPE123
|
||||
00105 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00106 END-IF OJRPE123
|
||||
00107 ELSE OJRPE123
|
||||
00108 MOVE OJR-PARM-11-CUTOFF-DATE TO L001-CAL-6-DATE-X OJRPE123
|
||||
00109 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE123
|
||||
00110 IF L001-VALID-DATE OJRPE123
|
||||
00111 MOVE L001-FED-8-DATE-9 TO WRK-PARM-11-CUTOFF-DATE OJRPE123
|
||||
00112 ELSE OJRPE123
|
||||
00113 MOVE 'OJR-PARM-11-CUTOFF-DATE NOT VALID' OJRPE123
|
||||
00114 TO ABEND-MSG OJRPE123
|
||||
00115 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE123
|
||||
00116 END-IF OJRPE123
|
||||
00117 END-IF. OJRPE123
|
||||
00118 I1400-EXIT. OJRPE123
|
||||
00119 EXIT. OJRPE123
|
||||
Reference in New Issue
Block a user