REGARDING PF_STATUS

Former Member · ‎2009 Feb 04

hi,

In the below report source code the pf_status is not working,please check the below one

REPORT Y_ALV_VERSION.

TYPE-POOLS : SLIS.

DATA : BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARC-MATNR, "Plant Data for Material-Material Number

WERKS LIKE MARC-WERKS, "Plant Data for Material-Plant

EKGRP LIKE MARC-EKGRP, "Plant Data for Material-Purchasing Group

END OF ITAB.

DATA : BEGIN OF ITAB1 OCCURS 0,

MATNR LIKE MARD-MATNR, "Storage Location Data for Material-Material Number

WERKS LIKE MARD-WERKS, "Storage Location Data for Material-Plant

LGORT LIKE MARD-LGORT, "Storage Location Data for Material-Storage Location

END OF ITAB1.

DATA : REPID LIKE SY-REPID.

DATA : V_LINE TYPE SY-TABIX.

DATA : X_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA : I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA : I_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.

DATA : X_ALV_EVENTS TYPE SLIS_ALV_EVENT.

DATA : T_ALV_EVENTS TYPE SLIS_T_EVENT.

DATA : X_ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.

START-OF-SELECTION.

PERFORM SUB_PREPARE_FIELDCATALOG.

PERFORM SUB_SELECT_RECORD.

PERFORM SUB_DETERMINE_ALV_LAYOUT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = T_ALV_EVENTS

EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

READ TABLE T_ALV_EVENTS INTO X_ALV_EVENTS WITH KEY NAME = 'USERCOMMAND'.

IF SY-SUBRC = 0.

X_ALV_EVENTS-FORM = 'USER_ACTION'.

MODIFY T_ALV_EVENTS FROM X_ALV_EVENTS INDEX SY-TABIX.

ENDIF.

READ TABLE T_ALV_EVENTS INTO X_ALV_EVENTS WITH KEY NAME = 'PF_STATUS-SET'.

IF SY-SUBRC = 0.

X_ALV_EVENTS-FORM = 'PF_STATUS'.

MODIFY T_ALV_EVENTS FROM X_ALV_EVENTS INDEX SY-TABIX.

ENDIF.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = REPID

I_CALLBACK_PF_STATUS_SET = 'PF_STATUS-SET'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =

IS_LAYOUT = X_ALV_LAYOUT

IT_FIELDCAT = I_FIELDCAT[]

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =

IT_EVENTS = T_ALV_EVENTS

IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = ITAB

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

&----

*& Form PF_STATUS

&----

text

----

-->RT_EXTAB text

----

FORM PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ALV_PF_STATUS'.

ENDFORM. "PF_STATUS

&----

*& Form user_action

&----

text

----

-->R_UCOMM text
-->RS_SELFIELD text

----

FORM USER_ACTION USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

DATA : OKCODE TYPE SY-UCOMM.

OKCODE = R_UCOMM.

CLEAR R_UCOMM.

V_LINE = RS_SELFIELD-TABINDEX.

CASE OKCODE.

WHEN 'PICK'.

READ TABLE ITAB INDEX V_LINE.

PERFORM SUB_PREPARE_FIELDCATALOG1.

PERFORM SUB_SELECT_RECORD1.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'REPID'

I_CALLBACK_PF_STATUS_SET = 'PF_STATUS-SET'

I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT =
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = ITAB1

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

WHEN 'EXIT'.

RS_SELFIELD-EXIT = 'X'.

ENDCASE.

ENDFORM. "user_action

&----

*& Form SUB_PREPARE_FIELDCATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_PREPARE_FIELDCATALOG .

X_FIELDCAT-SELTEXT_L = 'MATERIAL'.

X_FIELDCAT-DATATYPE = 'CHAR'.

X_FIELDCAT-OUTPUTLEN = 18.

X_FIELDCAT-FIELDNAME = 'MATNR'.

X_FIELDCAT-HOTSPOT = 'X'.

APPEND X_FIELDCAT TO I_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-SELTEXT_L = 'PLANT'.

X_FIELDCAT-DATATYPE = 'CHAR'.

X_FIELDCAT-OUTPUTLEN = 4.

X_FIELDCAT-FIELDNAME = 'WERKS'.

APPEND X_FIELDCAT TO I_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-SELTEXT_L = 'PUR.GROUP'.

X_FIELDCAT-DATATYPE = 'CHAR'.

X_FIELDCAT-OUTPUTLEN = 4.

X_FIELDCAT-FIELDNAME = 'EKGRP'.

X_FIELDCAT-EDIT = 'X'.

APPEND X_FIELDCAT TO I_FIELDCAT.

CLEAR X_FIELDCAT.

ENDFORM. " SUB_PREPARE_FIELDCATALOG

&----

*& Form SUB_SELECT_RECORD

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_SELECT_RECORD .

SELECT MATNR WERKS EKGRP FROM MARC INTO TABLE ITAB UP TO 10 ROWS WHERE WERKS = '1000'.

