Je nach Release geht das auch mit einem 1-Zeiler in SQL:

Code:
Exec Sql Select v_client_ip_address into :Host_Var from table(QSYS2.GET_JOB_INFO('*')) t;
oder
Code:
Exec Sql set :host_var = SYSIBM.client_ipaddr;
lg Andreas