Exit program from procedure?

[M.Effenberg@xxxxxxxxxxxx]

Hi there,
I have a small problem with procedures since I'm new to this.

I parse a XML file with Aarons XML functions  and xml4pr400.

When I use SAX, I have the XMLSAX_parseMemory() function, that calls
my eventhandler procedures.

my eventhandler looks atm as follows:
P handler         B
D handler         PI
D  pXPath                      500A   Value
D  pData                     32767A   Value
 /Free

  Select;

  When pXPath = vFehlerCode;
       if pData <> '0';
        *inlr = *on;
        return;
       endif;

  When pXPath = vDesc;
       medesc = pData;

  When pXPath = vDir;
       medire = pData;

  When pXPath = bWegPunkt;
       clear ume24f1;
       MECUSR = %trim(zzuser);
       MEAUSR = %trim(zzuser);
       MEANDA = zzANDA;
       meanze = zzanze;

  EndSl;

  Return;

 /End-Free
P handler         E

The problem lies in the first return.
I want  to exit the whole program when the "FehlerCode" (errorcode) is
anything else than "0".
But return just exits the procedure, and XMLSAX_parseMemory() parses on
without noticing, that there was an error.
On the next SAX event the handler procedure is called again.

so my question is:
Is there any opcode that exits the whole program from within a procedure?

regards
 Martin