per SQL: RTVNETA SYSNAME?

[CaddyMajor]

CLLE-Code:

PGM &SYSNAME
DCL &SYSNAME *CHAR 8
RTVNETA SYSNAME(&SYSNAME)

Das mit 15 + CRTSRVPGM umwandeln etc.

Dazu ne SQL-Funktion

create function LIB/sysname ()
returns char(8)
external name 'LIB/SYSNAME(SYSNAME)'
language cl
not deterministic
no sql
parameter style db2sql
no external action

Dann kannst mit im SQL z.B. per values(SYSNAME()) drauf zugreifen.

Funktioniert auf jeden Fall :-)