ca.portal.admin

Re:Assembler question

Discussion created by ca.portal.admin on Jun 1, 2009
We have a WTOREXIT routine that works fine when linked with the IDMS
startup module. But when I try to run it the new recommended way ( EXEC
PGM=RHDCOMVS,PARM=('WTOR=WTOREXIT') ), it disables itself at startup.

I have tracked the problem to the code below. But my assembler skills
are nowhere near the level of the person who wrote this 28 years ago.
Can someone explain to me what this code does? Any theories as to why
it fails when executed the new way would be welcome also.


STINIT DS 0H SUBTASK INIT ROUTINE
* ESTABLISH OPERATOR COMMUNICATIONS AND REMOVE START MSG
EXTRACT MF=(E,EXTPRM) GET TIOT AND COMM FIELD POINTERS
L R1,TIOTPNT LOAD THE TIOT POINTER ADDRESS
MVC JOBNAME,0(R1) MOVE THE JOB NAME TO THE WTOR
* IDENTIFY AND ATTACH THE SUBTASK ROUTINE
IDENTIFY EPLOC=WAITNAM,ENTRY=&WAIT IDENTIFY MESSAGE WAIT RTN
LTR R15,R15 ANY ERRORS FOUND?
BNZ ERROR YES, DISABLE THE WTOR EXIT
ATTACH SF=(E,ATTACH) ATTACH THE MESSAGE WAIT ROUTINE
LTR R15,R15 ANY ERRORS FOUND?
BNZ ERROR YES, DISABLE THE WTOR EXIT
OI STATUS,INIT SET THE INIT DONE FLAG
BR LINK RETURN TO THE CALLER

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
CA Web Cast
"
New web cast information is available at the CA web site for a web cast on 6-9-2008. Please see ca.com/idms<http://ca.com/idms> under events on the right hand side.

Thanks,
The 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 DAR Ballot - Time extension
"Since there are many people that take vaction this time of year we have exteneded the IDMS Enhancement balloting until June 15th.

If you have any difficulties or questions about the DAR ballot or causergroups site or need the link to the ballot, please contact to Chris Short of the CA Customer Programs Team at

Christopher.Short@ca.com<mailTo:Christopher.Short@ca.com>

Thanks,
Terry Schwartz
IDMS PLC Chair
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Migration Utilities
"I recently had a client ask about migration utilities (from test to prod type). I have had experience with the Ladderman Utilities, Endevor and Dictionary Migrator. Are there any others available on the market?

Tia,

Bob

Bob Wiklund
Tiburon Technologies
623 594-6022
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
COBOL question
"Can anyone point me to a tutorial or documentation on how to find the locat=
ion 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
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
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
"
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
"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
"
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
"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
"
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
"The LIST option is not required to find locations in the program. The MAP option should be sufficient. But working storage fields are not really ""in"" the load module. They pointed to by a base locator and an offset. I assume she wants it for some sort of debugging session, but I would need more information to help answer the question. Key questions are:

1. What compiler level
2. Online or batch
3. Reentrant or non-reentrant

Dan Miley
Lockheed Martin

Outcomes