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) - oder RTVNETA in einem separaten CL-Programm.