How to log the messages in an internal table n display

Hello guys,
This is my first post in SDN.
I am uploading some data from application server. I am doing lot of varifications, based on that I have to display the messages.
So I asked not to use the write statements to display the messages but asked me to create an internal table and display the messages afterwards..
like I am using some BAPI to upload after the bapi call i have to log the result for each record into an internal table and show...
can anyone guide me how to do it?

Thanks for your info Azad,
here I am posting my code... can u go through it once and lemme me whether i am in right track or not?
FORM FORM_POST_DATA.
IF X_POST = 'X'.
    CALL FUNCTION 'BAPI_ACC_BILLING_POST'
      EXPORTING
        DOCUMENTHEADER          = WA_DOCUMENTHEADER
       CUSTOMERCPD             = WA_CUSTOMERCPD
IMPORTING
OBJ_TYPE                =
OBJ_KEY                 =
OBJ_SYS                 =
      TABLES
        ACCOUNTRECEIVABLE       = IT_ACCOUNTRECEIVABLE
        ACCOUNTGL               = IT_ACCOUNTGL
        ACCOUNTTAX              = IT_ACCOUNTTAX
CRITERIA                =
VALUEFIELD              =
        CURRENCYAMOUNT          = IT_CURRENCYAMOUNT
        RETURN                  = IT_RETURN
SALESORDER              =
SALESAMOUNT             =
       EXTENSION1              = IT_EXTENSION1
    LOOP AT IT_RETURN.
      MOVE-CORRESPONDING IT_RETURN TO IT_MESSAGES.
    ENDLOOP.
ENDIF.
WRITE: / 'Result of Post:'.
WRITE : / REF_TYPE,REF_KEY,REF_SYS.
PERFORM FORM_SHOW_MESSAGES.
ENDFORM.              "FORM_POST_DATA
FORM FORM_SHOW_MESSAGES.
IF IT_RETURN[] IS INITIAL.
    WRITE: / 'no messages'.
ELSE.
    SKIP 1.
    LOOP AT IT_RETURN.
      WRITE: /    IT_RETURN-TYPE,
             (2) IT_RETURN-ID,
                  IT_RETURN-NUMBER,
             (80) IT_RETURN-MESSAGE,
                IT_RETURN-LOG_NO
                IT_RETURN-LOG_MSG_NO
                IT_RETURN-MESSAGE_V1
                IT_RETURN-MESSAGE_V2
                IT_RETURN-MESSAGE_V3
                IT_RETURN-MESSAGE_V4
             (20) IT_RETURN-PARAMETER,
             (3) IT_RETURN-ROW,
                  IT_RETURN-FIELD.
                IT_RETURN-SYSTEM
    ENDLOOP.
ENDIF.
ULINE.
ENDFORM.                               " Show_messages
Nisha...

Similar Messages

How to log the messages in program scheduled background

Hi all,
I have a program and it is to be scheduled to run in the background.
I want to log the messages within the program while running.
What could I do?
(The standard job log is not what I want)
Thanks.

Ignore my previous post. It is good that you posted this question, as I learnt something new. Try the code below.
Regarding help for why you require and why to go for application logs, refer this SAP Help
http://help.sap.com/saphelp_47x200/helpdata/en/2a/fa0223493111d182b70000e829fbfe/frameset.htm
DATA: ls_log TYPE bal_s_log.
DATA: p_log_handle TYPE balloghndl.
ls_log-extnumber = 'YMYTEST'.
ls_log-alprog = sy-repid.
CALL FUNCTION 'BAL_LOG_CREATE'
EXPORTING
    I_S_LOG                 = ls_log
IMPORTING
    E_LOG_HANDLE            = p_log_handle
EXCEPTIONS
    LOG_HEADER_INCONSISTENT = 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.
