DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
102
Copybook/OJRPE417.cpy
Normal file
102
Copybook/OJRPE417.cpy
Normal file
@ -0,0 +1,102 @@
|
||||
00001 I1000-EDIT-AND-DEFAULT-PARMS. 05/22/08
|
||||
00002 MOVE LECM-CURR-RUN-DATE TO WRK-UC30-FIRST-DEL-CUTOFF-DATE OJRPE417
|
||||
00003 WRK-UC30-FIRST-DEL-MAIL-DATE. LV003
|
||||
00004 OJRPE417
|
||||
00005 OJRPE417
|
||||
00006 PERFORM I1100-SUBJECT-YRQ THRU I1100-EXIT. OJRPE417
|
||||
00007 OJRPE417
|
||||
00008 OJRPE417
|
||||
00009 PERFORM I1200-RETURN-BY-DATE THRU I1200-EXIT. OJRPE417
|
||||
00010 I1000-EXIT. OJRPE417
|
||||
00011 EXIT. OJRPE417
|
||||
00012 SKIP3 OJRPE417
|
||||
00013 I1100-SUBJECT-YRQ. OJRPE417
|
||||
00014 IF OJR-PARM-SUBJECT-YRQ = SPACES CL**3
|
||||
00015 MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO L004-QTR-5-9 CL**3
|
||||
00016 PERFORM S004-FROM-5 THRU S004-EXIT CL**3
|
||||
00017 ADD +1 TO L004-ABS-QTR CL**3
|
||||
00018 PERFORM S004-FROM-ABS THRU S004-EXIT CL**3
|
||||
00019 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ CL**3
|
||||
00020 ELSE CL**3
|
||||
00021 MOVE OJR-PARM-SUBJECT-YRQ TO L004-QTR-3-X CL**3
|
||||
00022 PERFORM S004-FROM-3 THRU S004-EXIT CL**3
|
||||
00023 IF L004-VALID-QTR CL**3
|
||||
00024 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ CL**3
|
||||
00025 ELSE CL**3
|
||||
00026 MOVE 'PARM-SUBJECT-YRQ NOT VALID' CL**3
|
||||
00027 TO ABEND-MSG CL**3
|
||||
00028 PERFORM S999-ABEND THRU S999-EXIT. CL**3
|
||||
00029 CL**3
|
||||
00030 CL**3
|
||||
00031 MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO L004-QTR-5-9. CL**3
|
||||
00032 CL**3
|
||||
00033 PERFORM S004-FROM-5 THRU S004-EXIT. CL**3
|
||||
00034 CL**3
|
||||
00035 ADD +1 TO L004-ABS-QTR. CL**3
|
||||
00036 CL**3
|
||||
00037 PERFORM S004-FROM-ABS THRU S004-EXIT. CL**3
|
||||
00038 CL**3
|
||||
00039 IF L004-QTR-5-9 = WRK-PARM-SUBJECT-YRQ CL**3
|
||||
00040 NEXT SENTENCE CL**3
|
||||
00041 ELSE CL**3
|
||||
00042 MOVE CL**3
|
||||
00043 'PARM-SUBJECT-YRQ NOT COMPATIBLE WITH LAST-UC30-DEL-MAIL-YRQ' CL**3
|
||||
00044 TO ABEND-MSG CL**3
|
||||
00045 PERFORM S999-ABEND THRU S999-EXIT. CL**3
|
||||
00046 OJRPE417
|
||||
00047 OJRPE417
|
||||
00048 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. OJRPE417
|
||||
00049 OJRPE417
|
||||
00050 PERFORM S004-FROM-5 THRU S004-EXIT. OJRPE417
|
||||
00051 OJRPE417
|
||||
00052 MOVE L004-QTR-DEFAULT-DUE-DATE OJRPE417
|
||||
00053 TO WRK-SUBJECT-YRQ-DEF-DUE-DATE. OJRPE417
|
||||
00054 OJRPE417
|
||||
00055 MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR. OJRPE417
|
||||
00056 I1100-EXIT. OJRPE417
|
||||
00057 EXIT. OJRPE417
|
||||
00058 SKIP3 OJRPE417
|
||||
00059 I1200-RETURN-BY-DATE. OJRPE417
|
||||
00060 IF OJR-PARM-RETURN-BY-DATE = SPACES OJRPE417
|
||||
00061 MOVE WRK-UC30-FIRST-DEL-MAIL-DATE TO L001-FED-8-DATE-9 OJRPE417
|
||||
00062 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE417
|
||||
00063 ADD +10 TO L001-JUL-ABS-DAY OJRPE417
|
||||
00064 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE417
|
||||
00065 MOVE L001-FED-8-DATE-9 TO WRK-PARM-RETURN-BY-DATE OJRPE417
|
||||
00066 ELSE OJRPE417
|
||||
00067 MOVE OJR-PARM-RETURN-BY-DATE TO L001-CAL-6-DATE-X OJRPE417
|
||||
00068 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE417
|
||||
00069 IF L001-INVALID-DATE OJRPE417
|
||||
00070 MOVE 'INVALID PARM-RETURN-BY-DATE ENCOUNTERED' OJRPE417
|
||||
00071 TO ABEND-MSG OJRPE417
|
||||
00072 PERFORM S999-ABEND THRU S999-EXIT OJRPE417
|
||||
00073 ELSE OJRPE417
|
||||
00074 IF L001-FED-8-DATE-9 > WRK-UC30-FIRST-DEL-MAIL-DATE OJRPE417
|
||||
00075 MOVE L001-FED-8-DATE-9 TO WRK-PARM-RETURN-BY-DATEOJRPE417
|
||||
00076 ELSE OJRPE417
|
||||
00077 MOVE 'PARM-RETURN-BY-DATE NOT > MAIL DATE' OJRPE417
|
||||
00078 TO ABEND-MSG OJRPE417
|
||||
00079 PERFORM S999-ABEND THRU S999-EXIT. OJRPE417
|
||||
00080 I1200-EXIT. OJRPE417
|
||||
00081 EXIT. OJRPE417
|
||||
00082 SKIP3 OJRPE417
|
||||
00083 I2000-FIRST-PURSUED-RPT-YRQ. OJRPE417
|
||||
00084 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. OJRPE417
|
||||
00085 OJRPE417
|
||||
00086 PERFORM S004-FROM-5 THRU S004-EXIT. OJRPE417
|
||||
00087 OJRPE417
|
||||
00088 SUBTRACT 19 FROM L004-ABS-QTR. OJRPE417
|
||||
00089 OJRPE417
|
||||
00090 PERFORM S004-FROM-ABS THRU S004-EXIT. OJRPE417
|
||||
00091 OJRPE417
|
||||
00092 MOVE L004-QTR-5-9 TO WRK-FIRST-PURSUED-RPT-YRQ. OJRPE417
|
||||
00093 OJRPE417
|
||||
00094 IF L004-QTR-5-9 > LECM-PICKUP-YRQ OJRPE417
|
||||
00095 NEXT SENTENCE OJRPE417
|
||||
00096 ELSE OJRPE417
|
||||
00097 MOVE OJRPE417
|
||||
00098 'WRK-FIRST-PURSUED-RPT-YRQ <= LECM-PICKYP-YRQ' OJRPE417
|
||||
00099 TO ABEND-MSG OJRPE417
|
||||
00100 PERFORM S999-ABEND THRU S999-EXIT. OJRPE417
|
||||
00101 I2000-EXIT. OJRPE417
|
||||
00102 EXIT. OJRPE417
|
||||
Reference in New Issue
Block a user