RE: Exit program from procedure?

If you are running your program in its own Activation Group, you can call
CEETREC and it will do what you want. If it is NOT in its own A/G, then you
have more work to do.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of M.Effenberg@xxxxxxxxxxxx
Sent: Friday, November 05, 2004 5:53 AM
To: RPG programming on the AS400 / iSeries
Subject: Exit program from procedure?


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


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.