In <[email protected]>, on
02/11/2014
at 05:50 PM, Jim Thomas <[email protected]> said:
> MSTA R0
> MSTA R12
What are you trying to do? The second MSTA replaces the data stored by
the first.
> L R11,PSAAOLD-PSA
> SETLOCK OBTAIN,
> ASCB=(11),
> TYPE=CML,
> MODE=UNCOND
> XR R4,R4
> L R7,PSAAOLD-PSA
Why noi use the copy in R11?
> L R1,=AL4(WORKAREA)
> MVCL R0,R14
What is ? Shouldn't that be, e.g.,
LR R0,R1
XR R14,R14
XR R15,R15
LA R1,LCLDSCTL
MVCL R0,R14
Presumably WORKAREA is defined to be something much larger than the
actual length of the obtained storage.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
ISO position; see <http://patriot.net/~shmuel/resume/brief.html>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
