57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
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
|