Regarding disply in alv

Question

have few queries on alv
1..i want to colout hte columns of my alv display say the first three columns with one colour and then the next three columns witth another colour and so on.
2.i have just displayed the output on alv and when i am double clicking on any record it is saying <b>Call (PERFORM) to a non-existent routine<b>.
now what i want i sthat  is there any way by which i can avoid this thing means if user double clicks on any thing nothing should be done adn it should remain at the list.
3.now i n case i want to have that option where if the user double clicks on any record then it should dispaly the corresonding record like we have in report display at line-selection
is there some thing like that in alv also.
Thanks and Regards

Answer 1

Hi Ashish,
check the below code to solve u r proble...
Just create PF STATUS for the below code and execute it...
*******Declare Data Areas for List Viewer (Begin)***********
TYPE-POOLS: SLIS.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       FIELDCAT_LN LIKE LINE OF FIELDCAT,
       SORTCAT          TYPE SLIS_T_SORTINFO_ALV,
       LAYOUT           TYPE SLIS_LAYOUT_ALV,
       SORTCAT_LN       LIKE LINE OF SORTCAT,
       EVENTCAT         TYPE SLIS_T_EVENT,
       EVENTCAT_LN      LIKE LINE OF EVENTCAT,
       COUNT TYPE I,
        COLCELL TYPE SLIS_FIELDNAME VALUE 'MATNR'.
DATA: COL_POS TYPE I,
        W_FNAME TYPE DD03L-FIELDNAME.
******Declare Data Areas for List Viewer (End)**************
******Declare Internal Table to Store Selected Data (Begin)*
DATA LS_CELLCOLOR TYPE SLIS_T_SPECIALCOL_ALV  WITH HEADER LINE.
DATA:  BEGIN OF TSPFLI OCCURS 10 ,
          CHECK TYPE SLIS_FIELDNAME,
          COLOR(3),
          COLCELLS TYPE SLIS_T_SPECIALCOL_ALV.
         INCLUDE STRUCTURE SPFLI.
DATA : END OF TSPFLI.
*Declare Internal Table to Store Selected Data (Begin) For sflight*
DATA:
   W_SPFLI LIKE LINE OF TSPFLI.
DATA : BEGIN OF FS_SFLIGHT,
          CHECK TYPE SLIS_FIELDNAME,
          COLOR(3).
         INCLUDE STRUCTURE SFLIGHT.
DATA : END OF FS_SFLIGHT.
DATA
   T_SFLIGHT LIKE
    STANDARD TABLE
          OF FS_SFLIGHT.
*Declare Internal Table to Store Selected Data (Begin) For sbook*
DATA:
W_SFLIGHT LIKE LINE OF T_SFLIGHT.
DATA : BEGIN OF FS_SBOOK,
          CHECK TYPE SLIS_FIELDNAME.
         INCLUDE STRUCTURE SBOOK.
DATA : END OF FS_SBOOK.
DATA
   T_SBOOK LIKE
    STANDARD TABLE
          OF FS_SBOOK.
******Declare Internal Table to Store Selected Data (End)***
*******Select Data into Internal Table (Begin) ***************
SELECT *
         INTO CORRESPONDING FIELDS OF TSPFLI
        FROM SPFLI.
   APPEND TSPFLI.
   CLEAR TSPFLI.
ENDSELECT.
Select Data into Internal Table (End) ****************
PERFORM BUILD_FIELDCAT4.
PERFORM BUILD_FIELDCAT6.
PERFORM BUILD_FIELDCAT7.
PERFORM BUILD_LISTCAT.
PERFORM BUILD_EVENTCAT.
PERFORM START_LIST_VIEWER.
*&      Form  build_fieldcat4
      text
FORM BUILD_FIELDCAT4.
   FIELDCAT_LN-FIELDNAME = 'CHECK'.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
ENDFORM.                    "BUILD_FIELDCAT4
*&      Form  build_fieldcat6
      text
FORM BUILD_FIELDCAT6.
   FIELDCAT_LN-FIELDNAME = 'COLOR'.
   FIELDCAT_LN-OUTPUTLEN = 4.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
ENDFORM.                    "build_fieldcat6
*&      Form  BUILD_FIELDCAT7
      text
FORM BUILD_FIELDCAT7.
   FIELDCAT_LN-FIELDNAME = 'COLCELLS'.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
ENDFORM.                    "build_fieldcat6
*&      Form  build_listcat
      text
