El lenguaje es PL/I
lo poco que llevo es esto pero no me aclaro del todo:
Cita: MIENTRAS NO SEA FIN DE FICHERO
LEER DATOS
IF CAMPO1 = CAMPO1 ANTERIOR
IF XXXX = TABLA.XXXX
CONT+1
IMPORTE = ACUM + IMPORTE
ELSE
?
CONT+1
IF CAMPO1 ¬= CAMPO1 ANTERIOR THEN DO
GRABAR DATOS
GENERAR NUEVO REGISTRO?
FIN IF
GRABAR DATOS
FIN MIENTRAS
El programa recibe un archivo con los datos, ya ordenados por el campo1 en cuestión.