topic Re: Hi in Application Development and Automation Discussions

Hi

Former Member — Mon, 30 Jul 2007 10:30:46 GMT

Hi,

I am writing a aprogram in Module pool.

I am getting the following error.

TABLES:

KNA1. "WORK AREA

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'DISPLAY'.

IF KNA1-KUNNR IS NOT INITIAL.

SELECT SINGLE * FROM KNA1 WHERE KUNNR = KNA1-KUNNR.

IF SY-SUBRC NE 0.

MESSAGE E000(0) WITH 'ENTER CUSTOMER NUMBER'.

ELSE.

MESSAGE E000(0) WITH 'INPUT CUSTOMER NUMBER'.

ENDIF.

WHEN 'INSERT'.

INSERT KNA1.

IF SY-SUBRC NE 0.

MESSAGE E000(0) WITH 'RECORD ALREADY EXISTS'.

ELSE.

MESSAGE S000(0) WITH RECORD INSERTED.

ENDIF.

ENDCASE.

"WHEN" is allowed only after "CASE".

Re: Hi

seshatalpasai_madala — Mon, 30 Jul 2007 10:34:22 GMT

HI,


TABLES:
KNA1. "WORK AREA
CASE SY-UCOMM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'DISPLAY'.
IF KNA1-KUNNR IS NOT INITIAL. "THIS IF IS NOT CLOSED
SELECT SINGLE * FROM KNA1 WHERE KUNNR = KNA1-KUNNR.
IF SY-SUBRC NE 0.
MESSAGE E000(0) WITH 'ENTER CUSTOMER NUMBER'.
ELSE.
MESSAGE E000(0) WITH 'INPUT CUSTOMER NUMBER'.
ENDIF.
ENDIF. "CLOSE THE IF USING ENDIF
WHEN 'INSERT'.
INSERT KNA1.
IF SY-SUBRC NE 0.
MESSAGE E000(0) WITH 'RECORD ALREADY EXISTS'.
ELSE.
MESSAGE S000(0) WITH RECORD INSERTED.
ENDIF.
ENDCASE.

Regards,

Sesh

Re: Hi

Former Member — Mon, 30 Jul 2007 10:34:27 GMT

HI,

try this

TABLES:

KNA1. "WORK AREA

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'DISPLAY'.

IF KNA1-KUNNR IS NOT INITIAL.

SELECT SINGLE * FROM KNA1 WHERE KUNNR = KNA1-KUNNR.

IF SY-SUBRC NE 0.

MESSAGE E000(0) WITH 'ENTER CUSTOMER NUMBER'.

ELSE.

MESSAGE E000(0) WITH 'INPUT CUSTOMER NUMBER'.

ENDIF.

YOU have forgottento give this

ENDIF.

WHEN 'INSERT'.

INSERT KNA1.

IF SY-SUBRC NE 0.

MESSAGE E000(0) WITH 'RECORD ALREADY EXISTS'.

ELSE.

MESSAGE S000(0) WITH RECORD INSERTED.

ENDIF.

ENDCASE.

reward points if helpful

thanks & regards,

venkatesh

Re: Hi

former_member378318 — Mon, 30 Jul 2007 10:34:29 GMT

Try this:

REPORT ztestsdhillon3.

TABLES:

kna1. "WORK AREA

CASE sy-ucomm.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'DISPLAY'.

IF kna1-kunnr IS NOT INITIAL.

SELECT SINGLE * FROM kna1 WHERE kunnr = kna1-kunnr.

IF sy-subrc NE 0.

MESSAGE e000(0) WITH 'ENTER CUSTOMER NUMBER'.

ELSE.

MESSAGE e000(0) WITH 'INPUT CUSTOMER NUMBER'.

ENDIF.

WHEN 'INSERT'.

INSERT kna1.

IF sy-subrc NE 0.

MESSAGE e000(0) WITH 'RECORD ALREADY EXISTS'.

ELSE.

MESSAGE s000(0) WITH 'record inserted'.

ENDIF.

ENDCASE.

Re: Hi

Former Member — Mon, 30 Jul 2007 10:34:50 GMT

Recode like this

TABLES:

kna1. "WORK AREA

CASE sy-ucomm.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'DISPLAY'.

IF kna1-kunnr NOT IS INITIAL.

SELECT SINGLE * FROM kna1 WHERE kunnr = kna1-kunnr.

IF sy-subrc NE 0.

MESSAGE e000(0) WITH 'ENTER CUSTOMER NUMBER'.

ELSE.

MESSAGE e000(0) WITH 'INPUT CUSTOMER NUMBER'.

ENDIF.

WHEN 'INSERT'.

INSERT kna1.

IF sy-subrc NE 0.

MESSAGE e000(0) WITH 'RECORD ALREADY EXISTS'.

ELSE.

MESSAGE s000(0) WITH record inserted.

ENDIF.

ENDCASE.

endif was missing

Re: Hi

Vijay — Mon, 30 Jul 2007 10:36:40 GMT

hi rams


TABLES:
KNA1. "WORK AREA
CASE SY-UCOMM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'DISPLAY'.
IF KNA1-KUNNR IS NOT INITIAL.
SELECT SINGLE * FROM KNA1 WHERE KUNNR = KNA1-KUNNR.
IF SY-SUBRC NE 0.
MESSAGE E000(0) WITH 'ENTER CUSTOMER NUMBER'.
ELSE.
MESSAGE E000(0) WITH 'INPUT CUSTOMER NUMBER'.
ENDIF.
<b>ENDIF.</b> "u forgot close the IF here
WHEN 'INSERT'.
INSERT KNA1.
IF SY-SUBRC NE 0.
MESSAGE E000(0) WITH 'RECORD ALREADY EXISTS'.
ELSE.
MESSAGE S000(0) WITH RECORD INSERTED.
ENDIF.
ENDCASE.

regards

vijay

plz dont forget to reward points if helpful

Re: Hi

Former Member — Mon, 30 Jul 2007 10:38:26 GMT

in User command event which u have in ur PAI write lthe code...

and one more thing is u didnt close the IF statement..

KNA1. "WORK AREA

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'DISPLAY'.

IF KNA1-KUNNR IS NOT INITIAL.

SELECT SINGLE * FROM KNA1 WHERE KUNNR = KNA1-KUNNR.

IF SY-SUBRC NE 0.

MESSAGE E000(0) WITH 'ENTER CUSTOMER NUMBER'.

ELSE.

MESSAGE E000(0) WITH 'INPUT CUSTOMER NUMBER'.

ENDIF.

endif

WHEN 'INSERT'.

INSERT KNA1.

IF SY-SUBRC NE 0.

MESSAGE E000(0) WITH 'RECORD ALREADY EXISTS'.

ELSE.

MESSAGE S000(0) WITH RECORD INSERTED.

ENDIF.

ENDCASE.