address "ISREDIT";"macro (whocall)"    /*rexx*/
   /*author: David McRitchie, "The REXX Macros Toolbox", 1993/12/17 */
   if whocall \= "" then whocall = whocall "-- "
   started = time('l') "started"
   zfnote = "line_before .zfirst = noteline"
   ended   = time('l') "on" date('n')
   zfnote "'"whocall||sysvar("sysicmd") started", ended at" ended"'"
   exit 0