das

PGM &pgmnam

DCL &msgkey *CHAR 4
DCL &pgmnam *CHAR 10
DCL &sender *CHAR 80

SNDPGMMSG MSG( 'Dummy' ) +
TOPGMQ( *PRV * ) +
KEYVAR( &msgkey )
RCVMSG PGMQ( *PRV * ) +
MSGKEY( &msgkey ) +
RMV( *YES ) +
SENDER( &sender )

CHGVAR &pgmnam %SST( &sender 56 10 )
endpgm


in einem cl, das mußst du dann rufen

Gruß
und auch schöne Weihnachten
Robi