Label on Selection Screen

[Former Member]

Hi,

I need to create a label on selection screen which holds a default value but that should not be edited by the user. It should be disabled on the selection screen. It should only show the default value.

Please give the solution.

Thanks in advance.

Sunanda.

[Former Member]

hI,

Use loop at Screen.

And make Screen-input = 0.

Regards

Sandipan

[peter_ruiz2]

hi sunanda,

try this

 parameter up_test type c.

 initialization.
  loop at screen.
    if screen-name eq 'UP_TEST'.
      screen-input = 0.
      modify screen.
    endif.
  endloop.

regards,

Peter

[Former Member]

parameters : p_pernr like pa0001-pernr default '10000000'.

Initialization.

loop at screen.

if screen-name = 'P_PERNR'.

SCREEN-INPUT = 0.

Modify screen.

endif.

endloop.

[Former Member]

Hi

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) TEXT.
SELECTION-SCREEN END    OF LINE.

PARAMETERS P_BUKRS LIKE T001-BUKRS.


INITIALIZATION.

  TEXT = 'My label'.

Max

[Former Member]

Hi Sunanda,

I am providing sample code. Check this code for your reference.

***************************************************************

SELECTION-SCREEN : BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-006.

SELECTION-SCREEN : BEGIN OF BLOCK D WITH FRAME TITLE TEXT-002 .

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: RB1 RADIOBUTTON GROUP G1 USER-COMMAND FLAG.

SELECTION-SCREEN COMMENT 3(15) FOR FIELD RB1.

PARAMETERS: RB2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 20(30) FOR FIELD RB2.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: END OF BLOCK D.

SELECTION-SCREEN : BEGIN OF BLOCK B0 WITH FRAME TITLE TEXT-004.

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

PARAMETERS : RCODE(30) TYPE C AS LISTBOX VISIBLE LENGTH 30 MODIF ID AS,

WW TYPE CHAR6 AS LISTBOX VISIBLE LENGTH 6 MODIF ID AS,

QTY TYPE ZQTY MODIF ID AS,

SELECTION-SCREEN : END OF BLOCK A.

SELECTION-SCREEN :

PUSHBUTTON 10(10) SAVE USER-COMMAND SAV MODIF ID AS,

PUSHBUTTON 25(10) DISPLAY USER-COMMAND DISP MODIF ID AS,

PUSHBUTTON 40(10) COPY USER-COMMAND COPY MODIF ID AS,

PUSHBUTTON 55(10) HISTORY USER-COMMAND HIST MODIF ID AS,

PUSHBUTTON 70(10) RST USER-COMMAND RST MODIF ID AS.

SELECTION-SCREEN : END OF BLOCK B0.

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

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

PARAMETERS : PS_FILE TYPE CHAR128 MODIF ID PS.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN :

PUSHBUTTON 10(10) UPLOAD USER-COMMAND UPL MODIF ID PS,

PUSHBUTTON 35(10) DOWNLOAD USER-COMMAND DWL MODIF ID PS.

SELECTION-SCREEN : END OF BLOCK B2.

SELECTION-SCREEN : END OF BLOCK B3.

FORM F_TOGGLE_FINPUTS1.

*It gives dynamic display of input boxes for file selection based on

*user choice

IF RB1 = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = C_AS. " 'AS'.

SCREEN-ACTIVE = 1.

ENDIF.

IF SCREEN-GROUP1 = C_PS. " 'PS'.

SCREEN-ACTIVE = 1.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF RB2 = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = C_PS. " 'PS'.

SCREEN-ACTIVE = 1.

ENDIF.

IF SCREEN-GROUP1 = C_AS. " 'AS'.

SCREEN-ACTIVE = 1.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDFORM.

***************************************************************

Hope this is helpful to you. If you need further information, revert back.

Reward all the helpful answers.

Regards

Nagaraj T