data: l_s_msg TYPE bal_s_msg.
data: E_MSG_WAS_DISPLAYED type boolean.
data: E_MSG_WAS_LOGGED type boolean.
data: E_S_MSG_HANDLE type BALMSGHNDL.
l_s_msg-msgid = '00'.
l_s_msg-msgty = 'E'.
l_s_msg-msgno = '001'.
l_s_msg-msgv1 = 'This is a test message from 20130810'.
CALL FUNCTION 'BAL_LOG_MSG_ADD'
EXPORTING
    I_LOG_HANDLE              = p_log_handle
    I_S_MSG                   = l_s_msg
IMPORTING
   E_S_MSG_HANDLE            = E_S_MSG_HANDLE
   E_MSG_WAS_LOGGED          = E_MSG_WAS_LOGGED
   E_MSG_WAS_DISPLAYED       = E_MSG_WAS_DISPLAYED
EXCEPTIONS
   LOG_NOT_FOUND             = 1
   MSG_INCONSISTENT          = 2
   LOG_IS_FULL               = 3
   OTHERS                    = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
data: I_T_LOG_HANDLE type BAL_T_LOGH.
append p_log_handle to i_t_log_handle.
CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
EXPORTING
*   I_S_DISPLAY_PROFILE          =
    I_T_LOG_HANDLE               = i_t_log_handle
*   I_T_MSG_HANDLE               =
*   I_S_LOG_FILTER               =
*   I_S_MSG_FILTER               =
*   I_T_LOG_CONTEXT_FILTER       =
*   I_T_MSG_CONTEXT_FILTER       =
*   I_AMODAL                     = ' '
* IMPORTING
*   E_S_EXIT_COMMAND             =
EXCEPTIONS
   PROFILE_INCONSISTENT         = 1
   INTERNAL_ERROR               = 2
   NO_DATA_AVAILABLE            = 3
   NO_AUTHORITY                 = 4
   OTHERS                       = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards,
Subramanian V.

How to drop the contents on an internal table?

Dear all,
can some one suggest me the code to drop the content of an internal table.
VJ

Following are the different ways of DELETIONS from ITAB, DTAB and FILE:
DELETE FROM dbtab WHERE cond.
DELETE FROM (dbtabname) WHERE cond.
- DELETE dbtab.
DELETE *dbtab.
DELETE (dbtabname) ... .
- DELETE dbtab FROM TABLE itab.
DELETE (dbtabname) FROM TABLE itab.
- DELETE dbtab VERSION vers.
DELETE *dbtab VERSION vers.
Delete from an internal table
- DELETE itab.
- DELETE itab INDEX idx.
- DELETE itab FROM idx1 TO idx2.
- DELETE itab WHERE cond.
- DELETE ADJACENT DUPLICATES FROM itab.
Delete a program
- DELETE REPORT prog.
Delete text elements
- DELETE TEXTPOOL prog LANGUAGE lg.
Delete a data cluster from a database table
- DELETE FROM DATABASE dbtab(ar) ...ID key.
Delete a data cluster from the cross-transaction application buffer
- DELETE FROM SHARED BUFFER dbtab(ar) ...ID key.
Delete a file
- DELETE DATASET dsn.
Delete a screen
- DELETE DYNPRO f.
Thanks,
Santosh

How to add the records of 2 internal table records into one file

hello experts,
My scenario is...
I am retrieving the data for the for the credit, debit and trailer records of the customer into 3 different internal tables and finally i have to append all those records into one file first debit records then credit records finally the trailer record.... how to do that can anyone give some idea plzzzzzzzzz..
Plz its bit urgent..
Thanks a lot for your anticipation
SRI

Hello,
Do like this.
" Assume u have three itab.
"Itab1 - debit
"Itab2 - credit
"Itab3 - Credit.
REPORT ZV_TEST_SERVER .
*PARAMETERS: P_FILE TYPE STRING."RLGRAP-FILENAME.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
*   BIN_FILESIZE                  =
    FILENAME                      = P_FILE
