Report for Stock Reports in MM Module

PROGRAM ZVVF_MM046_STOCKREPORTS .

*---------------------------------------------------------------------*
* Module pool ZVVF_MM046_STOCKREPORTS *
*---------------------------------------------------------------------*
* *
* MODULE : Material Management *
* *
*---------------------------------------------------------------------*
* Objective : Report for Stock Reports *
* *
* Program : Update Tables( ) Download Data( ) Outputs List (X) *
* *
* Technical Specs No : *
* *
* Date Created : *
* *
* Author : *
* *
* Location : *
* *
* LDB : NOT USED *
*---------------------------------------------------------------------*


DATA : SAVE_OK TYPE SY-UCOMM,
OK_CODE TYPE SY-UCOMM.


*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.

SET PF-STATUS '0100'.
SET TITLEBAR '0100'.

ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*

MODULE USER_COMMAND_0100 INPUT.

SAVE_OK = OK_CODE.

CLEAR OK_CODE.

CASE SAVE_OK.

WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
LEAVE PROGRAM.
WHEN 'SUMM'.

CALL TRANSACTION 'ZM046_02'.

WHEN 'DETAIL'.

CALL TRANSACTION 'ZM046_1'.

WHEN 'STOCK'.

CALL TRANSACTION 'ZM046_STKSPLT'.

WHEN 'FORM'.

CALL TRANSACTION 'ZM045'.


ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT