/* REXX     PREVNAME  In a PDS2SEQ backup file, some of whose lines are
                      shown, find for each the prior ./ line showing the
                      membername.
*/
address ISREDIT
"MACRO (opts)"
if rc = 20 then do                     /* ISREDIT not available      */
   address TSO
   parse source  .  .  exec_name .
   ex_nam = Left(exec_name,8)          /* predictable size           */
   helpmsg = ex_nam "is an EDIT macro"
   say helpmsg
   end
parse var opts  parms "((" opts
upper opts
opts = Strip( opts,'T',')' )           /* yes we want no bananas     */
parse value ""  with  tv
parse var opts "TRACE" tv .
parse value tv "N" with tv .
rc = Trace('O') ; rc = Trace(tv)

"F P'^' LAST NX "
do forever
   "F ./ 1 PREV "
   if rc > 0 then leave
   "F P'^' PREV NX "
   if rc > 0 then leave
end                                    /* forever                    */

exit                                   /*@ PREVNAME                  */