Selection screen printing

[Former Member]

Dear all,

I need to display the values entered on a selection screen in my output list. Do we have a FM for this or i need to read all the fields in the program?

Please suggest.

Thanks,

Jaleel

[Former Member]

Hello,

U can do it by the following piece of code...

Selection -screen

SELECTION-SCREEN BEGIN OF BLOCK BLCK1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: S_PROJ FOR PROJ-PSPID.

SELECT-OPTIONS: S_WBS FOR PRPS-POSID.

SELECT-OPTIONS: S_VKBUR FOR VBAK-VKBUR,

S_AUDAT FOR VBAK-AUDAT.

PARAMETERS: P_FILE TYPE RLGRAP-FILENAME,

P_TRZEI TYPE C DEFAULT ';',

P_TAB AS CHECKBOX.

SELECTION-SCREEN END OF BLOCK BLCK1.

• Displaying the top of page

PERFORM REPORT_HEADING.

&----

---

*& Form REPORT_HEADING

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM REPORT_HEADING .

• Work Area TOP-OF-PAGE commentary

DATA: WA_COMMENTARY TYPE SLIS_LISTHEADER,

L_F_INFO(132),

L_F_DATUM(10),

L_F_TIME(8),

L_F_LOW LIKE PRPS-POSID,

L_F_HIGH LIKE PRPS-POSID,

L_F_DATL(10),

L_F_DATH(10).

CLEAR : WA_COMMENTARY,

IT_COMMENTARY,

IT_COMMENTARY[].

CONCATENATE TEXT-013 SY-REPID INTO L_F_INFO

SEPARATED BY ' '.

WA_COMMENTARY-TYP = 'H'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

WRITE SY-DATUM TO L_F_DATUM.

WRITE SY-UZEIT TO L_F_TIME.

CONCATENATE TEXT-017 L_F_DATUM TEXT-018 L_F_TIME INTO L_F_INFO

SEPARATED BY ' '.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

L_F_INFO = TEXT-001.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

IF NOT S_PROJ[] IS INITIAL.

READ TABLE S_PROJ INDEX 1.

CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'

EXPORTING

INPUT = S_PROJ-LOW

IMPORTING

OUTPUT = L_F_LOW.

IF L_F_LOW IS INITIAL.

L_F_LOW = SPACE.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'

EXPORTING

INPUT = S_PROJ-HIGH

IMPORTING

OUTPUT = L_F_HIGH.

IF L_F_HIGH IS INITIAL.

L_F_HIGH = SPACE.

ENDIF.

IF S_PROJ-OPTION = 'EQ'.

CONCATENATE TEXT-023 ':' L_F_LOW TEXT-020 L_F_HIGH '+' INTO

L_F_INFO SEPARATED BY ' '.

ELSE.

CONCATENATE TEXT-023 ':' L_F_LOW TEXT-020 L_F_HIGH INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

ELSE.

CONCATENATE TEXT-023 ':' TEXT-021 INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

IF NOT S_WBS[] IS INITIAL.

READ TABLE S_WBS INDEX 1.

CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'

EXPORTING

INPUT = S_WBS-LOW

IMPORTING

OUTPUT = L_F_LOW.

IF L_F_LOW IS INITIAL.

L_F_LOW = SPACE.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'

EXPORTING

INPUT = S_WBS-HIGH

IMPORTING

OUTPUT = L_F_HIGH.

IF S_WBS-OPTION = 'EQ'.

CONCATENATE TEXT-005 ':' L_F_LOW L_F_HIGH '+' INTO

L_F_INFO SEPARATED BY ' '.

ELSE.

CONCATENATE TEXT-023 ':' L_F_LOW TEXT-020 L_F_HIGH INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

ELSE.

CONCATENATE TEXT-005 ':' TEXT-021 INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

IF NOT S_VKBUR[] IS INITIAL.

READ TABLE S_VKBUR INDEX 1.

IF S_VKBUR-OPTION = 'EQ'.

CONCATENATE TEXT-004 ':' S_VKBUR-LOW TEXT-020 S_VKBUR-HIGH '+' INTO

