/* REXX       OPENTBLS    Lists all the tables that are open in this
                          session.

*/ arg argline                         /* pro-forma quick-start      */
address 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 value ""  with   tbls. .

address ISPEXEC
"QTABOPEN   LIST(tbls.)"
qt_rc = rc
say "QTABOPEN returned RC="qt_rc
do tx = 1 to tbls.0
   say  tbls.tx                        /*                            */
end                                    /* tbls0                      */

exit                                   /*@ OPENTBLS                  */