/* Rexx - browse tso -- run a tso command and show the outtrap'ed     */
/*                      Output in browse                              */
/*                                                                    */
/*  This program is intended to be assigned a pf key:                 */
/*                          Tso %Btso                                 */
/*  Place a tso command on the command line and press the key         */
/*                                                                    */
/*--------------------------------------------------------------------*/

Arg cmd
If cmd = "" Then
  Do;
    Address ispexec "SETMSG MSG(ISPG054)"
    Exit
  End
q = outtrap(trap.,10000,concat)
cmd
q = outtrap(off)
If trap.0 > 0 Then
  Do
    Do suffix = 0 to 9999 Until rc = 4
      Address ispexec "QBASELIB BTSO" || right(suffix,4,"0") " ID(X)"
    End
    ddname = "BTSO" || right(suffix,4,"0")
    "ALLOC F("ddname") UNIT(VIO) DSO(PS) RECFM(V B) LRECL(32756)" ,
           " NEW DEL REU"
    "EXECIO "trap.0" DISKW "ddname" (FINIS STEM TRAP."
    Address ispexec "LMINIT DATAID(TRAP) DDNAME("ddname") ENQ(SHR)"
    Address ispexec "BROWSE DATAID("trap")"
    Address ispexec "LMFREE DATAID("trap")"
    "FREE F("ddname")"
  End