Re: qsnddtaq monitoring

["Peter Dow" <pcdow@xxxxxxxxx>]

What is the message id for the 3rd message? Simon Coulter pointed out to me
that CPYF has the same generalized error message, but the message data
happens to be the message id of the 1st diagnostic message. Do a WRKMSGD on
the message id and check the field data to see if it has a 7-byte field - if
so, it's may be the 1st diagnostic message, if you're lucky.

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: Rob Berendt <rob@dekko.com>
To: <MIDRANGE-L@midrange.com>
Sent: Monday, February 28, 2000 8:30 AM
Subject: Re: qsnddtaq monitoring


> This will probably work.  Thank you.  I already had the /COPY in there for
the
> program status data structure.  The only beef now is that IBM sticks a
'cute'
> message after the meat message.  For example, out of the following three
messages
> I get the last one:
> Remote location PODUNK for program device DDMDEVICE was not found.
> Cannot establish DDM connection with remote system.
> Operation on DDM data queue EXCLEIACT in LYLDIVF failed.
> I know I can do some additional programming, but I'd really rather have
the first
> one given to me.  This probably qualifies as whining.
>
>
>
>
>
> pcdow@yahoo.com on 02/25/2000 05:12:32 PM
> Please respond to MIDRANGE-L@midrange.com@Internet
> To: MIDRANGE-L@midrange.com@Internet
> cc:
> Fax to:
> Subject: Re: qsnddtaq monitoring
>
> Hi Rob,
>
> How about CALL(E) 'QSNDDTAQ' then IF %ERROR, check the message ID in the
> program status data structure?
>
> HTH
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
>
> ----- Original Message -----
> From: Rob Berendt <rob@dekko.com>
> To: <MIDRANGE-L@midrange.com>
> Sent: Friday, February 25, 2000 12:42 PM
> Subject: qsnddtaq monitoring
>
>
> > Most API's can be monitored by checking for the optional error data
> > structure.  But IBM left that feature out of qsnddtaq.  The problem I
> > am having is that I am using a remote data queue, and on occasion the
> > comm is down.  Do I need to:
> > A)  Take the call out of RPGILE and call a separate CL program,
> > B)  Wrap the call to qsnddtaq around a call to QCAPCMD
> > C)  Any of your fine suggestions?
> >
> > My goal is to:
> > if error
> > VRYCFG remote *off
> > dlyJOB
> > VRYCFG remote *ON
> > DLYJOB
> > retry
> > If still error
> > snd email
> > die
> >
> > 'cause in this case the VRYCFG did the trick.  But that is tangential.
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> david@midrange.com
> > +---
>
>
> __________________________________________________
> Do You Yahoo!?
> Talk to your friends online with Yahoo! Messenger.
> http://im.yahoo.com
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
>
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---