©
andywood@newsgroup
Das Programm liefert den Programmnamen aus "EXEC PGM=????????".
Auf diese Weise ist ein REXX-Programm in der Lage zu unterscheiden, ob es unter IKJEFT01 oder IRXJCL läuft
(oft sehr hilfreich).
/* REXX
Subject: How to find program executin environment under MVS
Andy Wood
*/
xp = storage(0000021c,4)
xp2 = ptr(xp,'b4'x)
xp3 = d2x(c2d(xp2) + c2d('168'x))
envname = storage(xp3,8)
say 'jobstepprogname=' envname
exit
ptr: procedure
address = c2d(arg(1))
offset = c2d(arg(2))
return storage(d2x(address+offset),4)
zurück zu The Power of REXX