On Friday, 03/05/2010 at 03:39 EST, Mike Walter <[email protected]> wrote: > Sure, Chuckie... go ahead and tease anyone running a z/VM before z/VM 5.3 > where the rexx stsi() function came in!
Mike, you have apparently forgotten that that I posted a sample STSI ASSEMBLE program in September 2007. (sigh) :-) http://listserv.uark.edu/scripts/wa.exe?A2=ind0709&L=IBMVM&P=R5030 It is a small exercise to extend that program: : USING SYSIB111,R2 L R0,R0_111 Set function code L R1,R1_111 and selectors to 1.1.1 STSI SYSIB111 APPLMSG TEXT='Machine is &&1-&&2', X SUB=(CHARA,(MACHTYPE,4),CHARA,(MACHMODL,16)) BR R10 DROP R2 : DS 0D R0_111 DC X'10000001' FC=1,SC1=1 R1_111 DC FL4'1' SC2=1 * SYSIB111 DSECT DS 8F RESERVED DS CL16 Manufacturer MACHTYPE DS CL4 Machine Type DS 3F RESERVED MACHCAP DS CL16 Model Capacity Identifier DS CL16 Sequence no. DS CL4 Plant of manufacture MACHMODL DS CL16 Model : (The above requires VMFHLASM STSI DMSVM. If you don't have HLASM, then you will have to get rid of underscores and hand-code the STSI as X'B27D2000', then VMFASM STSI DMSVM.) Alan Altmark z/VM Development IBM Endicott
