Scribd
Upload
29 views2 pages

Zmod Pool Display4

This document contains code modules and processes for an SAP application. It includes modules for status updates, user commands, and a display pool with global data and module types.

Uploaded by

prasenjit007ghosh
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
29 views2 pages

Zmod Pool Display4

This document contains code modules and processes for an SAP application. It includes modules for status updates, user commands, and a display pool with global data and module types.

Uploaded by

prasenjit007ghosh
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

PROCESS BEFORE OUTPUT.

* MODULE STATUS_0001.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0001.

------------------------------------------

PROCESS BEFORE OUTPUT.


MODULE STATUS_0002.
LOOP AT I_EKPO INTO W_EKPO WITH CONTROL TC CURSOR TC-CURRENT_LINE.
ENDLOOP.

*
PROCESS AFTER INPUT.
LOOP AT I_EKPO.
ENDLOOP.
MODULE USER_COMMAND_0002.

-------------------------------------------------

*&---------------------------------------------------------------------*
*& Module Pool
ZMOD_POOL_DISPLAY4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
INCLUDE ZDISPLAY4_TOP
* INCLUDE ZDISPLAY4_O01
* INCLUDE ZDISPLAY4_I01
* INCLUDE ZDISPLAY4_F01

" global Data


. " PBO-Modules
. " PAI-Modules
. " FORM-Routines

*&---------------------------------------------------------------------*
*&
Module USER_COMMAND_0001 INPUT
*&---------------------------------------------------------------------*
*
text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0001 INPUT.

CLEAR OK_CODE.
OK_CODE = SY-UCOMM.
CLEAR SY-UCOMM.
CASE OK_CODE.
WHEN 'DISP'.
SELECT EBELN EBELP BUKRS WERKS FROM EKPO INTO TABLE I_EKPO WHERE EBELN
= P_EBELN.
IF SY-SUBRC EQ 0.
CALL SCREEN 0002.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
" USER_COMMAND_0001 INPUT
*&---------------------------------------------------------------------*
*&
Module USER_COMMAND_0002 INPUT
*&---------------------------------------------------------------------*
*
text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0002 INPUT.
CLEAR OK_CODE.
OK_CODE = SY-UCOMM.
CLEAR SY-UCOMM.
CASE OK_CODE.
WHEN 'BCK'.
CALL SCREEN 0001.
ENDCASE.
ENDMODULE.

" USER_COMMAND_0002 INPUT

You might also like