>I need to return to know if a calling program failed. The current syntax is
>

>DO pgmname with parm1 , parm2
>

>I think I need
>

>DO pgmname with parm1 , parm2 , parm3
>

>where parm3 is going to be .F. if called program failed. I could the code something like
>

>IF !parm3
>    return  parm3
>ENDIF
>

>calling program already displays a message and uses the code
>

>RETURN .F.
>

>What I cannot remember is how to assign a value to parm3,
>
>TIA

? pgmname(parm1 , parm2)
** And in pgmname RETURN .f. if failed, .t. if everything is OK

Other way:

param3 = .t.
DO pgmname with parm1 , parm2
? param3
*** In pgmname just put: param3 = .f. when program failed

Other way:

LOCAL param3

param3 = .t.
DO pgmname with parm1 , parm2, @param3
? param3
*** In pgmname just put: param3 = .f. when program failed