MODULE POOL PROGRAMMING

[Former Member]

Hi,

I want to create one subscreen and radio button in 9001.when i click one radio button the subscreen will call screen '9002' and when i click another radio button the same screen wants to call ;9003' screen.

how to do this...help me please.......

[Former Member]

Hi,

Its simple write the code for one subscreen such that it will call subsequent sub-screen and so on.

But this coding should come under the PAI block as when u click some thing then only the particular screen must appear.

Regards,

Ameet

[Former Member]

Assign both the radiobuttons the same Radiobutton Group and give Fcode to the radiobutton group(let it be RBSEL).

Now in PAI.

MODULE USER_COMMAND.

Code:

IF SY-UCOMM = RBSEL.

IF RB1 = 'X'.

CALL SCREEN 9XXX.

ELSEIF RB2 = 'X'.

CALL SREEN 9YYY.

ENDIF.

[GauthamV]

hi,

check this program.

DEMO_SEL_SCREEN_AS_SUBSCREEN.

[Former Member]

>

> Hi,
>      I want to create one subscreen and radio button in 9001.when i click one radio button the subscreen will call screen '9002' and when i click another radio button the same screen wants to call ;9003' screen.
>  how to do this...help me please.......

Hi,

Just write the below code in your PBO and PAI.

PROCESS BEFORE OUTPUT.

CALL SUBSCREEN sub INCLUDING sy-repid <prog_name>.

PROCESS AFTER INPUT.

IF r1 EQ 'X'.

CALL SUBSCREEN 9002.

ELSEIF r2 EQ 'X'.

CALL SUBSCREEN 9002.

ENDIF.

Thanks

Nitesh

[Former Member]

hi

first you declear two radio button in screen and a push button and define a group for radio..for it you grab both radio button in mouse and then give single right click..

after that you write.

at pbo..

CALL SUBSCREEN sub INCLUDING <program name> vdynnr.

MODULE USER_COMMAND.

IF SY-UCOMM = 'EXE'.

IF RB1 = 'X'.

vdynnr = '9001'.

endif.

IF RB2 = 'X'.

vdynnr = '9002'.

ENDIF.

endif.

Edited by: swati gupta on Dec 5, 2008 7:42 AM

Edited by: swati gupta on Dec 5, 2008 7:42 AM

[Former Member]

Hi Manjula,

For creating 1 subscreen and radiobutton in 9001, u follow these steps.

1. First in u create a normal screen 9001. In its layout u create ur desired subscreen.

2. Next u create a subscreen 9002. In its layout u create a box , in that u place ur required no. of

radiobuttons.

and do requred coding in flowlogics of both the screens.

DATA : save_ok TYPE sy-ucomm,

ok_code TYPE sy-ucomm.

DATA : number1(4) TYPE n VALUE '9001',

field(10) TYPE c.

CALL SCREEN 9000.

In 9001 screen, in flow logic tab.

PROCESS BEFORE OUTPUT.

MODULE status_9000.

CALL SUBSCREEN area1 INCLUDING sy-repid number1.

PROCESS AFTER INPUT.

MODULE CANCEL AT EXIT-COMMAND.

MODULE SAVE_OK.

CALL SUBSCREEN AREA1.

MODULE USER_COMMAND_9000.

MODULE status_9000 OUTPUT.

SET PF-STATUS 'SCREEN_9000'. " Cancel

ENDMODULE. " STATUS_9000 OUTPUT

MODULE cancel INPUT.

LEAVE PROGRAM.

ENDMODULE. " CANCEL INPUT

MODULE save_ok INPUT.

save_ok = ok_code.

CLEAR ok_code.

ENDMODULE. " SAVE_OK INPUT

MODULE user_command_9000 INPUT.

CASE save_ok.

WHEN 'SUB1'.

number1 = '9001'.

ENDCASE.

ENDMODULE. " USER_COMMAND_9000 INPUT

In 9002 screen, in flow logic tab.

module FILL_9001 output.

FIELD = TEXT-001.

endmodule. " FILL_9001 OUTPUT

Directly in a subscreen u cant create any radiobuttons , pushbutons etc.

For details refer to abapdocu examples. There it given clearly.

Cheers.