ca.portal.admin

Re: Coding Allowing in ADS to check for 0966

Discussion created by ca.portal.admin on Dec 23, 2005
As far as I remember, you do not have control over the readies in ADS.

The ADS run-time environment will determine if the readies need to be
carried out at the time of the first DML statement. You can code the
ready
statements anywhere in your dialog, without regard to the logic. If you
have two ready statements for the same area the last ready statement
encountered by the compiler will be the one executed.

I am not sure you can catch the error on a failure of the ready
statement,
but, if you can, the check needs to be done in the first DML statement
you
execute in the dialog. I am also pretty sure that if the ready fails
you
will not start a run-unit.

Back in the 10.2 days you could call a utility (I think it was
documented,
but unsupported) to execute DCUF and DCMT statements and you could use
that
to check the status of an area. I don't know if that is still possible.
But you should be able to code a Cobol program that does the BIND,
READY,
check status and FINISH and returns the status of the ready to a dialog
as
well.

Tommy Petersen
110 Cokesbury Rd
Room 542H
Lebanon, NJ 08833

Phone:
Internal 200 - 3699
External (908) 236-3699
Fax: (908) 236-3692




Chris Wood
<Chris.Wood@GOV.A
B.CA>
To
Sent by: IDMS IDMS-L@LISTSERV.IUASSN.COM
Public Discussion
cc
Forum
<IDMS-L@LISTSERV.
Subject
IUASSN.COM> Coding Allowing in ADS to check
for
0966

12/23/2005 11:22
AM


Please respond to
IDMS Public
Discussion Forum
<IDMS-L@LISTSERV.
IUASSN.COM>






Hi,



I am trying to intercept the 0966 message when accessing a database that
is offline. I want to display a friendly message rather than have the
abend screen with an 0966. I have coded ALLOWING ERROR CODES ('0326'
THRU '0966') after my first DML statement which is an OBTAIN FIRST xxxx
WITHIN yyyy AREA. I then code an IF ERROR-STATUS IS '0966'.



I still get the abend screen showing the 0966 error. Should this work?



I am on 16.0 SP1 + apars on z/OS 1.6.



Thanks



Chris Wood

Alberta Department of Energy

CANADA

This communication is intended for the use of the recipient to which it
is
addressed, and may contain confidential, personal and or privileged
information. Please contact us immediately if you are not the intended
recipients of this communication, and do not copy, distribute, or take
action relying on it. Any communication received in error, or subsequent
reply, should be deleted or destroyed.
This communication is intended for the use of the recipient to which it is addressed, and may contain confidential, personal and or privileged information. Please contact us immediately if you are not the intended recipients of this communication, and do not copy, distribute, or take action relying on it. Any communication received in error, or subsequent reply, should be deleted or destroyed.

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Coding Allowing in ADS to check for 0966
"As far as I remember, you do not have control over the readies in ADS.

The ADS run-time environment will determine if the readies need to be
carried out at the time of the first DML statement. You can code the ready
statements anywhere in your dialog, without regard to the logic. If you
have two ready statements for the same area the last ready statement
encountered by the compiler will be the one executed.

I am not sure you can catch the error on a failure of the ready statement,
but, if you can, the check needs to be done in the first DML statement you
execute in the dialog. I am also pretty sure that if the ready fails you
will not start a run-unit.

Back in the 10.2 days you could call a utility (I think it was documented,
but unsupported) to execute DCUF and DCMT statements and you could use that
to check the status of an area. I don't know if that is still possible.
But you should be able to code a Cobol program that does the BIND, READY,
check status and FINISH and returns the status of the ready to a dialog as
well.

Tommy Petersen
110 Cokesbury Rd
Room 542H
Lebanon, NJ 08833

Phone:
Internal 200 - 3699
External (908) 236-3699
Fax: (908) 236-3692