FORM BUILD_LISTCAT.
   LAYOUT-BOX_FIELDNAME    = 'CHECK'.
   LAYOUT-INFO_FIELDNAME   = 'COLOR'.
   LAYOUT-COLTAB_FIELDNAME = 'COLCELLS'.
ENDFORM.                    "build_listcat
*&      Form  BUILD_EVENTCAT
      text
FORM BUILD_EVENTCAT.
   EVENTCAT_LN-NAME = 'PF_STATUS_SET'.
   EVENTCAT_LN-FORM = 'STATUSSET'.
   APPEND EVENTCAT_LN TO EVENTCAT.
   EVENTCAT_LN-NAME = 'USER_COMMAND'.
   EVENTCAT_LN-FORM = 'USERCOMM'.
   APPEND EVENTCAT_LN TO EVENTCAT.
ENDFORM.                    "BUILD_EVENTCAT
*&      Form  STATUSSET
      text
     -->RT_EXTAB   text
FORM STATUSSET
    USING RT_EXTAB TYPE SLIS_T_EXTAB.
   DATA
     W_EXTAB TYPE SLIS_EXTAB.
   CLEAR RT_EXTAB[].
   W_EXTAB-FCODE = 'SBOOK'.
   APPEND W_EXTAB TO RT_EXTAB.
   SET PF-STATUS 'STATUS' EXCLUDING RT_EXTAB.
ENDFORM.                    "STATUSSET
*&      Form  START_LIST_VIEWER
      text
FORM START_LIST_VIEWER.
   DATA: PGM LIKE SY-REPID.
   PGM = SY-REPID.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
          I_CALLBACK_PROGRAM       = PGM
          i_callback_pf_status_set = ' '
        I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
            I_STRUCTURE_NAME         = 'SPFLI'
              IS_LAYOUT                = LAYOUT
          IS_VARIANT               = ' '
            IT_EVENTS                = EVENTCAT
          IT_EVENT_EXIT            =
        TABLES
             T_OUTTAB                 = TSPFLI
        EXCEPTIONS
             PROGRAM_ERROR            = 1
             OTHERS                   = 2.
ENDFORM.                    "START_LIST_VIEWER
*&      Form  USERCOMM
      text
     -->UCOMM      text
     -->SELFIELD   text
FORM USERCOMM USING UCOMM LIKE SY-UCOMM
                     SELFIELD TYPE SLIS_SELFIELD.
   CLEAR FIELDCAT[].
   CASE UCOMM.
     WHEN 'SFLIGHT'.
       CLEAR T_SFLIGHT[].
       LOOP AT TSPFLI INTO W_SPFLI.
         IF W_SPFLI-CHECK EQ 'X'.
           SELECT *
             FROM SFLIGHT
        APPENDING CORRESPONDING FIELDS OF TABLE T_SFLIGHT
            WHERE CARRID = W_SPFLI-CARRID
              AND CONNID = W_SPFLI-CONNID.
           W_SPFLI-CHECK = '1'.
           W_SPFLI-COLOR = 'C21'.
           MODIFY TSPFLI FROM W_SPFLI TRANSPORTING CHECK COLOR.
         ENDIF.
       ENDLOOP.
       PERFORM BUILD_FIELDCAT9.
       PERFORM BUILD_EVENTCAT1.
       PERFORM START_LIST_VIEWER1.
   ENDCASE.
   SELFIELD-REFRESH = 'X'.
ENDFORM.                    "USERCOMM
*&      Form  START_LIST_VIEWER1
      text
FORM START_LIST_VIEWER1.
   DATA: PGM LIKE SY-REPID.
   PGM = SY-REPID.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK              = ' '
       I_CALLBACK_PROGRAM             = PGM
      I_CALLBACK_PF_STATUS_SET       = ' '
      I_CALLBACK_USER_COMMAND        = ' '
      I_STRUCTURE_NAME               = 'SFLIGHT'
            IS_LAYOUT                = LAYOUT
       IT_FIELDCAT                    = FIELDCAT
      IT_SORT                        =
       IT_EVENTS                      =  EVENTCAT
     TABLES
       T_OUTTAB                       = T_SFLIGHT
    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.
ENDFORM.                    "START_LIST_VIEWER1
*&      Form  BUILD_EVENTCAT1
      text
FORM BUILD_EVENTCAT1.
   CLEAR EVENTCAT[].
   EVENTCAT_LN-NAME = 'PF_STATUS_SET'.
   EVENTCAT_LN-FORM = 'STATUSSET1'.
   APPEND EVENTCAT_LN TO EVENTCAT.
   CLEAR EVENTCAT_LN.
   EVENTCAT_LN-NAME = 'USER_COMMAND'.
   EVENTCAT_LN-FORM = 'USERCOMM1'.
   APPEND EVENTCAT_LN TO EVENTCAT.
