Getting info about your MVS environment

/* rexx */ 
say "user :" userid(); 
say "mvs :" mvsvar('sysmvs'); 
say "sysname :" mvsvar('sysname'); 
say "opsys :" mvsvar('sysopsys'); 
say "sysplex :" mvsvar('sysplex'); 
say "sysclone :" mvsvar('sysclone'); 
say "DfpLevel :" mvsvar('sysdfp'); 
say "SMFid :" mvsvar('syssmfid'); 
say "SMS is? :" mvsvar('syssms'); 
cvt=c2d(storage(10,4)); 
csd=c2d(storage(d2x(cvt+660),4)); 
hid=c2d(storage(d2x(cvt+x2d(42c)),4)); 
pccavt=c2d(storage(d2x(cvt+764),4)); 
do cpu=0 to 15; 
pcc=c2d(storage(d2x(pccavt+(cpu*4)),4)); 
if pcc=0 then leave; 
serial=storage(d2x(pcc+4),8); 
cpuid=storage(d2x(pcc+12),4) 
say "cpu :" right(cpu,2,'0') " id: " cpuid " serial: " serial 
end 
ecvt=c2d(storage(d2x(cvt+140),4)) 
say "CBID :" storage(d2x(ecvt+000),4) 
say "HD-name :" storage(d2x(ecvt+336),8) 
say "LPAR name :" storage(d2x(ecvt+344),8) 
say "LPAR# :" c2d(storage(d2x(csd+252),1)) 
say "VMNM :" storage(d2x(ecvt+352),8) 
say "TYPE :" storage(d2x(hid+26),6) 
say "MODEL :" storage(d2x(hid+32),3) 
say "FACTURE BY :" storage(d2x(hid+35),3) 
say "PLANT :" storage(d2x(hid+38),2) 
say "SEQNO :" storage(d2x(hid+40),12)