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