/* REXX */
parse upper arg consname stc_name .
if consname = '' then
  consname = 'DUMPKUN' /* Default Console Name */
 x = outtrap('a.')
"@cmd 'd smf' CN("consname")"
 x = outtrap('off')
 do cntr = 1 to a.0
   say a.cntr
   if subword(a.cntr,6,2) = 'DUMP REQUIRED' then do
     _dsn= substr(subword(a.cntr,2,1),3)
     if stc_name = '' then
       stc_name = 'DUMPKUNG' /* Default STC Name */
     _cmd = "S " || stc_name || ",INDSN=''" || _dsn || "''"
     say _cmd
    "@cmd '"_cmd"' CN("consname")"
   end
 end