*   FILETYPE                      = 'ASC'
   APPEND                        = 'X' " Check here
*   WRITE_FIELD_SEPARATOR         = ' '
*   HEADER                        = '00'
*   TRUNC_TRAILING_BLANKS         = ' '
*   WRITE_LF                      = 'X'
*   COL_SELECT                    = ' '
*   COL_SELECT_MASK               = ' '
*   DAT_MODE                      = ' '
* IMPORTING
*   FILELENGTH                    =
TABLES
    DATA_TAB                      = ITAB1
* EXCEPTIONS
*   FILE_WRITE_ERROR              = 1
*   NO_BATCH                      = 2
*   GUI_REFUSE_FILETRANSFER       = 3
*   INVALID_TYPE                  = 4
*   NO_AUTHORITY                  = 5
*   UNKNOWN_ERROR                 = 6
*   HEADER_NOT_ALLOWED            = 7
*   SEPARATOR_NOT_ALLOWED         = 8
*   FILESIZE_NOT_ALLOWED          = 9
*   HEADER_TOO_LONG               = 10
*   DP_ERROR_CREATE               = 11
*   DP_ERROR_SEND                 = 12
*   DP_ERROR_WRITE                = 13
*   UNKNOWN_DP_ERROR              = 14
*   ACCESS_DENIED                 = 15
*   DP_OUT_OF_MEMORY              = 16
*   DISK_FULL                     = 17
*   DP_TIMEOUT                    = 18
*   FILE_NOT_FOUND                = 19
*   DATAPROVIDER_EXCEPTION        = 20
*   CONTROL_FLUSH_ERROR           = 21
*   OTHERS                        = 22
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
*   BIN_FILESIZE                  =
    FILENAME                      = P_FILE
*   FILETYPE                      = 'ASC'
   APPEND                        = 'X' " Check here
*   WRITE_FIELD_SEPARATOR         = ' '
*   HEADER                        = '00'
*   TRUNC_TRAILING_BLANKS         = ' '
*   WRITE_LF                      = 'X'
*   COL_SELECT                    = ' '
*   COL_SELECT_MASK               = ' '
*   DAT_MODE                      = ' '
* IMPORTING
*   FILELENGTH                    =
TABLES
    DATA_TAB                      = ITAB2 " Check here
* EXCEPTIONS
*   FILE_WRITE_ERROR              = 1
*   NO_BATCH                      = 2
*   GUI_REFUSE_FILETRANSFER       = 3
*   INVALID_TYPE                  = 4
*   NO_AUTHORITY                  = 5
*   UNKNOWN_ERROR                 = 6
*   HEADER_NOT_ALLOWED            = 7
*   SEPARATOR_NOT_ALLOWED         = 8
*   FILESIZE_NOT_ALLOWED          = 9
*   HEADER_TOO_LONG               = 10
*   DP_ERROR_CREATE               = 11
*   DP_ERROR_SEND                 = 12
*   DP_ERROR_WRITE                = 13
*   UNKNOWN_DP_ERROR              = 14
*   ACCESS_DENIED                 = 15
*   DP_OUT_OF_MEMORY              = 16
*   DISK_FULL                     = 17
*   DP_TIMEOUT                    = 18
*   FILE_NOT_FOUND                = 19
*   DATAPROVIDER_EXCEPTION        = 20
*   CONTROL_FLUSH_ERROR           = 21
*   OTHERS                        = 22
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
*   BIN_FILESIZE                  =
    FILENAME                      = P_FILE
*   FILETYPE                      = 'ASC'
   APPEND                        = 'X' " Check here
*   WRITE_FIELD_SEPARATOR         = ' '
*   HEADER                        = '00'
*   TRUNC_TRAILING_BLANKS         = ' '
*   WRITE_LF                      = 'X'
*   COL_SELECT                    = ' '
*   COL_SELECT_MASK               = ' '
*   DAT_MODE                      = ' '
* IMPORTING
*   FILELENGTH                    =
TABLES
    DATA_TAB                      = ITAB3 " Check here
