traprc = Outtrap('lc.') "LISTC LVL("catalog_pref") VOLUME" traprc = Outtrap('off') dsn = "" do cx = 1 to lc.0 if Wordpos("NONVSAM",lc.cx) > 0 then, /* found */ dsn = Word(lc.cx,3) /* grab dsname */ if dsn ^= '' then, /* valid dsn */ if Pos("VOLSER-",lc.cx) > 0 then do /* VOLUME record */ parse var lc.cx "VOLSER" volid . /* get the volid */ volid = Right(volid,6) if volid ^= "MIGRAT" then do /* not migrated */ /* process this dsname -*/ end dsn = '' /* no longer valid */ end end /* cx */ rc = trace("o"); rc = trace(tv)