@DestinedBroken,
Código COBOL:
perform obtener-campos until entrada = "s"
Échale un vistazo a la lógica de esta parte. Cuando añades el primer registro, le pones la "s", en un momento dado tienes que limpiar el campo de la "s" porque queda ahí todo el rato.