selection text name replace

1.특정변수의 값에 따라 TEXT를 변하는 경우

*---------------------------------------------------------------------
* Shows how to give the selection screen parameter name by
*  using coding
*---------------------------------------------------------------------
REPORT  ztest.
*
DATA: w_carrid TYPE sflight-carrid.
*
** Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE aaa.
SELECT-OPTIONS:   s_carrid FOR w_carrid.
SELECTION-SCREEN: END   OF BLOCK blk1.
*
INITIALIZATION.
* Description for the parameter
  IF sy-uname = 'TEST'.
    %_s_carrid_%_app_%-text = 'Carrier ID'.
  ELSE.
    %_s_carrid_%_app_%-text = 'Flight ID'.
  ENDIF.

2.체크박스 여부에 따라 변하게 하는 경우

*&---------------------------------------------------------------------*
*& Report  ZTEST01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST01.
 
TABLES : LIKP.
 
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS       : CB_C01 AS CHECKBOX USER-COMMAND CB01 DEFAULT ''.     
SELECT-OPTIONS: S_VBELN   FOR  LIKP-VBELN.
SELECTION-SCREEN END OF BLOCK B1.
 
*----------------------------------------------------------------------
*  AT SELECTION-SCREEN OUTPUT
*----------------------------------------------------------------------
AT SELECTION-SCREEN OUTPUT.    "2021.11.04 yzhyun add
  PERFORM SCREEN_MODIFY.
 
 
*&---------------------------------------------------------------------*
*&      Form  SCREEN_MODIFY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SCREEN_MODIFY .
 
  IF CB_C01 EQ 'X'.
    %_S_VBELN_%_app_%-text = '납품번호'.
  ELSE.
    %_S_VBELN_%_app_%-text = '판매오더번호'.
  ENDIF.
 
ENDFORM.