Re: Exiting a sub procedure

Vern,

I'm with you 100% on this. I'd say keep it as separate IF/ENDIF clauses,
with error checking at every stage. *Much* easier to debug and the extra
code is self-documenting. To expand my earlier example:

D AllWorksFine C '1'
D Oops C '0'

if not Control();
dsply 'Control failure!';
exsr error;
endif;
if not Extract();
dsply 'Extract failure!';
exsr error;
endif;
...

Return AllWorksFine;

begsr error;
...error processing...
return Oops;
endsr;