Alguien me puede ayudar a corregir bien este codigo de modo que sea recursivo a nivel de hardware:
Inicio
Abrir archivos
Leer el primer nombreperiodico
DO WHILE hay mas nombre(s).periodici
PRINT fecha
PRINT NOMBRE.PERIODICO
Leer el primer registro(s).subcriptor
DO WHILE hay mas resgistros(s).suscriptor
IF transaccion= modificar.renovacion
THEN Duracion.suscrip=duracion.sucrip+Numero....
ELSE IF transacion=nueva
THEN PERFORM agregar.suscriptor
THEN duracion.suscrip=numero.semanas
ELSE IF transaccion=modificar.direccion
THEN PERFORM cambiar.direccion
ELSE IF transacion=eliminar.suscriptor
THEN PERFORM preparar.reembolsos.actualizar
PERFOM imprimir.reembolso.cheque
Duracion.suscrip=0
ELSE PERFOM error.en.transaccion
END IF
PERFOM preparar.suscriptor.lista
Leer otro registro.suscriptor
END DO
PERFOM imprimir.Suscriptor.lista
Obtener siguiente nombre.periodico
END DO
END
Cerrar archivos
