Hallo,

ein CL-PGM erstellen und dieses im Menü ablegen.

CL-PGM macht dann folgendes:

PGM
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
RTVUSRPRF USRPRF&USER)
IF COND(&USER *EQ 'JONNY') THEN(DO)
GRTOBJAUT USER(&USER)
CALL RPG-PGM
RVKOBJAUT USER(&USER)
ENDDO
ELSE
CALL RPG-PGM (für alle anderen User)
ENDPGM

Gruss
Bodo