Re: [EXTERNAL] RPG Monitor, but for COBOL

that is for calls only...

if you look back at my example (and understand it), the monitor "monitors"
ANY exception that occurs in the process() routine.

jay

On Fri, May 31, 2019 at 8:20 AM Alan Shore via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

With that being said - I believe that web page does give you an example

If you page down and click on

Handling Exceptions on the CALL Statement

It gives this as an example on that web page

CALL "REPORTA"
IN LIBRARY "MYLIB"
ON EXCEPTION
DISPLAY "Program REPORTA not available."
END-CALL

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill


-----Original Message-----
From: Alan Shore
Sent: Friday, May 31, 2019 8:17 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] RPG Monitor, but for COBOL

Oh Geeze - didn’t even realize that
You will have to forgive me - I haven’t had my 14th cup of coffee yet

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
Jay Vaughn
Sent: Friday, May 31, 2019 8:14 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: [EXTERNAL] RPG Monitor, but for COBOL

thanks Alan - same link i shared.

hoping for a working example if possible

Jay


On Fri, May 31, 2019 at 8:11 AM Alan Shore via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Hi Jay
Its been WAY too many decades since I last wrote any COBOL However,
this web page might be of help


https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzase/errh
nd.htm


Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf
Of Jay Vaughn
Sent: Friday, May 31, 2019 8:07 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <
rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] RPG Monitor, but for COBOL

I know this is the RPG list but hoping there are some RPG'rs with some
COBOL knowledge as well (I'm sure there are)

I'm simply looking for a MONITOR equivalent for COBOL.

In some of our rpg pgms we do the following in the mainline...

monitor;
process();
on-error;
dump(a);
send DumpEmail();
endpgm();
endmon;

I simply want to implement the same mainline monitoring strategy in
COBOL but not sure if the capability exists.
Can anyone advise?

Couldn't find much of use via Google.
This link is probably about the best reference... but hoping of a
working example if anyone has done something similar before?

https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzase/errh
nd.htm

tia

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com