Oder einfach

DCL &TYPE *CHAR 5
RTVMBRD ... FILETYPE(&TYPE)

&TYPE = *DATA bzw. *SRC