ARQ1:="mem:"+alltrim(NomeUsuario)+"1"
  aStruct_ARQ1:={{  "QTPD", "N", 05, 0 },;
            {  "QTST", "N", 05, 0 },;
            {  "QTCL", "N", 05, 0 },;
            {  "QTD1", "N", 05, 0 },;
            {  "VLR1", "N", 12, 2 },;
            {  "QTD2", "N", 05, 0 },;
            {  "VLR2", "N", 12, 2 },;
            {  "QTD3", "N", 05, 0 },;
            {  "VLR3", "N", 12, 2 },;
            {  "QTD4", "N", 05, 0 },;
            {  "VLR4", "N", 12, 2 },;
            {  "VEND", "C", 14, 0 },;
            {  "NOMV", "C", 40, 0 },;
            {  "FILX", "C", 02, 0 },;
            {  "FILI", "C", 02, 0 },;
            {  "CTRL", "N", 04, 0 },;
            {  "IMPR", "L", 01, 0 }}
  dbCreate( Arq1, aStruct_ARQ1, "DBFCDX")
  use &ARQ1 alias AREA1 new exclusiv
  inde on FILX+NOMV+VEND to &ARQ1
.
.
.
.
  AREA1->(dbclosearea())
  DBDROP(arq1)