jeudi 19 octobre 2017

COBOL-COMPILATION ERROR In If statemnet :A scope-delimiter did not have a matching verb and was discarded

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