Query on Read-only parameter at selection screen

former_member699182 — Tue, 11 Nov 2014 04:35:31 GMT

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.

Re: Query on Read-only parameter at selection screen

custodio_deoliveira — Tue, 11 Nov 2014 04:45:55 GMT

Hi Gita,

The screen-name must be in UPPER CASE:

IF SCREEN-NAME = 'P_JOBNM'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

EXIT.

ENDIF.

Regards,

Custodio

Re: Query on Read-only parameter at selection screen

former_member699182 — Tue, 11 Nov 2014 04:55:19 GMT

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

Best Regards,

Gita

topic Re: Query on Read-only parameter at selection screen in Application Development and Automation Discussions

Query on Read-only parameter at selection screen

Re: Query on Read-only parameter at selection screen

Re: Query on Read-only parameter at selection screen