Hola compañeros, independientemente de que un compilador permita o no cierta sintaxis, yo siempre programa de una forma estructurada, nunca utilizo punto al final solo si hay párrafos.
Mantengo un sangrado de 3 columnas, utilizo mas EVALUATE que IF, no utilizo NUNCA el comando GO.
Cuando programo en PowerCobol, procuro no escribir mucho en los eventos, si va a haber mucho código, prefiero llamar a un procedimiento mas explicativo.
Código COBOL:
WORKING-STORAGE SECTION.
01 VARIABLES.
02 CONTADOR PIC 9(8).
02 OPCION PIC 9.
02 VALOR PIC 99.
PROCEDURE DIVISION.
INITIALIZE VALOR
PERFORM VARYING CONTADOR FROM 1 BY 1 UNTIL CONTADOR > 10
DISPLAY 'LO QUE SEA'
ADD 1 TO VALOR
EVALUATE OPCION
WHEN 1 DISPLAY 'OPCION 1'
WHEN 2 DISPLAY 'OPCION 2'
END-EVALUATE
END-PERFORM
es un código sin sentido
, pero era para mostrar como lo hago. Y lo del punto al final de cada línea os digo que no lo utilizo, y tengo procedures de miles de líneas.