18 lines
281 B
Plaintext
18 lines
281 B
Plaintext
GLOBALS "cgprgb000.4gl"
|
|
|
|
MAIN
|
|
|
|
DEFER INTERRUPT
|
|
CALL STARTLOG("cgprmt020.log")
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
CONNECT TO "decomarmol" AS "MSSQL" USER usuarios USING clave
|
|
|
|
CALL cgprmt020()
|
|
|
|
END MAIN
|
|
FUNCTION cgprmt020()
|
|
|
|
|
|
END FUNCTION |