Re: Exiting a sub procedure

[nicolas <nfaucheux@xxxxxxxxxxx>]

Hi,

it's maybe some kind of obfuscation
but you could code something like this

if Control()
    and Extract()
    and Calculate()
    and Output()
      return *on
else
      dosomething()
      return *off
endif

nicolas

> RtnVar = *ON
> IF NOT Control ()
>    RtnVar = *OFF
>
> ELSEIF NOT Extract ()
>    RtnVar = *OFF
>
> ELSEIF NOT Calculate ()
>    RtnVar = *OFF
>
> ELSEIF NOT Output ()
>    RtnVar = *OFF
>
> ENDIF
>
> RETURN RtnVar