zOs/SQL/CATDBX

select * from sysibm.sysPackDep
    where bQualifier='BE01A1A'
      and bName  in ('A111A01')
      ;
   list 1
    expanding TB OA1A01.TBE111A1
     ts BE01A1A.A111A01, 128 parts, 1 tables: OA1A01.TBE111A1, auth w
 --- no utility statements generated
    238 *-*    call sqlPreOpen 8,
                    , "select distinct dCollid, dName, dContoken, versio
 e,",                                  "p.bindTime, p.valid, p.operative
                            "from sysibm.sysPackDep d, sysibm.sysPackage
                             "where bType = 'R'" ,
                                  "and d.dLocation = p.location" ,
                                   "and d.dCollid = p.collid" ,
                                    "and d.dName = p.name" ,
                                     "and d.dConToken = p.conToken" ,
                                      "and ("sel")" ,
                                   "order by 2, 4, 1"
        >>>      "8"
        >>>      "select distinct dCollid, dName, dContoken, version, p.
 bindTime, p.valid, p.operative from sysibm.sysPackDep d, sysibm.sysPack
 ere bType = 'R' and d.dLocation = p.location and d.dCollid = p.collid a
 me = p.name and d.dConToken = p.conToken and ( (bQualifier='BE01A1A' an
 in ('A111A01'))) order by 2, 4, 1"
   1532 *-*     sqlPreOpen:
 IRX0100I +++ Interactive trace.  TRACE OFF to end debug, ENTER to conti

say sel
  (bQualifier='BE01A1A' and bName in ('A111A01'))

   1532 *-*     procedure expose m.

   1533 *-*     parse arg cx, src, descOut, descInp
        >>>       "8"
        >>>       "select distinct dCollid, dName, dContoken, version, p
 .bindTime, p.valid, p.operative from sysibm.sysPackDep d, sysibm.sysPac
 here bType = 'R' and d.dLocation = p.location and d.dCollid = p.collid
 ame = p.name and d.dConToken = p.conToken and ( (bQualifier='BE01A1A' a
  in ('A111A01'))) order by 2, 4, 1"
        >>>       ""