DATABASE smarmotech
MAIN


DEFINE s_sel CHAR(200),
       p_usuario CHAR(80)
CONNECT TO "marmotech+driver='dbmftm90',source='ifxmarmotech'" USER "informix" USING "luismi001"

LET s_sel="SELECT SUSER_SNAME() "
PREPARE st_usr FROM s_sel
DECLARE cc_usr CURSOR FOR st_usr
LET p_usuario=NULL
OPEN cc_usr
FETCH cc_usr INTO p_usuario
IF STATUS<>0 THEN
LET p_usuario="NO USUARIOS CONECTADOS"
END IF
DISPLAY "USUARIO ",p_usuario
CLOSE cc_usr
FREE st_usr
END MAIN