21 lines
453 B
Plaintext
21 lines
453 B
Plaintext
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 |