zOs/REXX/DORZ

$#@
call iiini
$@do rx=1 to words(m.ii_rz) $@[
    rz = word(m.ii_rz, rx)
    if wordPos(rz, 'RR2') > 0 then do
        say 'skipping' rz
        iterate
        end
    say rz
    call csmDel rz, 'DSN.DBX.GLBCHG(#OROFILE)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#OROFILN)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#OROFILT)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#PROFILO)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#PROFILT)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#PROFIL4)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#QROFILE)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#QROFILN)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#QROFILT)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#OROFILE)'
    call csmDel rz, 'DSN.DBX.GLBCHG(#WROFILE)'
    $]
$#out                                              20140530 17:59:16
$#out                                              20140530 17:57:08
*** run error ***
rc=8 csm mDelete RR2/DSN.DBX.GLBCHG(#OROFILE):
CSMXC43E NO CONNECTION TO SYSPLEX:RR2 AVAILABLE
$#out                                              20140530 17:54:03
$#out