zOs/REXX/DBXR2

$#@
call iiIni
rz = sysvar(sysnode)
say m.ii_rz2db.rz
do dx=1 to words(m.ii_rz2db.rz)
    dbSys = word(m.ii_rz2db.rz, dx)
    call adrTso rename "'dsn.dbx"dbSys".DDL'" "'dsn.dbx"dbSys".DDI'"
    end