$#: 00010000
* 00010102
* extract rebind statement from ana 00011002
* and put each on one single line (for compare) 00012002
* 00013002
i = DSN.DBXDBOF.ANA(QX010011) 00020002
$#@ 00040000
$>. fEdit('A540769.tmp.text(o11) ::f') 00041002
call readDsn $i, i. 00050000
$do i=1 to i.0 $@[ 00060000
if space(i.i, 1) \== 'REBIND PACKAGE( -' then 00070000
iterate 00080000
i = i + 1 00090000
p = strip(i.i) 00101000
if right(p, 1) \== '-' then 00110000
call err 'bad pkg' i i.i 00120000
$$- 'REBIND PACKAGE('left(p, length(p)-1)')' 00130000
$] 00150000
$#out 20141027 13:55:43 00150102
$#out 20141027 13:22:50 00150201