ca.portal.admin

Re:Re: COBOL question

Discussion created by ca.portal.admin on Jun 8, 2009
Kay, I think you can still compile with the assembler code option. That sh=
ould give you the required addresses.
Paul Wood
IBM Global Services
Mainframe Databases, Modeling, Repository Tech. Lead

Home Office: (714) 876-0497
pawood@us.ibm.com



""Rozeboom, Kay [DAS]"" <KAY.ROZEBOOM@IOWA.GOV> Sent by: IDMS Public Discussi=
on Forum <IDMS-L@LISTSERV.IUASSN.COM>
06/08/2009 11:43 AM
Please respond to
IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>


To
IDMS-L@LISTSERV.IUASSN.COM
cc

Subject
COBOL question






Can anyone point me to a tutorial or documentation on how to=20
find the location of a working-storage field in the load module=20
of a COBOL program?
(As opposed to finding it in a dump.) I do have a compile=20
listing available.

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
This e-mail may contain confidential or privileged information.=20
If you think you have received this e-mail in error, please=20
advise the sender by reply e-mail and then delete this e-mail=20
immediately.
Thank you. Aetna
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 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: COBOL question
"What I have learned:

1) The load module does not contain working storage as we see it in a dump=
. That version is apparently built at run-time.

2) The literals are all scrunched up together in one portion of the load m=
odule. They are not necessarily in the order that they appear in the sourc=
e code.

3) I sort of circumvented the problem by coding the literals I wanted to c=
hange with unique initial values. Then I printed the load module with IDMS=
LOOK, and did a search for the unique values. This gave me the offset of e=
ach field in the load module. Now I can zap the fields with the values tha=
t I want them to contain. Of course this method only works if you are hack=
ing your own code. :-) Thanks to my co-worker Steve Kuske (also a liste=
e) for this solution.

Also thanks to everyone who responded. It has been an informative discussi=
on!

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: COBOL question
"What I have learned:

1) The load module does not contain working storage as we see it in a dump. That version is apparently built at run-time.

2) The literals are all scrunched up together in one portion of the load module. They are not necessarily in the order that they appear in the source code.

3) I sort of circumvented the problem by coding the literals I wanted to change with unique initial values. Then I printed the load module with IDMSLOOK, and did a search for the unique values. This gave me the offset of each field in the load module. Now I can zap the fields with the values that I want them to contain. Of course this method only works if you are hacking your own code. :-) Thanks to my co-worker Steve Kuske (also a listee) for this solution.

Also thanks to everyone who responded. It has been an informative discussion!

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
Mystery queue
"I am seeing queues on our test CV's that are named ""Oxxxxxxx"", where the x'=
s are a user ID. Does anyone know if one of the tool kit products creates =
these queues?

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
Mystery queue
"I am seeing queues on our test CV's that are named ""Oxxxxxxx"", where the x's are a user ID. Does anyone know if one of the tool kit products creates these queues?

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
Re: Mystery queue
"Maybe it's from ADS/Alive Queue Review?


----- Original message -----
From: ""Rozeboom, Kay [DAS]"" <KAY.ROZEBOOM@IOWA.GOV>
To: IDMS-L@LISTSERV.IUASSN.COM
Date: Wed, 10 Jun 2009 12:31:44 -0500
Subject: Mystery queue

I am seeing queues on our test CV's that are named ""Oxxxxxxx"", where the
x's are a user ID. Does anyone know if one of the tool kit products
creates these queues?

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: Mystery queue
"Maybe it's from ADS/Alive Queue Review?


----- Original message -----
From: ""Rozeboom, Kay [DAS]"" <KAY.ROZEBOOM@IOWA.GOV>
To: IDMS-L@LISTSERV.IUASSN.COM
Date: Wed, 10 Jun 2009 12:31:44 -0500
Subject: Mystery queue

I am seeing queues on our test CV's that are named ""Oxxxxxxx"", where the
x's are a user ID. Does anyone know if one of the tool kit products
creates these queues?

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
Re: Mystery queue
"if one of the users id is SUZANNA then ......

don't you cry for me





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

you only need to test the programs that you want to work correctly






From:
""Rozeboom, Kay [DAS]"" <KAY.ROZEBOOM@IOWA.GOV>
To:
IDMSVENDOR-L@LISTSERV.IUASSN.COM
Date:
06/10/2009 13:33
Subject:
[IDMSVENDOR-L] Mystery queue
Sent by:
IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



I am seeing queues on our test CV's that are named ""Oxxxxxxx"", where the
x'=
s are a user ID. Does anyone know if one of the tool kit products creates
=
these queues?

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



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 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: [IDMSVENDOR-L] Mystery queue
"if one of the users id is SUZANNA then ......

don't you cry for me





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

you only need to test the programs that you want to work correctly






From:
""Rozeboom, Kay [DAS]"" <KAY.ROZEBOOM@IOWA.GOV>
To:
IDMSVENDOR-L@LISTSERV.IUASSN.COM
Date:
06/10/2009 13:33
Subject:
[IDMSVENDOR-L] Mystery queue
Sent by:
IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



I am seeing queues on our test CV's that are named ""Oxxxxxxx"", where the
x'=
s are a user ID. Does anyone know if one of the tool kit products creates
=
these queues?

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



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: Mystery queue
"How about dmlo,?creates user queue records.

Outcomes