00001 I1000-EDIT-AND-DEFAULT-PARMS. 08/02/02 00002 IF (OJR-PARM-START-ZIP-CODE > SPACES OR OJRPE611 00003 OJR-PARM-END-ZIP-CODE > SPACES) LV001 00004 AND OJR-PARM-STATE-CODE > SPACES OJRPE611 00005 MOVE 'SELECTION BY BOTH STATE AND ZIP NOT APPLICABLE' OJRPE611 00006 TO ABEND-MSG OJRPE611 00007 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE611 00008 OJRPE611 00009 ELSE OJRPE611 00010 IF OJR-PARM-STATE-CODE > SPACES OJRPE611 00011 PERFORM I1300-SEND-ST-CODE OJRPE611 00012 THRU I1300-EXIT OJRPE611 00013 ELSE OJRPE611 00014 PERFORM I1100-START-ZIP-CODE OJRPE611 00015 THRU I1100-EXIT OJRPE611 00016 PERFORM I1200-END-ZIP-CODE OJRPE611 00017 THRU I1200-EXIT. OJRPE611 00018 OJRPE611 00019 I1000-EXIT. OJRPE611 00020 EXIT. OJRPE611 00021 OJRPE611 00022 I1100-START-ZIP-CODE. OJRPE611 00023 IF OJR-PARM-START-ZIP-CODE = SPACES OJRPE611 00024 MOVE '20000' TO WRK-PARM-START-ZIP-CODE OJRPE611 00025 ELSE OJRPE611 00026 MOVE OJR-PARM-START-ZIP-CODE OJRPE611 00027 TO WRK-PARM-START-ZIP-CODE. OJRPE611 00028 I1100-EXIT. OJRPE611 00029 EXIT. OJRPE611 00030 OJRPE611 00031 I1200-END-ZIP-CODE. OJRPE611 00032 IF OJR-PARM-END-ZIP-CODE = SPACES OJRPE611 00033 MOVE '29999' TO WRK-PARM-END-ZIP-CODE OJRPE611 00034 ELSE OJRPE611 00035 SET WRK-PARM-ZIP-IND-88 TO TRUE OJRPE611 00036 MOVE OJR-PARM-END-ZIP-CODE OJRPE611 00037 TO WRK-PARM-END-ZIP-CODE. OJRPE611 00038 OJRPE611 00039 IF WRK-PARM-END-ZIP-CODE < WRK-PARM-START-ZIP-CODE OJRPE611 00040 MOVE 'PARM-END-ZIP-CODE IS LESS THAN PARM-START-ZIP-CODE'OJRPE611 00041 TO ABEND-MSG OJRPE611 00042 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE611 00043 END-IF. OJRPE611 00044 I1200-EXIT. OJRPE611 00045 EXIT. OJRPE611 00046 I1300-SEND-ST-CODE. OJRPE611 00047 IF OJR-PARM-STATE-CODE NOT ALPHABETIC OJRPE611 00048 MOVE 'PARM-STATE-CODE IS NOT VALID ' OJRPE611 00049 TO ABEND-MSG OJRPE611 00050 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE611 00051 ELSE OJRPE611 00052 SET WRK-PARM-ST-IND-88 TO TRUE OJRPE611 00053 MOVE OJR-PARM-STATE-CODE OJRPE611 00054 TO WRK-PARM-STATE-CODE. OJRPE611 00055 I1300-EXIT. OJRPE611 00056 EXIT. OJRPE611