On Thursday, 09/06/2007 at 10:19 EDT, Derek Ackerman
<[EMAIL PROTECTED]> wrote:
> Does anyone have an example of obtaining basic systrm info from CMS
> assembler?
What kind of information are you looking for?
> I have several back level VM systems so I can't use the new REXX
> API. I need output from FC=1 and SEL1 & 2 = 1. My concerns are: does
the
> instruction require 64 bit mode? Does the 4K data area have to be
a REAL level
> 1 storage address? I didn't see that in the POPs manual.
It has to be "guest real" and does not require z/Architecture mode.
(Otherwise REXX couldn't issue it, either!)
Here is my program to extract the LPAR name. Note that I use a static
memory allocation of 8K (BUFFER) and then find the 4K boundary within it
at run time.
* THIS PROGRAM DISPLAYS THE LPAR NAME
QLPAR CSECT
USING *,R12
LR R12,R15
LR R10,R14
LA R2,BUFFER
AHI R2,4095
SRL R2,12
SLL R2,12 Round off to 4K boundary
*
USING SYSIB222,R2
SLR R0,R0
ICM R0,B'1000',FC Function code
IC R0,SEL1 Selector 1
LHI R1,2 Selector 2
STSI 0(R2)
APPLMSG TEXT='LPAR NAME = &&1', X
SUB=(CHARA,(LPARNAME,8)),COMP=NO
BR R10
FC DC X'20' Function code
SEL1 DC X'02'
LTORG ,
DS 0D
BUFFER DS 8192X'00'
*
SYSIB222 DSECT
DS 11F
LPARNAME DS CL8
REGEQU
END QLPAR
Alan Altmark
z/VM Development
IBM Endicott
