database marmotech   
screen size 24 by 80
{
         Fecha     [f1         ]
         Tipo      [tp]
         Orden     [f2       ]
         Cerradas  [c]                        
}
end
tables
cotb00014
cotb00015
attributes
f1  = cotb00014.fech_oc,format = "dd/mm/yyyy", comments = 
"Imprimir ordenes en una fecha o en un rango de fecha ej. ddmmyy:ddmmyy";
tp  = cotb00015.tipo,include = ("01","02","03","04"),comments =
"Tipo : (01) Mat. Prima (02) Productos Terminados (03) Repuestos";
f2  = cotb00014.num_oc,comments =                         
"Imprimir una orden digite el #### de orden, Buscar rango de orden ####:####";
c   = cotb00014.cierre,include = ("S","N"),comments = 
"Digite Una -S- Para las cerradas o -N- para las abiertas";   
  instructions
     delimiters " "
end