Code: Alles auswählen.
DATA:
file(60),
object TYPE tadir-object VALUE 'FORM',
listfile(1) VALUE space,
binfile(1) VALUE space,
plangvec(60) VALUE space,
mastlang(1) VALUE space,
localfil(1) VALUE 'X'.
PARAMETERS obj_name(40).
PARAMETERS mode(6) default 'EXPORT'.
PERFORM rstxscrp(rstxr3tr) USING object obj_name mode file listfile
plangvec binfile localfil mastlang.