* EXCEPTIONS
*   FILE_WRITE_ERROR              = 1
*   NO_BATCH                      = 2
*   GUI_REFUSE_FILETRANSFER       = 3
*   INVALID_TYPE                  = 4
*   NO_AUTHORITY                  = 5
*   UNKNOWN_ERROR                 = 6
*   HEADER_NOT_ALLOWED            = 7
*   SEPARATOR_NOT_ALLOWED         = 8
*   FILESIZE_NOT_ALLOWED          = 9
*   HEADER_TOO_LONG               = 10
*   DP_ERROR_CREATE               = 11
*   DP_ERROR_SEND                 = 12
*   DP_ERROR_WRITE                = 13
*   UNKNOWN_DP_ERROR              = 14
*   ACCESS_DENIED                 = 15
*   DP_OUT_OF_MEMORY              = 16
*   DISK_FULL                     = 17
*   DP_TIMEOUT                    = 18
*   FILE_NOT_FOUND                = 19
*   DATAPROVIDER_EXCEPTION        = 20
*   CONTROL_FLUSH_ERROR           = 21
*   OTHERS                        = 22
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
If useful reward.
Vasanth

How to delete the data inside a internal table?

I got a internal table name g_itab1.
currently my g_itab1 has a FNAME(50) component.
Inside my component there is ADMINO, EYEAR, FIRSTNAME, LASTNAME and CONTACT.
I want to clear away ADMINO, EYEAR, FIRSTNAME, LASTNAME and CONTACT inside my internal table.
How do i clear it? i have tried using CLEAR g_itab1.
It doesn't work.. the data are still inside.

hi
DELETE TABLE itab WITH TABLE KEY k1 = v1 ... kn = vn.
Example to delete all of the lines between 5 and 36 in a table of names where the entry begins with one of the letters 'A' to 'C'.
DELETE itab FROM 5 TO 36 WHERE NAME CA 'ABC'.
reward if useful
regards
sree

How to get the data in one internal table? with 3 different tables..

Hi,
i need to get the all the ff data to put in an internal table. I'm using these data to my ALV. Thanks
   vkorg TYPE a005-vkorg,
   vtweg TYPE a005-vtweg,
   kschl TYPE a005-kschl,
   kondm TYPE mvke-kondm,
   matnr TYPE a005-matnr,
   kdgrp TYPE knvv-kdgrp,
   konda TYPE knvv-konda,
   kunnr TYPE a005-kunnr,
   datab TYPE a005-datab,

hi,
try this
*& Report ZPROGRAM
REPORT ZPROGRAM.
table declaration.
tables : zemployee, zdepartment,zproject.
*type-pools declaration
type-pools : slis , icon.
type specification
types : begin of ty_emp,
        empid type zempid,
        empname type zempname,
        empaddress type zempaddress,
        city type zcity,
        ponumber type zponumber,
        detid type zdeptid,
        end of ty_emp.
types : begin of ty_dept,
        detid type zdeptid,
        deptname type zdeptname,
        designation type zdesignation,
        projectid type zprojectid,
        end of ty_dept.
types : begin of ty_project,
        projectid type zprojectid,
        technology type ztechnology,
        clientname type zclientname,
        end of ty_project.
types : begin of ty_final,
        empid type zempid,
        empname type zempname,
        empaddress type zempaddress,
        city type zcity,
        ponumber type zponumber,
        detid type zdeptid,
        deptname type zdeptname,
        designation type zdesignation,
        projectid type zprojectid,
        technology type ztechnology,
        clientname type zclientname,
       average type p decimals 2,
        end of ty_final.
table type specification.
types : tt_emp type standard table of ty_emp,
        tt_dept type standard table of ty_dept,
        tt_project type standard table of ty_project,
        tt_final type standard table of ty_final.
