DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
                   Despachos Parciales   
   \g-----------------------------------------------------\g
     Numero    Codigo          Cantidad       Fecha
   \g-----------------------------------------------------\g
     [nc    ][f]-[g]-[h ]-[i  ][ca         ][fe        ]
     [nc    ][f]-[g]-[h ]-[i  ][ca         ][fe        ]
     [nc    ][f]-[g]-[h ]-[i  ][ca         ][fe        ]
     [nc    ][f]-[g]-[h ]-[i  ][ca         ][fe        ]
     [nc    ][f]-[g]-[h ]-[i  ][ca         ][fe        ]
}
end

tables
prtb00015
attributes
nc   = prtb00015.num_oc,noentry;
f  = prtb00015.cod_n,autonext;
g  = prtb00015.cod_grupo,autonext;
h  = prtb00015.cod_tipo,autonext;
i  = prtb00015.cod_sec,autonext; 
ca = prtb00015.cantidad;
fe = prtb00015.fecha, format = "dd/mm/yyyy";
instructions
   screen record sprtb15[5] (num_oc,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,fecha)
   delimiters " "
end