CA IDMS IUA EIUA

Re:Re: [IDMSVENDOR-L] tso access to r17 CV

  • 1.  Re:Re: [IDMSVENDOR-L] tso access to r17 CV

    Posted 12-23-2008 08:47 AM
    PROC 0
    CONTROL MSG LIST
    FREE F(SYSPRINT,SYSOUT,SYSOUD,SYSLST,SYSUDUMP,SYSCTL,DCMSG)
    FREE F(SYSJRNL,J1JRNL,J2JRNL,J3JRNL,J4JRNL,CDMSLIB)
    CONTROL MSG
    ALLOC F(SYSPRINT) DA(*)
    ALLOC F(SYSOUT) DA(*)
    ALLOC F(SYSOUD) DA(*)
    ALLOC F(SYSUDUMP) DA(*)
    ALLOC F(DCMSG) DA('IDMS.DBA.SYSMSG.DDLDCMSG') SHR
    ALLOC F(SYSCTL) DA('IDMS.DBA.SYS23.SYSCTL') SHR
    ALLOC F(SYSJRNL) DUMMY
    ALLOC F(J1JRNL) DUMMY
    ALLOC F(J2JRNL) DUMMY
    ALLOC F(J3JRNL) DUMMY
    ALLOC F(J4JRNL) DUMMY
    ALLOC F(CDMSLIB) DA('IDMS.DBA.HUMANA.LOADLIB',-
    'IDMS.DBA.SYS.LOADLIB.NONACF') SHR
    CALL 'IDMS.DBA.SYS.LOADLIB.NONACF(RHDCUCFT)'

    IDMS.DBA.SYS.LOADLIB.NONACF is a clone of our runtime system software
    loadlib (we cloned a non-APF aithorized version because the manual says
    RHDCUCFT cannot be executed from an authorized loadlib, and we
    authorized
    our system software loadlib to support ZiiP



    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: reverse engineer a load module to object module ?
    "Hi Chris,
     
    I thought I had seen a program to do this, but I cannot find it.
    I looked at AMBLIST options of LISTLOAD, but that doesn't look like what you want.
    I also thought there was a way using IEWL and using the REPLACE option to delete unwanted sections.
    There might be something on the www.cbttape.org , there seemed to be a couple of descriptions that may assist.
     
    Regards, Tony

    --- On Thu, 18/12/08, Chris Hoelscher <choelscher@HUMANA.COM> wrote:


    From: Chris Hoelscher <choelscher@HUMANA.COM>
    Subject: reverse engineer a load module to object module ?
    To: IDMS-L@LISTSERV.IUASSN.COM
    Received: Thursday, 18 December, 2008, 6:58 AM


    just ran into something - i am contemplating taking a load module and
    trying to load it into the dictionary - is there an IBM (or other) that
    reverses a LOAD MODULE to a corresponding LOAD MODULE (.ESD and .TXT
    lines)

    thanks,

    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.



    Stay connected to the people that matter most with a smarter inbox. Take a look http://au.docs.yahoo.com/mail/smarterinbox
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: reverse engineer a load module to object module ?
    "Hi Chris,
    =C2=A0
    I thought I had seen a program to do this, but I cannot find it.=20
    I looked at AMBLIST options of LISTLOAD, but that doesn't look like what yo=
    u want.
    I also thought there was a way using IEWL and using the REPLACE option to d=
    elete unwanted sections.
    There might be something on the www.cbttape.org , there seemed to be a coup=
    le of descriptions that may assist.
    =C2=A0
    Regards, Tony

    --- On Thu, 18/12/08, Chris Hoelscher <choelscher@HUMANA.COM> wrote:


    From: Chris Hoelscher <choelscher@HUMANA.COM>
    Subject: reverse engineer a load module to object module ?
    To: IDMS-L@LISTSERV.IUASSN.COM
    Received: Thursday, 18 December, 2008, 6:58 AM


    just ran into something - i am contemplating taking a load module and
    trying to load it into the dictionary - is there an IBM (or other) that
    reverses a LOAD MODULE to a corresponding LOAD MODULE (.ESD and .TXT
    lines)

    thanks,

    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 wh=
    ich it is addressed and may contain CONFIDENTIAL material.=C2=A0 If you rec=
    eive this material/information in error, please contact the sender and dele=
    te or destroy the material/information.
    =0A=0A=0A Stay connected to the people that matter most with a smarter=
    inbox. Take a look http://au.docs.yahoo.com/mail/smarterinbox
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    "Re: ""Loss of significance"" Error"
    "Jerry

    From the ""CA-IDMS Messages and Codes"" manual:

    DB001001 C<sqlcode>M<module-number> Loss of significance

    Reason: A result column is too small to accommodate all significant
    data from the source and has been truncated.

    Sounds like the definition of one of the columns in the row being
    inserted in your table is too small to contain the value being passed
    by your JAVA servlet.

    Hope this helps.

    Gordon Fitz-Simons

    Jerry Cooke wrote:
    One of our java programs sometimes gets a ""Loss of significance"" error when attempting to store records to IDMS. Sometimes the record stores fine and other times it gets the error. The developer says that she has had it work and then not work. When I tried it it failed the first couple of times (see error message below), then it started working for no apparent reason and it worked fine the rest of the day. I can't figure out if this is a connection issue with IDMS or something else. The program opens and closes the database connection each time a record is stored. When the record stores successfully the IDMS log shows the transaction, when it fails IDMS shows nothing. ""Loss of significance"" appears to be related to certain arithmetic operations, but the developer says that she does not do any of those in her program. Any ideas on how to debug this would be appreciated.

    From the web server log:


    CREATE_ID VALUE : 018645
    IDMS INSERT, SSN: 123456789
    java.sql.SQLException: DB001001 T391 C-4M322: Loss of significance
    error DB001001 T391 C-4M322: Loss of significance
    IDMS INSERT SUCCESS VALUE: 0
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    "Re: ""Loss of significance"" Error"
    "Jerry

    From the ""CA-IDMS Messages and Codes"" manual:

    DB001001 C<sqlcode>M<module-number> Loss of significance

    Reason: A result column is too small to accommodate all significant
    data from the source and has been truncated.

    Sounds like the definition of one of the columns in the row being
    inserted in your table is too small to contain the value being passed
    by your JAVA servlet.

    Hope this helps.

    Gordon Fitz-Simons

    Jerry Cooke wrote:
    One of our java programs sometimes gets a ""Loss of significance"" error when attempting to store records to IDMS. Sometimes the record stores fine and other times it gets the error. The developer says that she has had it work and then not work. When I tried it it failed the first couple of times (see error message below), then it started working for no apparent reason and it worked fine the rest of the day. I can't figure out if this is a connection issue with IDMS or something else. The program opens and closes the database connection each time a record is stored. When the record stores successfully the IDMS log shows the transaction, when it fails IDMS shows nothing. ""Loss of significance"" appears to be related to certain arithmetic operations, but the developer says that she does not do any of those in her program. Any ideas on how to debug this would be appreciated.

    From the web server log:


    CREATE_ID VALUE : 018645
    IDMS INSERT, SSN: 123456789
    java.sql.SQLException: DB001001 T391 C-4M322: Loss of significance
    error DB001001 T391 C-4M322: Loss of significance
    IDMS INSERT SUCCESS VALUE: 0
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    IDMS Press releases
    "Hi Listers,
    IDMS has hit the news in many ways recently. Like me, you probably do
    not always see, or have time to find the press releases relating to
    IDMS. For that reason, I have posted a list of IDMS related articles
    for reading over the holiday period.

    The articles can be found on the front page of the IUA website.
    http://www.iuassn.org.

    It is worth taking a look at the IUA website on a regular basis because
    we often publish interesting, and important, information there.

    Merry Christmas and a Happy New Year to you all.

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








    Normal

    Normal
    IDMS Press releases
    "Hi Listers,
    IDMS has hit the news in many ways recently. Like me, you probably do
    not always see, or have time to find the press releases relating to
    IDMS. For that reason, I have posted a list of IDMS related articles
    for reading over the holiday period.=20

    The articles can be found on the front page of the IUA website.
    http://www.iuassn.org.

    It is worth taking a look at the IUA website on a regular basis because
    we often publish interesting, and important, information there.=20

    Merry Christmas and a Happy New Year to you all.=20

    Steve Rundle
    IUA
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Happy Holidays
    " . * . .
    . . *** . .
    . . *@*** . .
    . *****@* .
    . **@****@* .
    . . * . .
    _______*________

    HAPPY
    HOLIDAYS!


    Kay Rozeboom
    State of Iowa
    Information Technology Enterprise
    Department of Administrative Services
    Telephone: 515.281.6139 Fax: 515.281.6137
    Email: Kay.Rozeboom@Iowa.Gov
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Happy Holidays
    " . * . .
    . . *** . .
    . . *@*** . .
    . *****@* .
    . **@****@* .
    . . * . .
    _______*________

    HAPPY
    HOLIDAYS!


    Kay Rozeboom
    State of Iowa
    Information Technology Enterprise
    Department of Administrative Services
    Telephone: 515.281.6139 Fax: 515.281.6137
    Email: Kay.Rozeboom@Iowa.Gov
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    WEBCAST January 8 2009 Automating Analysis of CA IDMS Applications
    "QXV0b21hdGluZyBBbmFseXNpcyBvZiBDQSBJRE1TKHRtKSBBcHBsaWNhdGlvbnMKOCBKYW4gMjAw
    OQoxMTowMCBhLm0uIC0gMTI6MDAgcC5tLiBFU1QKRHVyYXRpb24gNjAgbWluLgpBbiBpbXByb3Zl
    ZCB1bmRlcnN0YW5kaW5nIG9mIENBIElETVMgYXBwbGljYXRpb24gc3RydWN0dXJlIGFuZCBpbXBh
    Y3QKYW5hbHlzaXMgaXMgY3JpdGljYWwgdG8gaW5jcmVhc2luZyB0aGVpciBmbGV4aWJpbGl0eSBh
    bmQgYnVzaW5lc3MgdmFsdWUuClRoaXMgd2ViY2FzdCBleGFtaW5lcyBob3cgRVogU291cmNlIEFw
    cGxpY2F0aW9uIEFuYWx5c2lzIGlzIHVzZWQgaW4gQ0EKQURTL08odG0pLCBDT0JPTCwgUEwvMSBh
    bmQgQ0EgSURNUyBlbnZpcm9ubWVudHMgdG8gdW5kZXJwaW4gc3VjaAppbml0aWF0aXZlcyB3aGls
    ZSByZWR1Y2luZyB0aGUgY29zdCBvZiBkZWxpdmVyeS4gVGhlIHNlc3Npb24gaXMgYWltZWQgYXQK
    YWxsIHRlY2huaWNhbCBzdGFmZiBpbnZvbHZlZCBpbiBkZXZlbG9wbWVudCBvZiBDQSBJRE1TIGFw
    cGxpY2F0aW9ucyBhbmQKY292ZXJzIGhvdyBFWiBTb3VyY2UgaXMgdXNlZCB0byBhdXRvbWF0ZSBh
    cHBsaWNhdGlvbiBhbmFseXNpcyB0byBlbmFibGUKZ3JlYXRlciBjaGFuZ2UgYW5kIGludGVncmF0
    aW9uLiBDdXN0b21lcnMgd2lsbCBsZWFybiBob3cgYXBwbGljYXRpb24Ka25vd2xlZGdlIGFuZCB1
    bmRlcnN0YW5kaW5nIGlzIGZ1bmRhbWVudGFsIHRvIElUIGRlcGFydG1lbnRzIGRlbGl2ZXJpbmcK
    aW1wcm92ZWQgYnVzaW5lc3MgZnVuY3Rpb25hbGl0eSBhbmQgZmxleGliaWxpdHkuClRvIGxlYXJu
    IG1vcmUgYWJvdXQgdGhlIGNvbXBhbnkgRVpMZWdhY3kgYW5kIHRoZSBwcm9kdWN0IEVaU291cmNl
    IGFuZCBpZgp0aGUgZGF0ZS90aW1lIHdvcmtzIGZvciB5b3UsIHBsZWFzZSByZWdpc3RlciBhdDoK
    aHR0cDovL3d3dy5jYS5jb20vdXMvZXZlbnRzL2xpc3QuYXNweD9waWQ9MTAwNi4KCi0tLS0tLS0t
    LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
    LS0tLS0tLS0KTXkgZS1tYWlsIGFkZHJlc3MgaGFzIGJlZW4gaGFybW9uaXplZCBpbnRvIEBkZXhp
    YS5jb20gIQpQbGVhc2UgcmVtZW1iZXIgdG8gdXBkYXRlIHlvdXIgY29udGFjdCBsaXN0LgoKVmV1
    aWxsZXogbm90ZXIgcXVlIG1vbiBhZHJlc3NlIGUtbWFpbCBlc3QgaGFybW9uaXPDqWUgZW4gQGRl
    eGlhLmNvbSAhCk4nb3VibGlleiBwYXMgZGUgbWV0dHJlIMOgIGpvdXIgdm90cmUgbGlzdGUgZGUg
    Y29udGFjdHMuCgpNZWluZSBFLU1haWxhZHJlc3NlIHd1cmRlIGhhcm1vbmlzaWVydCB6dSBAZGV4
    aWEuY29tClZlcmdlc3NlbiBTaWUgbmljaHQgSWhyZSBLb250YWt0YWRyZXNzZSBhbnp1cGFzc2Vu
    LgoKTWlqbiBlLW1haWxhZHJlcyBpcyBnZWhhcm1vbmlzZWVyZCBuYWFyIEBkZXhpYS5jb20uClZl
    cmdlZXQgbmlldCB1dyBjb250YWN0ZW5saWpzdCBhYW4gdGUgcGFzc2VuLgotLS0tLS0tLS0tLS0t
    LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
    LS0tCkRleGlhIGRpc2NsYWltZXI6Cmh0dHA6Ly93d3cuZGV4aWEuY29tL21haWxkaXNjbGFpbWVy
    Lmh0bQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
    LS0tLS0tLS0tLS0tLS0tLS0tLS0tCg==
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    WEBCAST January 8 2009 Automating Analysis of CA IDMS Applications
    "Automating Analysis of CA IDMS(tm) Applications
    8 Jan 2009
    11:00 a.m. - 12:00 p.m. EST
    Duration 60 min.
    An improved understanding of CA IDMS application structure and impact
    analysis is critical to increasing their flexibility and business value.
    This webcast examines how EZ Source Application Analysis is used in CA
    ADS/O(tm), COBOL, PL/1 and CA IDMS environments to underpin such
    initiatives while reducing the cost of delivery. The session is aimed at
    all technical staff involved in development of CA IDMS applications and
    covers how EZ Source is used to automate application analysis to enable
    greater change and integration. Customers will learn how application
    knowledge and understanding is fundamental to IT departments delivering
    improved business functionality and flexibility.
    To learn more about the company EZLegacy and the product EZSource and if
    the date/time works for you, please register at:
    http://www.ca.com/us/events/list.aspx?pid=1006.

    -------------------------------------------------------------------------
    My e-mail address has been harmonized into @dexia.com !
    Please remember to update your contact list.

    Veuillez noter que mon adresse e-mail est harmonisée en @dexia.com !
    N'oubliez pas de mettre à jour votre liste de contacts.

    Meine E-Mailadresse wurde harmonisiert zu @dexia.com
    Vergessen Sie nicht Ihre Kontaktadresse anzupassen.

    Mijn e-mailadres is geharmoniseerd naar @dexia.com.
    Vergeet niet uw contactenlijst aan te passen.
    -------------------------------------------------------------------------
    Dexia disclaimer:
    http://www.dexia.com/maildisclaimer.htm
    -------------------------------------------------------------------------
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    CA Web Casts
    "CA has three webcasts planned in January on CA IDMS and related topics. Here are the times and topics. You can read the complete abstracts and register at http://ca.com/idms under Events (and >>More) in the right-hand column.
    Automating Analysis of CA IDMS(tm) Applications 8 Jan 2009<http://www.ca.com/us/events/item.aspx?e=194929&eis=1> 11:00 a.m. EST
    The UPS and DOWNS of zIIPs and zAAPS 14 Jan 2009<http://www.ca.com/us/events/item.aspx?e=194322&eis=1> 1:00 p.m. EST
    CA IDMS/DB(tm) r17 Indexing Enhancements 22 Jan 2009<http://www.ca.com/us/events/item.aspx?e=195033&eis=1> 11:00 a.m. EST
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    RHDCMT00
    "Can RHDCMT00 be called from COBOL, as well as from assember? If yes, does =
    anyone have an COBOL example that they would be willing to share?

    Kay Rozeboom
    State of Iowa
    Information Technology Enterprise
    Department of Administrative Services
    Telephone: 515.281.6139 Fax: 515.281.6137
    Email: Kay.Rozeboom@Iowa.Gov
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: RHDCMT00
    "Not a problem:

    In working storage -
    * =20
    01 RHDCMT00-INREC. =20
    03 DCMT-INLEN pic S9(4) comp value 80. =20
    03 DCMT-COMMAND pic X(100) value SPACES.=20
    * =20
    01 RHDCMT00-OUTREC-1. =20
    03 DCMT-OUTLEN-1 pic S9(8) comp value 505. =20
    03 DCMT-RETURN-CODE-1 pic S9(4) comp value 0. =20
    03 DCMT-OUTPUT-CODE-1 pic S9(4) comp value 0. =20
    03 DCMT-OUTPUT-PASSED-1 pic S9(8) comp value 0. =20
    03 DCMT-OUTPUT-USED-1 pic S9(8) comp value 0. =20
    03 DCMT-RESULT1 occurs 5 times. =20
    05 DCMT-101-1 pic X(101). =20
    * =20
    In procedure division -

    =20
    move G62-LTERM (G62-INDEX) to TRASH-TERM =20
    move SPACES to DCMT-COMMAND =20
    string 'v AC TA TE TE ' delimited by size =20
    TRASH-TERM delimited by size =20
    into DCMT-COMMAND =20
    TRANSFER CONTROL 'RHDCMT00' RETURN =20
    USING RHDCMT00-INREC RHDCMT00-OUTREC-1; =20

    BTW - the command is VARY ACTIVE TASK TERMINATE TERMINAL xxxyyyzz - note
    in working storage we allow for 5 lines of output at 101 characters
    each.

    HTH - cheers - Gary =20


    Gary Cherlet
    Justice Technology Services
    Department of Justice, SA Government
    Telephone +61 (0)8 8226 5199
    Facsimile +61 (0)8 8226 5311
    Mobile +61 (0)41 333 1613
    MailTo:cherlet.gary@saugov.sa.gov.au

    This e-mail message and any attachments are qualified as follows:
    Addressing: If you have received this e-mail in error, please advise by
    reply e-mail to the sender. Please also destroy the original
    transmission and its contents. Confidentiality: This e-mail may contain
    confidential information which also may be legally privileged. Only the
    intended recipient(s) may access, use, distribute or copy this e-mail.
    Individual Views: Unless otherwise indicated, the views expressed are
    those of the sender, not Justice Technology Services. Computer Viruses:
    It is the recipient's responsibility to check the e-mail and any
    attached files for viruses.