Re: Custom MONTITOR handling

[rob@xxxxxxxxx]

Two things.

1)  You can't.  Very recent discussion
2)  Even if you could you'd want to switch these three lines:
  openBalance = getOpenBalance( myCustNo );
  monitor:
    on-error ????;
becomes:
  monitor:
  openBalance = getOpenBalance( myCustNo );
    on-error ????;
3)  It should be a semicolon, not a colon after monitor.  Ask Cozzi.  :-) 
Why Cozzi requested the semicolon we'll never know.
4)  Spelling on the operation in the subject line may help further 
searches.

Hope I didn't come off as too an*l today.

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




E Doc <doc6502@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/17/2003 11:57 AM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     rpg400-l@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        Custom MONTITOR handling


Is it possible to "throw" custom messages from a subprocedure?

That is, I have a program called ShowCust.  It has a bit of code which 
looks
like this:

/Free
  openBalance = getOpenBalance( myCustNo );
  monitor:
    on-error ????;
      // handle customer not found
    on-error;
      // handle other errors
  end-mon;
/End-Free

getOpenBalance() is another procedure that accesses a file via SQL, and
calculates the current open balance.  I'd like it if it could throw an
exception message if the customer isn't found, the customer number is 
invalid,
etc.

Any ideas?

Thanks

-Doc

__________________________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo
http://search.yahoo.com
_______________________________________________
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.cgi/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.