zOs/SQL/PRTB2PK

$#@
call sqlConnect 'RZ1/DBTF'
$;
$<=[
select strip(pk.NAME) pkg
  , max(pcTimestamp) pc
  from sysIbm.sysPackage pk
  where  (pk.location, pk.collid, pk.name, pk.conToken) in
  (select pkd.dLocation, pkd.dCollid, pkd.dName, pkd.dConToken
    from sysIbm.sysPackDep pkd
    where  (pkd.bQualifier, pkd.bName) in
    (select t.creator, t.name
      from sysIbm.sysTables t
      where t.type not in ('A', 'V') and  t.name = 'SYSTABLES'
  ) )
  group by pk.name
  order by pk.name
$]
$@<.[sqlRdr()$]
call fTabAuto
call sqlDisconnect
]$#out                                              20140310 17:32:57
O.160.1
$#out                                              20140310 17:31:56
J J
0 0
$#out                                              20140310 17:31:26
J J
0 0
$#out                                              20140310 17:30:44