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