How to print check boxes in output using alv

Question

send me replly immediately

Answer 1

hi
Program Name: ALV ON SECONDARY LISTS            Creation: 02/01/2007*
SAP Name    : YH634_0102007_ALV_LIST            Application:        *
Author      : P.V.D.Veeresh Babu                Type: 1             *
Description : This program is used to display secondary lists using *
              ALV.                                                  *
Inputs:                                                             *
  Tables:                                                           *
    SPFLI - Flight information                                      *
    SFLIGHT - Flight                                                *
    SBOOK   - Flight booking details                                *
  Select options:                                                   *
    N/A                                                             *
  Parameters:                                                       *
    NO                                                              *
Outputs: secondary lists with ALV                                   *
External Routines                                                   *
  Function Modules:                                                 *
    REUSE_ALV_LIST_DISPLAY                                          *
  Transactions    : No                                              *
  Programs        : No                                              *
Return Codes: No                                                    *
Ammendments:                                                        *
   Programmer        Date     Req. #            Action              *
================  ==========  ======  ==============================*
type-pools: slis.
*" Data declarations...................................................
Data declaration of the structure to hold layout details            *
data:
  fs_layout type slis_layout_alv.
*" Data declarations...................................................
Data declaration of the structure to hold spfli details             *
data: begin of fs_spfli,
        color(4) type c,               " Color
        check    type c.               " Check box
        include  structure spfli.      " Spfli
data  end of fs_spfli.
*" Data declarations...................................................
Data declaration of the structure to hold sflight details           *
data:begin of fs_sflight,
      color(4) type c,                 " Color
      check    type c.                 " Check box
      include  structure sflight.      " Sflight
data  end of fs_sflight.
*" Data declarations...................................................
Data declaration of the structure to hold sbook details             *
data:
  fs_sbook like sbook.
Internal table to hold list details                                 *
data:
  t_sbook like
standard table
       of fs_sbook.
Internal table to hold list details                                 *
data:
  t_sflight like
   standard table
         of fs_sflight .
Internal table to hold spfli details                                *
data:
t_spfli like
standard table
of fs_spfli.
fs_layout-box_fieldname = 'CHECK'.
fs_layout-info_fieldname = 'COLOR'.
"........Retrieving basic list data containing spfli details......."
select *
  from spfli
  into corresponding fields of table t_spfli.
if sy-subrc ne 0.
  message text-001 type 'I'.
endif.                                 " IF SY-SUBRC NE 0
".................Calling function module for ALV..................."
call function 'REUSE_ALV_LIST_DISPLAY'
  exporting
    i_callback_program       = sy-repid
    i_callback_pf_status_set = 'STATUS1'
    i_callback_user_command  = 'USER_COMMAND1'
    i_structure_name         = 'SPFLI'
    is_layout                = fs_layout
  tables
    t_outtab                 = t_spfli
  exceptions
    program_error            = 1
    others                   = 2.
if sy-subrc <> 0.
  message text-002 type 'I'.
endif.                                 " IF SY-SUBRC NE 0
Form  STATUS1                                                     *
This subroutine gives pf-status for spfli list                    *
     -->T_EXTAB    excluding table                                 *
form status1 using t_extab type slis_t_extab.
  set pf-status 'STATUS1'.
endform.                               " STATUS1
Form  USER_COMMAND1                                               *
This subroutine displays secondary list containing sflight details*
     -->FS_UCOMM   user command                                    *
     -->T_SELFIELD selfield                                        *
form user_command1 using fs_ucomm type sy-ucomm
                         t_selfield type slis_selfield.
  case fs_ucomm.
    when 'SFLIGHT'.
      perform display_list2.
  endcase.                             " CASE FS_UCOMM
  t_selfield-refresh = 'X'.
