Skip to Content
0
Former Member
Dec 05, 2008 at 12:38 PM

Set pf-status 'STAT'

81 Views

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

&----


  • text

----


MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'RECR'.

  • SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0100 OUTPUT

&----


*& Module USER_COMMAND_0100 INPUT

&----


  • text

----


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

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


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

&----


  • text

----


MODULE user_itab_refresh INPUT.

refresh itab.

ENDMODULE. " user_itab_refresh INPUT

&----


*& Module user_command_100 INPUT

&----


  • text

----


MODULE user_command_100 INPUT.

ENDMODULE. " user_command_100 INPUT

&----


*& Module exit INPUT

&----


  • text

----


MODULE exit INPUT.

SET SCREEN 0.

LEAVE SCREEN.

ENDMODULE. " exit INPUT

suggest me how to get.