zOs/SQL/SERVER

call sqlConnect dbaf
call sqlExec 'set :cuse = current server'
$£ 'current server' cuse'.'
call sqlDisconnect
$***out            20080908 10:52:29
current server CHSKA000DBAF    .
$***out            20080908 10:52:04
$***out            20080908 10:51:56
$***out