Parameter without Input

[Former Member]

Hi experts,

I have defined subscreen as follows,

SELECTION-SCREEN BEGIN OF SCREEN 0102 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAme.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(16) text-010.

SELECT-OPTIONS: s_abkrs FOR pa0001-abkrs.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(19) text-011.

PARAMETERS : p_pabrp TYPE t569v-pabrp obligatory.

SELECTION-SCREEN COMMENT 33(12) text-012.

PARAMETERS : p_pabrj TYPE t569v-pabrj obligatory.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(19) text-011.

PARAMETERS : p_pabrpc TYPE t569v-pabrp .

PARAMETERS : p_pabrjc TYPE t569v-pabrj .

SELECTION-SCREEN COMMENT 42(3) text-013 .

PARAMETERS : p_begda TYPE p0001-begda .

*SELECTION-SCREEN COMMENT 40(4) text-014 .

PARAMETERS : p_endda TYPE p0001-endda .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN END OF SCREEN 0102.

1.I want parameter p_pabrpc,p_pabrjc,p_begda,p_endda to be only output field

2.how would i be able to access PAI of this particular subscreen.

Please suggest.

Regards,

Kaustubh.

[madan_ullasa]

Hi,

Use the event 'AT selection screen output'.

And then loop at screen.

if screen name = 'P.........'.

screen-output = '1'.

modify screen...

Regards,

Madan..

[Former Member]

Hi,

p_app TYPE filenameci-fileintern MODIF ID m1, "Logical file name

p_pre TYPE rlgrap-filename MODIF ID m2. "presentation server

LOOP AT SCREEN.

IF rp_app = c_x.

IF screen-group1 = c_m1.

screen-active = c_1.

ENDIF.

IF screen-group1 = c_m2.

screen-active = c_0.

ENDIF.

ELSEIF rp_pre = c_x.

IF screen-group1 = c_m2.

screen-active = c_1.

ENDIF.

IF screen-group1 = c_m1.

screen-active = c_0.

ENDIF.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Edited by: imran khan on Nov 3, 2009 6:17 AM

[Former Member]

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.

PARAMETERS: p_pabrpc TYPE c LENGTH 10 MODIF ID bl2,

p_pabrjc TYPE c LENGTH 10 MODIF ID bl2,

p_begda TYPE c LENGTH 10 MODIF ID bl2.,

p_endda TYPE c LENGTH 10 MODIF ID bl2.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'BL2'.

screen-input = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

[Former Member]

uyjj