Selection-screen in module program

Question

Hi,
I have created a module pool prog.
Now the new regd. is that I want to create selection-screen before displying the actual screen.
But when I m trying to use selection screen then I m getting the message that it is not possible in type 'M' as my program is module pool.
I m using screen 9000 to display the records, now where to write selection screen in the program?
I think in PBO but getting some error, I have created one screen and in that defined a subscreen but it is giving some error.
So any body knows how to add selection screen in 'M' type program?
Thankx in advance.
Umesh

Answer 1

Hi,
You can create a selection-screen for a module pool program.
Create a new program with executable type. Create the selection screen as you would do in a normal program. Once you give data in the selection and press F8 button, based on the logics written, the O/P must appear in a table control. This is what your requirement is:
A example below for your understanding.
name of the prog : ZTEST
Type: Exectable report (I)
*----Selection Screen -
SELECTION-SCREEN BEGIN OF BLOCK IPDATA WITH FRAME TITLE TEXT-001.
PARAMETERS: PR_MONTH LIKE BOITEM-SPMON.
SELECT-OPTIONS: SO_VKGRP FOR KNVV-VKGRP.
SELECTION-SCREEN END OF BLOCK IPDATA.
SELECTION-SCREEN BEGIN OF BLOCK ORGDATA WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: SO_REGIO FOR KNA1-REGIO,
                SO_KUNNR FOR KNA1-KUNNR,
                SO_WERKS FOR T001W-WERKS.
SELECTION-SCREEN END OF BLOCK ORGDATA.
*--Selection Screen Events--
START-OF-SELECTION.
  W_CURMFDAY = SY-DATUM.
  W_CURMFDAY+6(2) = '01'.
  PERFORM F001_GETDATA.
  IF SY-DBCNT EQ 0.
    MESSAGE S017(ZSFL).
    EXIT.
  ENDIF.
  PERFORM F002_ADDITIONALDATA.
  CALL SCREEN 100.
For this screen 100, both the PBO and PAI can be declared in this main program itself.
Regards,
JLN.