database smarmotech 
screen size 24 by 80
{

\gp---------------------------------------------------------------------------q\g
\g|\gDocumento Numero [f000  ]                                                  \g|\g
\g|\gCodigo Movimiento [m ] [m1                                      ]          \g|\g
\g|\gfecha            [f001    ] Bodega :[p1 ]                                  \g|\g
\gb---------------------------------------------------------------------------d\g
  Codigo            Cantidad  Unidad    D e s c r i p c i o n
\g-----------------------------------------------------------------------------\g
 [a][b][c ][d  ][f02        ] [p  ]     [k                             ] 
 [a][b][c ][d  ][f02        ] [p  ]     [k                             ]
 [a][b][c ][d  ][f02        ] [p  ]     [k                             ]
 [a][b][c ][d  ][f02        ] [p  ]     [k                             ]
 [a][b][c ][d  ][f02        ] [p  ]     [k                             ]
 [a][b][c ][d  ][f02        ] [p  ]     [k                             ]
\g-----------------------------------------------------------------------------\g
}
end
tables
intb00006,
intb00001,
cotb00001
attributes
f000 = intb00006.num_doc,autonext,
    comments = 
"Digite Numero Documento O Presione <Esc> Para Buscar Todos Los Documentos";
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
    comments = "Digite Fecha Documento";
a    = intb00006.cod_n,autonext,
    comments = "Digite el NIVEL";
b    = intb00006.cod_grupo,autonext,
    comments = "Digite el GRUPO"; 
c    = intb00006.cod_tipo,autonext,
    comments = "Digite el TIPO"; 
d    = intb00006.cod_sec,autonext,
    comments = "Digite la SECUENCIA   "; 
f02  = intb00006.cantidad_2,autonext,
    comments = "Digite La Cantidad Ordenada";
k    = intb00001.descrip_esp,noentry;
p    = intb00001.unidad_med,noentry;
p1   = intb00006.bodega,autonext;
m    = intb00006.cod_mov,autonext,autonext,
       comments = "Digite codigo del movimiento";
m1   = formonly.descrip_mov, noentry;
  INSTRUCTIONS
    SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,
                              cantidad_2,unidad_med,descrip_esp)
    delimiters " "
end