I'm fairly new to RPG programming. I have a program that I've written in RPG Free. Below is a snippet of the code:
/FREE
READ RSALTR;
DOW NOT %EOF;
IF DELET <>'D';
IF ROUTE = ROUTENUM1;
OREQ ROUTE ROUTENUM2;
OREQ ROUTE ROUTENUM3;
CHAIN IDB RSBLCK;
RS1 = 0;
RS2 = 0;
RS3 = 0;
RS4 = 0;
RS5 = 0;
EXCEPT UPBLCK;
CHAIN IDB RSBLCK;
The problem I'm having is with the OREQ Statements. I know I've have the syntax incorrect. Could someone show me how I should modify the code above that If ROUTE = RouteNum1 or RouteNum2 or RouteNum3 then perform some calcs.
Hope that makes sense.
Thanks in advance for any and all help.
/FREE
READ RSALTR;
DOW NOT %EOF;
IF DELET <>'D';
IF ROUTE = ROUTENUM1;
OREQ ROUTE ROUTENUM2;
OREQ ROUTE ROUTENUM3;
CHAIN IDB RSBLCK;
RS1 = 0;
RS2 = 0;
RS3 = 0;
RS4 = 0;
RS5 = 0;
EXCEPT UPBLCK;
CHAIN IDB RSBLCK;
The problem I'm having is with the OREQ Statements. I know I've have the syntax incorrect. Could someone show me how I should modify the code above that If ROUTE = RouteNum1 or RouteNum2 or RouteNum3 then perform some calcs.
Hope that makes sense.
Thanks in advance for any and all help.