work area creation.
data : wa_emp type ty_emp,
       wa_dept type ty_dept,
       wa_project type ty_project,
       wa_final type ty_final.
internal table declaration
data : itab_emp type tt_emp,
        itab_dept type tt_dept,
        itab_project type tt_project,
        itab_final type tt_final.
layout declaration
data : gd_layout type slis_layout_alv.
assigning current program name.
data : gd_repid like sy-repid.
         gd_repid = sy-repid.
fieldcatalog declaration.
data : d_fieldcat type slis_t_fieldcat_alv,
         d_fieldcat_wa type slis_fieldcat_alv.
header declaration.
data : t_header type slis_t_listheader,
         wa_header type slis_listheader,
         linecount(10) type c,
         line(10) type c.
selection-screen.
selection-screen : begin of block blk1 with frame title text-001.
select-options : s_empid for zemployee-empid.
parameters : p_dname like zdepartment-deptname.
parameters : p_proid like zproject-projectid.
selection-screen : begin of line.
parameters : p_rad1 radiobutton group r1.
selection-screen comment 3(10) text-002.
parameters : p_rad2 radiobutton group r1.
selection-screen comment 16(10) text-003.
selection-screen : end of line.
parameters : chk1 as checkbox.
selection-screen : end of block blk1.
end of selection screen.
start of selection.
select empid empname empaddress city ponumber detid from zemployee into corresponding fields of table itab_emp where empid in s_empid.
if not itab_emp is initial.
select detid deptname designation projectid from zdepartment into corresponding fields of table itab_dept for all entries in itab_emp where detid = itab_emp-detid .
if not itab_dept is initial.
select projectid technology clientname from zproject into corresponding fields of table itab_project for all entries in itab_dept where projectid = itab_dept-projectid.
endif.
endif.
*end of selection.
populating data into itab_final from itab_emp.
loop at itab_emp into wa_emp.
wa_final-empid = wa_emp-empid.
wa_final-empname = wa_emp-empname.
wa_final-empaddress = wa_emp-empaddress.
wa_final-ponumber = wa_emp-ponumber.
wa_final-city = wa_emp-city.
wa_final-detid = wa_emp-detid.
append wa_final to itab_final.
clear wa_final.
endloop.
*populating data into itab_final from itab_dept and itab_project
loop at itab_final into wa_final.
read table itab_dept into wa_dept with key detid = wa_final-detid.
if sy-subrc = 0.
wa_final-deptname = wa_dept-deptname.
wa_final-designation = wa_dept-designation.
wa_final-projectid = wa_dept-projectid.
modify itab_final from wa_final transporting deptname designation projectid .
endif.
read table itab_project into wa_project with key projectid = wa_final-projectid.
if sy-subrc = 0.
wa_final-technology = wa_project-technology.
wa_final-clientname = wa_project-clientname.
modify itab_final from wa_final transporting technology clientname.
endif.
endloop.
if p_rad1 = 'X' or chk1 = 'X'.
d_fieldcat_wa-fieldname = 'EMPID'.
d_fieldcat_wa-seltext_l = 'Employee Id'.
d_fieldcat_wa-emphasize = 'X'.
d_fieldcat_wa-col_pos = 1.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'EMPNAME'.
d_fieldcat_wa-seltext_l = 'Employee Name'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 2.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'EMPADDRESS'.
d_fieldcat_wa-seltext_l = 'Employee Address'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 3.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'CITY'.
d_fieldcat_wa-seltext_l = 'City'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 4.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'PONUMBER'.
d_fieldcat_wa-seltext_l = 'Postal Number'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 5.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'DETID'.
d_fieldcat_wa-seltext_l = 'Department Id'.
d_fieldcat_wa-emphasize = 'X'.
d_fieldcat_wa-col_pos = 6.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'DEPTNAME'.
d_fieldcat_wa-seltext_l = 'Department Name'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 7.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'DESIGNATION'.
d_fieldcat_wa-seltext_l = 'Designation'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 8.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'PROJECTID'.
d_fieldcat_wa-seltext_l = 'Project Id'.
d_fieldcat_wa-emphasize = 'X'.
d_fieldcat_wa-col_pos = 9.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'TECHNOLOGY'.
d_fieldcat_wa-seltext_l = 'technology'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 10.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'CLIENTNAME'.
d_fieldcat_wa-seltext_l = 'Client Name'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 11.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
endif.
if p_rad2 = 'X' or chk1 = 'X'.
refresh itab_emp.
d_fieldcat_wa-fieldname = 'DETID'.
d_fieldcat_wa-seltext_l = 'Department Id'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 6.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'DEPTNAME'.
d_fieldcat_wa-seltext_l = 'Department Name'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 7.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'DESIGNATION'.
d_fieldcat_wa-seltext_l = 'Designation'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 8.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'PROJECTID'.
d_fieldcat_wa-seltext_l = 'Project Id'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 9.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'TECHNOLOGY'.
d_fieldcat_wa-seltext_l = 'technology'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 10.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
d_fieldcat_wa-fieldname = 'CLIENTNAME'.
d_fieldcat_wa-seltext_l = 'Client Name'.
d_fieldcat_wa-emphasize = 'C710'.
d_fieldcat_wa-col_pos = 11.
append d_fieldcat_wa to d_fieldcat.
clear d_fieldcat_wa.
endif.
Grid display function module
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_INTERFACE_CHECK                 = ' '
   I_BYPASSING_BUFFER                = ' '
   I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = gd_repid
    I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
   I_CALLBACK_USER_COMMAND           = ' '
    I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE '
   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
   I_CALLBACK_HTML_END_OF_LIST       = ' '
   I_STRUCTURE_NAME                  =
   I_BACKGROUND_ID                   = ' '
    I_GRID_TITLE                      = 'EMPLOYEE DETAILS'
   I_GRID_SETTINGS                   =
    IS_LAYOUT                         = gd_layout
    IT_FIELDCAT                       = d_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                          = itab_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.
