database smarmotech   
screen size 24 by 80
{
  Movimiento [b  ][k                               ]
\g------------------------------------------------------\g
 Movimiento de agrupamiento 
\g------------------------------------------------------\g
 [m ]             [n                               ]         
 [m ]             [n                               ]         
 [m ]             [n                               ]         
 [m ]             [n                               ]         
}
end
tables
notb00013
attributes
b  = notb00013.cod_mov,
 comments = "Digite el numero del movimiento Principal";
k  = formonly.nombre1,noentry;

m  = notb00013.cod_mov_a,
 comments = "Digite el numero del movimiento a agrupar";
n = formonly.descrip_mov,noentry;
instructions
  screen record scr_mov[4] (cod_mov_a,descrip_mov)

end