Report for displaying selection screen for tracking advance licensens

*&---------------------------------------------------------------------*
REPORT ZVVF_MR018_SELECTIONSCREEN .

*---------------------------------------------------------------------*
* Report ZVVF_MR018_SELECTION_SCREEN
*
*---------------------------------------------------------------------*
* *
* MODULE : Material Management *
* *
*---------------------------------------------------------------------*
* Objective : Report for displaying selection screen for tracking *
* advance licensens *
* *
* *
* Program : Update Tables( ) Download Data( ) Outputs List (X) *
* *
* Technical Specs No : *
* *
* Date Created : *
* *
* Author : *
* *
* Location :
* *
* LDB : NOT USED *
*---------------------------------------------------------------------*



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

TABLES : SSCRFIELDS,
ZVVF_MT018_ADVLI.

*---------------------------------------------------------------------*
* parameters *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME .


SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003 .

SELECT-OPTIONS : S_LISNO1 FOR ZVVF_MT018_ADVLI-LICENSENO.

SELECTION-SCREEN END OF block B2.

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN: SKIP,
BEGIN OF BLOCK b3 WITH FRAME title text-004,
BEGIN OF LINE,
PUSHBUTTON 10(30) TEXT-001 USER-COMMAND CLK1,
END OF LINE,
BEGIN OF LINE,
PUSHBUTTON 10(30) TEXT-002 USER-COMMAND CLK2,
END OF LINE,
END OF BLOCK b3.

SELECTION-SCREEN END OF BLOCK B1 .


AT SELECTION-SCREEN.

CASE sy-ucomm.
WHEN 'CLK1'.

submit ZVVF_MR018_ADVLICSUM WITH SO_LISNO IN S_LISNO1 AND RETURN.

WHEN 'CLK2'.

submit ZVVF_MR018_ADVLIC WITH SO_LISNO IN S_LISNO1 AND RETURN.


ENDCASE.