set pf_status for creating client specified icons.
form set_pf_status using rt_extab type slis_t_extab.
set pf-status 'NEWSTATUS'.
endform.
populating data into header using top_of_page
form top_of_page.
wa_header-typ = 'H'.
wa_header-info = 'ALV REPORT'.
append wa_header to t_header.
clear wa_header.
wa_header-typ = 'S'.
wa_header-key = 'Date :'.
Concatenate sy-datum+6(2) '.'
             sy-datum+4(2) '.'
             sy-datum(4) into wa_header-info.
append wa_header to t_header.
clear wa_header.
wa_header-typ = 'S'.
wa_header-key = 'Time :'.
Concatenate sy-Uzeit(2) '.'
             sy-datum+2(2) '.'
             sy-datum+4(2) into wa_header-info.
append wa_header to t_header.
clear wa_header.
describe table itab_final lines line.
wa_header-typ = 'A'.
linecount = line.
Concatenate 'Total number of records :' linecount into wa_header-info separated by space.
append wa_header to t_header.
clear wa_header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = t_header
     I_LOGO                   = 'VMCADMIN'
    I_END_OF_LIST_GRID       =
    I_ALV_FORM               =
endform.
*designing layout.
form gd_layout.
gd_layout-zebra = 'X'.
gd_layout-edit = 'X'.
gd_layout-no_hotspot = ''.
gd_layout-no_colhead = ''.
gd_layout-colwidth_optimize = 'X'.
endform.
Reward with points if helpful.

How to read the data from an internal table,when column names are known

Hi All
I have a specific requirement. I got an internal table with many fields (let it be my_tab). Some of the fieldnames (column names in internal table my_tab) are stored in separate internal table(let it be my_fields).
I need to store/read data corresponding to the fields (whose name is stored in my_fields) from my_tab.
I am able to build dynamic table (referred by field-symbol) with respect to the given field names in my_fields.
But i am unable to read the data corresponding to the fieldnames from my_tab.
Please provide me some pointer in this regard.
Regards
Swetabh Shukla

