CA IDMS IUA EIUA

DC-COBOL Link to a ADSO Dialog

  • 1.  DC-COBOL Link to a ADSO Dialog

    Posted 09-11-2007 01:43 AM
    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/