Systemname im RPGLE-Pgm ermitteln

[AK1]

Wie kann ich den Systemnamen der AS/400 in einem RPG-Pgm ermitteln?
Analog zur DDS beim Maskenerstellen über *SYSNAME. Bekomme in den Namen über Datenstruktur (System oder Programm?) Wenn ja, wäre die Stelle von-bis interessant.
Danke.

[malzusrex]

Nutze die SQL dazu



d system s 10

c/free
exec sql set :system = CURRENT SERVER ;

dsply system;
*inlr = *on ;
/end-free


Gruß
Ronald

das gleiche noch etwas abgewandelt


d system s 10
c/free
exec sql values CURRENT SERVER into :system;
dsply system;
*inlr = *on ;
/end-free

[Pikachu]

Oder nimm API Retrieve Network Attributes (QWCRNETA) (http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/apis/qwcrneta.htm) - oder RTVNETA in einem separaten CL-Programm.