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

90
Copybook/OJRPE429.cpy Normal file
View File

@ -0,0 +1,90 @@
00001 I1000-EDIT-AND-DEFAULT-PARMS. 08/02/02
00002 PERFORM I1100-MIN-DUE-AMT THRU I1100-EXIT OJRPE429
00003 LV001
00004 IF WRK-EDIT-PASSED-88 OJRPE429
00005 PERFORM I1200-AR-ASSIGN-TYPE-1 THRU I1200-EXIT OJRPE429
00006 OJRPE429
00007 PERFORM I1300-AR-ASSIGN-TYPE-2 THRU I1300-EXIT OJRPE429
00008 OJRPE429
00009 PERFORM I1400-AR-ASSIGN-TYPE-3 THRU I1400-EXIT OJRPE429
00010 OJRPE429
00011 PERFORM I1500-FLD-REP-ID-1 THRU I1500-EXIT OJRPE429
00012 OJRPE429
00013 PERFORM I1600-FLD-REP-ID-2 THRU I1600-EXIT OJRPE429
00014 OJRPE429
00015 PERFORM I1700-TAX-DUE-CUTOFF-DT THRU I1700-EXIT OJRPE429
00016 END-IF. OJRPE429
00017 I1000-EXIT. OJRPE429
00018 EXIT. OJRPE429
00019 OJRPE429
00020 I1100-MIN-DUE-AMT. OJRPE429
00021 IF OJR-PARM-MIN-DUE-AMT = SPACES OJRPE429
00022 MOVE 1500.00 TO WRK-PARM-MIN-DUE-AMT OJRPE429
00023 ELSE OJRPE429
00024 IF OJR-PARM-MIN-DUE-AMT NUMERIC OJRPE429
00025 MOVE OJR-PARM-MIN-DUE-AMT-9 OJRPE429
00026 TO WRK-PARM-MIN-DUE-AMT OJRPE429
00027 ELSE OJRPE429
00028 MOVE 'PARM-MIN-DUE-AMT MUST BE FOUR DIGITS' OJRPE429
00029 TO ABEND-MSG OJRPE429
00030 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE429
00031 END-IF OJRPE429
00032 END-IF. OJRPE429
00033 I1100-EXIT. OJRPE429
00034 EXIT. OJRPE429
00035 SKIP3 OJRPE429
00036 I1200-AR-ASSIGN-TYPE-1. OJRPE429
00037 IF OJR-PARM-AR-ASSIGN-TYPE-1 = SPACES OJRPE429
00038 MOVE ' ' TO WRK-PARM-AR-ASSIGN-TYPE-1 OJRPE429
00039 ELSE OJRPE429
00040 MOVE OJR-PARM-AR-ASSIGN-TYPE-1 OJRPE429
00041 TO WRK-PARM-AR-ASSIGN-TYPE-1 OJRPE429
00042 END-IF. OJRPE429
00043 I1200-EXIT. OJRPE429
00044 EXIT. OJRPE429
00045 SKIP3 OJRPE429
00046 I1300-AR-ASSIGN-TYPE-2. OJRPE429
00047 MOVE OJR-PARM-AR-ASSIGN-TYPE-2 OJRPE429
00048 TO WRK-PARM-AR-ASSIGN-TYPE-2. OJRPE429
00049 I1300-EXIT. OJRPE429
00050 EXIT. OJRPE429
00051 SKIP3 OJRPE429
00052 I1400-AR-ASSIGN-TYPE-3. OJRPE429
00053 MOVE OJR-PARM-AR-ASSIGN-TYPE-3 OJRPE429
00054 TO WRK-PARM-AR-ASSIGN-TYPE-3. OJRPE429
00055 I1400-EXIT. OJRPE429
00056 EXIT. OJRPE429
00057 SKIP3 OJRPE429
00058 I1500-FLD-REP-ID-1. OJRPE429
00059 MOVE OJR-PARM-FLD-REP-ID-1 OJRPE429
00060 TO WRK-PARM-FLD-REP-ID-1. OJRPE429
00061 I1500-EXIT. OJRPE429
00062 EXIT. OJRPE429
00063 SKIP3 OJRPE429
00064 I1600-FLD-REP-ID-2. OJRPE429
00065 MOVE OJR-PARM-FLD-REP-ID-2 OJRPE429
00066 TO WRK-PARM-FLD-REP-ID-2. OJRPE429
00067 I1600-EXIT. OJRPE429
00068 EXIT. OJRPE429
00069 EJECT OJRPE429
00070 I1700-TAX-DUE-CUTOFF-DT. OJRPE429
00071 IF OJR-PARM-TAX-DUE-CUTOFF-DT = SPACE OJRPE429
00072 MOVE OJR-PRIOR-RUN-DATE TO L001-FED-8-DATE-9 OJRPE429
00073 PERFORM S001-FROM-FED-8 THRU S001-EXIT OJRPE429
00074 SUBTRACT 60 FROM L001-JUL-ABS-DAY OJRPE429
00075 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT OJRPE429
00076 MOVE L001-FED-8-DATE-9 TO WRK-PARM-TAX-DUE-CUTOFF-DT OJRPE429
00077 ELSE OJRPE429
00078 MOVE OJR-PARM-TAX-DUE-CUTOFF-DT TO L001-CAL-6-DATE-X OJRPE429
00079 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE429
00080 IF L001-VALID-DATE OJRPE429
00081 MOVE L001-FED-8-DATE-9 TO WRK-PARM-TAX-DUE-CUTOFF-DT OJRPE429
00082 ELSE OJRPE429
00083 MOVE 'TAX-DUE-CUTOFF-DATE NOT VALID' OJRPE429
00084 TO ABEND-MSG OJRPE429
00085 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE429
00086 END-IF OJRPE429
00087 END-IF. OJRPE429
00088 I1700-EXIT. OJRPE429
00089 EXIT. OJRPE429
00090 EJECT OJRPE429