GLOBALS "cgprgb000.4gl"

MAIN

 DEFER INTERRUPT
 CALL STARTLOG("cgprmt020.log")
 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave
 
  CONNECT TO "smarmotech" AS "MSSQL" USER usuarios USING clave
 
  CALL cgprmt020()

END MAIN
FUNCTION cgprmt020()
 

END FUNCTION