ALV-O/P TRANSPOSED PROBLEM WITH EDIT

Question

Hi All,
In my alv report I have transposed the o/p,i.e rows are transposed.aftre transposing edit functionality is not working.Can any one tell me how should I make the field editable aftre tarnsposing.
here is the code..
TYPE-POOLS slis.
*DATA:DATE1(10).
*TYPES:BEGIN OF B1_TY,
       USER LIKE SYST-UNAME,
       DATE(10),
       val like ekko-waers,
       VAR1(200),
       VAR2(300),
     END OF B1_TY.
*DATA:B1_ITAB TYPE STANDARD TABLE OF B1_TY.
*DATA:B1_WA LIKE LINE OF B1_ITAB.
*DATA:    l_col1    TYPE sy-tabix,
        l_structure1   TYPE REF TO data,
        l_dyntable1    TYPE REF TO data,
        wa_lvc_cat1  TYPE lvc_s_fcat,
        lt_lvc_cat1  TYPE lvc_t_fcat,
        lt_fieldcatalogue1     TYPE slis_t_fieldcat_alv,
        wa_fieldcatalogue1   TYPE slis_fieldcat_alv,
        wa_fieldcat1 TYPE slis_fieldcat_alv,
        lt_fieldcat1 TYPE slis_t_fieldcat_alv,
        lt_layout1  TYPE slis_layout_alv.
*FIELD-SYMBOLS :
<header1>    TYPE ANY,
<dynheader1> TYPE ANY,
<dyndata1>   TYPE ANY,
<ls_table1>      TYPE ANY,
<dynamictable1>      TYPE STANDARD TABLE,
<it_table1> TYPE STANDARD TABLE.
*DATA fcat TYPE SLIS_T_FIELDCAT_ALV with header line.
*DATA layout TYPE slis_layout_alv.
*CONCATENATE SY-DATUM+6(2) '.'
                  SY-DATUM+4(2) '.'
                  SY-DATUM(4) into DATE1.
*B1_WA-USER = SYST-UNAME.
*B1_WA-DATE = DATE1.
*B1_WA-VAR1 = 'VENDOR SELCTION HAS BEEN MADE ON LOWEST PRICE UNLESS OTHER WISE NOTED'.
*B1_WA-VAR2 = 'HELLO'.
*APPEND B1_WA TO B1_ITAB.
*CLEAR B1_WA.
*CREATE DATA l_dyntable1 TYPE STANDARD TABLE OF B1_TY
                          WITH NON-UNIQUE DEFAULT KEY.
ASSIGN l_dyntable1-> TO <it_table1>.
*<it_table1> = B1_ITAB[].
*wa_lvc_cat1-fieldname = 'COLUMNTEXT'.
*wa_lvc_cat1-ref_table = 'LVC_S_DETA'.
*APPEND wa_lvc_cat1 TO lt_lvc_cat1.
*wa_fieldcat1-fieldname = 'COLUMNTEXT'.
*wa_fieldcat1-ref_tabname = 'LVC_S_DETA'.
*wa_fieldcat1-key  = 'X'..
*APPEND wa_fieldcat1 TO lt_fieldcat1.
*DESCRIBE TABLE <it_table1>.
*DO sy-tfill TIMES.
WRITE sy-index TO wa_lvc_cat1-fieldname LEFT-JUSTIFIED.
CONCATENATE 'VALUE' wa_lvc_cat1-fieldname
        INTO wa_lvc_cat1-fieldname.
wa_lvc_cat1-ref_field = 'VALUE'.
wa_lvc_cat1-ref_table = 'LVC_S_DETA'.
APPEND wa_lvc_cat1 TO lt_lvc_cat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-fieldname = wa_lvc_cat1-fieldname.
wa_fieldcat1-ref_fieldname = 'VALUE'.
wa_fieldcat1-ref_tabname = 'LVC_S_DETA'.
APPEND wa_fieldcat1 TO lt_fieldcat1.
*ENDDO.
*CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
   it_fieldcatalog = lt_lvc_cat1
IMPORTING
   ep_table        = l_dyntable1.
