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

49
Copybook/OJRPE426.cpy Normal file
View File

@ -0,0 +1,49 @@
00001 I1000-EDIT-AND-DEFAULT-PARMS. 08/02/02
00002 PERFORM I1100-AR-ASSIGN-TYPE-1 THRU I1100-EXIT OJRPE426
00003 LV001
00004 PERFORM I1200-AR-ASSIGN-TYPE-2 THRU I1200-EXIT OJRPE426
00005 OJRPE426
00006 PERFORM I1300-AR-ASSIGN-TYPE-3 THRU I1300-EXIT OJRPE426
00007 OJRPE426
00008 PERFORM I1400-INTEREST-COMP-DATE THRU I1400-EXIT. OJRPE426
00009 I1000-EXIT. OJRPE426
00010 EXIT. OJRPE426
00011 OJRPE426
00012 I1100-AR-ASSIGN-TYPE-1. OJRPE426
00013 IF OJR-PARM-AR-ASSIGN-TYPE-1 = SPACES OJRPE426
00014 MOVE ' ' TO WRK-PARM-AR-ASSIGN-TYPE-1 OJRPE426
00015 ELSE OJRPE426
00016 MOVE OJR-PARM-AR-ASSIGN-TYPE-1 OJRPE426
00017 TO WRK-PARM-AR-ASSIGN-TYPE-1 OJRPE426
00018 END-IF. OJRPE426
00019 I1100-EXIT. OJRPE426
00020 EXIT. OJRPE426
00021 OJRPE426
00022 I1200-AR-ASSIGN-TYPE-2. OJRPE426
00023 MOVE OJR-PARM-AR-ASSIGN-TYPE-2 OJRPE426
00024 TO WRK-PARM-AR-ASSIGN-TYPE-2. OJRPE426
00025 I1200-EXIT. OJRPE426
00026 EXIT. OJRPE426
00027 OJRPE426
00028 I1300-AR-ASSIGN-TYPE-3. OJRPE426
00029 MOVE OJR-PARM-AR-ASSIGN-TYPE-3 OJRPE426
00030 TO WRK-PARM-AR-ASSIGN-TYPE-3. OJRPE426
00031 I1300-EXIT. OJRPE426
00032 EXIT. OJRPE426
00033 OJRPE426
00034 I1400-INTEREST-COMP-DATE. OJRPE426
00035 IF OJR-PARM-INTEREST-COMP-DATE = SPACES OJRPE426
00036 MOVE OJR-CURR-RUN-DATE TO WRK-PARM-INT-COMP-DATE OJRPE426
00037 ELSE OJRPE426
00038 MOVE OJR-PARM-INTEREST-COMP-DATE TO L001-CAL-6-DATE-X OJRPE426
00039 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE426
00040 IF L001-VALID-DATE OJRPE426
00041 MOVE L001-FED-8-DATE-9 TO WRK-PARM-INT-COMP-DATE OJRPE426
00042 ELSE OJRPE426
00043 MOVE 'PARM-INTEREST-COM-DATE NOT VALID' OJRPE426
00044 TO ABEND-MSG OJRPE426
00045 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE426
00046 END-IF OJRPE426
00047 END-IF. OJRPE426
00048 I1400-EXIT. OJRPE426
00049 EXIT. OJRPE426