Informix - Informix-4GL

Hola a todos.

Espero puedan ayudarme con un problema que tengo en un programa de 4GL. Tengo un codigo de 900 lineas y me salen 13 errores y todos son por lo mismo, pero no se que hacer. Aqui una pequeña parte del codigo. El error me sale entre ELSE y AFTER FIELD, dice "A grammatical error has been found". GRACIAS.

IF g_pregunta = 1 THEN
LET g_bandera = 1
INITIALIZE g_novedades.codtipnov TO NULL
INITIALIZE g_novedades.fecnov TO NULL
INITIALIZE g_novedades.ideciu TO NULL
DISPLAY g_novedades.codtipnov TO codtipnov
DISPLAY g_novedades.fecnov TO fecnov
DISPLAY g_novedades.ideciu TO ideciu
NEXT FIELD codtipnov
ELSE
LET g_Bandera = 2
END IF
ELSE
AFTER FIELD codtipnov
SELECT codtipnov INTO g_codigo FROM tipo_novedades
WHERE codtipnov = g_novedades.codtipnov
IF STATUS = NOTFOUND THEN
ERROR "Codigo del tipo de novedad no existe"
INITIALIZE g_novedades.codtipnov TO NULL
DISPLAY g_novedades.codtipnov TO codtipnov
NEXT FIELD codtipnov
END IF
END IF

Ya consegui que funzionara. Cierren este :D

Noto que tiene dos else y no tiene sino un solo if...

revise esa logica y si es posible adicione ampliacion de codigo