topic Re: REGARDING PF_STATUS in Application Development and Automation Discussions

REGARDING PF_STATUS

Former Member — Wed, 04 Feb 2009 08:41:24 GMT

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,

Re: REGARDING PF_STATUS

Former Member — Wed, 04 Feb 2009 09:19:31 GMT

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

Re: REGARDING PF_STATUS

Former Member — Wed, 04 Feb 2009 11:56:32 GMT

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

Re: REGARDING PF_STATUS

I355602 — Wed, 04 Feb 2009 12:19:26 GMT

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%252balv%252bgrid

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

Hope this helps you.

Thanks & Regards,

Tarun

Re: REGARDING PF_STATUS

Former Member — Wed, 04 Feb 2009 15:21:50 GMT

Make this change


I_CALLBACK_PF_STATUS_SET = 'PF_STATUS-SET'


I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'

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

Re: REGARDING PF_STATUS

Former Member — Thu, 05 Feb 2009 05:32:49 GMT

Dear Paul,

i have done it still it's not working.

thanks,

Re: REGARDING PF_STATUS

I355602 — Thu, 05 Feb 2009 05:43:17 GMT

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

Re: REGARDING PF_STATUS

Former Member — Thu, 05 Feb 2009 05:46:47 GMT

Hi ali,

Regards,

Kalyan