91 lines
7.1 KiB
COBOL
91 lines
7.1 KiB
COBOL
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
|