Report for Selection screen of master data maintenence for batch Numbering Scheme

PROGRAM ZVVF_MR050_BATCHNUMBERING .

*---------------------------------------------------------------------*
* Module pool ZVVF_MR050_BATCHNUMBERING *
* *
*---------------------------------------------------------------------*
* *
* MODULE : Material management *
* *
*---------------------------------------------------------------------*
* Objective : Report for Selection screen of master data *
* maintenence for batch Numbering Scheme *
* *
* Program : Update Tables( ) Download Data( ) Outputs List (X) *
* *
* Technical Specs No : *
* *
* Date Created : *
* *
* Author : *
* *
* Location : *
* *
* LDB : NOT-USED *
*---------------------------------------------------------------------*

*---------------------------------------------------------------------*
* Tables *
*---------------------------------------------------------------------*

TABLES : SSCRFIELDS.



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 'BATCH'.
CALL TRANSACTION 'ZM050_01'.
WHEN 'MRP'.
CALL TRANSACTION 'ZM050_02'.

ENDCASE.



ENDMODULE. " USER_COMMAND_0100 INPUT