/* REXX *** */
/* determine environment */
'SUBCOM ISREDIT'
If RC \= 0 then Do
   Say 'Not in EDIT'
   Exit 4
   End
Address ISREDIT
'MACRO NOPROCESS'
If RC \= 0 then Do
   Say 'Not invoked as macro'
   Exit 4
   End
/* retrieve session info */
'(mode sclm) = SESSION'
Say 'Mode = 'mode' SCLM='sclm
If mode = 'EDIT' | mode = 'VIEW' then Do
  '(dsn idsn concat) = DATASET'
  '(mem) = MEMBER'
  Say "Dsname = '"dsn"' from '"idsn"' Sequence="concat
  If mem \= '' then Say 'Member='mem
  End
Exit 0