/* REXX       SOURCE      Show results of a 'parse source'

*/ arg argline                         /* pro-forma quick-start      */
CLR. = "CLEAR"
CLR.CMD = "CLS"

baseaddr = address()                   /* might be 'TSO'             */
arg parms "((" opts
opts = Strip(opts,"T",")")
parse var opts "TRACE"  tv  .
parse value tv "N"  with  tv .
rc = Trace("O"); rc = Trace(tv)

   parse source  sys_id  how_invokt  exec_name  DD_nm  DS_nm,
                     as_invokt  cmd_env  addr_spc  usr_tokn

(CLR.baseaddr)
say
say "       Sys ID:" sys_id
say "  How Invoked:" how_invokt
say "    EXEC Name:" exec_name
say "       DDName:" DD_nm
say "       DSName:" DS_nm
say "   As Invoked:" as_invokt
say "  Command Env:" cmd_env
say "Address Space:" addr_spc
say "   User Token:" usr_tokn
say " Base address:" baseaddr

exit                                   /*@ SOURCE                    */