zOs/REXX.O08/REBIND

/*--- all rebinds ----------------------------------------------------*/
rebindStmts: procedure expose m.
parse arg o, cr, tb
    sel = bQualifier '=' quote(cr, "'") and bName = quote(tb, "'")
    call dbg 'sel =' sel
    p = ':m.pk.sx.'
    call sqlPreOpen 8,
        , "select distinct dCollid, dName, dContoken, version, p.type,",
                          "p.bindTime, p.valid, p.operative",
              "from sysibm.sysPackDep d, sysibm.sysPackage p" ,
              "where bType in ('P', '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"
    do sx=1 while sqlFetchInto(8, ':col, :nam, :cTo, :ver, :typ,' ,
                             ':bTi, :val, :ope')
        call dbg sx col nam c2x(cTo) ver typ bTi 'vo' val ope
        st = 'PACKAGE('strip(col)'.'strip(nam)
        if typ = 'T' then
            st = 'REBIND TRIGGER' st')'
        else
            st = 'REBIND' st'.('strip(ver)'))'
        call mAdd o, st '-'
        call mAdd o, '  /* valid='val', op='ope', lastBind='bTi '*/'
        end
    call sqlClose 8
    return sx-1
endProcedure rebindStmts