topic Re: Incorrect nesting in Application Development and Automation Discussions

Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:17:29 GMT

Hi,

This is my program.

PARAMETERS:

P_NUM1 TYPE I,

P_NUM2 TYPE I,

P_OPER TYPE C.

DATA:

W_RESULT TYPE I.

CALL FUNCTION 'ZAC_CALCULATE'

EXPORTING

IM_NUM1 = P_NUM1

IM_NUM2 = P_NUM2

IM_OPER = P_OPER

IMPORTING
EX_RESULT =
EXCEPTIONS
INVALID_OPERATOR1 = 1
ZERO_DIVIDE1 = 2
OTHERS = 3

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

IF SY-SUBRC EQ 1.

WRITE:/ 'INVALID OPERATION'.

IF SY-SUBRC EQ 1.

WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.

WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.

Iam getting the following error.

Incorrect nesting: Before the end of the program, the structure

introduced by "IF" must be concluded by "ENDIF" . . . . . .

Re: Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:20:07 GMT

Hi,

THE STRUCTURE SHOULD FOLLOW THIS

IF <condition1>.

ELSEIF <condition2>

<statement block>.

ELSEIF <condition3>.

.....

ELSE.

ENDIF.

SO MAKE SOME CHANGES IN YOUR CODE

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

ELSEIF SY-SUBRC EQ 1.

WRITE:/ 'INVALID OPERATION'.

ELSEIF SY-SUBRC EQ 1.

WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.

WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.

************PLEASE REWARD POINTS IF THE INFORMATION IS HELPFUL TO YOU************

Re: Incorrect nesting

amit_khare — Tue, 10 Jul 2007 11:20:10 GMT

USe this -

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

IF SY-SUBRC EQ 1.

WRITE:/ 'INVALID OPERATION'.

<b><i>ELSEIF</i></b> SY-SUBRC EQ 1.

WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.

WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.

Regards,

Amit

Reward all helpful replies.

Re: Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:20:34 GMT

Hi,

PARAMETERS:
P_NUM1 TYPE I,
P_NUM2 TYPE I,
P_OPER TYPE C.

DATA:
W_RESULT TYPE I.


CALL FUNCTION 'ZAC_CALCULATE'
EXPORTING
IM_NUM1 = P_NUM1
IM_NUM2 = P_NUM2
IM_OPER = P_OPER
* IMPORTING
* EX_RESULT =
* EXCEPTIONS
* INVALID_OPERATOR1 = 1
* ZERO_DIVIDE1 = 2
* OTHERS = 3
.
IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

IF SY-SUBRC EQ 1.
WRITE:/ 'INVALID OPERATION'.

IF SY-SUBRC EQ 1.
WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.
WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.
ENDIF.   " Add this
ENDIF.   " Add this

Regards

Sudheer

Re: Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:20:48 GMT

Try This

Incorrect nesting

Posted: Jul 10, 2007 1:17 PM Reply E-mail this post

Hi,

This is my program.

PARAMETERS:

P_NUM1 TYPE I,

P_NUM2 TYPE I,

P_OPER TYPE C.

DATA:

W_RESULT TYPE I.

CALL FUNCTION 'ZAC_CALCULATE'

EXPORTING

IM_NUM1 = P_NUM1

IM_NUM2 = P_NUM2

IM_OPER = P_OPER

IMPORTING
EX_RESULT =
EXCEPTIONS
INVALID_OPERATOR1 = 1
ZERO_DIVIDE1 = 2
OTHERS = 3

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

ElSEIF SY-SUBRC EQ 1.

WRITE:/ 'INVALID OPERATION'.

ELSEIF SY-SUBRC EQ 1.

WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.

WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.

Re: Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:21:06 GMT

Hi,

Try this,

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

ELSEIF SY-SUBRC EQ 1.

WRITE:/ 'INVALID OPERATION'.

ELSEIF SY-SUBRC EQ 1.

WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.

WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.

Thanks,

Reward If Helpful.

Re: Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:21:32 GMT

Hi,

write like this:

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

ELSEIF SY-SUBRC EQ 1.

WRITE:/ 'INVALID OPERATION'.

ELSEIF SY-SUBRC EQ *. <- here, appropriate sybrc check.

WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.

WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.

Regards,

Siddhesh Sanghvi.

Re: Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:21:41 GMT

hi ,

Write like this way.

PARAMETERS:

P_NUM1 TYPE I,

P_NUM2 TYPE I,

P_OPER TYPE C.

DATA:

W_RESULT TYPE I.

CALL FUNCTION 'ZAC_CALCULATE'

EXPORTING

IM_NUM1 = P_NUM1

IM_NUM2 = P_NUM2

IM_OPER = P_OPER

IMPORTING
EX_RESULT =
EXCEPTIONS
INVALID_OPERATOR1 = 1
ZERO_DIVIDE1 = 2
OTHERS = 3

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

IF SY-SUBRC EQ 1.

WRITE:/ 'INVALID OPERATION'.

endif.

IF SY-SUBRC EQ 1.

WRITE:/ 'CANNOT DIVIDE BY ZERO'.

endif.

ELSE.

WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.

thanks,

CS Reddy.

Re: Incorrect nesting

Former Member — Tue, 10 Jul 2007 11:21:49 GMT

change to this

IF SY-SUBRC EQ 0.

WRITE:/ 'RESULT IS', W_RESULT.

elseIF SY-SUBRC EQ 1.
WRITE:/ 'INVALID OPERATION'.

elseIF SY-SUBRC EQ 2.         " SY-SUBRC changed to 2
WRITE:/ 'CANNOT DIVIDE BY ZERO'.

ELSE.
WRITE:/ 'UNKNOWN EXCEPTION'.

ENDIF.