Query on Read-only parameter at selection screen

[former_member699182]

In the below program I am trying to make my p_jobnm paramter field read-only. I have written the code in At Selection-screen output but it doesnt seem to make it read-only. Am i missing out something here? Also can the same be achieved within the Initialization event itself? Please help.

Thanks.

*********************************************************::

REPORT  ZGUITEST_JOBCONFIRMATION.

DATA: lt_btcjob TYPE TBTCJOB_BK OCCURS 0.
DATA: aaa type TBTCO.

DATA ls_btcselect TYPE BTCSELECT.
DATA wa_job TYPE tbtcjob.

PARAMETERS: p_jobnm LIKE btcselect-jobname DEFAULT '*' OBLIGATORY.

SELECTION-SCREEN BEGIN OF BLOCK Status WITH FRAME TITLE JobStat.
  SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: p_pln AS CHECKBOX.
    SELECTION-SCREEN COMMENT 4(10) Planned FOR FIELD p_pln.
    PARAMETERS: p_rel AS CHECKBOX.
    SELECTION-SCREEN COMMENT 19(10) Released FOR FIELD p_rel.
    PARAMETERS: p_rdy AS CHECKBOX DEFAULT 'X'.
    SELECTION-SCREEN COMMENT 34(10) Ready FOR FIELD p_rdy.
    PARAMETERS: p_act AS CHECKBOX DEFAULT 'X'.
    SELECTION-SCREEN COMMENT 49(10) Active FOR FIELD p_act.
    PARAMETERS: p_fin AS CHECKBOX.
    SELECTION-SCREEN COMMENT 64(10) Finished FOR FIELD p_fin.
    PARAMETERS: p_can AS CHECKBOX.
    SELECTION-SCREEN COMMENT 79(17) Canceled FOR FIELD p_can.
  SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK Status.

SELECTION-SCREEN BEGIN OF BLOCK Condition WITH FRAME TITLE JobCond.
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 20(5) Frm_Date FOR FIELD p_from.
  PARAMETERS: p_from like btcselect-from_date.
  SELECTION-SCREEN COMMENT 50(5) To_Date FOR FIELD p_to.
  PARAMETERS: p_to like btcselect-to_date.
  SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK Condition.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
     IF SCREEN-NAME = 'p_jobnm'.
          SCREEN-INPUT = '0'.
          MODIFY SCREEN.
          EXIT.
     ENDIF.
ENDLOOP.

INITIALIZATION.

  JobStat = 'ジョブステータス'.
  Planned = '計画済'.
  Released = 'リリース済'.
  Ready = '待機中'.
  Active = '実行中'.
  Finished = '終了'.
  Canceled = '中止'.

  JobCond = 'ジョブ開始条件'.
  Frm_Date = '開始'.
  To_Date = '終了'.

AT SELECTION-SCREEN.

    REFRESH : lt_btcjob.
    CLEAR: ls_btcselect.

* Assign the Jobname, UserName and Start Conditions
    ls_btcselect-jobname   = p_jobnm.
    ls_btcselect-username = '*'.
    ls_btcselect-from_date = p_from.
    ls_btcselect-to_date   = p_to.

* Assign the Status
    ls_btcselect-prelim = p_pln.
    ls_btcselect-schedul = p_rel.
    ls_btcselect-ready = p_rdy.
    ls_btcselect-running = p_act.
    ls_btcselect-finished = p_fin.
    ls_btcselect-aborted = p_can.

END-OF-SELECTION.

CALL FUNCTION 'BP_JOB_SELECT_SM37B'
  EXPORTING
    JOBSELECT_DIALOG          = 'N'
    JOBSEL_PARAM_IN           = ls_btcselect
  TABLES
    JOBSELECT_JOBLIST_B       = lt_btcjob
EXCEPTIONS
   NO_JOBS_FOUND             = 3
   OTHERS                    = 6
          .

* no jobs found -> OK
  IF sy-subrc eq 0.
    WRITE: 'NG'.
  ELSE.
    WRITE: 'OK'.
  ENDIF.

[custodio_deoliveira]

Hi Gita,

The screen-name must be in UPPER CASE:

IF SCREEN-NAME = 'P_JOBNM'.

          SCREEN-INPUT = '0'.

          MODIFY SCREEN.

          EXIT.

     ENDIF.

Regards,

Custodio

[former_member699182]

How simple. DInt knew it earlier. Thanks a lot Custodio.

Best Regards,

Gita