HI All
Thanks for the prompt response. I got solution for my question. Please check below thread. For quick reponse i posted my question in one more category. Thanks to all of you.
How to read internal table w.r.t. fieldnames stored in other table

REUSE_ALV_GRID_DISPLAY , how to pass the 'tick' button to internal table

hi all i have coded:
DATA: BEGIN OF itab OCCURS 0,
      vbeln LIKE vbak-vbeln,
      posnr LIKE vbap-posnr,
      chk(1),
     END OF itab.
SELECT vbeln
       posnr
       FROM vbap
       UP TO 20 ROWS
       INTO TABLE itab.
x_fieldcat-fieldname = 'CHK'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 1.
x_fieldcat-input = 'X'.
x_fieldcat-edit = 'X'.
x_fieldcat-checkbox = 'X'.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
x_fieldcat-fieldname = 'VBELN'.
x_fieldcat-seltext_l = 'VBELN'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 2.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
x_fieldcat-fieldname = 'POSNR'.
x_fieldcat-seltext_l = 'POSNR'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 3.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
l_layout-window_titlebar = 'Popup window'.
x_events-name = slis_ev_end_of_page.
x_events-form = 'END_OF_PAGE'.
APPEND x_events TO it_events.
CLEAR x_events .
x_events-name = slis_ev_top_of_page.
x_events-form = 'TOP_OF_PAGE'.
APPEND x_events TO it_events.
CLEAR x_events .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program       = sy-repid
    is_layout                = l_layout
    i_callback_pf_status_set = 'STATUS'
    i_callback_user_command = 'USER_COMMAND'
    it_fieldcat              = it_fieldcat
    it_events                = it_events
   I_SCREEN_START_COLUMN    = 10
   I_SCREEN_START_LINE      = 1
   I_SCREEN_END_COLUMN      = 50
   I_SCREEN_END_LINE        = 20
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.
itab-chk is a check button, after execute for the second time, i need to get this ticked button to perform upload transaction..how to pass the ticked button inside itab ?

just loop at itab and pass X to chk
loop at itab into wa_itab.
   wa_itab-chk = 'X'.
   modify itab from wa_itab.
endloop.

How to pass the contents of an internal table to the IDoc FIDCC2?

Hi,
I have an internal table. Using its contents, I have to create an Idoc and do GL posting.
I have to use FIDCC2 Idoc and the function module IDOC_INPUT_FIDCC2.
Can u please let me know how to pass the contents of the internal table into the idoc FIDCC2 and do the GL posting?
Regards,
Balaji. R