Chris Wood
<Chris.Wood@GOV.A
B.CA> To
Sent by: IDMS IDMS-L@LISTSERV.IUASSN.COM
Public Discussion cc
Forum
<IDMS-L@LISTSERV. Subject
IUASSN.COM> Coding Allowing in ADS to check for
0966

12/23/2005 11:22
AM


Please respond to
IDMS Public
Discussion Forum
<IDMS-L@LISTSERV.
IUASSN.COM>






Hi,



I am trying to intercept the 0966 message when accessing a database that
is offline. I want to display a friendly message rather than have the
abend screen with an 0966. I have coded ALLOWING ERROR CODES ('0326'
THRU '0966') after my first DML statement which is an OBTAIN FIRST xxxx
WITHIN yyyy AREA. I then code an IF ERROR-STATUS IS '0966'.



I still get the abend screen showing the 0966 error. Should this work?



I am on 16.0 SP1 + apars on z/OS 1.6.



Thanks



Chris Wood

Alberta Department of Energy

CANADA

This communication is intended for the use of the recipient to which it is
addressed, and may contain confidential, personal and or privileged
information. Please contact us immediately if you are not the intended
recipients of this communication, and do not copy, distribute, or take
action relying on it. Any communication received in error, or subsequent
reply, should be deleted or destroyed.

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Terry Kaczmarski/OH/KAIPERM is out of the office.
"I will be out of the office starting 12/23/2005 and will not return until
01/03/2006.

I will respond to your message when I return. If you need immediate
attention, please page me 216-568-3828.

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Coding Allowing in ADS to check for 0966
"Perhaps calling a COBOL program from ADS, which can trap the 0966, and
pass back the status code.


----- Original message -----
From: ""robert riedel"" <rxr666@MSN.COM>
To: IDMS-L@LISTSERV.IUASSN.COM
Date: Fri, 23 Dec 2005 11:44:09 -0500
Subject: Re: Coding Allowing in ADS to check for 0966

Once ago in a far away place I used this:

a work rec

EPEDI000-DWK1-RECORD
02 DWK1-CV-NBR PIC 9(4).


and a called program (see attch)

AND THIS CODE in the first dialog:


LINK PROGRAM 'DPEP0966' USING (EPEDI000-DWK1-RECORD).
IF DWK1-CV-NBR IS '0966'
OR DWK1-CV-NBR EQ 0966
DO.
DISPLAY MSG TEXT
' app name IS DOWN, CALL THE HELP DESK FOR
MORE
INFO'.
END.




Bob Riedel




From: Chris Wood <Chris.Wood@GOV.AB.CA>
Reply-To: IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>
To: IDMSVENDOR-L@LISTSERV.IUASSN.COM
Subject: Coding Allowing in ADS to check for 0966
Date: Fri, 23 Dec 2005 09:22:24 -0700

Hi,

=20

I am trying to intercept the 0966 message when accessing a database that
is offline. I want to display a friendly message rather than have the
abend screen with an 0966. I have coded ALLOWING ERROR CODES ('0326'
THRU '0966') after my first DML statement which is an OBTAIN FIRST xxxx
WITHIN yyyy AREA. I then code an IF ERROR-STATUS IS '0966'.=20

=20

I still get the abend screen showing the 0966 error. Should this work?

=20

I am on 16.0 SP1 + apars on z/OS 1.6.

=20

Thanks

=20

Chris Wood

Alberta Department of Energy

CANADA

This communication is intended for the use of the recipient to which it i=
s addressed, and may contain confidential, personal and or privileged inf=
ormation. Please contact us immediately if you are not the intended recip=
ients of this communication, and do not copy, distribute, or take action =
relying on it. Any communication received in error, or subsequent reply, =
should be deleted or destroyed.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Coding Allowing in ADS to check for 0966
" If I understand how ADS works, the BIND is done behind the scenes prior to
the first DML statement. Therefore, I would guess you are too late if you
try to trap the 0966 after the first DML statement.

Joe Lupico
IDMS System Support
""Our World is a Happy World""

Outcomes