/* REXX */
evds     =opca.systm.ev                    /* ev ds     */
address ispexec
   "control errors return"
/* ermitteln aller ev-datasets */

x = outtrap(dsn.)
address tso
"listc level("evds")"
v=dsn.0-1
o = outtrap(OFF)
do i=1 to v
    retc=0
    pre=substr(dsn.i,1,7)
    if pre="NONVSAM" then
    do
       name=substr(dsn.i,17,44)
       name=strip(name)
       address tso
          "alloc da('"name"') fi(indd) shr reuse"
       ....
    end
end
ec=0