Hi balaji,
use function IDOC_INBOUND_FROM_FILE. This will do half the process.
Documentation is missing, but program RSEINB00 explains something,
also some links
[http://help.sap.com/saphelp_nw70/helpdata/EN/dc/6b7f1543d711d1893e0000e8323c4f/frameset.htm]
[RSEINB00 does not work in background]
[RSEINB00 flat file to idoc uploading in XI]
[Loading flat idoc via report RSEINB00 into integration server fails]
Hope it helps.
Regards,
Clemens

How to log the exception using Log action in Oracle Service Bus

Hi,
Whenever an exception is raised how to log the exception using Log action in oracle service bus.After logging where I have to find the logged message.

It would be in the log file for the managed server which ran the request. If you are logging the message at a lower level than your app server, however, you won't see it. You should be logging the exception at Error level.

Developing the Wrapper class to log the message in XI server

Hi All,
We are trying to develop wrapper class on the SAP Logging API, in that I am unable to log the message in the log file(whose path is mentioned in the properties file).
We use this for storing when exception raised during message transformation due to certain error conditions...
Procedure:
My Wrapper class will take the parameters from Property file and store/log the message in the specified location,
This is working outside of XI environment
Please suggest how to make to work in XI environment
Also suggest do I need to do any configurations in SAP web As
Thanks,
venu.

HI,
With the above blog ref by Michal , see the below links also,
/people/alessandro.guarneri/blog/2006/03/27/sap-xi-lookup-api-the-killer
/people/amjad-ali.khoja/blog/2005/12/16/slaw-a-new-logging-tracing-framework-for-xi
/people/amjad-ali.khoja/blog/2006/02/07/using-dom4j-in-xi--a-more-sophisticated-option-for-xml-processing-than-sap-xml-toolkit
Also my be useful..
/people/community.user/blog/2007/01/09/enterprise-soa-explorations-reflections-on-database-integration
/people/anne.tarnoruder/blog/2006/10/26/reusing-code-with-pdk-for-net
/people/piers.harding/blog/2006/05/18/ruby-on-rails-with-ajax
Regards
Chilla

How to log Synchornous Messages in XI

Hi,
how to log Synchornous Messages in XI ?

Michal has explained it clearly .....with screen shots
Check the below blog
The specified item was not found.
Thanks,
Karthik

How to delete the messages in the purges folder?

if the mailbox is enabled the single item recovery, then the messages would move from deletion folder to the purges folder After running the following script,
Search-Mailbox dave -searchdumpsteronly
-deletecontent
so my question is how to delete the messages in the purges folder with some script or retention policy?
Please click the Mark as Answer button if a post solves your problem!

Thank you all,
As the mailbox is enabled single item recovery.
I just want to make the items neither in deletion folder, nor in purges folder.
So I think there are two ways to achieve this.
Method 1,disabled the single item recovery. then delete the items in deletion folder ,so it wouldn't enter to the purges folder, it just deleted permanently. then enable the single item recovery
Method 2,delete the items in deletion folder,then the messages move to the purges folder, then delete the messages in purges folder.
the Method 1 is not so good ,as it need to disable the single item recovery firstly, then enable single item recovery .
So I want to use the Method 2
Please click the Mark as Answer button if a post solves your problem!

How to print the message in 2 lines?

How to print the message in 2 lines?
Here i am having it like this... MESSAGE i000(zm) WITH lv_uname.
here I want to print lv_uname in 2 lines because it lengthy one.
Thanks,
Sridhar.

No man, itas not comming..I am using the below logic to print my message:
CONCATENATE text-I01 lv_printdate1 text-I02 INTO lv_printname
SEPARATED BY space.
MESSAGE i002(zm) WITH lv_printname.
its printing in a single line...

How to Customize the Message "No Row Returned" from a Report

Hi,
I've been trying to customize the Message "No Row Returned" from a Report.
First i followed the instructions in Note:183131.1 -
How to Customize the Message "No Row Returned" from a Report
But of course the OWA_UTIL.REDIRECT_URL in this solution did not work (in a portlet) and i found the metalink document 228620.1 which described how to fix it.
So i followed the "fix" in the document above and now my output is,..
"Portlet 38,70711 responded with content-type text/plain when the client was requesting content-type text/html"
So i search in Metalink for the above and come up with,...
Bug 3548276 PORTLET X,Y RESPONDED WITH CONTENT-TYPE TEXT/PLAIN INSTEAD OF TEXT/HTML
And i've read it and read it and read it and read it and can't make heads or tails of what it's saying.
Every "solution" seems to cause another problem that i have to fix. And all i want to do is customize the Message "No Row Returned" from a Report. Please,...does anyone know how to do this?

My guess is that it only shows the number of rows it has retrieved. I believe the defailt is for it to only retrieve 50 rows and as you page through your report it retrieves more. So this would just tell you how many rows was retireved, but probably not how many rows the report would contain if you pages to the end. Oracle doesn't really have a notion of total number of rows until the whole result set has been materialized.

How to log the messages in an internal table n display

Similar Messages

Maybe you are looking for