Consider a table named "pmac" in the data base.
Fields: (1) Project Code
(2) PNO
(3) Status
A project may have many PNOs.
Consider Project A has two PNOs 1 & 2.
we have to validate project through procedure library VALIDATE-PROJECT-MASTER.
Fields: (1) Project Code
(2) PNO
(3) Status
A project may have many PNOs.
Consider Project A has two PNOs 1 & 2.
we have to validate project through procedure library VALIDATE-PROJECT-MASTER.
run
VALIDATE-PROJECT-MASTER in THIS-PROCEDURE
(
input fb_pmac.pmkey,
input fb_pmac.pm-code,
input "pm-status":U,
input true,
output vl_Error,
output vl_ErrMsg,
output vl_ErrType,
output vl_Return).
if vl_Error
or entry(1, vl_Return) lt "7":U
input fb_pmac.pm-code,
input "pm-status":U,
input true,
output vl_Error,
output vl_ErrMsg,
output vl_ErrType,
output vl_Return).
if vl_Error
or entry(1, vl_Return) lt "7":U
or entry(1, vl_Return) gt "k":U then
next.
In this code if the status of Project A(for PNO 1) is wrong then it reads next pmac record, which is again Project A for PNO 2.
Is there any statement or function to skip record at this point?
Because again it reads Project A & validates.
We don't want to validate Project A if it has many PNOs.
In this code if the status of Project A(for PNO 1) is wrong then it reads next pmac record, which is again Project A for PNO 2.
Is there any statement or function to skip record at this point?
Because again it reads Project A & validates.
We don't want to validate Project A if it has many PNOs.