Un codigo muy interesante, lo estoy estudiando para aprender nuevas cosas, hasta ahora luego de varias horas pude entenderlo en una grande medida pero no me queda claro para nada que sucede acá, podrias explicarmelo?
Especificamente no se que funcion cumple Aux-line y los diferentes procesos con J, JJ, AA
Gracias de antemano
Código COBOL:
IF AUX-LINE > 21
DISPLAY
"Presiones Enter para Continuar/F2 para Retroceder"
at line 23 col 2 with reverse-video
accept sn line 23 col 1 with prompt
UNDERLINE UPDATE end-accept
MOVE 11 TO AUX-LINE
PERFORM VARYING J FROM 11 BY 1 UNTIL J > 21
display TEXTO-LIMPIO at line J col 1
END-PERFORM
IF F2
IF JJ = 12
go to consulta
ELSE
COMPUTE JJ = JJ - 11
MOVE 11 TO AUX-LINE
go to consulta-display
END-IF
END-IF
END-IF.
GO TO consulta-display.
consulta-pregunta.
DISPLAY
"Presiones Enter para Continuar/F2 para Retroceder"
at line 23 col 2 with reverse-video
accept sn line 23 col 1 with prompt
UNDERLINE UPDATE end-accept .
IF F2
IF JJ < 12
GO TO CONSULTA
ELSE
COMPUTE AA = (AUX-LINE - 11) + 1
COMPUTE JJ =
(JJ + (11 - AA) - 22 ) + 1
MOVE 11 TO AUX-LINE
PERFORM VARYING J FROM 11 BY 1 UNTIL J > 21
display TEXTO-LIMPIO at line J col 1
END-PERFORM
GO TO consulta-display
END-IF
END-IF.
fin-consulta.
exit.