/* REXX      This illustrates the use of LISTISPF in a PIPE.
             The specification to LISTISPF may be in either of two forms:
               (a) dsn
               (b) dsn MEMBERS mbr1 mbr2 ... mbrn
             The first delivers ALL members of the PO dataset, the 2nd
             only the specified member(s).  Note that the literal
             "MEMBERS" is required in the 2nd form.
*/
address TSO
arg dsn mbrs
mrc = Msg("OFF")
"PIPE  listispf" dsn mlit mbrs " | STEM STAT."
if rc = -3 then do; say "PIPES not installed.";exit;end
if rc = 507 then say "Member" mbrs "not found"
mrc = Msg(mrc)
do zz = 1 to stat.0
   say "*"zz"*" stat.zz
end
exit
if mbrs <> "" then mlit = "MEMBERS" ; else mlit = ""
mlit = ""
"PIPE  listpds " dsn mlit mbrs " | STEM STAT."