©
unknownartist@newsgroup
The program returns the name of the logical partition.
/*---REXX--EXEC-GETSMFID---*/
SMCA = D2X(C2D(STORAGE(10,4))+197)
SMFID = D2X(C2D(STORAGE(SMCA,3))+16)
SMFID = STORAGE(SMFID,4)
SAY 'LPAR IS' SMFID
EXIT
back to The Power of REXX