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 should 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 Discussion 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
find the location of a working-storage field in the load module
of a COBOL program?
(As opposed to finding it in a dump.) I do have a compile
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. 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: COBOL question
"One trick programmers do, is to include a filler with 'working storage=0D=
=0Astarts here' at the beginning of working storage=2E But, a 'map' compil=
e=0D=0Aoption will give you a map of relative displacements for all element=
s in=0D=0Aworking storage section=2E Now keep in mind that in memory, ther=
e are TWO=0D=0Aworking storage sections=2E One in the load module as you s=
ay, but that=0D=0Athe real one has been relocated by the cobol loader and i=
t's somewhere=0D=0Ain memory=2E Otherwise, the program would not be reentr=
ant, and in an=0D=0Aonline system you'd need one copy of the program in mem=
ory for each=0D=0Ainvocation=2E=0D=0A=0D=0ALutz Petzold=0D=0ATDM UDB/IDMS S=
upport=0D=0A401-782-2265=0D=0APage 860 366 0865 or Telalert=0D=0A =0D=0A =
=0D=0A=0D=0A-----Original Message-----=0D=0AFrom: IDMS Public Discussion Fo=
rum =0D=0A[mailTo:IDMS-L@LISTSERV=2EIUASSN=2ECOM] On Behalf Of Rozeboom, Ka=
y [DAS]=0D=0ASent: Tuesday, June 09, 2009 8:16 AM=0D=0ATo: IDMS-L@LISTSERV=
=2EIUASSN=2ECOM=0D=0ASubject: Re: COBOL question=0D=0A=0D=0AActually, I wan=
t to be able to zap a literal in working =0D=0Astorage=2E But the same lit=
eral appears more than once in the =0D=0Aload module, so I need to make sur=
e that I get the right one=2E =0D=0AI am thinking that the only solution m=
ay be to change the code =0D=0Ato make the original literals unique, then ""=
eyeball"" the load =0D=0Amodule to find the location of the literal=2E=0D=0A=
=0D=0A=0D=0A-----Original Message-----=0D=0AFrom: IDMS Public Discussion F=
orum =0D=0A[mailTo:IDMS-L@LISTSERV=2EIUASSN=2ECOM] On Behalf Of Miley, Dan =
L=0D=0ASent: Monday, June 08, 2009 4:19 PM=0D=0ATo: IDMS-L@LISTSERV=2EIUASS=
N=2ECOM=0D=0ASubject: Re: COBOL question=0D=0A=0D=0AThe LIST option is not =
required to find locations in the =0D=0Aprogram=2E The MAP option should b=
e sufficient=2E But working =0D=0Astorage fields are not really ""in"" the l=
oad module=2E They =0D=0Apointed to by a base locator and an offset=2E =
I assume she =0D=0Awants it for some sort of debugging session, but I would=
need =0D=0Amore information to help answer the question=2E Key questions =
are:=0D=0A=0D=0A1=2E What compiler level=0D=0A2=2E Online or batch=0D=0A3=
=2E Reentrant or non-reentrant=0D=0A=0D=0ADan Miley=0D=0ALockheed Martin=
=0D=0A=0D=0A=0D=0A-----Original Message-----=0D=0AFrom: IDMS Public Discuss=
ion Forum =0D=0A[mailTo:IDMS-L@LISTSERV=2EIUASSN=2ECOM] On Behalf Of Paul A=
Wood=0D=0ASent: Monday, June 08, 2009 3:17 PM=0D=0ATo: IDMS-L@LISTSERV=2EI=
UASSN=2ECOM=0D=0ASubject: Re: COBOL question=0D=0A=0D=0AKay, I think you ca=
n still compile with the assembler code =0D=0Aoption=2E That should give y=
ou the required addresses=2E=0D=0APaul Wood=0D=0AIBM Global Services=0D=0AM=
ainframe Databases, Modeling, Repository Tech=2E Lead=0D=0A=0D=0AHome Offic=
e: (714) 876-0497=0D=0Apawood@us=2Eibm=2Ecom=0D=0A=0D=0A=0D=0A=0D=0A""Rozebo=
om, Kay [DAS]"" <KAY=2EROZEBOOM@IOWA=2EGOV> Sent by: IDMS =0D=0APublic Discu=
ssion Forum <IDMS-L@LISTSERV=2EIUASSN=2ECOM>=0D=0A06/08/2009 11:43 AM=0D=0A=
Please respond to=0D=0AIDMS Public Discussion Forum <IDMS-L@LISTSERV=2EIUAS=
SN=2ECOM>=0D=0A=0D=0A=0D=0ATo=0D=0AIDMS-L@LISTSERV=2EIUASSN=2ECOM=0D=0Acc=
=0D=0A=0D=0ASubject=0D=0ACOBOL question=0D=0A=0D=0A=0D=0A=0D=0A=0D=0A=0D=0A=
=0D=0ACan anyone point me to a tutorial or documentation on how to =0D=0Afi=
nd the location of a working-storage field in the load module =0D=0Aof a CO=
BOL program?=0D=0A (As opposed to finding it in a dump=2E) I do have a com=
pile =0D=0Alisting available=2E=0D=0A=0D=0AKay Rozeboom=0D=0AState of Iowa=
=0D=0AInformation Technology Enterprise=0D=0ADepartment of Administrative S=
ervices=0D=0ATelephone: 515=2E281=2E6139 Fax: 515=2E281=2E6137=0D=0AEmail=
: Kay=2ERozeboom@Iowa=2EGov=0D=0AThis e-mail may contain confidential or p=
rivileged information=2E If=0Ayou think you have received this e-mail in er=
ror, please advise the=0Asender by reply e-mail and then delete this e-mail=
immediately=2E=0AThank you=2E 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
"Actually, I want to be able to zap a literal in working storage. But the same literal appears more than once in the load module, so I need to make sure that I get the right one. I am thinking that the only solution may be to change the code to make the original literals unique, then ""eyeball"" the load module to find the location of the literal.

Outcomes