ENDFORM. " SUB_SELECT_RECORD

&----

*& Form SUB_DETERMINE_ALV_LAYOUT

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_DETERMINE_ALV_LAYOUT .

X_ALV_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

X_ALV_LAYOUT-F2CODE = 'PICK'.

X_ALV_LAYOUT-WINDOW_TITLEBAR = 'PLANT DATA'.

X_ALV_LAYOUT-KEY_HOTSPOT = 'X'.

ENDFORM. " SUB_DETERMINE_ALV_LAYOUT

&----

*& Form SUB_PREPARE_FIELDCATALOG1

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_PREPARE_FIELDCATALOG1 .

X_FIELDCAT-SELTEXT_L = 'MATERIAL'.

X_FIELDCAT-DATATYPE = 'CHAR'.

X_FIELDCAT-OUTPUTLEN = 18.

X_FIELDCAT-FIELDNAME = 'MATNR'.

X_FIELDCAT-HOTSPOT = 'X'.

APPEND X_FIELDCAT TO I_FIELDCAT1.

CLEAR X_FIELDCAT.

X_FIELDCAT-SELTEXT_L = 'PLANT'.

X_FIELDCAT-DATATYPE = 'CHAR'.

X_FIELDCAT-OUTPUTLEN = 4.

X_FIELDCAT-FIELDNAME = 'WERKS'.

APPEND X_FIELDCAT TO I_FIELDCAT1.

CLEAR X_FIELDCAT.

X_FIELDCAT-SELTEXT_L = 'Storage Location'.

X_FIELDCAT-DATATYPE = 'CHAR'.

X_FIELDCAT-OUTPUTLEN = 4.

X_FIELDCAT-FIELDNAME = 'LGORT'.

X_FIELDCAT-EDIT = 'X'.

APPEND X_FIELDCAT TO I_FIELDCAT1.

CLEAR X_FIELDCAT.

ENDFORM. " SUB_PREPARE_FIELDCATALOG1

&----

*& Form SUB_SELECT_RECORD1

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_SELECT_RECORD1 .

SELECT MATNR WERKS LGORT FROM MARD INTO TABLE ITAB1 WHERE MATNR = ITAB-MATNR AND WERKS = ITAB-WERKS.

REFRESH I_FIELDCAT1.

Thanks & Regards,

Former Member · ‎2009 Feb 04

Hi,

Please check the layout is properly activated or not. If F keys are added then activate F key specifically, Else copy the layout from SAPLSLVC_FULLSCREEN.

Thanks,

Vivekanand

Former Member · ‎2009 Feb 04

Hi Ali,

I checked your code, you have written set pf-status in subroutine and you haven't called it anywhere in the code you have given in the thread.

I think just by caling the subroutine pf_status should make your pf-status to work.

I think this should resolve your issue....

Regards,

Siddarth

I355602 · ‎2009 Feb 04

Hi Ali,

Use this link for code demo for displaying data in alv grid:-

https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/learn%252bto%252bdisplay%252bdata%252bin...

Refer to the sub-routine PF for applying pf-status to the screeen.

Hope this helps you.

Thanks & Regards,

Tarun

Former Member · ‎2009 Feb 04

Make this change


I_CALLBACK_PF_STATUS_SET = 'PF_STATUS-SET'

to


I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'

This is asking for the FORM that you set the PF Status with.

Former Member · ‎2009 Feb 05

Dear Paul,

i have done it still it's not working.

thanks,

I355602 · ‎2009 Feb 05

Hi Ali,

Use:-


*&---------------------------------------------------------------------*
*          DISPLAY RECORDS IN ALV GRID
*&---------------------------------------------------------------------*
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   i_callback_program                = rep_id
   i_callback_pf_status_set          = 'PF'
   i_callback_user_command           = 'COMMAND'
   i_callback_top_of_page            = 'TOP'
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
   i_grid_title                      = wa_title
*   I_GRID_SETTINGS                   =
   is_layout                         = wa_layout
   it_fieldcat                       = it_field
   it_excluding                      = it_exclude
*   IT_SPECIAL_GROUPS                 =
   it_sort                           = it_sort
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
   i_save                            = 'A'
   is_variant                        = wa_variant
   it_events                         = it_event
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = it_ekpo
 EXCEPTIONS
   program_error                     = 1
   OTHERS                            = 2.

  IF sy-subrc <> 0.
  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  pf
*&---------------------------------------------------------------------*
*       FOR PF-STATUS WITH USER DEFINED BUTTONS
*----------------------------------------------------------------------*
*      -->RT_EXTAB   text
*----------------------------------------------------------------------*
FORM pf USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'ZTG_PF_ALV'.
ENDFORM.                    "pf

Hope this solves your problem.

Thanks & Regards,

Tarun Gambhir

Former Member · ‎2009 Feb 05

Hi ali,

Regards,

Kalyan

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

REGARDING PF_STATUS