{
=============================================================================
   FORMULARIO         : INFMWD003
   OBJETIVO           : Desplegar los codigos y nombres de la maestra de
                        suplidores
   PROGRAMA Q. LO USA : INPRMT020
   AUTOR              : Tadeo A. Ferreras
   FECHA              : Agosto 30, 1993
=============================================================================
}
DATABASE exterior    
SCREEN
{
\g-----------------------------------------------\g
    Codigo      Nombre
\g-----------------------------------------------\g
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
    [sp]-[cod ] [nom                           ]
}
end
tables
cotb00001
attributes
sp  = cotb00001.cod_sp,comments = "Digite tipo de Suplidor";
cod = cotb00001.cod_sp_sec,noentry;
nom = cotb00001.nom_sp,noentry;
instructions delimiters " "
screen record datos_sp1[8](cod_sp,cod_sp_sec,nom_sp)
end