endform.                               " USER_COMMAND1
Form  DISPLAY_LIST2                                                *
This subroutine displays sflight details on secondary list         *
There are no interface parameters to be passed in this subroutine  *
form display_list2 .
  data lw_flag type i.                 " Flag
  refresh t_sflight.
  loop at t_spfli into fs_spfli.
    if fs_spfli-check = 'X'.
"........Retrieving basic list data containing sflight details......."
      select *
        from sflight
   appending corresponding fields of table t_sflight
       where carrid eq fs_spfli-carrid
         and connid eq fs_spfli-connid.
      if sy-subrc eq 0.
        lw_flag = 1.
      endif.                           " IF SY-SUBRC EQ 0
      FS_SPFLI-CHECK = '0'.
      fs_spfli-color = 'C510'.
      modify t_spfli from fs_spfli .
    endif.                             " IF FS_SPFLI-CHECK EQ 'X'
  endloop.                             " LOOP AT T_SPFLI INTO FS_SPFLI
  if lw_flag eq 0.
    message text-003 type 'E'.
  endif.                               " IF LW_FLAG EQ 1
".................Calling function module for ALV..................."
  call function 'REUSE_ALV_LIST_DISPLAY'
    exporting
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'STATUS2'
      i_callback_user_command  = 'USER_COMMAND2'
      i_structure_name         = 'SFLIGHT'
      is_layout                = fs_layout
    tables
      t_outtab                 = t_sflight
    exceptions
      program_error            = 1
      others                   = 2.
  if sy-subrc <> 0.
    message text-002 type 'I'.
  endif.                               " IF SY-SUBRC NE 0
endform.                               " DISPLAY_LIST2
Form  STATUS2                                                     *
This subroutine gives pf-status for secondary list.               *
     -->T_EXTAB    Excluding table                                 *
form status2 using t_extab type slis_t_extab.
  set pf-status 'STATUS2'.
endform.                               " STATUS2
Form  USER_COMMAND2                                               *
This subroutine gives secondary list containing sbook details     *
     -->FS_UCOMM   user command                                    *
     -->T_SELFIELD selfield                                        *
form user_command2 using fs_ucomm type sy-ucomm
                         t_selfield type slis_selfield.
  case fs_ucomm.
    when 'SBOOK'.
      perform display_list3.
  endcase.                             " CASE FS_UCOMM
  t_selfield-refresh = 'X'.
endform.                               " USER_COMMAND2
Form  DISPLAY_LIST3                                                *
This subroutine displays sbook details on secondary list           *
There are no interface parameters to be passed in this subroutine  *
form display_list3 .
  data lw_flag type i.                 " Flag
  refresh t_sbook.
  loop at t_sflight into fs_sflight.
    if fs_sflight-check eq 'X'.
"........Retrieving basic list data containing sbook details......."
      select *
        from sbook
   appending corresponding fields of table t_sbook
       where carrid eq fs_sflight-carrid
         and connid eq fs_sflight-connid
         and fldate eq fs_sflight-fldate.
      if sy-subrc eq 0.
        lw_flag = 1.
      endif.                           " IF SY-SUBRC EQ 0
      FS_SFLIGHT-CHECK = '0'.
      fs_sflight-color = 'C910'.
      modify  t_sflight from fs_sflight.
    endif.                             " IF FS_FLIGHT-CHECK EQ 'X'
  endloop.                             " LOOP AT T_SFLIGHT INTO....
  if lw_flag eq 0.
    message text-004 type 'E'.
  endif.                               " IF LW_FLAG EQ 1
".................Calling function module for ALV..................."
  call function 'REUSE_ALV_LIST_DISPLAY'
    exporting
      i_structure_name = 'SBOOK'
      is_layout        = fs_layout
    tables
      t_outtab         = t_sbook
    exceptions
      program_error    = 1
      others           = 2.
  if sy-subrc <> 0.
    message text-002 type 'I'.
  endif.                               " IF SY-SUBRC NE 0
endform.                               " DISPLAY_LIST3
regards,
veeresh
null