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 startu=
p module. But when I try to run it the new recommended way ( EXEC
PGM=3DRHDCOMVS,PARM=3D('WTOR=3DWTOREXIT') ), 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 f=
ails when executed the new way would be welcome also.


STINIT DS 0H SUBTASK INIT ROUTINE
* ESTABLISH OPERATOR COMMUNICATIONS AND REMOVE START MSG
EXTRACT MF=3D(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=3DWAITNAM,ENTRY=3D&WAIT IDENTIFY MESSAGE WAIT RTN
LTR R15,R15 ANY ERRORS FOUND?
BNZ ERROR YES, DISABLE THE WTOR EXIT
ATTACH SF=3D(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 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Assembler question
"The WTOREXIT puts out a message saying that it is disabled. (That's what happens when it branches to label ""ERROR"".) There is nothing from IDMS itself. The CV then comes up OK, but without the WTOREXIT functionality.

This problem occurs at both R16 and R17. We skipped R15, and the new method wasn't availble before that.

Outcomes