SCHEMA smarmotech
GLOBALS

  DEFINE unidad CHAR(3),
         regi SMALLINT,
         p_param CHAR(1)

  DEFINE fecha_inicial_py,fecha_final_py,p_fechas DATE,
         p_companias RECORD LIKE companias.*
  DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
         CHAR(3),
        cmd,imprime,copia CHAR(150),archivo CHAR(80) 

  DEFINE cantidad_total DECIMAL(10,2), 
         criterio CHAR(1000), 
         selec4,selec,selec1,selec2,selec3 CHAR(1500), 
         manual,p_status,decide,identifica,modifica,opc,bandera,existe,
         verdad,clasifica CHAR(1),
        
         opcion,opt CHAR(2),
         descrip1,descrip2 CHAR(60),
         usuarios,clave CHAR(50),
         descrip3,descrip4,descrip_esp1,nombre_p,nom_p CHAR(30),
         tipo_papel,cuenta,p_act,idx,curr1,curr,fila,linea,scr_l,
         dia_aduana,num_req_a SMALLINT               
  DEFINE numero_msg LIKE msgtable.cod_msg,
         impresor SMALLINT

DEFINE letras RECORD  
       negrillas_on  CHAR(6),
       negrillas_off CHAR(6),
       doble_on      CHAR(6),
       doble_off     CHAR(6),
       comp_on       CHAR(6),
       comp_off      CHAR(6),
       doce          CHAR(6),
       normal        CHAR(6)
END RECORD

END GLOBALS