"IBM Mainframe Assembler List" <[email protected]> wrote on
10/18/2023 01:56:58 PM:
> On 10/18/23 11:49:12, Dave Clark wrote:
> > ...
> > The z/VSE CALL macro does not have those last two keywords.
But,
> > I can just code ORG *-2 after the CALL to accomplish the same thing.
> > Thanks.
> >
> ORG or B into code generated by a macro whose source you don't
> control is genuinely dangerous.
Understood and I'm actually not going to use that method -- just
thought it would be acceptable in this situation, only. However, the
following is the solution I'm actually going with.
SHVPARMB DS 5F
SHVPLAST EQU *-4
LA R0,SHVPARM1 GET ADDRESS OF PARM 1
LA R1,SHVPARM2 GET ADDRESS OF PARM 2
LA R2,SHVPARM2 GET ADDRESS OF PARM 3
LA R3,SHVBLOCK GET ADDRESS OF PARM 4
STM R0,R3,SHVPARMB PUT IN PARM BLOCK
ST R5,SHVPLAST PUT ADDRESS OF ENV. IN PARM BLOCK
OI SHVPLAST,X'80' FLAG LAST PARM IN THE BLOCK
Sincerely,
Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300
Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331
*********************************************************************************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.
*********************************************************************************************
