database smarmotech   
screen size 24 by 80
{
Codigo del Puerto [f000]
Nombre del Puerto [f001                          ]
Codigo el Pais    [a0 ] 
                  [a2                                                          ]
Ciudad            [a3                            ]
Duracion          [a1 ] dias
[j]
Usuario Creador  [f003     ]             Usuario Modificador [f005     ]
Fecha Creacion   [f004            ]      Fecha Modificacion  [f006            ]
}
end
tables
cotb00019
attributes
f000 = cotb00019.cod_pt,autonext,
       comments = "Digite el codigo el puerto";
f001 = cotb00019.nom_pt,upshift,
       comments = "Digite el nombre del puerto";
a0 = cotb00019.cod_pais,autonext,
     comments = "Digite el codigo del pais";
a2 = formonly.nom_pais,noentry;
a3 = cotb00019.ciudad,autonext,upshift,
     comments = "Digite la ciudad del puerto";
a1 = cotb00019.duracion,comments = "Digite el tiempo de travesia";
j = cotb00019.status_t,noentry;
f003 = cotb00019.us_crea,noentry;
f004 = cotb00019.fech_crea,noentry;
f005 = cotb00019.us_mod,noentry;
f006 = cotb00019.fech_mod,noentry;
instructions
delimiters " "
end