You can use authorized services IARBRVxx for this purpose.
Best regards,
Philippe Leite
You can use TPROT for this purpose but it's a privileged instruction.
Regards,
Philippe Leite
LAB Services - IBM
Em sáb., 5 de mar. de 2022 09:45, João Reginato
escreveu:
> Hi
>
> Which is the best instruction to test if a virtual address is still valid
> to
> avoid an
ct on Condition (BIC).
"Indirect" because non-relative branch instructions depend on base register
content at the time of execution.
Regards,
Philippe Leite
LAB Services - IBM
Macro IHAFACL
Regards,
Philippe Leite
LAB Services - IBM
There is another way to test facility bits:
We can use field FLCFACL on PSA+x'C8'.
Regards,
Philippe Leite
LAB Services - IBM
Check Macro EDTINFO.
On Mon, Sep 6, 2021 at 11:12 AM Tony Thigpen wrote:
> I want to programmatically determine what tape drives are assigned to a
> specific esoteric, in this case 'VTL3590'. Can someone point me to the
> relevant macro or documentation that can get me started?
>
>
> Tony
Jumps fixed:
MACRO
TBIT ,,
LCLC
SETC 'TBT'.''
LR14,
SRDL 14,3
SRL 15,29
LAY 1,(14)
AIF ('' EQ 'TEST').ACON
AIF ('' EQ 'FLIP').ACON
AIF ('' EQ 'ON').ACON
AIF ('' EQ
TEST fixed:
MACRO
TBIT ,,
LCLC
SETC 'TBT'.''
LR14,
SRDL 14,3
SRL 15,29
LAY 1,(14)
AIF ('' EQ 'TEST').ACON
AIF ('' EQ 'FLIP').ACON
AIF ('' EQ 'ON').ACON
AIF ('' EQ
Improved version with TEST and FLIP options:
MACRO
TBIT ,,
LCLC
SETC 'TBT'.''
LR14,
SRDL 14,3
SRL 15,29
LAY 1,(14)
AIF ('' EQ 'TEST').ACON
AIF ('' EQ 'FLIP').ACON
AIF ('' EQ
Now it's correct:
MACRO
TBIT ,,
LCLC
SETC 'TBT'.''
LR14,
SRDL 14,3
SRL 15,29
LAY 1,(14)
AIF ('' EQ 'ON').ACON
AIF ('' EQ 'OFF').ACOFF
AGO .ERROR1
.ACONANOP
DS0H
Hi Charles,
You're right. I forgot that I could use the base register on SRL. I always use
the simple form SRL Rx,n.
Thank you.
Updated macro:
MACRO
TBIT ,,
LCLC
SETC 'TBT'.''
LR14,
SRDL 14,3
SRL 15,29
LAY
.
Best regards,
Philippe Leite
z/OS System Programmer
*
MEND
Philippe Leite
z/OS System Programmer
ANOP
EQU *
MEND
Tell me if it works for you.
Best regards,
Philippe Leite
z/OS Systems Programmer
15 matches
Mail list logo