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
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
"Eye catchers are nice.=20

We used to have 32 BYTE FILLERS so that our working storage looked like:
=20
""**WORKING STORAGE STARTS HERE***""
""**** SWITCHES ARE HERE *********""
SWITCH 1
SWITCH 2 ETC.
""**** SR5024 STARTS HERE *******""
RECORD SR5024 DEFINITIONS
""**** SR2955 STARTS HERE *******""
RECORD SR2955 DEFINITIONS
""**** WORK FIELDS ***************""
WORK FIELD DEFINITIONS
""*** WORK RECORD NAME STARTS HERE""
WORK RECORD DEFINITIONS
""** WORKING STORAGE STOPS HERE **""
Dick

Richard Pierce
(617) 973-8911
richard.pierce@state.ma.us

Outcomes