Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

creating selection screen after selection screen

Former Member
0 Likes
931

Hi,

I want to create a selection screen with two file path option after executing my initial selection screen.

Please help!

1 ACCEPTED SOLUTION
Read only

former_member222860
Active Contributor
866

Use this code

SELECTION-SCREEN BEGIN OF BLOCK sel1 WITH FRAME TITLE text-001.

*FOR APPLICATION SERVER FILE
PARAMETERS: p_appl RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND upload,
            p_path TYPE filepath-pathintern MODIF ID app,
            p_file TYPE rlgrap-filename MODIF ID app.
SELECTION-SCREEN SKIP 1.

*FOR PRESENTATION SERVER FILE
PARAMETERS: p_desk RADIOBUTTON GROUP rad1,
            p_file1 TYPE rlgrap-filename MODIF ID prn.
SELECTION-SCREEN END OF BLOCK sel1.

AT SELECTION-SCREEN OUTPUT.
  

*Application server
  LOOP AT SCREEN.
    IF p_appl EQ 'X' AND screen-group1 EQ 'PRN'.
      screen-output = '0'.
      screen-active = '0'.
      screen-input = '0'.
    ENDIF.
    IF p_appl EQ 'X' AND screen-group1 EQ 'APP'.
      screen-input = '1'.
    ENDIF.

*Presentation server

    IF p_desk EQ 'X' AND screen-group1 EQ 'APP'.
      screen-output = '0'.
      screen-active = '0'.
      screen-input = '0'.
    ENDIF.
    IF p_desk EQ 'X' AND screen-group1 EQ 'PRN'.
      screen-input = '1'.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

6 REPLIES 6
Read only

GauthamV
Active Contributor
0 Likes
866

try this.



PARAMETERS:p_header LIKE rlgrap-filename OBLIGATORY,
           p_item   LIKE rlgrap-filename OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_header.
*----------------------------------------------------------------------*
  PERFORM f4filename_header.

*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_item.
*----------------------------------------------------------------------*
  PERFORM f4filename_item.

*&---------------------------------------------------------------------*
*&      Form  f4filename
*&---------------------------------------------------------------------*
FORM f4filename_header .

  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_header.

ENDFORM.                    " f4filename
*&---------------------------------------------------------------------*
*&      Form  f4filename
*&---------------------------------------------------------------------*
FORM f4filename_item.

  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_item.

ENDFORM.                    " f4filename

Read only

former_member212005
Active Contributor
0 Likes
866

Can you please elaborate your requirement....Not clear

What you can do is...

You can put two fields in the selection screen....initially in disabled mode and enabled after your initial selection screen execution which will accept two path options

You can use LOOP AT SCREEN statement for this!

LOOP AT SCREEN.

IF screen-name = 'field1'.

screen-active = '0'.

ENDIF.

ENDLOOP.

Read only

Former Member
0 Likes
866

Hi,

Check the standard program DEMO_CALL_SELECTION_SCREEN

You can use the statement CALL SELECTION-SCREEN

Regards

Read only

former_member222860
Active Contributor
867

Use this code

SELECTION-SCREEN BEGIN OF BLOCK sel1 WITH FRAME TITLE text-001.

*FOR APPLICATION SERVER FILE
PARAMETERS: p_appl RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND upload,
            p_path TYPE filepath-pathintern MODIF ID app,
            p_file TYPE rlgrap-filename MODIF ID app.
SELECTION-SCREEN SKIP 1.

*FOR PRESENTATION SERVER FILE
PARAMETERS: p_desk RADIOBUTTON GROUP rad1,
            p_file1 TYPE rlgrap-filename MODIF ID prn.
SELECTION-SCREEN END OF BLOCK sel1.

AT SELECTION-SCREEN OUTPUT.
  

*Application server
  LOOP AT SCREEN.
    IF p_appl EQ 'X' AND screen-group1 EQ 'PRN'.
      screen-output = '0'.
      screen-active = '0'.
      screen-input = '0'.
    ENDIF.
    IF p_appl EQ 'X' AND screen-group1 EQ 'APP'.
      screen-input = '1'.
    ENDIF.

*Presentation server

    IF p_desk EQ 'X' AND screen-group1 EQ 'APP'.
      screen-output = '0'.
      screen-active = '0'.
      screen-input = '0'.
    ENDIF.
    IF p_desk EQ 'X' AND screen-group1 EQ 'PRN'.
      screen-input = '1'.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

Read only

Former Member
0 Likes
866

Hi,

It is possible through checkboxes or radio buttons in selection screen.Please follow this code.

selection-screen.

PARAMETERS: p_test AS CHECKBOX DEFAULT 'X'.

PARAMETERS: p_file TYPE TYPE dxfile-filename MODIF ID ERF.

at selection-screen output.

IF screen-group1 = 'ERF'

and p_test = 'X'.

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

Read only

Former Member
0 Likes
866

Hi,

You can design the Module Pool screen to hold the two file path option and call this screen in the Start-Of-Selection event.