topic Re: SCREENS in Application Development and Automation Discussions

SCREENS

Former Member — Mon, 08 Oct 2007 16:46:53 GMT

This is lalitha .

In the below report I am not able to solve the error in "case-endcase' .

This is my program for getting a checkbox in screens .

REPORT ZLAL_CHECKBBOX .

DATA: CB1,

CB2,

X(30) VALUE 'SAI',

Y(30) VALUE 'PRANEETH',

TEMP(30),

E(4) .

CALL SCREEN 100 .

MODULE CHBK INPUT .

CASE sy-ucomm.

when CB1.

IF CB1 = 'X' AND CB2 <> 'X' .

TEMP = X .

ELSE. IF CB1 = 'X' AND CB2 = 'X' .

concatenate Y X INTO TEMP .

ELSE. IF CB1 = 'X' AND CB2 = 'X' .

TEMP = Y .

ELSE. CLEAR TEMP .

ENDIF .

WHEN CB2 .

IF CB1 = 'X' AND CB2 <> 'X' .

TEMP = Y .

ELSEIF CB1 = 'X' AND CB2 = 'X' .

concatenate X Y INTO TEMP .

ELSEIF CB2 <> X AND CB1 = 'X' .

TEMP = X .

ELSE .

CLEAR TEMP .

ENDIF .

WHEN E .

LEAVE PROGRAME .

ENDIF .

ENDCASE .

ENDMODULE CHBK INPUT .

Re: SCREENS

Former Member — Mon, 08 Oct 2007 20:00:20 GMT

Hello Lalitha,

Within your 'WHEN cb1' block you open an if statement and within that if another if statement and only then you call 'WHEN cb2'.

The syntax of case is:

case xx.

when 1.

if condition.

coding

else.

if condition

coding

else.

cosing.

endif.

when 2.

when others.

endcase.

Meaning you have to 'close' any open if-statements BEFORE you put another WHEN statement. You cannot have a WHEN within an if statement unless there is a CASE within that if statement as well.

Hope that this helps. If not, what exactly are you trying to achieve?

Regards,

Michael

Re: SCREENS

Former Member — Tue, 09 Oct 2007 04:52:30 GMT

First of all instead of

when CB1 make it when <b>'CB1'</b>.

CB1 shud be in single quotes..

secondly its <b>leave program</b> not programme

Reward if it helps..

Re: SCREENS

Former Member — Tue, 09 Oct 2007 04:59:29 GMT

infact after keyword WHEN put the values in single quotes everywhere in ur prog

WHEN 'CB1'..

Re: SCREENS

vallamuthu_madheswaran2 — Tue, 09 Oct 2007 07:34:45 GMT

Hi Try this below coding it is ur coding i changed some lines

DATA: CB1,

CB2,

X(30) VALUE 'SAI',

Y(30) VALUE 'PRANEETH',

TEMP(30),

E(4) .

CALL SCREEN 100 .

MODULE CHBK INPUT .

CASE sy-ucomm.

when 'CB1'.

IF CB1 = 'X' AND CB2 <> 'X' .

TEMP = X .

ELSE IF CB1 = 'X' AND CB2 = 'X' .

concatenate Y X INTO TEMP .

ELSEIF CB1 = 'X' AND CB2 = 'X' .

TEMP = Y .

ELSE. CLEAR TEMP .

ENDIF .

WHEN 'CB2' .

IF CB1 = 'X' AND CB2 <> 'X' .

TEMP = Y .

ELSEIF CB1 = 'X' AND CB2 = 'X' .

concatenate X Y INTO TEMP .

ELSEIF CB2 <> X AND CB1 = 'X' .

TEMP = X .

ELSE .

CLEAR TEMP .

ENDIF .

WHEN 'E' .

LEAVE PROGRAME .

ENDIF .

ENDCASE .

ENDMODULE CHBK INPUT .

Thanks & Regards,

vallamuthu.M