i am unable to get fuctionalty of set pf-status.
this is my code
&----
*& Report ZRET_RECOVRY_ENTRY_J008
*&
&----
*&
*&
&----
REPORT ZRET_RECOVRY_ENTRY_J008 no standard page heading line-size 256.
----
----
Tables Work Area -
----
tables :bsid,
BKPF,
KNA1,
ZTEMPLATE,
BSEG,
TGSBT.
----
----
Data Declaration -
----
data : begin of itab occurs 0,
BLDAT LIKE BKPF-BLDAT,
BUKRS LIKE BKPF-BUKRS,
WAERS LIKE BKPF-WAERS,
BUDAT LIKE BKPF-BUDAT,
BLART LIKE BKPF-BLART,
BUDAT1 LIKE BSID-BUDAT,
HKONT LIKE BSEG-HKONT,
GJAHR LIKE BKPF-GJAHR,
DMBTR LIKE BSEG-DMBTR,
VNTXT LIKE ZTEMPLATE-VNTXT,
GLTXT LIKE ZTEMPLATE-GLTXT,
XREF1 LIKE BSID-XREF1,
XREF2 LIKE BSID-XREF2,
XREF3 LIKE BSID-XREF3,
KUNNR LIKE BSID-KUNNR,
NAME1 LIKE KNA1-NAME1,
DMBTR1 LIKE BSID-DMBTR,
GSBER LIKE TGSBT-GSBER,
zuonr like bsid-zuonr,
end of itab.
DATA: f2code LIKE sy-ucomm.
DATA: tcode LIKE sy-tcode.
CONTROLS TCONTROL TYPE TABLEVIEW USING SCREEN '0100'.
CONSTANTS: pbukrs LIKE bkpf-bukrs VALUE '9000',
pwaers LIKE bkpf-waers VALUE 'INR',
ref_key LIKE bapiache01-obj_key VALUE '$'.
DATA: err_return LIKE TABLE OF bapiret2 WITH HEADER LINE.
DATA: b_header LIKE bapiache09,
b_customer LIKE TABLE OF bapiacar09 WITH HEADER LINE,
b_glaccts LIKE TABLE OF bapiacgl09 WITH HEADER LINE,
b_amount LIKE TABLE OF bapiaccr09 WITH HEADER LINE,
b_return LIKE TABLE OF bapiret2 WITH HEADER LINE,
b_vendor LIKE TABLE OF bapiacap09 WITH HEADER LINE.
DATA: l_type LIKE b_header-obj_type,
l_key LIKE b_header-obj_key,
l_sys LIKE b_header-obj_sys.
start-of-selection.
call screen 100.
&----
*& Module STATUS_0100 OUTPUT
&----
----
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'RECR'.
ENDMODULE. " STATUS_0100 OUTPUT
&----
*& Module USER_COMMAND_0100 INPUT
&----
----
MODULE USER_COMMAND_0100 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
SET SCREEN 0.
LEAVE SCREEN.
when 'SAVE'.
perform post.
endcase.
ENDMODULE. " USER_COMMAND_0100 INPUT
&----
*& Form post
&----
----
----
FORM post .
ITAB-BLDAT = BKPF-BLDAT.
ITAB-BUKRS = BKPF-BUKRS.
ITAB-WAERS = BKPF-WAERS.
ITAB-BUDAT = BKPF-BUDAT.
ITAB-BLART = BKPF-BLART.
ITAB-BUDAT1 = BSID-BUDAT.
ITAB-HKONT = BSEG-HKONT.
ITAB-GJAHR = BKPF-GJAHR.
ITAB-DMBTR = BSEG-DMBTR.
ITAB-VNTXT = ZTEMPLATE-VNTXT.
ITAB-GLTXT = ZTEMPLATE-GLTXT.
ITAB-XREF1 = BSID-XREF1.
ITAB-XREF2 = BSID-XREF2.
ITAB-XREF3 = BSID-XREF3.
ITAB-KUNNR = BSID-KUNNR.
ITAB-NAME1 = KNA1-NAME1.
ITAB-DMBTR = BSID-DMBTR.
ITAB-GSBER = TGSBT-GSBER.
APPEND ITAB.
CLEAR ITAB.
loop at itab.
endLOOP.
ENDFORM. " post
&----
*& Module user_itab_refresh INPUT
&----
----
MODULE user_itab_refresh INPUT.
refresh itab.
ENDMODULE. " user_itab_refresh INPUT
&----
*& Module user_command_100 INPUT
&----
----
MODULE user_command_100 INPUT.
ENDMODULE. " user_command_100 INPUT
&----
*& Module exit INPUT
&----
----
MODULE exit INPUT.
SET SCREEN 0.
LEAVE SCREEN.
ENDMODULE. " exit INPUT
suggest me how to get.
Bluesky
