Environment env
INTEGER resp
n_macip uo_macip
/* Variable Setting */
resp = GetEnvironment(env) //시스템 환경을 읽어오는 함수
CHOOSE CASE env.OSType //OS TYPE(파워빌더는 7개 인식)
CASE aix!
is_ostype = 'AIX'
CASE hpux!
is_ostype = 'HPUX'
CASE macintosh!
is_ostype = 'MacIntosh'
CASE osf1!
is_ostype = 'OSF1'
CASE sol2!
is_ostype = 'Solaris 2'
CASE Windows!
is_ostype = 'Windows'
CASE Windowsnt!
is_ostype = 'Windows NT'
CASE ELSE
is_ostype = 'etc'
END CHOOSE
uo_macip = CREATE n_macip
uo_macip.uf_getipaddr(is_ip)
uo_macip.uf_getmacaddr(is_macaddr)
gs_ip = is_ip
gs_macaddr = is_macaddr
