Bisiesto

clear: mes, year, dia, yearmes.
year = COMM_STRUCTURE-CALMONTH(4).
year = year + 1.
mes = COMM_STRUCTURE-CALMONTH+4(2).
dia = COMM_STRUCTURE-CALDAY+6(2).

if mes eq '02'.
concatenate year mes into yearmes.
PERFORM CALCULATE_ULTIMO
USING yearmes
RECORD_NO
RECORD_ALL
SOURCE_SYSTEM
CHANGING RESULT
RETURNCODE.
else.
concatenate year mes dia into RESULT.
endif.