ASSIGN l_dyntable1-> TO <dynamictable1>.
*CREATE DATA l_structure1 LIKE LINE OF <dynamictable1>.
ASSIGN l_structure1-> TO <header1>.
*CREATE DATA l_structure1 LIKE LINE OF <it_table1>.
ASSIGN l_structure1-> TO <ls_table1>.
*wa_fieldcatalogue1-FIELDNAME = 'PREPARED BY:'.
*wa_fieldcatalogue1-ROW_POS   = '1'.
*wa_fieldcatalogue1-TABNAME   = 'ls_table'.
*wa_fieldcatalogue1-OUTPUTLEN = '15'.
*APPEND wa_fieldcatalogue1 TO lt_fieldcatalogue1.
*CLEAR wa_fieldcatalogue1.
*wa_fieldcatalogue1-FIELDNAME = 'DATE:'.
*wa_fieldcatalogue1-ROW_POS   = '2'.
*wa_fieldcatalogue1-TABNAME   = 'ls_table'.
*wa_fieldcatalogue1-OUTPUTLEN = '10'.
*APPEND wa_fieldcatalogue1 TO lt_fieldcatalogue1.
*CLEAR wa_fieldcatalogue1.
*wa_fieldcatalogue1-FIELDNAME = 'JUSTIFICATION'.
*wa_fieldcatalogue1-ROW_POS   = '3'.
*wa_fieldcatalogue1-TABNAME   = 'ls_table'.
*wa_fieldcatalogue1-OUTPUTLEN = '15'.
*APPEND wa_fieldcatalogue1 TO lt_fieldcatalogue1.
*CLEAR wa_fieldcatalogue1.
*wa_fieldcatalogue1-FIELDNAME = 'COMMENTS'.
*wa_fieldcatalogue1-ROW_POS   = '4'.
*wa_fieldcatalogue1-TABNAME   = 'ls_table'.
*wa_fieldcatalogue1-edit = 'X'.
*wa_fieldcatalogue1-input = 'X'.
*wa_fieldcatalogue1-OUTPUTLEN = '100'.
*APPEND wa_fieldcatalogue1 TO lt_fieldcatalogue1.
*CLEAR wa_fieldcatalogue1.
*lt_layout1-colwidth_optimize = 'X'.
*lt_layout1-no_colhead = 'x'.
*DESCRIBE TABLE lt_fieldcatalogue1.
*DO sy-tfill TIMES.
IF sy-index = 1.
   READ TABLE lt_fieldcatalogue1 INTO wa_fieldcat1 INDEX 1.
ENDIF.
ASSIGN COMPONENT 1 OF STRUCTURE <header1> TO <dynheader1>.
IF sy-subrc NE 0.
   EXIT .
ENDIF.
READ TABLE lt_fieldcatalogue1 INTO wa_fieldcat1 INDEX sy-index.
<dynheader1> = wa_fieldcat1-seltext_m.
IF <dynheader1> IS INITIAL.
   <dynheader1> = wa_fieldcat1-fieldname.
ENDIF.
LOOP AT <it_table1> INTO <ls_table1>.
   l_col1 = sy-tabix + 1.
   ASSIGN COMPONENT sy-index OF STRUCTURE <ls_table1> TO <dyndata1>.
   IF sy-subrc NE 0. EXIT .ENDIF.
   ASSIGN COMPONENT l_col1 OF STRUCTURE <header1> TO
   <dynheader1>.
   IF sy-subrc NE 0. EXIT .ENDIF.
   WRITE <dyndata1> TO <dynheader1> LEFT-JUSTIFIED.
ENDLOOP.
APPEND <header1> TO <dynamictable1>.
*ENDDO.
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*EXPORTING
IS_LAYOUT                         = LT_LAYOUT1
  IT_FIELDCAT                       = LT_FIELDCAT1[]
TABLES
   T_OUTTAB                          =  <DYNAMICTABLE1>
*IF SY-SUBRC <> 0.
*ENDIF.
Regards.

Answer 1

Hi,
Instead of sy-repid, try passing the program name directly.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = 'ZCREDIT_LETTER'
i_background_id = 'ALV_BACKGROUND'
it_fieldcat = fcat
is_layout = xs_layout
i_save = 'A'
i_callback_top_of_page = 'TOP_OF_PAGE'
I_CALLBACK_USER_COMMAND = w_callback_ucomm
tables
t_outtab = FINAL
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. "DISPLAY_ALV_LAYOUT