topic Re: Paremeter User Command in Application Development and Automation Discussions

Paremeter User Command

former_member188001 — Wed, 01 Aug 2007 16:00:55 GMT

Hello Friends,

I have 3 paremeters. Please see the code below.

Parameters : p_check type c as checkbox USER-COMMAND CHECK,

p_var1 type char10 default 'XYZ',

p_var2 type char10 default 'ABC'.

Now when I call the selection screen for the first time, p_check is unchecked so i dont want to display p_var1 and p_var2.

When I check the checkbox for p_check, then the paremteres p_var1 and p_var2 should be displayed and vice a versa.

Please let me know the code that I need to put and at which event.

Thanks,

Salil

Re: Paremeter User Command

Former Member — Wed, 01 Aug 2007 16:02:43 GMT

HI,

Check this logic.

PARAMETERS : Pre_lay RADIOBUTTON GROUP RG USER-COMMAND R DEFAULT 'X'.

PARAMETERS : Apln_lay RADIOBUTTON GROUP RG .

selection-screen begin of block b1 with frame.

parameters : Pre_layr(10) type c modif id abc.

selection-screen end of block b1.

selection-screen begin of block b2 with frame.

parameters : Appl_lay(40) type c modif id def.

selection-screen end of block b2.

at selection-screen output.

IF Pre_lay = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'DEF' .

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF Apln_lay = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'ABC' .

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Thanks

Mahesh

Re: Paremeter User Command

Former Member — Wed, 01 Aug 2007 16:08:20 GMT

check below sample code in similar manner....

----

S E L E C T I O N S C R E E N

----

SELECTION-SCREEN BEGIN OF BLOCK FILE WITH FRAME TITLE TEXT-000.

SELECTION-SCREEN : BEGIN OF LINE.

PARAMETERS: RB_APPN RADIOBUTTON GROUP RAD1 DEFAULT 'X' USER-COMMAND RAD.

SELECTION-SCREEN COMMENT 3(25) TEXT-030.

PARAMETERS: RB_PRTN RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN COMMENT 32(20) TEXT-031.

SELECTION-SCREEN : END OF LINE.

PARAMETERS : P_LPATH TYPE FILEPATH-PATHINTERN MODIF ID Z1,

P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.

PARAMETERS : P_SUBGRP TYPE RLGRAP-FILENAME,

P_INVEN TYPE RLGRAP-FILENAME,

P_SALES TYPE RLGRAP-FILENAME.

SELECTION-SCREEN END OF BLOCK FILE.

SELECTION-SCREEN BEGIN OF BLOCK FILE1 WITH FRAME TITLE TEXT-032.

SELECT-OPTIONS:

S_WERKS FOR T001W-WERKS OBLIGATORY DEFAULT 5210,

S_SPART FOR MARA-SPART,

S_MATNR FOR MARA-MATNR.

SELECTION-SCREEN END OF BLOCK FILE1.

----

A T S E L E C T I O N - S C R E E N O U T P U T

----

AT SELECTION-SCREEN OUTPUT.

PERFORM F_MODIFY_SCREEN.

----

A T S E L E C T I O N S C R E E N

----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM VALIDATE_FILE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SUBGRP.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_SUBGRP .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_INVEN.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_INVEN .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SALES.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_SALES .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

&----

*& Form F_MODIFY_SCREEN

&----

text

----

FORM F_MODIFY_SCREEN .

*-- For Output Options

IF RB_PRTN = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'Z1' .

SCREEN-INVISIBLE = 1.

SCREEN-ACTIVE = 0.

ELSE.

SCREEN-INVISIBLE = 0.

SCREEN-ACTIVE = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDFORM. " F_MODIFY_SCREEN

Award Points...

Re: Paremeter User Command

Former Member — Wed, 01 Aug 2007 16:09:11 GMT

hi,

Here is the complete code

REPORT ZTESTP.

PARAMETERS : Pre_lay as checkbox USER-COMMAND CHECK DEFAULT 'X'.

*PARAMETERS : Apln_lay RADIOBUTTON GROUP RG .

selection-screen begin of block b1 with frame.

parameters : Pre_layr(10) type c modif id abc.

selection-screen end of block b1.

selection-screen begin of block b2 with frame.

parameters : Appl_lay(40) type c modif id def.

selection-screen end of block b2.

at selection-screen OUTPUT.

IF Pre_lay = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'DEF' or screen-group1 = 'ABC'.

screen-active = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

else.

LOOP AT SCREEN.

IF screen-group1 = 'DEF' or screen-group1 = 'ABC'.

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Thanks

Mahesh

Re: Paremeter User Command

former_member188001 — Wed, 01 Aug 2007 17:59:07 GMT

Solved on my own