ENDFORM.                    "BUILD_EVENTCAT
*&      Form  STATUSSET1
      text
     -->RT_EXTAB   text
FORM STATUSSET1
    USING RT_EXTAB TYPE SLIS_T_EXTAB.
   DATA
     W_EXTAB TYPE SLIS_EXTAB.
   CLEAR RT_EXTAB[].
   W_EXTAB-FCODE = 'SFLIGHT'.
   APPEND  W_EXTAB TO RT_EXTAB.
   SET PF-STATUS 'STATUS' EXCLUDING RT_EXTAB.
ENDFORM.                    "STATUSSET
*.................................USERCOMM1..................
FORM USERCOMM1 USING UCOMM LIKE SY-UCOMM
                     SELFIELD TYPE SLIS_SELFIELD.
   CLEAR FIELDCAT[].
   CASE UCOMM.
     WHEN 'SBOOK'.
       CLEAR T_SBOOK[].
       LOOP AT T_SFLIGHT INTO W_SFLIGHT.
         IF W_SFLIGHT-CHECK EQ 'X'.
           SELECT *
             FROM SBOOK
        APPENDING CORRESPONDING FIELDS OF TABLE T_SBOOK
            WHERE CARRID = W_SFLIGHT-CARRID
              AND CONNID = W_SFLIGHT-CONNID
           AND FLDATE = W_SFLIGHT-FLDATE.
           W_SFLIGHT-CHECK = '1'.
           W_SFLIGHT-COLOR = 'C81'.
           MODIFY T_SFLIGHT FROM W_SFLIGHT TRANSPORTING CHECK COLOR.
         ENDIF.
       ENDLOOP.
       PERFORM BUILD_FIELDCAT9.
       PERFORM BUILD_EVENTCAT2.
       PERFORM START_LIST_VIEWER2.
   ENDCASE.
   SELFIELD-REFRESH = 'X'.
ENDFORM.                                                   " USERCOMM1
*&      Form  BUILD_FIELDCAT9
      text
FORM BUILD_FIELDCAT9.
   CLEAR FIELDCAT[].
   FIELDCAT_LN-FIELDNAME = 'CHECK'.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
   LAYOUT-BOX_FIELDNAME    = 'CHECK'.
ENDFORM.                    "BUILD_FIELDCAT8
*&      Form  START_LIST_VIEWER2
      text
FORM START_LIST_VIEWER2.
   DATA: PGM LIKE SY-REPID.
   PGM = SY-REPID.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK              = ' '
      I_BYPASSING_BUFFER             =
      I_BUFFER_ACTIVE                = ' '
       I_CALLBACK_PROGRAM             = PGM
      I_CALLBACK_PF_STATUS_SET       = ' '
      I_CALLBACK_USER_COMMAND        = ' '
      I_STRUCTURE_NAME               = 'SBOOK'
       IS_LAYOUT                      = LAYOUT
       IT_FIELDCAT                    = FIELDCAT
      IT_SORT                        =
      IT_FILTER                      =
      IS_SEL_HIDE                    =
       IT_EVENTS                      = EVENTCAT
     TABLES
       T_OUTTAB                       = T_SBOOK
    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.
ENDFORM.                    "START_LIST_VIEWER1
*&      Form  BUILD_EVENTCAT2
      text
FORM BUILD_EVENTCAT2.
   CLEAR EVENTCAT[].
   EVENTCAT_LN-NAME = 'PF_STATUS_SET'.
   EVENTCAT_LN-FORM = 'STATUSSET2'.
   APPEND EVENTCAT_LN TO EVENTCAT.
ENDFORM.                    "BUILD_EVENTCAT
*&      Form  STATUSSET1
      text
     -->RT_EXTAB   text
FORM STATUSSET2
    USING RT_EXTAB TYPE SLIS_T_EXTAB.
   DATA
     W_EXTAB TYPE SLIS_EXTAB.
   CLEAR RT_EXTAB[].
   W_EXTAB-FCODE = 'SFLIGHT'.
   APPEND  W_EXTAB TO RT_EXTAB.
   W_EXTAB-FCODE = 'SBOOK'.
   APPEND  W_EXTAB TO RT_EXTAB.
   SET PF-STATUS 'STATUS' EXCLUDING RT_EXTAB.
ENDFORM.                    "STATUSSET
Reward points if it is helpful...
Regards,
Omkar.
Message was edited by:
        Omkaram Yanamala