I have below code where i have 3 if statemnts and im closeing all of them with END-If but still its showing me below error , if someone can help
ERROr Message: 17032 END-IF * 564-S****** ( 0)** ** A scope-delimiter did not have a matching verb and was discarded. 17074 END-IF * 564-S*********** ( 294)** ** A scope-delimiter did not have a matching verb and was discarded. 17075 END-IF. * 564-S*********** ( 295)** ** A scope-delimiter did not have a matching verb and was discarded.
I-00.
D DISPLAY 'IN I-MTS-ACCOUNT-CHK'
IF NO-INDICATOR IN PR03-ALLOW-CLOSE-BAN-IND
THEN
EXIT SECTION.
END-IF
IF MTS IN MIGRATION-IND
IN PR02-BAN-INFO
THEN
IF MTS-MAPPING-ID IN PR02-BAN-INFO = ZERO
THEN
CALL "dcs_gt_subs_count" USING DL-CONTEXT
IN AR01-CONTEXT
BAN IN PR02-BAN-INFO
AR11-SUB-STATUS-RAS-LIST
AR12-SUB-TOT-COUNT
GIVING AR04-STATUS.
IF NOT SUCCESS IN AR04-STATUS
AND
NOT DL-KEY-NOTFOUND-S IN AR04-STATUS
THEN
SET CTB-MSG-ROUTINE-ERROR TO TRUE
MOVE "I-MTS-ACCOUNT-CHK" TO CTB-SECTION-NAME
MOVE "DCS_GT_SUBS_COUNT" TO CTB-ROUTINE-NAME
MOVE AR04-STATUS TO CTB-ROUTINE-STATUS
PERFORM X-HANDLE-ERROR
PERFORM Z-FINISH
END-IF
IF AR12-SUB-TOT-COUNT <> 0
THEN
SET NO-INDICATOR IN PR03-ALLOW-CLOSE-BAN-IND
TO TRUE
SET NOT-ALL-SUB-CANCEL IN PR04-EXCEPTION-REASON
TO TRUE
END-IF
END-IF
END-IF.
I-EXIT.
EXIT.
Aucun commentaire:
Enregistrer un commentaire