Skip to Content
0
Former Member
Aug 02, 2007 at 06:30 AM

Hi

108 Views

Hi,

This is my module pool program.

I had some doubts in the program.

Please tell me the usage of these two rows in this program(Bold letters).

W_ITEM TYPE EBELP.

ZPURI-EBELN = ZPURH-EBELN.

&----


*& Module Pool ZMP_TAB4

*&

&----


*&

*&

&----


PROGRAM ZMP_TAB4.

TABLES:

ZPURH,

ZPURI.

DATA:

IT_PURI TYPE TABLE OF ZPURI,

W_LINES TYPE I,

<b>W_ITEM TYPE EBELP.</b>

CONTROLS:

C1 TYPE TABLEVIEW USING SCREEN 9001.

&----


*& Module USER_COMMAND_9001 INPUT

&----


  • text

----


MODULE USER_COMMAND_9001 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'ADD'.

<b>ZPURI-EBELN = ZPURH-EBELN.</b>

W_LINES = LINES( IT_PURI ).

W_ITEM = ( W_LINES + 1 ) * 10.

ZPURI-EBELP = W_ITEM.

CALL SCREEN '9002'.

ENDCASE.

ENDMODULE. " USER_COMMAND_9001 INPUT

&----


*& Module USER_COMMAND_9002 INPUT

&----


  • text

----


MODULE USER_COMMAND_9002 INPUT.

CASE SY-UCOMM.

WHEN 'OKAY'.

APPEND ZPURI TO IT_PURI.

CLEAR ZPURI.

LEAVE TO SCREEN 0.

WHEN 'CANCEL'.

CLEAR ZPURI.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_9002 INPUT