Systemname im RPGLE-Pgm ermitteln

[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