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

78
Copybook/OJRPE306.cpy Normal file
View File

@ -0,0 +1,78 @@
00001 ************************************************************** 08/02/02
00002 * THIS PARAGRAPH CONTROLS THE EDITING OF THE PARMS FOR THE 306 OJRPE306
00003 ************************************************************** LV001
00004 OJRPE306
00005 I1000-EDIT-AND-DEFAULT-PARMS. OJRPE306
00006 OJRPE306
00007 PERFORM I1100-PERIOD-START-DATE THRU I1100-EXIT OJRPE306
00008 OJRPE306
00009 IF WRK-EDIT-PASSED-88 OJRPE306
00010 PERFORM I1200-PERIOD-END-DATE THRU I1200-EXIT OJRPE306
00011 END-IF. OJRPE306
00012 OJRPE306
00013 I1000-EXIT. OJRPE306
00014 EXIT. OJRPE306
00015 EJECT OJRPE306
00016 ************************************************************** OJRPE306
00017 * THIS PARAGRAPH EDITS THE PERIOD START DATE. OJRPE306
00018 ************************************************************** OJRPE306
00019 OJRPE306
00020 I1100-PERIOD-START-DATE. OJRPE306
00021 OJRPE306
00022 IF OJR-PARM-PERIOD-START-DATE = SPACES OJRPE306
00023 IF OJR-PERIOD-START-DATE > +0 OJRPE306
00024 MOVE OJR-PERIOD-START-DATE OJRPE306
00025 TO WRK-PARM-PERIOD-START-DATE OJRPE306
00026 ELSE OJRPE306
00027 MOVE 'PERIOD-START-DATE MISSING' OJRPE306
00028 TO ABEND-MSG OJRPE306
00029 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306
00030 END-IF OJRPE306
00031 ELSE OJRPE306
00032 MOVE OJR-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X OJRPE306
00033 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE306
00034 IF L001-VALID-DATE OJRPE306
00035 MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-START-DATE OJRPE306
00036 ELSE OJRPE306
00037 MOVE 'PERIOD-START-DATE NOT VALID' OJRPE306
00038 TO ABEND-MSG OJRPE306
00039 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306
00040 END-IF OJRPE306
00041 END-IF. OJRPE306
00042 I1100-EXIT. OJRPE306
00043 EXIT. OJRPE306
00044 EJECT OJRPE306
00045 ************************************************************** OJRPE306
00046 * THIS PARAGRAPH EDITS THE PERIOD END DATE. OJRPE306
00047 ************************************************************** OJRPE306
00048 OJRPE306
00049 I1200-PERIOD-END-DATE. OJRPE306
00050 OJRPE306
00051 IF OJR-PARM-PERIOD-END-DATE = SPACES OJRPE306
00052 IF OJR-PERIOD-END-DATE > +0 OJRPE306
00053 MOVE OJR-PERIOD-END-DATE OJRPE306
00054 TO WRK-PARM-PERIOD-END-DATE OJRPE306
00055 ELSE OJRPE306
00056 MOVE 'PERIOD-END-DATE MISSING' OJRPE306
00057 TO ABEND-MSG OJRPE306
00058 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306
00059 END-IF OJRPE306
00060 ELSE OJRPE306
00061 MOVE OJR-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X OJRPE306
00062 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE306
00063 IF L001-VALID-DATE OJRPE306
00064 MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-END-DATE OJRPE306
00065 ELSE OJRPE306
00066 MOVE 'PERIOD-END-DATE NOT VALID' OJRPE306
00067 TO ABEND-MSG OJRPE306
00068 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306
00069 END-IF OJRPE306
00070 END-IF OJRPE306
00071 OJRPE306
00072 IF WRK-PARM-PERIOD-START-DATE > WRK-PARM-PERIOD-END-DATE OJRPE306
00073 MOVE 'PERIOD START DATE IS GREATER THAN PERIOD END DATE' OJRPE306
00074 TO ABEND-MSG OJRPE306
00075 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE306
00076 END-IF. OJRPE306
00077 I1200-EXIT. OJRPE306
00078 EXIT. OJRPE306