Programmname im CL ermitteln

[harkne]

Hallo zusammen,

habe ich im CL-Programm die Möglichkeit den eigenen Programmnamen zu ermitteln.

So wie im RPG über die Programmstatusdatenstruktur.

Viele Grüße und schöne Weihnachtsfeiertage Harkne

[Robi]

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