L_F_INFO SEPARATED BY ' '.

ELSE.

CONCATENATE TEXT-004 ':' S_VKBUR-LOW TEXT-020 S_VKBUR-HIGH INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

ELSE.

CONCATENATE TEXT-004 ':' TEXT-021 INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

IF NOT S_AUDAT[] IS INITIAL.

READ TABLE S_AUDAT INDEX 1.

WRITE: S_AUDAT-LOW TO L_F_DATL,

S_AUDAT-HIGH TO L_F_DATH.

IF S_AUDAT-OPTION = 'EQ'.

CONCATENATE TEXT-014 ':' L_F_DATL TEXT-020 L_F_DATH '+' INTO

L_F_INFO SEPARATED BY ' '.

ELSE.

CONCATENATE TEXT-014 ':' L_F_DATL TEXT-020 L_F_DATH INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

ELSE.

CONCATENATE TEXT-014 ':' TEXT-021 INTO

L_F_INFO SEPARATED BY ' '.

ENDIF.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

CONCATENATE TEXT-015 ':' P_FILE INTO L_F_INFO SEPARATED BY ' '.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

IF NOT P_TAB IS INITIAL.

CONCATENATE TEXT-016 ':' TEXT-019 INTO L_F_INFO SEPARATED BY ' '.

ELSE.

CONCATENATE TEXT-016 ':' P_TRZEI INTO L_F_INFO SEPARATED BY ' '.

ENDIF.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = L_F_INFO.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

ENDFORM. " REPORT_HEADING

&----

---

*& Form TOP-OF-PAGE

&----

---

• For Top of page

----

---

FORM TOP_OF_PAGE. "#EC CALLED

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_COMMENTARY.

ENDFORM. "top_of_page

If useful reward.

Vasanth

[Former Member]

u have to read all the fields , there is no such FM.

Regards

Prabhu

[Former Member]

Prabhu,

I think we can use the below Fm

"DYNP_VALUES_READ".

Looking at other options.

Thanks,

Jaleel

[Former Member]

Hi Jaleel,

you can try the below given FM.

DATA: X_PARAMS TYPE PRI_PARAMS,

V_VALID.

CALL FUNCTION 'GET_PRINT_PARAMETERS'

EXPORTING

IMMEDIATELY = ' '

LAYOUT = 'X_65_255'

NO_DIALOG = 'X'

IMPORTING

OUT_PARAMETERS = X_PARAMS

VALID = V_VALID.

IF V_VALID <> SPACE.

NEW-PAGE PRINT ON PARAMETERS X_PARAMS NO DIALOG.

ENDIF.

Regards

Srinivas

[Former Member]

Use function module RS_SELECTIONSCREEN_READ. It has good documentation as well.

[Former Member]

check RS_SELECTIONSCREEN_READ

Text

Function Module for individual F4 on a multiple selection screen

Functionality

The function module returns the current values of the field names specified in the table FIELDVALUES. On the standard selection screen, you can retrieve the values of any number of fields (select-options and parameters). On the multiple selection screen, you can only retrieve the values of the LOW and HIGH fields in the current cursor line.

Example

AT SELECTION-SCREEN ON VALUE-REQUEST FOR budat-high.

CLEAR fieldvalues. REFRESH fieldvalues.

MOVE: 'BUDAT' TO fieldvalues-name,

'S' TO fieldvalues-kind,

'LOW' TO fieldvalues-position.

APPEND fieldvalues. CLEAR fieldvalues.

MOVE: 'PARAM' TO fieldvalues-name,

'P' TO fieldvalues-kind.

APPEND fieldvalues. CLEAR fieldvalues.

MOVE: 'ERWIN' TO fieldvalues-name,

'S' TO fieldvalues-kind,

'HIGH' TO fieldvalues-position.

APPEND fieldvalues.

CALL FUNCTION 'RS_SELECTIONSCREEN_READ'

EXPORTING

program = 'TEST'

TABLES

fieldvalues = fieldvalues.

The field FIELDVALUES-fieldvalue contains the current value of each field.

Parameters

PROGRAM

DYNNR

FIELDVALUES