Skip to Content
0
Former Member
May 13, 2010 at 08:11 PM

Module Pool Program error

30 Views

Hi all,

I am trying to learn Module pool programing and I have created the following program :

&----


*& Module Pool ZRAJ_MODULE_05132010

*&

&----


*&

*&

&----


PROGRAM ZRAJ_MODULE_05132010.

DATA : KUNNR TYPE KUNNR,

NAME TYPE C,

CITY TYPE C,

ADDRESS TYPE C,

OK_CODE LIKE SY-UCOMM.

DATA : NAME1 TYPE NAME1,

ORT01 TYPE ORT01,

ADRNR TYPE ADRNR.

DATA : W_NAME1 TYPE NAME1,

W_ORT01 TYPE ORT01,

W_ADRNR TYPE ADRNR.

*CALL SCREEN 9000.

&----


*& Module USER_COMMAND_9000 INPUT

&----


  • text

----


MODULE USER_COMMAND_9000 INPUT.

IF OK_CODE EQ 'DISPLAY'.

LEAVE TO LIST-PROCESSING.

SELECT SINGLE NAME1 ORT01 ADRNR FROM KNA1 INTO (W_NAME1, W_ORT01, W_ADRNR) WHERE KUNNR = KUNNR.

IF NAME EQ 'X'.

WRITE : W_NAME1.

NAME1 = W_NAME1.

ENDIF.

IF CITY EQ 'X'.

WRITE : W_ORT01.

ORT01 = W_ORT01.

ENDIF.

IF ADDRESS EQ 'X'.

ADRNR = W_ADRNR.

WRITE : W_ADRNR.

ENDIF.

ELSEIF OK_CODE EQ 'CANCEL' OR OK_CODE EQ 'BACK'.

LEAVE PROGRAM.

ENDIF.

ENDMODULE. " USER_COMMAND_9000 INPUT

I have also created the screen where the user will enter the customer number and based on his selection the customer detail should be displayed, but when I put the customer number and clicked the check box to get his name and hit display,, I am not getting anything it's going back to the initial screen. Can you please help me on this.

Thank you.

Rajeev