Dave,
Are you trying to set/define the X'80' bit as part of the SHVPARMB definition?
Or are you trying to use the assembler to tell you the byte an OI should target?
If the former, you can do either of the following, keeping in mind you would
need to be sure you do not negate the X'80' when you populate the list.
SHVPARMB DC A(0,0,0,0,0+X'80000000)
If the latter, your example using SHVPLAST is what I have done at times. I have
also done the following:
SHVPARMB DS 5A Parameter storage
SHVPLGTH EQU *-SHVPARMB Parameter storage length
... populate the parameters.
OI SHVPARMB+SHVPLGTH-4,X'80'
The nice thing about using the length as the EQU is you can use it
elsewhere (the only thing about this approach is SHVPLGTH must be defined
before SAVEPARM):
SAVEPARM DS 0F Parameter save area
ORG SAVEPARM+SHVPLGTH
DC ... continue with other data areas.
MVC SAVEPARM(SHVPLGTH),SHVPARMB
Bill Hitefield
> -----Original Message-----
> From: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
> On Behalf Of Dave Clark
> Sent: Wednesday, October 18, 2023 1:09 PM
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: Re: Variable-Length Parameter List Attributes
>
> "IBM Mainframe Assembler List"
> <ASSEMBLER-LIST@LISTSERV.UGA.EDU<mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU>>
> wrote on
> 10/18/2023 01:04:43 PM:
> > I would use CALL MF=E but you can always define a label for the OI
> > into the last word of the list.
>
>
> OK, so you're suggesting the following? ...and there isn't an
> attribute to
> retrieve the replication factor?
>
> SHVPARMB DS 5F
> SHVPLAST EQU *-4
>
>
> OI SHVPLAST,X'80'
>
>
> 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.
> ****************************************************************
> *****************************
