Set pf status problem

[Former Member]

Hi Friends,

I want to activate all the icons (Funtion keys) with their functions using Set pf Status in the module pool program can any one tell me how to do it. Coz I tried but I am able to use only exit function key with it appropriate functions, can any one help me how to do it with the remaining function keys.

Regards,

Line

[Former Member]

Just goto ME41 Transaction ,

use SAP Standard Program : SAPLSLVC_FULLSCREEN

Status : STANDARD_FULLSCREEN -> it will have all function key's

See the above pf status,you can copy that one to custom one ,use custom one for your req.

or if you need more information

Use SE11 Transaction -> table RSMPTEXTS -> here you can able to see sap standard program and related function key's

Thanks

Seshu

[Former Member]

Hi Seshu,

I managed to activate the standard buttons, but buttons does not work accordingly.

Can you please tell me how to do it. I also check the standard program what you have mentioned in the reply.

Thanx in advance,

Regards,

Line

[Former Member]

Hi Line,

Sorry for late reply and your reply gone to my bulk email box.

You need to write the code for all Standard button,i have one simple example about one button ,i created one table control to display Ztable data,client needs find button in screen, I have written for this,if you need for all standard button you need to write the code,if you need logic for that and all then see any standard transaction.

See the example code (Bold one is find button Logic),

&----

---

*& Module pool ZLWMI151_BAT1

*& Transaction: ZBAT1

*& Programmer: Seshu Maramreddy

*& Date : 05/17/2005

• Transport : DV3K919574

*& Description: This program Will Displays the Batch Conversion

*& data in Display mode. Batch conversion

*& table (ZBATCH_CROSS_REF)

*&

*&

&----

---

PROGRAM ZLWMI151_BAT1 .

INCLUDE ZLWMI151_BAT1_TOP.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0100 INPUT.

case ok_code.

when 'BACK'.

leave to screen 0.

when 'EXIT'.

leave to screen 0.

when 'CANC'.

leave to screen 0.

when 'EXCE'.

perform down_load.

WHEN '%SC'.

perform find_field using ok_code.

endcase.

clear ok_code.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

---

*& Module STATUS_0100 OUTPUT

&----

---

• GUI Status

----

---

MODULE

STATUS_0100 OUTPUT.

SET PF-STATUS 'STLI'.

DESCRIBE TABLE T_zbatch LINES G_LINE.

TC1-LINES = TC1-LINES + 18.

ENDMODULE. " STATUS_0100 OUTPUT

&----

---

*& Form down_load

&----

---

• text

----

---

FORM down_load.

CALL FUNCTION 'DOWNLOAD'

EXPORTING

FILENAME = ' '

FILETYPE = 'DAT'

TABLES

DATA_TAB = t_zbatch

EXCEPTIONS

INVALID_FILESIZE = 1

INVALID_TABLE_WIDTH = 2

INVALID_TYPE = 3

NO_BATCH = 4

UNKNOWN_ERROR = 5

GUI_REFUSE_FILETRANSFER = 6

CUSTOMER_ERROR = 7

OTHERS = 8.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " down_load

&----

---

*& Module modify OUTPUT

&----

---

• text

----

---

MODULE modify OUTPUT.

select * from zbatch_cross_ref into corresponding fields of table

t_zbatch.

sort t_zbatch by werks werks cmatnr srlno.

ENDMODULE. " modify OUTPUT

&----

---

*& Form find_field

&----

---

• text

----

---

• -->P_OK_CODE text

----

---

FORM find_field USING command.

<b> data: position like sy-tabix.

data: found(1).

data: find_pos like sy-tabix,

loop_curr like sy-tabix.

select * from zbatch_cross_ref into table t_find.

sort t_find by werks cmatnr srlno.

if command = '%SC'. "Suchen

position = 1.

perform popup_get_value using 'FSTR' ''

changing rsdxx-findstr.

else. "FIWE "Suchen wiederholen

position = loop_first + 1.

if rsdxx-findstr = space.

perform popup_get_value using 'FSTR' ''

changing rsdxx-findstr.

endif.

endif.

if ok_code = 'ABR'.

clear ok_code.

leave screen.

else.

clear found.

loop at t_find from position.

if t_find cs rsdxx-findstr

or t_find cp rsdxx-findstr.

found = 'X'.

find_pos = sy-tabix.

exit.

endif.

endloop.

if found = 'X'.

loop_curr = 1.

tabpos = loop_first = find_pos.

if use_old is initial.

tc1-top_line = find_pos.

• set cursor field tc1-top_line.

endif.

else.

message s042(e2) with rsdxx-findstr.

endif.

endif.</b>

ENDFORM. " find_field

FORM POPUP_GET_VALUE USING FCT MODE

CHANGING VALUE.

DATA: ANSWER,

popup_title(35),

TITLE LIKE POPUP_TITLE,

FIELDS LIKE SVAL OCCURS 1 WITH HEADER LINE.

CASE FCT.

<b> WHEN 'FIND'. "Suchen Feld

TITLE = TEXT-TFI.

FIELDS-TABNAME = 'RSEDD0'.

FIELDS-FIELDNAME = 'FIELDNAME'.

FIELDS-NOVALUEHLP = 'X'.

FIELDS-VALUE = VALUE.

APPEND FIELDS.</b>

WHEN 'FSTR'. "Suchen String

TITLE = TEXT-TFS.

FIELDS-TABNAME = 'RSDXX'.

FIELDS-FIELDNAME = 'FINDSTR'.

FIELDS-NOVALUEHLP = 'X'.

FIELDS-VALUE = VALUE.

APPEND FIELDS.

WHEN 'ACCL'. "Aktivierungsart

TITLE = TEXT-TAC.

FIELDS-TABNAME = 'DD02D'.

FIELDS-FIELDNAME = 'AUTHCLASS'.

FIELDS-VALUE = VALUE.

IF MODE = 'S'.

FIELDS-FIELD_ATTR = '02'.

ENDIF.

APPEND FIELDS.

WHEN 'DELC'. "Auslieferungsklasse

TITLE = TEXT-TDC.

FIELDS-TABNAME = 'DD25D'.

FIELDS-FIELDNAME = 'CUSTOMAUTH'.

FIELDS-VALUE = VALUE.

IF MODE = 'S'.

FIELDS-FIELD_ATTR = '02'.

ENDIF.

APPEND FIELDS.

ENDCASE.

CALL FUNCTION 'POPUP_GET_VALUES'

EXPORTING

POPUP_TITLE = TITLE

IMPORTING

RETURNCODE = ANSWER

TABLES

FIELDS = FIELDS

EXCEPTIONS

ERROR_IN_FIELDS = 1

OTHERS = 2.

IF SY-SUBRC = 0

AND ANSWER = SPACE.

VALUE = FIELDS-VALUE.

ENDIF.

ENDFORM.

----

---

• INCLUDE ZLWMI151_BAT1_TOP *

----

---

tables : zbatch_cross_ref,

rsdxx.

data t_zbatch like zbatch_cross_ref occurs 0 with header line.

data :ok_code(4) type c,

g_line type sy-index,

loop_first like sy-tabix,

tabpos like sy-tabix,

USE_OLD type char1.

controls tc1 type tableview using screen 0100.

data : begin of t_find occurs 0.

include structure zbatch_cross_ref.

data : end of t_find.

Thanks

Seshu

[Former Member]

hi line,

plz let me know the solution u got for the problem u mentioned in the post

Print option in Table control

Posted: Apr 23, 2007 5:59 AM

i am facing d same problem.

thanks in advance

avijit