database rayovac   
screen size 24 by 80
{
      Maestra de Procedencia de Depositos
\g----------------------------------------------
   Procedencia  Descripcion
\g----------------------------------------------
   [f0    ]  [f002                          ]
   [f0    ]  [f002                          ]
   [f0    ]  [f002                          ]
   [f0    ]  [f002                          ]
}
end
tables
tetb00002
attributes
f0   = tetb00002.procedencia,
       comments = "<Esc> Asigna el valor encontrado al valor deseado";
f002 = tetb00002.descripcion,noentry;
instructions
   screen record s_procedencia[4] (procedencia,descripcion) 
   delimiters " "
end