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.