IDMS

 View Only
  • 1.  IDMS-DC calls to IDMS-DC sub programs

    Posted Sep 09, 2005 02:39 AM
    Hello All:

    I have an ADSO Dialog that calls an IDMS-DC COBOL program, then that
    program
    calls another IDMS-DC COBOL Program.

    The question is this, can the IDMS-DC COBOL programs use dynamic calls or
    do
    they have to use static calls?

    ADSO Calls
    IDMS-DC Program A, then this program calls
    IDMS-DC Program B

    Can program A use a dynamic call to IDMS-DC Program B?

    Where can I read about this in the IDMS Manuals?

    Bill Allen

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








    Normal

    Normal
    Re: IDMS R15 OS/390 to zOS
    "Mike,
    Look at member UMODSVC in the samplib. There are notes within the JCL to tell you what changes are needed. You or your sysprog can dynamically reload the SVC via the CAIRIM job (by default called CAS9) that loads the IDMS SVC. Here is what the CAS9 parms look like for a reload:

    * ---------------------------------------------------------------------
    * CAIDMS 15.0
    * ---------------------------------------------------------------------
    PRODUCT(CA-IDMS) VERSION(GJF0) INIT(GJF0INIT) PARM(REFRESH(SVC=243))

    An important note, if you do dynamically reload the new SVC, make sure that your CV's are down and no batch is running. If you do not bring down the CV's, they will come down all by themselves (in other words, they crash).

    Dan Hall




  • 2.  Re:Re: IDMS-DC calls to IDMS-DC sub programs

    Posted Sep 09, 2005 09:55 AM
    Bill, the COBOL calls, as opposed to the idmsdc transfer controls
    could
    be expensive. At one time idmsdc was enhanced with an svc screen to
    trap getmains to initialize the cobol run time environment and turn
    those into getstorage calls from an idms storage pool. For some
    reason
    which I never fathomed, some users cant or wont change their cobol
    source into idmsdc dml. I do believe transfer control is the
    preferred
    way. The problem has always been the mvs service requests that cobol
    programs did, and the storage(loads, etc) that mvs carved out of idms
    regions beyond idms control. Also some mvs storage may be freemained,
    but not reusable until idms comes to mvs job termination

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








    Normal

    Normal
    Re: IDMS-DC calls to IDMS-DC sub programs
    "What do you consider 'DYNAMIC' calls? Coding the DYNAM cobol compiler
    option and not linking the called programs together, or do you mean
    IDMS-DC transfer calls?

    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: IDMS-DC calls to IDMS-DC sub programs
    "Lutz,
    What I mean by DYNAMIC calls is

    MOVE 'SUBPROG' to PROG-TO-CALL
    CALL PROG-TO-CALL USING ......

    Pete


  • 3.  Re: IDMS-DC calls to IDMS-DC sub programs

    Posted Sep 09, 2005 09:55 AM
    Bill, the COBOL calls, as opposed to the idmsdc transfer controls could
    be expensive. At one time idmsdc was enhanced with an svc screen to
    trap getmains to initialize the cobol run time environment and turn
    those into getstorage calls from an idms storage pool. For some reason
    which I never fathomed, some users cant or wont change their cobol
    source into idmsdc dml. I do believe transfer control is the preferred
    way. The problem has always been the mvs service requests that cobol
    programs did, and the storage(loads, etc) that mvs carved out of idms
    regions beyond idms control. Also some mvs storage may be freemained,
    but not reusable until idms comes to mvs job termination.

    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
    ca-world 2005
    "Hi everyone,

    Just to let you know that early bird registration has been extended to
    Monday, september 19th 2005. If you register by that date, you can get
    $200 off the registration fee. If you're a member of a ca recognised
    user group, like the IUA, you can get an additional $200 off.

    Please visit www.ca.com/caworld for details regarding the event.

    Laura Rochon
    IUA

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








    Normal

    Normal
    Re: IDMS-DC calls to IDMS-DC sub programs
    "I read your comments Pete. I too would be interested to hear from Ron
    Gagne who had worked out the Cobol runtime environments with
    development, over the years.

    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: IDMS-DC calls to IDMS-DC sub programs
    "We moved to Dynamic calls years ago, for we were running into problems
    with STATIC calls. 20 different programs would call a program as
    static. If the STATIC program was changed, it required research to find
    all programs that were using the static program and then recompiling all
    20 mainline programs. It also complicated testing issues.

    We also found that the static calls could also cause linkage issues and
    ABENDS, between different COBOL versions (moving from COBOL I to COBOL
    II ) because of differences between below and above the line storage.

    I don't know how many times, I had to look at source to find that a
    static call was causing unknown issues, my life simplified using dynamic
    calls.


    Edward A. Timm
    Sallie Mae, Senior Database Analyst
    ETIMM@salliemae.com
    (317) 596-1182
    Fax (317) 595-1494
    peter.g.charles@BT.COM 09/14/2005 04:41:18 AM >>>
    Lutz,

    I was told many years ago buy Chuck Delouis that dynamic calls where
    the
    best way to call COBOL programs in IDMS DC.

    I checked with CA when we switched to LE and that this was still the
    case, that is use dynamic calls.

    It makes sense as the run time environment is maintained by COBOL.
    Look
    at the work CA have done to preserve the LE enclave for COBOL programs
    in the same task thread. This would be 'automatic' if dynamic calls
    were
    used.

    You mention SVC screening. Even with DC transfers SVC screening is
    still
    used as it is COBOL still does issues a GETMAIN for working storage
    that
    has to be converted to a #GETSTG. With dynamic calls the only extra
    screening, I think, will be for the LOAD of the called program.

    Not sure if any one from CA is 'watching' this but if so I wonder if
    they care to comment.

    Pete


  • 4.  Re: IDMS-DC calls to IDMS-DC sub programs

    Posted Sep 14, 2005 07:47 AM
    But that's how a static program is called too. No?

    Lutz

    Lutz,
    What I mean by DYNAMIC calls is
    MOVE 'SUBPROG' to PROG-TO-CALL
    CALL PROG-TO-CALL USING ......
    Pete
    -

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








    Normal

    Normal
    Re: IDMS-DC calls to IDMS-DC sub programs
    "A dynamic call would also CALL 'subprog' using.........

    And the address constants are always resolved by runtime COBOL
    regardless of static or dynamic link. Impressive buzzword though. Even
    IDMS goes fishing around the TGT to figure out some things.

    Lutz Petzold
    Subject: Re: IDMS-DC calls to IDMS-DC sub programs
    Static would be CALL 'SUBPROG' USING... The other creates a variable
    adcon resolved at execution.



    -----------------------------------------
    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
    Hyper apars QO71325 (16.0)/ QO71324 (15.0)
    "Hi,



    What about these apars make them hyper? Without them what could happen
    to a CV?



    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
    Re: IDMS-DC calls to IDMS-DC sub programs
    "Lutz:

    I beg to differ (from Quick Reference of the COBOL manual):

    The mode of a CALL statement (as static or dynamic) is
    controlled by the compiler option DYNAM and by the form of the
    CALL statement (i.e.,whether the subprogram to be called is specified
    through an identifieror through a literal). This is illustrated in the
    chart below:

    FORM OF CALL MODE
    ------------------------- --------------

    CALL identifier Always dynamic

    CALL literal with DYNAM Dynamic
    CALL literal with NODYNAM Static

    Dan Miley
    Lockheed Martin


  • 5.  Re: IDMS-DC calls to IDMS-DC sub programs

    Posted Sep 14, 2005 08:38 AM
    A dynamic call would also CALL 'subprog' using.........

    And the address constants are always resolved by runtime COBOL
    regardless of static or dynamic link. Impressive buzzword though. Even
    IDMS goes fishing around the TGT to figure out some things.

    Lutz Petzold
    Subject: Re: IDMS-DC calls to IDMS-DC sub programs
    Static would be CALL 'SUBPROG' USING... The other creates a variable
    adcon resolved at execution.



    -----------------------------------------
    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: IDMS-DC calls to IDMS-DC sub programs
    "Disagree? Good. Because that's what I am talking about. LOL
    So, from your example, the bottom line is, the cobol compile option
    NODYNAM makes it static. It's not coding a CALL statement, as someone
    else mentioned.

    Lutz Petzold





    Lutz:

    I beg to differ (from Quick Reference of the COBOL manual):

    The mode of a CALL statement (as static or dynamic) is
    controlled by the compiler option DYNAM and by the >>form of the
    CALL statement (i.e.,whether the subprogram to be called is specified
    through an identifieror through a >>>literal). This is illustrated in
    the chart below:
    >
    FORM OF CALL MODE
    ------------------------- -------------->

    CALL identifier Always dynamic

    CALL literal with DYNAM Dynamic
    < CALL literal with NODYNAM Static
    >
    Dan Miley
    Lockheed Martin
    -----------------------------------------
    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: IDMS-DC calls to IDMS-DC sub programs
    "I disagree also. Please note the last part of the last sentence. The
    manual states:

    4.1.1 Static CALL Statement

    A static call occurs when you use the CALL literal statement in a
    program that is compiled using the NODYNAM compiler option. With
    NODYNAM, all calls of the CALL literal format are
    handled as static calls.

    4.1.2 Dynamic CALL Statement

    A dynamic call occurs when you use the CALL literal statement in a
    program that is compiled using the DYNAM compiler option, or when you
    use the CALL identifier statement.





  • 6.  Re: IDMS-DC calls to IDMS-DC sub programs

    Posted Sep 14, 2005 11:12 AM
    What do you consider 'DYNAMIC' calls? Coding the DYNAM cobol compiler
    option and not linking the called programs together, or do you mean
    IDMS-DC transfer calls?

    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: IDMS-DC calls to IDMS-DC sub programs
    "Coding the DYNAM COBOL compiler option and not linking the called
    programs together
    PetzoldL@Aetna.Com 09/14/2005 09:11:57 AM >>>
    What do you consider 'DYNAMIC' calls? Coding the DYNAM cobol compiler
    option and not linking the called programs together, or do you mean
    IDMS-DC transfer calls?

    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


    This E-Mail has been scanned for viruses.

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








    Normal

    Normal
    Re: IDMS-DC calls to IDMS-DC sub programs
    "But that's how a static program is called too. No?

    Lutz

    Lutz,
    What I mean by DYNAMIC calls is
    MOVE 'SUBPROG' to PROG-TO-CALL
    CALL PROG-TO-CALL USING ......
    Pete
    -----------------------------------------
    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: IDMS-DC calls to IDMS-DC sub programs
    "Static would be CALL 'SUBPROG' USING... The other creates a variable
    adcon resolved at execution.