SCHEMA decomarmol
GLOBALS
DEFINE usuarios,clave CHAR(50)
DEFINE selec CHAR(200)
 DEFINE p_companias RECORD LIKE companias.*
END GLOBALS 
MAIN
    DEFER INTERRUPT
    CALL ARG_VAL(1) RETURNING usuarios
    CALL ARG_VAL(2) RETURNING clave
  {  CALL ARG_VAL(3) RETURNING impresor}

 
    CONNECT to "decomarmol"  USER  usuarios USING clave
    
    SELECT a.* INTO p_companias.* FROM companias a
    CALL backup()
END MAIN

FUNCTION backup()
        LET selec="BACKUP DATABASE decomarmol_old ",
   " TO DISK = 'C:\\Users\\luism\\OneDrive\\Documentos\\decomarmol.bak' ",
   "WITH FORMAT, ",
      "MEDIANAME = 'SQLServerBackups', ",
      "NAME = 'Full Backup of decomarmol_old'" 

  PREPARE comando FROM selec
      DECLARE busca_servicios SCROLL CURSOR FOR comando
      OPEN busca_servicios
      
   DISPLAY selec
END FUNCTION