zOs/REXX/WSTTX

$@=[
with inp (db, ts) as (
select 'WU99A1P','A997A'
 from sysibm.sysdummy1
union all
select 'CD01A1P','A998A'
 from sysibm.sysdummy1
)
,    deps as
(
 select distinct(dname) from sysibm.syspackdep
 join inp on bqualifier = db
)
select * from deps
$]
$|
$** call sqlwshini
 call sqlConnect 'RZ2/DBOF','w'
 call sqlStmts
$** sqlRdr()
$#out                                              20160906 11:49:33
fatal error in WST: adrTso rc=20 stmt=execio 100 diskR RMTOUT (stem M.O.174.1...
in wsh phase run
$#out                                              20160906 11:44:20
fatal error in WST: adrTso rc=20 stmt=execio 100 diskR RMTOUT (stem M.O.174.1.BU
in wsh phase run
$#out                                              20160906 11:38:36
fatal error in WST: adrTso rc=20 stmt=execio 100 diskR RMTOUT (stem M.O.174.1.BU
in wsh phase run
$#out                                              20160906 11:25:45
fatal error in WST: adrTso rc=20 stmt=execio 100 diskR RMTOUT (stem M.O.174.1.BU
in wsh phase run
$#out                                              20160906 11:25:26
fatal error in WST: adrTso rc=20 stmt=execio 100 diskR RMTOUT (stem M.O.174.1.BU
in wsh phase run
$#out                                              20160906 11:22:02
fatal error in WST: adrTso rc=20 stmt=execio 100 diskR RMTOUT (stem M.O.174.1.BU
in wsh phase run
$#out