/* REXX */
/* Default Edit Macro 'MYMACRO' */
	trace N
	"ISPEXEC CONTROL ERRORS RETURN"
/* Override built in functions with homegrown macros */
	"ISREDIT DEFINE BNDS MACRO CMD"
	"ISREDIT DEFINE EDIT MACRO CMD"
	/* Set Model Class based on DSN */
	"ISREDIT (DSN)=DATASET"
parse value reverse(dsn) WITH lastnode "." .
	lastnode=reverse(lastnode)
	select
		when lastnode="ISPCLIB"
			then do
	 	 	 	
	"ISREDIT (CARD)=LINE .ZF"
if rc=0 & find(card," REXX ")=0 then "ISREDIT MODEL CLASS CLIST" else "ISREDIT MODEL CLASS REXX"
					end
		when lastnode="ISPPLIB"
then "ISREDIT MODEL CLASS PANELS"
		when lastnode="ISPSLIB"
then "ISREDIT MODEL CLASS SKELS"
		when lastnode="ISPMLIB"
then "ISREDIT MODEL CLASS MSGS"
		otherwise nop
	end
	/* Show the ISPF statistics */
	"ISREDIT (MBR)=MEMBER"
	if mbr=""
		then exit
	zlmdate=""
"ISPEXEC LMINIT  DATAID(DATAID)   DATASET('"dsn"') ENQ(SHR)"
	"ISPEXEC LMOPEN  DATAID("dataid") OPTION(INPUT)"
"ISPEXEC LMMFIND DATAID("dataid") MEMBER("mbr") STATS(YES)"
	if zlmdate=""
		then zedlmsg="No stats exist for this member"
		else do
parse var zlmdate yy 3 4 mm 6 7 dd
				mdate=mm"/"dd"/"yy
parse var zlcdate yy 3 4 mm 6 7 dd
				cdate=mm"/"dd"/"yy
zedlmsg="Last Modified "mdate" at "zlmtime" by "zluser, " (Created "cdate", "strip(zlcnorc)" lines)"
			end
	zedsmsg=""
	"ISPEXEC LMFREE DATAID("dataid")"
	"ISPEXEC SETMSG MSG(ISRZ000)"
	exit
Command: