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

88
Copybook/OJRPE418.cpy Normal file
View File

@ -0,0 +1,88 @@
00001 I1000-EDIT-AND-DEFAULT-PARMS. 08/14/13
00002 MOVE LECM-CURR-RUN-DATE TO WRK-UC30-FIRST-DEL-CUTOFF-DATE OJRPE418
00003 WRK-UC30-FIRST-DEL-MAIL-DATE. LV002
00004 OJRPE418
00005 OJRPE418
00006 PERFORM I1100-SUBJECT-YRQ THRU I1100-EXIT. OJRPE418
00007 OJRPE418
00008 OJRPE418
00009 PERFORM I1200-RETURN-BY-DATE THRU I1200-EXIT. OJRPE418
00010 I1000-EXIT. OJRPE418
00011 EXIT. OJRPE418
00012 SKIP3 OJRPE418
00013 I1100-SUBJECT-YRQ. OJRPE418
00014 DISPLAY 'OJR P1100 PARM ' OJR-PARM-SUBJECT-YRQ. OJRPE418
00015 IF OJR-PARM-SUBJECT-YRQ = SPACES OJRPE418
00016 MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO L004-QTR-5-9 OJRPE418
00017 PERFORM S004-FROM-5 THRU S004-EXIT OJRPE418
00018 * ADD +1 TO L004-ABS-QTR CL**2
00019 * PERFORM S004-FROM-ABS THRU S004-EXIT CL**2
00020 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ OJRPE418
00021 DISPLAY 'LECM DELQ MAIL ' LECM-LAST-UC30-DEL-MAIL-YRQ OJRPE418
00022 DISPLAY 'OJR DEFAULT QTR ' WRK-PARM-SUBJECT-YRQ OJRPE418
00023 ELSE OJRPE418
00024 MOVE OJR-PARM-SUBJECT-YRQ TO L004-QTR-3-X OJRPE418
00025 PERFORM S004-FROM-3 THRU S004-EXIT OJRPE418
00026 IF L004-VALID-QTR OJRPE418
00027 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ OJRPE418
00028 ELSE OJRPE418
00029 MOVE 'PARM-SUBJECT-YRQ NOT VALID' OJRPE418
00030 TO ABEND-MSG OJRPE418
00031 PERFORM S999-ABEND THRU S999-EXIT. OJRPE418
00032 OJRPE418
00033 OJRPE418
00034 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. OJRPE418
00035 OJRPE418
00036 PERFORM S004-FROM-5 THRU S004-EXIT. OJRPE418
00037 OJRPE418
00038 MOVE L004-QTR-DEFAULT-DUE-DATE OJRPE418
00039 TO WRK-SUBJECT-YRQ-DEF-DUE-DATE. OJRPE418
00040 OJRPE418
00041 MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR. OJRPE418
00042 I1100-EXIT. OJRPE418
00043 EXIT. OJRPE418
00044 SKIP3 OJRPE418
00045 I1200-RETURN-BY-DATE. OJRPE418
00046 IF OJR-PARM-RETURN-BY-DATE = SPACES OJRPE418
00047 MOVE WRK-UC30-FIRST-DEL-MAIL-DATE TO L001-FED-8-DATE-9 OJRPE418
00048 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE418
00049 ADD +10 TO L001-JUL-ABS-DAY OJRPE418
00050 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE418
00051 MOVE L001-FED-8-DATE-9 TO WRK-PARM-RETURN-BY-DATE OJRPE418
00052 ELSE OJRPE418
00053 MOVE OJR-PARM-RETURN-BY-DATE TO L001-CAL-6-DATE-X OJRPE418
00054 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE418
00055 IF L001-INVALID-DATE OJRPE418
00056 MOVE 'INVALID PARM-RETURN-BY-DATE ENCOUNTERED' OJRPE418
00057 TO ABEND-MSG OJRPE418
00058 PERFORM S999-ABEND THRU S999-EXIT OJRPE418
00059 ELSE OJRPE418
00060 IF L001-FED-8-DATE-9 > WRK-UC30-FIRST-DEL-MAIL-DATE OJRPE418
00061 MOVE L001-FED-8-DATE-9 TO WRK-PARM-RETURN-BY-DATEOJRPE418
00062 ELSE OJRPE418
00063 MOVE 'PARM-RETURN-BY-DATE NOT > MAIL DATE' OJRPE418
00064 TO ABEND-MSG OJRPE418
00065 PERFORM S999-ABEND THRU S999-EXIT. OJRPE418
00066 I1200-EXIT. OJRPE418
00067 EXIT. OJRPE418
00068 SKIP3 OJRPE418
00069 I2000-FIRST-PURSUED-RPT-YRQ. OJRPE418
00070 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. OJRPE418
00071 OJRPE418
00072 PERFORM S004-FROM-5 THRU S004-EXIT. OJRPE418
00073 OJRPE418
00074 SUBTRACT 19 FROM L004-ABS-QTR. OJRPE418
00075 OJRPE418
00076 PERFORM S004-FROM-ABS THRU S004-EXIT. OJRPE418
00077 OJRPE418
00078 MOVE L004-QTR-5-9 TO WRK-FIRST-PURSUED-RPT-YRQ. OJRPE418
00079 OJRPE418
00080 IF L004-QTR-5-9 > LECM-PICKUP-YRQ OJRPE418
00081 NEXT SENTENCE OJRPE418
00082 ELSE OJRPE418
00083 MOVE OJRPE418
00084 'WRK-FIRST-PURSUED-RPT-YRQ <= LECM-PICKYP-YRQ' OJRPE418
00085 TO ABEND-MSG OJRPE418
00086 PERFORM S999-ABEND THRU S999-EXIT. OJRPE418
00087 I2000-EXIT. OJRPE418
00088 EXIT. OJRPE418