00001 I1000-EDIT-AND-DEFAULT-PARMS. 08/02/02 00002 PERFORM I1100-PROCESSED-START-DATE THRU I1100-EXIT. OJRPE607 00003 LV001 00004 PERFORM I1200-PROCESSED-END-DATE THRU I1200-EXIT. OJRPE607 00005 OJRPE607 00006 PERFORM I1300-COMPLETED-START-DATE THRU I1300-EXIT. OJRPE607 00007 OJRPE607 00008 PERFORM I1400-COMPLETED-END-DATE THRU I1400-EXIT. OJRPE607 00009 OJRPE607 00010 MOVE +0 TO WRK-PARM-ASSIGN-TYPE-CNT. OJRPE607 00011 PERFORM I1500-ASSIGN-TYPE THRU I1500-EXIT OJRPE607 00012 VARYING OJR-PARM-ASSIGN-IDX FROM 1 BY 1 OJRPE607 00013 UNTIL OJR-PARM-ASSIGN-IDX > +5. OJRPE607 00014 OJRPE607 00015 MOVE +0 TO WRK-PARM-FLD-REP-ID-CNT. OJRPE607 00016 PERFORM I1600-FLD-REP-ID THRU I1600-EXIT OJRPE607 00017 VARYING OJR-PARM-FLD-REP-IDX FROM 1 BY 1 OJRPE607 00018 UNTIL OJR-PARM-FLD-REP-IDX > +5. OJRPE607 00019 I1000-EXIT. OJRPE607 00020 EXIT. OJRPE607 00021 SKIP3 OJRPE607 00022 I1100-PROCESSED-START-DATE. OJRPE607 00023 IF OJR-PARM-PROCESSED-START-DATE = SPACES OJRPE607 00024 MOVE MHDR-CMPL-MONTH-BEGIN-DATE OJRPE607 00025 TO WRK-PARM-PROCESSED-START-DATE OJRPE607 00026 ELSE OJRPE607 00027 MOVE OJR-PARM-PROCESSED-START-DATE OJRPE607 00028 TO L001-CAL-6-DATE-X OJRPE607 00029 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE607 00030 IF L001-VALID-DATE OJRPE607 00031 MOVE L001-FED-8-DATE-9 OJRPE607 00032 TO WRK-PARM-PROCESSED-START-DATE OJRPE607 00033 ELSE OJRPE607 00034 MOVE 'PARM-PROCESSED-START-DATE NOT VALID' OJRPE607 00035 TO ABEND-MSG OJRPE607 00036 SET WRK-EDIT-FAILED-88 TO TRUE. OJRPE607 00037 I1100-EXIT. OJRPE607 00038 EXIT. OJRPE607 00039 SKIP3 OJRPE607 00040 I1200-PROCESSED-END-DATE. OJRPE607 00041 IF OJR-PARM-PROCESSED-END-DATE = SPACES OJRPE607 00042 MOVE MHDR-CMPL-MONTH-END-DATE OJRPE607 00043 TO WRK-PARM-PROCESSED-END-DATE OJRPE607 00044 ELSE OJRPE607 00045 MOVE OJR-PARM-PROCESSED-END-DATE OJRPE607 00046 TO L001-CAL-6-DATE-X OJRPE607 00047 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE607 00048 IF L001-VALID-DATE OJRPE607 00049 MOVE L001-FED-8-DATE-9 OJRPE607 00050 TO WRK-PARM-PROCESSED-END-DATE OJRPE607 00051 ELSE OJRPE607 00052 MOVE 'PARM-PROCESSED-END-DATE NOT VALID' OJRPE607 00053 TO ABEND-MSG OJRPE607 00054 SET WRK-EDIT-FAILED-88 TO TRUE. OJRPE607 00055 OJRPE607 00056 IF WRK-PARM-PROCESSED-END-DATE OJRPE607 00057 < WRK-PARM-PROCESSED-START-DATE OJRPE607 00058 MOVE OJRPE607 00059 'PARM-PROCESSED-END-DATE LESS THAN PARM-PROCESSED-START-DATE'OJRPE607 00060 TO ABEND-MSG OJRPE607 00061 SET WRK-EDIT-FAILED-88 TO TRUE. OJRPE607 00062 I1200-EXIT. OJRPE607 00063 EXIT. OJRPE607 00064 SKIP3 OJRPE607 00065 I1300-COMPLETED-START-DATE. OJRPE607 00066 IF OJR-PARM-COMPLETED-START-DATE = SPACES OJRPE607 00067 MOVE +0 OJRPE607 00068 TO WRK-PARM-COMPLETED-START-DATE OJRPE607 00069 ELSE OJRPE607 00070 MOVE OJR-PARM-COMPLETED-START-DATE OJRPE607 00071 TO L001-CAL-6-DATE-X OJRPE607 00072 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE607 00073 IF L001-VALID-DATE OJRPE607 00074 MOVE L001-FED-8-DATE-9 OJRPE607 00075 TO WRK-PARM-COMPLETED-START-DATE OJRPE607 00076 ELSE OJRPE607 00077 MOVE 'PARM-COMPLETED-START-DATE NOT VALID' OJRPE607 00078 TO ABEND-MSG OJRPE607 00079 SET WRK-EDIT-FAILED-88 TO TRUE. OJRPE607 00080 I1300-EXIT. OJRPE607 00081 EXIT. OJRPE607 00082 SKIP3 OJRPE607 00083 I1400-COMPLETED-END-DATE. OJRPE607 00084 IF OJR-PARM-COMPLETED-END-DATE = SPACES OJRPE607 00085 MOVE ALL-NINES-DATE OJRPE607 00086 TO WRK-PARM-COMPLETED-END-DATE OJRPE607 00087 ELSE OJRPE607 00088 MOVE OJR-PARM-COMPLETED-END-DATE OJRPE607 00089 TO L001-CAL-6-DATE-X OJRPE607 00090 PERFORM S001-FROM-CAL-6 THRU S001-EXIT OJRPE607 00091 IF L001-VALID-DATE OJRPE607 00092 MOVE L001-FED-8-DATE-9 OJRPE607 00093 TO WRK-PARM-COMPLETED-END-DATE OJRPE607 00094 ELSE OJRPE607 00095 MOVE 'PARM-COMPLETED-END-DATE NOT VALID' OJRPE607 00096 TO ABEND-MSG OJRPE607 00097 SET WRK-EDIT-FAILED-88 TO TRUE. OJRPE607 00098 OJRPE607 00099 IF WRK-PARM-COMPLETED-END-DATE OJRPE607 00100 < WRK-PARM-COMPLETED-START-DATE OJRPE607 00101 MOVE OJRPE607 00102 'PARM-COMPLETED-END-DATE LESS THAN PARM-COMPLETED-START-DATE'OJRPE607 00103 TO ABEND-MSG OJRPE607 00104 SET WRK-EDIT-FAILED-88 TO TRUE. OJRPE607 00105 I1400-EXIT. OJRPE607 00106 EXIT. OJRPE607 00107 SKIP3 OJRPE607 00108 I1500-ASSIGN-TYPE. OJRPE607 00109 IF OJR-PARM-ASSIGN-TYPE (OJR-PARM-ASSIGN-IDX) = SPACES OJRPE607 00110 GO TO I1500-EXIT. OJRPE607 00111 OJRPE607 00112 ADD +1 TO WRK-PARM-ASSIGN-TYPE-CNT. OJRPE607 00113 MOVE OJR-PARM-ASSIGN-TYPE (OJR-PARM-ASSIGN-IDX) OJRPE607 00114 TO WRK-PARM-ASSIGN-TYPE (WRK-PARM-ASSIGN-TYPE-CNT). OJRPE607 00115 I1500-EXIT. OJRPE607 00116 EXIT. OJRPE607 00117 SKIP3 OJRPE607 00118 I1600-FLD-REP-ID. OJRPE607 00119 IF OJR-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX) = SPACES OJRPE607 00120 GO TO I1600-EXIT. OJRPE607 00121 OJRPE607 00122 ADD +1 TO WRK-PARM-FLD-REP-ID-CNT. OJRPE607 00123 MOVE OJR-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX) OJRPE607 00124 TO WRK-PARM-FLD-REP-ID (WRK-PARM-FLD-REP-ID-CNT). OJRPE607 00125 I1600-EXIT. OJRPE607 00126 EXIT. OJRPE607