zOs/REXX/DRDACOM2
$@loadNew()
call sqlConnect DBOF
call sqlPreOpen 1, 'select collid, name, hex(contoken), version',
'from sysibm.sysPackage',
"where dbProtocol = 'P'",
"order by collid, name"
new = 0
old = 0
co = ' '
do while sqlFetchInto(1, ':coll, :pkg, :co, :vers')
if symbol('m.co2pkg.co') \== 'VAR' then
da = '10000000'
else if pkg \= m.co2Pkg.co then
say 'mismatch' pkg '==>' m.co2Pkg.co
else
da = 'm.co2last.co
else do
old = old + 1
$$ REBIND PACKAGE($-{strip(coll)'.'strip(pkg)'.(' $*+
|| strip(vers)})) -
$$ $'' DBPROTOCOL(DRDA)
end
if old // 1000 = 1 then
say 'new' new 'old' old
end
say 'new' new 'old' old
call sqlDisconnect
$@proc loadNew $@[
st = 0
$;
$<A540769.WK.REXX(DRDALAST)
$@for li $@[
if abbrev($li, $'$#out ') then do
if st=1 then
leave
st = 1
iterate
end
if st = 0 then
iterate
parse value $li with co 'pkg' pkg 'last' la .
co = strip(co)
pkg = strip(pkg)
m.co2pkg.co = pkg
m.co2last.co = translate('789a4512', la, '123456789a')
$]
$]
$#out 20100622 09:10:58
$#out 20100622 09:10:01
$#out 20100622 09:07:08
REBIND PACKAGE(RF.RF0520.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0520.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0520.(REPO000034)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0520.(REPO000036)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0520.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0520.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0520.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000028)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000032)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000034)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000036)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000051)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0530.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0540.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0540.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0540.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0550.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0550.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0550.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF0550.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000028)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000032)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000034)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000036)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000051)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF5020.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7010.(REPO000032)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7010.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7010.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7050.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7050.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7050.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7050.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7050.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7070.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7070.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7070.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7070.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7070.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7100.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7100.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7100.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7100.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7100.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7100.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7110.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7110.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7110.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7110.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7110.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000032)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000036)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7120.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7130.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7130.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7130.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7130.(REPO000049)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7130.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7130.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7130.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7140.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7140.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7140.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7140.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7140.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7140.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7150.(REPO000018)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7150.(REPO000022)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7150.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7160.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7160.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7160.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7160.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7170.(REPO000018)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7170.(REPO000022)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7170.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7180.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7180.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7180.(REPO000032)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7180.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7180.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF7180.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8000.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8000.(REPO000032)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8000.(REPO000034)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8000.(REPO000036)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8000.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8000.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8010.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8010.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8010.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8010.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8010.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8020.(REPO000024)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8020.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8020.(REPO000036)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8020.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8020.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8020.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000028)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000030)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000032)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000034)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000036)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000041)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000051)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8030.(REPO000053)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8040.(REPO000044)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8040.(REPO000051)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.RF8040.(REPO000046)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.YRFKDE.(REPO00004459761880)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.YRFKDE.(REPO00004659C7BB83)) -
DBPROTOCOL(DRDA)
REBIND PACKAGE(RF.YRFKDE.(REPO00004659C7BB83MVS)) -
DBPROTOCOL(DRDA)
$#out 20100622 09:06:36
$#out 20100621 15:07:36