Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

V.V.Urgent(PF Status)

Former Member
0 Kudos

I need to put some fields in the menu bar.

I got a T.code Z123.

If i executed it goes onto report screen 1000 and then calls Screen painter 100.

I need to put some menu foelds in the Report screen.

I am sending the code to.

where to write PF status and its code for the menu feilds.

Want it Urgently.

Code Below

&----


*& Report Z_URL

*&

&----


*&

*&

&----


REPORT Z_URL MESSAGE-ID ZMSGID1..

TABLES PROJ.

DATA: html_control TYPE REF TO cl_gui_html_viewer,

my_container TYPE REF TO cl_gui_custom_container.

DATA : BEGIN OF GI_DATA OCCURS 0,

PSPID TYPE PROJ-PSPID,

END OF GI_DATA.

initialization.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS P TYPE PROJ-PSPID.

SELECTION-SCREEN END OF BLOCK B1.

*

*

DATA PATH(2045) TYPE C.

AT SELECTION-SCREEN.

CALL SCREEN 200.

GI_DATA-PSPID = PROJ-PSPID.

APPEND GI_DATA.

CLEAR GI_DATA.

loop at gi_data.

CONCATENATE 'http://manaswini/dm/indexsap.html?pr_id=' gi_data-pspid

',des_id=' gi_data-pspid into paTH(2045).

endloop.

CALL SCREEN 0100.

&----


*& Module ALV_DISPLAY OUTPUT

&----


  • text

----


MODULE ALV_DISPLAY OUTPUT.

IF my_container IS INITIAL.

CREATE OBJECT my_container

EXPORTING

container_name = 'H_CONTAINER'

EXCEPTIONS

others = 1.

CASE sy-subrc.

WHEN 0.

*

WHEN OTHERS.

RAISE cntl_error.

ENDCASE.

ENDIF.

IF html_control IS INITIAL.

CREATE OBJECT html_control

EXPORTING

parent = my_container.

IF sy-subrc NE 0.

RAISE cntl_error.

ENDIF.

endif.

CALL METHOD html_control->show_url

EXPORTING

URL = path.

ENDMODULE.

&----


*& Module STATUS_0100 OUTPUT

&----


  • text

----


MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'ZSTATUS'.

SET TITLEBAR '100'.

ENDMODULE. " STATUS_0100 OUTPUT

&----


*& Module USER_COMMAND_0100 INPUT

&----


  • text

----


MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'RETURN'.

CALL SCREEN '1000'.

WHEN 'CANCEL'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----


*& Module cancel INPUT

&----


  • text

----


MODULE cancel INPUT.

LEAVE PROGRAM.

ENDMODULE. " cancel INPUT

3 REPLIES 3

Former Member
0 Kudos

hi..

write set pf status in the PBO ant the associated code in PAI..

Hope it helps you...

Let me know if u have any more doubt...

Reward points if useful......

Suresh.......

Former Member
0 Kudos

Can you be more specific with your question?

Former Member
0 Kudos

double click on ur PF-STAUS in your program,

expand the + symbol beside the menu bar, then enter the text of the main menu, double click on the text to add more menu options under the main menu along with the associated tcode. now handle the tcode of the menu buttons in the PAI of the screen.

Ex:

CASE sy-ucomm.

WHEN 'MENU1_ITEM1'

.........

WHEN MENU1_ITEM2'.

........

ENDCASE.