   SELECT * INTO p_compania.*
   FROM companias
   LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
   LET fecha = today USING "dd/mm/yy"  
   LET hora = time
   DISPLAY p_compania.nombre CLIPPED AT 4,l
            ATTRIBUTE (REVERSE,YELLOW)
