¿Cómo sería COBOL si se hubiera creado en Basauri?
Como ex-programador de Cobol recuerdo que hacer cualquier programa era prácticamente como escribir en inglés. Por ejemplo:
PERFORM GET-DAY-OF-WEEK-FOR-DATE.
IF DAY-OF-WEEK = 6
MOVE 5 TO DAY-OF-WEEK
SUBTRACT 1 FROM DAYS-TO-ADD.MOVE DAYS-TO-ADD TO CAL-DAYS, BUS-DAYS.
COMPUTE THE-DAY = WS-DAY-OF-WEEK + DAYS-TO-ADD.
Más o menos se entiende. Pero… ¿cómo sería esto si Cobol lo hubiesen creado desde Basauri? Ya disculparéis por la traducción, que será horrible, pero sería algo así:
EGITEKO GET-ASTE-EGUNA-DATA.
BADA ASTEKO-EGUN = 6
MUGITU 5 ASTEKO-EGUN
ERAGIKETA 1 JARDUNALDIAK-BAT-GEHITU.MUGITU JARDUNALDIAK-BAT-GEHITU CAL-JARDUNALDIAK, LANEGUNETAN.
KONPUTATU EGUN = WS-ASTE-EGUNA-DATA + JARDUNALDIAK-BAT-GEHITU.
¡¡Mucho mejor!!