ca.portal.admin

DC-COBOL Link to a ADSO Dialog

Discussion created by ca.portal.admin on Sep 11, 2007
Good Morning all,

Has anyone successfully done a link to an ADSO dialog from an dc-cobol?

Thanks,
Steve Harmeson
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
calling ADS from DC COBOL
"I had asked this same question 3 years ago and got the following responses:
i did not try any of them, so ...




Yes we have.
All you need to do is have the task being executed either an ADS dialog or
a task defined in ADSA.
(You could probably even ""move"" something into the task code.)
Then have your non-ads online program simply transfers to ADSOUN1 with a
RETURN.


Runtime ADS looks at the task code to determine what to execute.
----------------

Actually we have succeeded in this dubious task, at least in some =
manner.

Lets assume dialog to call from dc-cobol is 'DIAEXMP1'. We created task =
'DIAEXMP1' that calls dc-cobol program. Then dc-cobol does TRANSFER TO =
ADSORUN1 NORETURN. ADSORUN1 takes task name and starts a dialog with =
same name.

So this isn't actually call, that control would return to dc-cobol, but =
anyhow it's a way to start ads dialog from dc-cobol.
--------------------------

Chris Hoelscher
Senior IDMS & DB2 Database Administrator
Humana Inc
502-476-2538
choelscher@humana.com



The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: calling ADS from DC COBOL
"I believe there are many applications that execute ads dialogs by
sysgenning the dialog name as a task and invoking adosrun1 as the
program. That's a tried and proven method I think. However, that's not
the same as calling or linking to an adso dialog, as starting a task can
only be done with a return next-task code 'xxxx'. there is a method
though, because i've seen adso start a task/program in the cics region,
believe it or not, and they in turn started on in the idms region. UDAS
anyone? I dont remember the details, but I remember reading up on it in
the manuals.




Lutz Petzold

This e-mail may contain confidential or privileged information. If
you think you have received this e-mail in error, please advise the
sender by reply e-mail and then delete this e-mail immediately.
Thank you. Aetna
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: calling ADS from DC COBOL
"Lutz,
I will back up your memory concerning transferring control to CICS then
back again. But like you it has been 20 years and a few jobs since I've
done it, so I no longer have access to the source code. I do remember
using PDAT storage to pass data between IDMS and CICS and back. Other
than that, the memory is gone...


Dan Hall
GE
Capital Solutions
Danbury, CT

T 513.217.5060
E dan.hall@ge.com
http://www.ge.com/capitalsolutions/

Outcomes