© 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)