Re: Catch Java exceptions in RPG

This is an example but you will receive some other suggestions.
pACTION tells what to do in case of errors: continue or resend as escape

Monitor;
  .....
  fileName = createString(XLSFile);
  .....
On-error *PROGRAM;
  QMHRCVPM (rcv0100:%len(rcv0100):'RCVM0200':'*':0:'*ESCAPE':
            ' ':0:'*SAME':ApiError);
  If pACTION = '*ESCAPE';
    msgfile   = %subst(rcv0100:26:20);
    ApiErrMsg = %subst(rcv0100:13:7);
    %subst(RcvPgmMsg:1:4) = %subst(rcv0100:153:4);
    rcv0100 = %subst(rcv0100:177:msgbytes);
    QMHSNDPM (ApiErrMsg:msgfile:rcv0100:msgbytes:
           '*ESCAPE':'*CTLBDY':1:msgkey:apierror);
  else;
    *inlr = *on;
    return;
  EndIf;
Endmon;

----- Original Message ----- 
From: "venkatreddy puram" <purumvenkat@xxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Wednesday, July 13, 2005 1:22 AM
Subject: Catch Java exceptions in RPG


> Hi Everyone,
>           Good afternoon, I would like to know if anybody could help me or
> point me to direction of How to catch/Monitor exceptions thrown by java
when
> RPGLE calls java methods/class. It would be of great help if you could
help
> me with a sample code or point me in that direction.
>
> Thank You
>
> REDDY
>
>
> -- 
> 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.
>