© unbekannterkünstler@newsgroup

Das Programm liefert den Namen der 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