don't want to re-read the record

[Rajshri]

Hello,


run

VALIDATE-PROJECT-MASTER inTHIS-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
or entry(1, vl_Return) gt"k":U then
next.​

But if there are 2 same pmac record then this code again validates project master for 2nd pmac record.

How we can stop to validate the 2nd pmac record?

​

 

[mjpowellesq]

Greetings,

This would be simple. Just set up a logical logical variable as a flag.
For the first time you read / pass through the record, drop the flag. Initialize the variable as TRUE.
Then put a condition around the code block,
eg.

IF vlFlag = FALSE THEN
DO: /* flag = false */
/* code block here to execute regardless condition checking */
END. /* flag = false */

Good luck

 

[Rajshri]

Did you mean by this code?​

if vlFLAG = False then
do:​

run

VALIDATE-PROJECT-MASTER inTHIS-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
or entry(1, vl_Return) gt"k":Uthen​

end.

​