bin zufällig auf diesen alten beitrag gestossen --> einfache lösung:
DCL VAR(&REL) TYPE(*CHAR) LEN(9)
RTVOBJD OBJ(QSYS) OBJTYPE(*LIB) SYSLVL(&REL)
..vieleicht hilfts jemand anderen