RE: Exit program from procedure?

["Bob Cozzi" <cozzi@xxxxxxxxx>]

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.