V.V.Urgent(PF Status)
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