ABAP Report output to MS SharePoint

I there a way to send ABAP report output to MS SharePoint instead of a printer device? We are in a Microsoft environment and moving to SharePoint for all systems outside SAP. I would like to send ABAP Report the SharePoint too. Can this be done? Ifso, how.

Hi,
This development writes to mapped network drive in Unix. The concept will be similar.
[http://wiki.sdn.sap.com/wiki/display/SCM/APOtoMappedNetworkDrive]
cheers
Aveek

Similar Messages

Product for presenting ABAP report output in Dashboard Presentation

Background
Monash University environment is SAP ERP ECC6 - no BW. The University has undertaken considerable analysis of spend as part of developing a strategic approach to procurement. The data used to undertake this analysis was extracted from SAP MM and FI using a developed ABAP report which collates, categorizes and consolidates all spend information from MM (for our Purchase Order based commitment and expenditure) and FI (for direct invoices and Corporate Credit Card expenditure). This information is then currently exported to MS-Excel to produce a report containing graphs, pie charts etc.
Requirement
To present output from our Spend Analysis Report in a more readable dashboard type presentation. This facility should allow easy manipulation (slice and dice) and drill down of the data.. Our requirement is to have something operating within a very short time-frame, say within a month or two. Although you might suggest Web Dynpro Business Graphic or SEM /BW (as the optimal solution) we understand the set up time for either of these solutions is prohibitive. Visual Composer has been suggested as another option but we have no in-house expertise to determine if this is a viable solution.
Some colleagues visited a conference a couple of weeks ago and saw a demonstration of a product call XenoCube http://www.inlogik.com/downloads/XenoCube_Brochure.pdf
which was proposed as a quick way to present SAP 'raw' report output in a more readable form. Other solutions in this space that have been suggested include:-
Zycus - Actionable Spend Analysis Zycus.com
Emptoris Spend Analysis - emptoris.com
ONIQUA Enterprise Analytics oniqua.com.au
Ariba Buyer ariba.com
SAS Spend Analysis sas.com
Etesius SpendGuardian etesius.com
Can anyone provide advice as to their experience of SAP solution, integrated partner products or any of the about products to satisfy a similar requirement to that which I have outlined? The main selection criteria will include a product which is:
a) quick & easy to implement,
b) presentation and manipulation of ABAP extracted data
c) is scalable and
d) is reasonably priced.
Grateful for any advice regarding a solution .
Thank-you

Hi,
This development writes to mapped network drive in Unix. The concept will be similar.
[http://wiki.sdn.sap.com/wiki/display/SCM/APOtoMappedNetworkDrive]
cheers
Aveek

Options for ABAP report output in Dashboard type presentation

Background
Monash University environment is SAP ERP ECC6 - no BW. The University has undertaken considerable analysis of spend as part of developing a strategic approach to procurement. The data used to undertake this analysis was extracted from SAP MM and FI using a developed ABAP report which collates, categorizes and consolidates all spend information from MM (for our Purchase Order based commitment and expenditure) and FI (for direct invoices and Corporate Credit Card expenditure). This information is then currently exported to MS-Excel to produce a report containing graphs, pie charts etc.
Requirement
To present output from our Spend Analysis Report in a more readable dashboard type presentation. This facility should allow easy manipulation (slice and dice) and drill down of the data.. Our requirement is to have something operating within a very short time-frame, say within a month or two. Although you might suggest Web Dynpro Business Graphic or SEM /BW (as the optimal solution) we understand the set up time for either of these solutions is prohibitive. Visual Composer has been suggested as another option but we have no in-house expertise to determine if this is a viable solution.
Some colleagues visited a conference a couple of weeks ago and saw a demonstration of a product call XenoCube http://www.inlogik.com/downloads/XenoCube_Brochure.pdf
which was proposed as a quick way to present SAP 'raw' report output in a more readable form. Other solutions in this space that have been suggested include:-
Zycus - Actionable Spend Analysis Zycus.com
Emptoris Spend Analysis - emptoris.com
ONIQUA Enterprise Analytics oniqua.com.au
Ariba Buyer ariba.com
SAS Spend Analysis sas.com
Etesius SpendGuardian etesius.com
Can anyone provide advice as to their experience of SAP solution, integrated partner products or any of the about products to satisfy a similar requirement to that which I have outlined? The main selection criteria will include a product which is:
a) quick & easy to implement,
b) presentation and manipulation of ABAP extracted data
c) is scalable and
d) is reasonably priced.
Grateful for any advice regarding a solution .
Thank-you

Hi,
This development writes to mapped network drive in Unix. The concept will be similar.
[http://wiki.sdn.sap.com/wiki/display/SCM/APOtoMappedNetworkDrive]
cheers
Aveek

How to show Headers in ABAP report

hii folks,
plz try to solve my quesions:
hw to show two Headers in ABAP report output, like
eg:
for first two fields(vendor A/C no. vendor name ) i have to shw header name like VENDOR PR. DETAILS & for the nxt following fields(vendor city, state, country)i have to shw VENDOR ADDRESS.(plz gv a exaple)
2Q) A INISILIZATION event in report hw many times it triggers.
3Q) In a ALV report once i double click on a selected record it has to shw its corresponing details.for(DOUBLE CLICK what we use & where i have to defind it)
thanking u
sweta.

1. Please let me know whether it is for Classic list report or ALV.
2. Initilization is triggered only once when the report is loaded to memmory.
3.
3.1.) Declare user_command in events:
DATA: ls_event type slis_alv_event.
move 'USER_COMMAND' to ls_event-form.
append ls_event to gt_events.
3.2.) Getting cell value ." within the form USER_COMMAND:
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
Check function code
CASE R_UCOMM.
WHEN '&IC1'. "--> check your own sy-ucomm once you double click the line item
Check field clicked on within ALVgrid report
IF RS_SELFIELD-FIELDNAME = 'EBELN'.
Read data table, using index of row user clicked on
READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
ENDIF.
ENDCASE.
ENDFORM.
For More details, please refer to following threads.
Re: Drill down report
double click on cell in alv report
Regards,
Lijo Joseph
*reward if useful

Printing abap reports

Hi All,
Is it possible to print ABAP report output written through se38.
Thanks
Rakesh

Hi,
You can use
NEW-PAGE PRINT ON.
WRITE :/ 'Test'.
NEW-PAGE PRINT OFF.
or if a spool is generated, then use the following FM to print the spool output.
RSPO_RPRINT_SPOOLREQ
Best regards,
Prashant

Bar code Generation in ABAP report

Hi,
Can anyone help me on how to generate bar code in ABAP report output.
My exact requirement in the exisiting 'Z' report,I need to generate Bar code for Sales order which is displaying in report output.Buisness will scan and they will use for further processing.The Device type is HPLJ5SI printer.
If possible please provide code for generating Bar code in ABAP report.
Since its very urgent, if anyone provide solution quickly it will be great helpful.
Thanks,
Senthil

internal table validation
Check here mate, should be helpful.
Mano sri

Report output to be sent via mail

Hi Experts,
I want to send my customized ABAP report output to an email address (e.g my own email ID) as I need to send to the vendor (who doesn't have SAP access) as per the requirement.
Can you please let me know is there any transaction or any other way with the help of which i can just input this report name and the email Id and then it will automatically send the output of the report to that email id.
Thanks in advance.
Any helpful entry will be rewarded.
Warm regards,
Raman.

You might want to write a small program that retrieves your spool information, and send the corresponding ALV (internal table) by converting it and sending it via SAP Connect. Here is a sample of hos to attach and send your internal table:
FORM send_file .
DATA: send_request       TYPE REF TO cl_bcs,
        text               TYPE bcsy_text,
        document           TYPE REF TO cl_document_bcs,
        recipient          TYPE REF TO if_recipient_bcs,
        copy               TYPE ad_smtpadr,
        bcs_exception      TYPE REF TO cx_bcs,
        sent_to_all        TYPE os_boolean,
        att_name           TYPE sood-objdes,
        subject            TYPE so_obj_des.
Get attachment name
CONCATENATE g_ret_id '_' sy-datum sy-uzeit '_' g_fileid '.CSV' INTO
att_name.
TRY.
Create the send request
      send_request = cl_bcs=>create_persistent( ).
Create the document with attachments
Main document
        APPEND 'Attachment test' TO text.
      document = cl_document_bcs=>create_document(
                    i_type    = 'RAW'
                    i_text    = text
                    i_subject = subject ).
Add text attachment to document
      document->add_attachment( i_attachment_type    = 'CSV'
                                i_attachment_subject = att_name
                                i_att_content_text   = itab_file ).
      send_request->set_document( document ).
Create recipient and add to send request
      LOOP AT itab_recipients INTO wa_recipients.
        IF wa_recipients-copy IS INITIAL.
          "To recipient
          MOVE wa_recipients-address TO g_rec_send.
          recipient = cl_cam_address_bcs=>create_internet_address(
          g_rec_send ).
          send_request->add_recipient( i_recipient = recipient ).
          CLEAR g_rec_send.
        ELSE.
          "CC
          MOVE wa_recipients-address TO g_rec_send.
          recipient = cl_cam_address_bcs=>create_internet_address(
          g_rec_send ).
          send_request->add_recipient( i_recipient = recipient
                                       i_copy = 'X' ).
          CLEAR g_rec_send.
        ENDIF.
      ENDLOOP.
Send
      sent_to_all = send_request->send( i_with_error_screen = 'X' ).
      IF sent_to_all = 'X'.
        MESSAGE s022.
      ENDIF.
    CATCH cx_bcs INTO bcs_exception.
      MESSAGE e865 WITH bcs_exception->error_type.
ENDTRY.
ENDFORM.                    " send_file
REPORT TO EMAIL
ALV output to email
How to send ALV Grid report to Email?
Check the code...on http://sap4.com/wiki/index.php?title=ZOUTLOOK
sending the output of a program through an email
report output to email
Sending ABAP Report by email
Rewards if useful..............
Minal

ABAP Report WRITE, how to ouptut long lines without additional formatting?

I am developing a program, which dumps objects as XML and I need to create one big XML file at the end. I would like to start it as a background job and get this XML as spooled output at the end. The problem is that the XMLs come from CALL TRANSFORMATION as one big string without any CR LF and in the report spooled output there are additional "formatting" like header, pages etc.:
#COL0N#COL0H07.12.09 Programm EHFND_GENERATE_BO_DOCU 1
#<bopf_bo><item><KEY>gB4L/AeoHd6tl1YoR5AdIg==</KEY><PARENT_KEY/><ROOT_KEY>gB4L/A
#<bopf_bo><item><KEY>gB4L/AeoHd6tl2lLeQUKOQ==</KEY><PARENT_KEY/><ROOT_KEY>gB4L/A
#<bopf_bo><item><KEY>gB4L/AeoHd6tmEQlByTUEg==</KEY><PARENT_KEY/><ROOT_KEY>gB4L/A
#<bopf_bo><item><KEY>gB4L/AeoHd6xjRciawUXeQ==</KEY><PARENT_KEY/><ROOT_KEY>gB4L/A
#<bopf_bo><item><KEY>gB4L/AeoHe6t31MGbgZYFg==</KEY><PARENT_KEY/><ROOT_KEY>gB4L/A
P
|#COL0N#COL0H07.12.09 Programm EHFND_GENERATE_BO_DOCU 2
|#######################################################################################
|#<bopf_bo><item><KEY>gCFaXDIYHe60jgYnuB9agQ==</KEY><PARENT_KEY/><ROOT_KEY>gCFaXD
Is it possble to make the WRITE statement automatically insert CR LF so I do not loose the XML data and also do not output
any additional symbols? My purpose is to get clean XML data at the end, which can be e.g. directly loaded into explorer.
I already have a solution which fills a DB table with all XMLs and finaly I create the file with cl_gui_frontend_services=>gui_download but I would like to have a simplier solution using only the abap report output.
Edited by: Rob Burbank on Dec 8, 2009 10:56 AM

Better option would be writing this XML string to File on the application server using OPEN DATASET ... TRANSFER .... CLOSE DATASET. You can give the provision in the same program to download this application server file to Presentation.
Regards,
Naimesh Patel

ABAP Dump while Changing the Layout fields in Report output - RCOPCA02

Hi,
I Copied the Standard Program RCOPCA02 to ZRCOPCA02. I added two new fields(AUART, AUGRU) in the report output. It is executing correctly with default layout, While Changing the layout for displaying new fields it is dumping.
I am not understanding, What should i do...
Here is the Code.
report ZRCOPCA02 no standard page heading message-id km
 line-count (2) line-size 81.
type-pools: slis, ecarc.
DDIC-Tabellen *******************************************************
tables: glpca, "Einzelposten / Ist
 glu1, "Übergabestruktur FI-SL-Anzeige
 t000,
 tka01,
 sscrfields,
 vbak.
Variablen und int. Tabellen *****************************************
data: l_vbeln like vbak-vbeln,
l_auart like vbak-auart,
l_augru like vbak-augru.
data: afield type slis_fieldcat_alv,
sp_group type slis_sp_group_alv,
t_listheader type slis_t_listheader with header line,
t_layout type slis_layout_alv,
t_fieldcat type slis_t_fieldcat_alv,
t_spec_groups type slis_t_sp_group_alv,
event type slis_alv_event,
t_events type slis_t_event,
g_variant like disvariant,
gx_variant like disvariant,
g_exit(1) type c,
g_save(1) type c,
g_repid like sy-repid,
msgtyp like sy-msgty,
lt_dynpread like dynpread occurs 1 with header line,
ls_rpcak like rpcak, "note 0310592
packsize type i value 1000,
text1(60) type c,
text2(60) type c,
oldkokrs like glpca-kokrs,
oldracct like glpca-racct.
data: whr_size type i value 50,"Maximum of single values per MIC 46a
"charact. in the where-clause of the select-statement
lines type i, "number of lines of range table MIC 46a
cnt_rldnr type i, "Zähler Anzahl selektierter Ledger
cnt_kokrs type i, "Zähler Anzahl selektierter KoReKreise
cnt_poper type i, "Zähler Anzahl selektierter Perioden
cnt_ryear type i, "Zähler Anzahl selektierter GeschJahre
cnt_rvers type i, "Zähler Anzahl selektierter Versionen
cnt_bukrs type i, "Zähler Anzahl selektierter BuKreise
empge like dkobr-empge,
ksl_curr like tka01-pcacur,
hsl_curr like t001-waers,
a_rec like rstirec.
data: begin of dim_data.
include structure rgcdi. "data for dimensions
data: end of dim_data.
data: begin of tab_fields occurs 80,
name like dntab-fieldname, "fields in table i_glpca
end of tab_fields.
data: begin of i_glpca occurs 0.
include structure rpca2.
data: racct_ktext like rpcak-ktext,
psppp like prps-posid,
v_auart like vbak-auart,
v_augru like vbak-augru,
 end of i_glpca.
data: rw_subrc like sy-subrc, "Flag: Report-Writer-Schnittstelle
 re_subrc like sy-subrc, "Flag: Recherche-Schnittstelle
 subrc like sy-subrc.
data: set_id like sethier-setid, "Set-ID "RDI_SETS_4.0
 set_class like sethier-setclass, "Setklasse "RDI_SETS_4.0
 set_sname like sethier-shortname."Setname (24) "RDI_SETS_4.0
data: authorised(1),
 s_message(1),
 auth_dbcount like sy-tabix,
 Hex-Konstanten für Minimum/Maximum-Werte
 begin of hex00,
 x1(12) type c,
 x2(12) type c,
 end of hex00,
 begin of hexff,
 x1(12) type c,
 x2(12) type c,
 end of hexff.
ranges rclnt for glpca-rclnt.
field-symbols: type ecarc_glpca_curr.
Selektionsoptionen *************************************************
select-options:
rldnr for glpca-rldnr default '8A' no-display,
rassc for glpca-rassc no-display,
rrcty for glpca-rrcty default 0,
rrcty for glpca-rrcty,
rvers for glpca-rvers default '000',
kokrs for glpca-kokrs memory id cac,
bukrs for glpca-rbukrs memory id buk,
poper for glpca-poper default sy-datlo+4(2),
ryear for glpca-ryear default sy-datlo,
poper for glpca-poper,
ryear for glpca-ryear,
prctr for glpca-rprctr matchcode object prct,
pprctr for glpca-sprctr matchcode object prct,
RACCT FOR GLPCA-RACCT MATCHCODE OBJECT KART, "RD_P30K128304
racct for glpca-racct, "RD_P30K128304
drcrk for glpca-drcrk,
activ for glpca-activ,
rhoart for glpca-rhoart,
rfarea for glpca-rfarea,
stagr for glpca-stagr,
rtcur for glpca-rtcur,
runit for glpca-runit,
versa for glpca-versa no-display,
eprctr for glpca-eprctr no-display,
afabe for glpca-afabe no-display,
rmvct for glpca-rmvct no-display,
hrkft for glpca-hrkft no-display, "note 550972
sbukrs for glpca-sbukrs no-display, "note 550972
shoart for glpca-shoart no-display, "note 550972
sfarea for glpca-sfarea no-display, "note 550972
docct for glpca-docct,
docnr for glpca-docnr,
refdocct for glpca-refdocct,
refdocnr for glpca-refdocnr,
werks for glpca-werks,
repmatnr for glpca-rep_matnr matchcode object pca_shlp_rep_matnr,
rscope for glpca-rscope.
parameters: no_rrint no-display default ' '." skip "MICP40K066037
" report-report-interface
display variant ">>MICP40K039857
selection-screen begin of block 0 with frame title text-e01.
parameters: p_vari like disvariant-variant.
selection-screen comment 47(40) varname for field p_vari.
selection-screen end of block 0.
parameters log_grp(4) type c no-display default 'KE5Z'.
"<<MICP40K039857
ranges: v_racct for glpca-racct,
 v_prctr for glpca-rprctr,
 v_pprctr for glpca-sprctr.
Tabelle mit Werten aus den Berichts-Set vom Report-Writer *
data begin of val_tab occurs 50.
 include structure rgciv.
data end of val_tab.
 MICP30K166368
feldkatalog und interface für bb-schnittstelle rw MICP30K166368
 MICP30K166368
"MICP30K166368
data begin of bbs_fieldtab occurs 20. "MICP30K166368
 include structure rstifields. "MICP30K166368
data end of bbs_fieldtab. "MICP30K166368
archiv
type-pools: rsds.
types: begin of ty_archive_objects,
 object like arch_obj-object,
 end of ty_archive_objects,
 ty_t_archive_objects type ty_archive_objects occurs 2.
constants: lc_set type c value 'X',
 lc_report type progname value 'KE5Z',
 lc_reporttype type reporttype value 'TR'.
tables: admi_files.
select-options lr_files for admi_files-archiv_key no-display.
parameter: read_db type c default 'X' no-display,
 read_ar type c no-display,
 arc_obj like arch_obj-object no-display,
 read_as type c default 'X' no-display.
data : lt_arch_obj type ty_t_archive_objects with header line,
 ls_selections type rsds_frange,
 lt_selections type rsds_frange_t,
 ls_selopt type rsdsselopt,
 lt_glpca_archiv type ecarc_t_glpca_curr.
*********************************************************>>MICP40K039857
INITIALIZATION
initialization.
Diverse Initialisierungen
perform init_vars.
g_repid = sy-repid.
Set default values for record type
rrcty-sign = 'I'.
rrcty-option = 'EQ'.
rrcty-low = '0'.
append rrcty.
rrcty-low = '2'.
append rrcty.
Set default values for period and year (if kokrs or bukrs is known)
get parameter id 'BUK' field bukrs-low.
get parameter id 'CAC' field kokrs-low.
if kokrs-low is initial "get contr. area from company code
 and not bukrs-low is initial.
 call function 'KOKRS_GET_FROM_BUKRS'
 exporting
 i_bukrs = bukrs-low
 importing
 e_kokrs = kokrs-low
 exceptions
 no_kokrs_found = 1
 others = 2.
 if sy-subrc <> 0.
 clear kokrs-low.
 endif.
endif.
if not kokrs-low is initial.
 call function 'K_KOKRS_READ' "get fiscal year variant
 exporting
 kokrs = kokrs-low
 importing
 e_tka01 = tka01
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
 if sy-subrc = 0.
 call function 'G_PERIOD_GET'
 exporting
 date = sy-datlo
 variant = tka01-lmona
 importing
 period = poper-low
 year = ryear-low
 exceptions
 ledger_not_assigned_to_company = 1
 period_not_defined = 2
 variant_not_defined = 3
 others = 4.
 if sy-subrc = 0.
 poper-sign = 'I'.
 poper-option = 'EQ'.
 append poper.
 ryear-sign = 'I'.
 ryear-option = 'EQ'.
 append ryear.
 endif.
 endif.
endif.
Settings for display variants
g_save = 'A'. "Schalter Varianten benutz./allg. speichern
clear g_variant.
g_variant-report = g_repid.
g_variant-log_group = log_grp.
g_variant-username = sy-uname.
Get default variant
gx_variant = g_variant.
call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
 exporting
 i_save = g_save
 changing
 cs_variant = gx_variant
 exceptions
 not_found = 2.
if sy-subrc = 0.
 p_vari = gx_variant-variant.
endif.
Set variant
if p_vari is initial.
 p_vari = '1SAP'.
 move p_vari to gx_variant-variant.
 call function 'REUSE_ALV_VARIANT_EXISTENCE'
 exporting
 i_save = g_save
 changing
 cs_variant = gx_variant
 exceptions
 not_found = 1.
 if sy-subrc ne 0.
 clear p_vari.
 clear gx_variant-variant.
 endif.
endif.
varname = gx_variant-text.
"<<MICP40K039857
archiv
call function 'KARL_DATA_INPUT_INIT'
 exporting
 i_report = lc_report
 i_reporttype = lc_reporttype
 importing
 e_xusedb = read_db
 e_xusear = read_ar
 e_archobj = arc_obj
 e_infosys = read_as
 tables
 t_arch_sel = lr_files.
data: lt_excluding like sy-ucomm occurs 0 with header line.
call function 'RS_SET_SELSCREEN_STATUS'
 exporting
 p_status = 'SELSCREEN'
 p_program = 'RCOPCA02'
 tables
 p_exclude = lt_excluding.
Initialisieren der Bericht/Bericht-Schnittstellen *
data: ld_no_rrint type boole_d. "note 490484 begin
import rri = ld_no_rrint from memory id 'RCOPCA02_NO_RRI'.
if ld_no_rrint = 'X'.
 free memory id 'RCOPCA02_NO_RRI'.
else. "note 490484 end
 call function 'G_REPORT_INTERFACE_INIT' "Report-Writer?
 exporting "MICP30K166368
 table = 'GLPCT' "MICP30K166368
 importing
 subrc = rw_subrc "MICP30K166368
 tables "MICP30K166368
 it_fieldr = bbs_fieldtab. "MICP30K166368
 call function 'RSTI_APPL_STACK_POP'"oder Recherche?
 importing
 i_rec = a_rec
 exceptions
 appl_stack_not_initialized = 1.
 re_subrc = sy-subrc.
 if re_subrc = 0.
 check Receiver is this report
 if not ( ( a_rec-rtool = 'RT' and a_rec-ronam = 'RCOPCA02' )
 or ( a_rec-rtool = 'TR' and a_rec-ronam = 'KE5Z' ) ) .
 re_subrc = 2.
 endif.
 endif.
endif.
AT SELCTION-SCREEN on value request**********************************
*at selection-screen on value-request for racct-low. "RD "4.6a
 "RD "4.6a
call function 'K_RACCT_VALUE_REQUEST' "RD "4.6a
 importing "RD "4.6a
 e_racct = racct-low. "RD "4.6a
 "RD "4.6a
 "RD "4.6a
*at selection-screen on value-request for racct-high. "RD "4.6a
 "RD "4.6a
call function 'K_RACCT_VALUE_REQUEST' "RD "4.6a
 importing "RD "4.6a
 e_racct = racct-high. "RD "4.6a
at selection-screen on value-request for p_vari. "MICP40K039857
perform f4_for_variant. "MICP40K039857
at selection-screen on value-request for poper-low. "RD "4.6a
begin of insertion note 522715
call function 'K_KOKRS_READ'
 exporting
 kokrs = kokrs-low
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
if sy-subrc = 0.
end of insertion note 522715
 call function 'ECPCA_RPMAX_VALUE_REQUEST' "RD "4.6a
 exporting "RD "4.6a
 i_kokrs = kokrs-low "RD "4.6a
 i_ryear = ryear-low "RD "4.6a
 importing "RD "4.6a
 e_rpmax = poper-low "RD "4.6a
begin of insertion note 522715
 exceptions
 table_empty = 1.
endif.
end of insertion note 522715
at selection-screen on value-request for poper-high. "RD "4.6a
begin of insertion note 522715
call function 'K_KOKRS_READ'
 exporting
 kokrs = kokrs-low
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
if sy-subrc = 0.
end of insertion note 522715
 call function 'ECPCA_RPMAX_VALUE_REQUEST' "RD "4.6a
 exporting "RD "4.6a
 i_kokrs = kokrs-low "RD "4.6a
 i_ryear = ryear-low "RD "4.6a
 importing "RD "4.6a
 e_rpmax = poper-high "RD "4.6a
begin of insertion note 522715
 exceptions
 table_empty = 1.
endif.
end of insertion note 522715
AT SELCTION-SCREEN ***************************************************
at selection-screen.
perform pai_of_selection_screen.
begin of insertion note 522715
if not kokrs-low is initial.
 call function 'K_KOKRS_READ'
 exporting
 kokrs = kokrs-low
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
 if sy-subrc <> 0.
 message e101(ki) with kokrs-low.
 endif.
endif.
end of insertion note 522715
archiv
if sy-ucomm = 'FC01' or sy-ucomm = 'UCDS'
 or sy-ucomm = 'ONLI' and read_ar = 'X'
 and read_as is initial and lr_files[] is initial.
 if lt_arch_obj[] is initial.
 lt_arch_obj-object = 'PCA_OBJECT'. append lt_arch_obj.
 lt_arch_obj-object = 'EC_PCA_ITM'. append lt_arch_obj.
 endif.
 call function 'KARL_DATA_INPUT_SELECT'
 exporting
 i_db_and_arc = lc_set
 i_infosys_possible = lc_set
 i_object_fixed = 'V'
 i_documentation = 'KARL_DATA_INPUT_SEL_KE5YZ'
 i_report = lc_report
 i_reporttype = lc_reporttype
 tables
 t_objects = lt_arch_obj
 t_arch_sel = lr_files
 changing
 c_xusedb = read_db
 c_xusear = read_ar
 c_archobj = arc_obj
 c_infosys = read_as.
endif.
START-OF-SELECTION **************************************************
start-of-selection.
Default-Werte löschen, falls Aufruf über Recherche
oder Report-Writer erfolgt ist
if no_rrint is initial and ld_no_rrint is initial. "note 490484
 if rw_subrc eq 0 or re_subrc eq 0.
 refresh: rldnr, rrcty, rvers, kokrs, bukrs, poper, ryear,
 racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
 versa, afabe, eprctr,
 v_racct, v_prctr, v_pprctr.
 clear: rldnr, rrcty, rvers, kokrs, bukrs, poper, ryear,
 racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
 versa, afabe, eprctr,
 v_racct, v_prctr, v_pprctr.
 endif.
Parameter einlesen über Report-Writer-Schnittstelle *
 if rw_subrc eq 0.
 perform rw_get_parameters.
oder Parameter einlesen über Recherche-Schnittstelle *
 elseif re_subrc eq 0.
 perform re_get_parameters.
 endif.
endif.
if read_db = 'X'. " read from DB (archiv)
Bewegungsdaten einlesen und puffern...................................
 call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Einzelposten selektieren'(p10).
Use dirty trick to mislead DB-optimizer
 call function 'DB_DO_NOT_USE_CLIENT_INDEX'
 exporting
 value = sy-mandt
 tables
 mandttab = rclnt.
 select (tab_fields) from glpca
 client specified
 package size packsize
 APPENDING CORRESPONDING FIELDS OF TABLE i_glpcaO
 into corresponding fields of table i_glpca
 where rldnr in rldnr
 and rrcty in rrcty
 and rvers in rvers
 and kokrs in kokrs
 and rbukrs in bukrs
 and ryear in ryear
 and rassc in rassc
 and hrkft in hrkft "note 550972
 and sbukrs in sbukrs "note 550972
 and shoart in shoart "note 550972
 and sfarea in sfarea "note 550972
 and racct in racct
 and rprctr in prctr
 and sprctr in pprctr
 and poper in poper
 and drcrk in drcrk
 and activ in activ
 and rhoart in rhoart
 and rfarea in rfarea
 and versa in versa
 and eprctr in eprctr
 and afabe in afabe
 and rmvct in rmvct
 and docct in docct
 and docnr in docnr
 and stagr in stagr
 and rtcur in rtcur
 and runit in runit
 and refdocct in refdocct
 and refdocnr in refdocnr
 and werks in werks
 and rep_matnr in repmatnr "RDIP40K020663
 and rscope in rscope "RDIP40K020663
 and rclnt in rclnt. "dirty trick to mislead DB-optimizer
 if sy-dbcnt > 1.
 text1 = sy-dbcnt.
 condense text1.
 concatenate text1 text-m01 into text2 separated by space.
 call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = text2. " ... Datensätze gelesen
 endif.
 endselect.
Entfernt nicht zugehörige Einträge....................................
 loop at i_glpca where ( not rprctr in v_prctr )
 or ( not sprctr in v_pprctr )
 or ( not racct in v_racct ).
 delete i_glpca.
 endloop.
endif.
*archiv
if read_ar = 'X' and not
 ( read_as is initial and lr_files[] is initial ).
 call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Lesen im Archiv'(p12).
 define fill_lt_selections.
 if not &2[] is initial.
 clear ls_selections.
 move &1 to ls_selections-fieldname.
 loop at &2.
 clear ls_selopt.
 move-corresponding &2 to ls_selopt.
 append ls_selopt to ls_selections-selopt_t.
 endloop.
 append ls_selections to lt_selections.
 endif.
 end-of-definition.
 fill_lt_selections 'RLDNR' rldnr.
 fill_lt_selections 'RRCTY' rrcty.
 fill_lt_selections 'RVERS' rvers.
 fill_lt_selections 'KOKRS' kokrs.
 fill_lt_selections 'RBUKRS' bukrs.
 fill_lt_selections 'POPER' poper.
 fill_lt_selections 'RYEAR' ryear.
 fill_lt_selections 'RPRCTR' prctr.
 fill_lt_selections 'SPRCTR' pprctr.
 fill_lt_selections 'RACCT' racct.
 fill_lt_selections 'DRCRK' drcrk.
 fill_lt_selections 'ACTIV' activ.
 fill_lt_selections 'RHOART' rhoart.
 fill_lt_selections 'RFAREA' rfarea. "note 401961
 fill_lt_selections 'STAGR' stagr.
 fill_lt_selections 'RTCUR' rtcur.
 fill_lt_selections 'RUNIT' runit.
 fill_lt_selections 'VERSA' versa.
 fill_lt_selections 'EPRCTR' eprctr.
 fill_lt_selections 'AFABE' afabe.
 fill_lt_selections 'RMVCT' rmvct.
 fill_lt_selections 'DOCCT' docct.
 fill_lt_selections 'DOCNR' docnr.
 fill_lt_selections 'REFDOCCT' refdocct.
 fill_lt_selections 'REFDOCNR' refdocnr.
 fill_lt_selections 'WERKS' werks.
 fill_lt_selections 'REP_MATNR' repmatnr.
 fill_lt_selections 'RSCOPE' rscope.
 fill_lt_selections 'HRKFT' hrkft. "note 550972
 fill_lt_selections 'SBUKRS' sbukrs. "note 550972
 fill_lt_selections 'SHOART' shoart. "note 550972
 fill_lt_selections 'SFAREA' sfarea. "note 550972
 call function 'EC_PCA_SELECT_FROM_ARCHIVE'
 exporting
 i_selections = lt_selections[]
 i_files_sequential_read = lr_files[]
 importing
 e_glpca = lt_glpca_archiv[]
 exceptions
 no_infostruc_found = 1.
 if sy-subrc = 1.
 message id sy-msgid type 'I' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 endif.
 clear i_glpca.
 loop at lt_glpca_archiv assigning to i_glpca.
 append i_glpca.
 endloop.
endif.
if i_glpca[] is initial. "Info,nichts gefunden
 message s000.
 exit.
endif.
get texts for accounts ...............................................
sort i_glpca by kokrs racct.
loop at i_glpca assigning -racct_ktext = ls_rpcak-ktext.
endloop.
Liste mit Einzelposten geeignet sortieren.............................
call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Einzelposten sortieren'(p30).
if show_ref is initial.
 sort i_glpca by rldnr ryear rbukrs rrcty rvers
 docct docnr docln.
else.
sort i_glpca by rldnr kokrs ryear rbukrs rrcty rvers poper
 refdocct refdocnr refdocln.
endif.
Berechtigungsprüfung und gemerkte Belege aufbereiten .................
call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Berechtigungsprüfungen'(p40).
clear: cnt_rldnr, cnt_kokrs, cnt_ryear, cnt_rvers, cnt_bukrs.
loop at i_glpca assigning .
Berechtigungscheck
 perform check_repo_authority changing authorised.
 if authorised is initial.
 delete i_glpca.
 s_message = 'X'.
 zählen der Sätze ohne Berechtigung
 auth_dbcount = auth_dbcount + 1.
 else. "Weitere Bearbeitung nur für berechtigte Belege...
 Zusätzlich merken der Anzahl der Ausprägungen
 bestimmter Dimensionen
 on change of -rbukrs
 ct = '10'
 importing
 currency = hsl_curr.
 endon.
 externe Immobilienbezeichnung "ww/kb
 on change of i_glpca-imkey.
 if ( not -dabrz
 I_length = 20
 importing
 e_empge = -konty.
 endif.
 CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
 endif.
 endon.
 on change of i_glpca-dabrz.
 call function 'REMD_IMKEY_TO_EMPGE'
 exporting
 i_imkey = i_glpca-imkey
 i_dabrz = i_glpca-dabrz
 i_length = 20
 importing
 e_empge = i_glpca-empge
 e_konty = i_glpca-konty.
 CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
 endon.
 Konvertierungsproblem mit PSP-Nummer bereinigen
 if not -psppp.
 endif.
 endif.
 Währungen in Hilfsfeldern speichern
 if -ksl_curr = ksl_curr.
 endif.
 modify i_glpca.
 endif.
endloop.
Nachricht, wenn nicht alle Einzelposten angezeigt werden.
if not s_message is initial.
 message s407(km) with auth_dbcount.
endif.
EP ausgeben...........................................................
call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Einzelposten ausgeben'(p50).
t_layout-detail_initial_lines = 'X'.
t_layout-detail_popup = 'X'.
t_layout-f2code = 'PIC1'. "MICP40K039857
t_layout-get_selinfos = 'X'.
t_layout-group_change_edit = 'X'. "note 576149
perform fill_listheader.
perform fieldcat_fill.
perform spec_groups_fill.
perform events_fill. "MICP40K039857
">>MICP40K039857
call function 'K_KKB_LIST_DISPLAY'
 exporting
 i_callback_program = 'RCOPCA02'
 i_callback_user_command = 'USR_CMD'
 i_callback_top_of_page = 'TOP_OF_PAGE'
 I_CALLBACK_END_OF_PAGE =
 I_CALLBACK_END_OF_LIST =
 i_callback_pf_status_set = 'SET_PF_STATUS'
 I_CALLBACK_LAYOUT_SAVE =
 I_CALLBACK_FIELDCAT_SAVE =
 i_tabname = 'I_GLPCA'
 is_layout = t_layout
 it_fieldcat = t_fieldcat
 I_FCTYPE = 'R'
 IT_EXCLUDING =
 it_special_groups = t_spec_groups
 IT_SORT =
 IS_SEL_HIDE =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 tables
 t_outtab = i_glpca
 exceptions
 others = 1.
loop at i_glpca.
select single vbeln auart augru
into (l_vbeln, l_auart, l_augru)
from vbak where vbeln = i_glpca-aubel.
if sy-subrc = 0.
move l_auart to i_glpca-v_auart.
move l_augru to i_glpca-v_augru.
modify i_glpca.
endif.
endloop.
call function 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 exporting
 I_INTERFACE_CHECK = ' '
 i_callback_program = 'ZRCOPCA02'
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'USR_CMD'
 i_structure_name = 'I_GLPCA'
 is_layout = t_layout
 it_fieldcat = t_fieldcat
 IT_EXCLUDING =
 it_special_groups = t_spec_groups
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 i_default = 'X'
 i_save = g_save
 is_variant = g_variant
 it_events = t_events
 IT_EVENT_EXIT =
 IS_PRINT =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 tables
 t_outtab = i_glpca
 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.
"<<MICP40K039857
clear i_glpca.
*& Form CHECK_REPO_AUTHORITY
Check only new auth-object K_PCA *
--> p1 text
<-- p2 text
form check_repo_authority changing authorized like authorised.
fill structure for userexit in K_PCA_RESP_AUTHORITY_CHECK
data: auth like pca_i_auth. "46a MIC check K_PCA and G_GLTP
auth-bukrs = -rrcty.
clear authorized.
check PrCtr/account/activity
call function 'K_PCA_RESP_AUTHORITY_CHECK'
 exporting
 i_kokrs = -racct
 i_vorgn = 'REPP'
 i_actvt = '28'
 i_auth = auth
 i_no_dialog_message = 'X'
 exceptions
 no_authority = 1
 data_missing = 2
 others = 3.
if sy-subrc = 0. "ok
check ledger/version/record type
 call function 'PCA_G_GLTP_AUTH_CHECK'
 exporting
 rldnr = -rrcty
 exceptions
 no_authorisation = 1
 others = 2.
 if sy-subrc = 0. "ok, User is authorized
 authorized = 'X'.
 endif.
endif.
endform. " CHECK_REPO_AUTHORITY
*& Form INIT_VARS
 Initialisieren diverser Hilfsvariablen und -tabellen *
form init_vars.
data begin of nametab occurs 80. "Tabelle mit Feldern aus der RPCA2
 include structure dntab.
data end of nametab.
select single * from t000
 client specified
 where mandt = sy-mandt.
refresh nametab.
call function 'NAMETAB_GET'
 exporting
 only = 'T'
 tabname = 'RPCA2'
 tables
 nametab = nametab.
Übernehmen der Feldnamen, die auch in der GLPCA
vorkommen.
loop at nametab where fieldname ne 'KSL_CURR'
 and fieldname ne 'HSL_CURR'
 and fieldname ne 'EMPGE' "ww/kb
 and fieldname ne 'KONTY'. "ww/kb
 move nametab-fieldname to tab_fields-name.
 append tab_fields.
endloop.
fill Fields of receiver for BBS "MIC46C
call function 'RSTI_REPORT_FIELDS_FIND'
 exporting
 e_repid = 'RCOPCA02'
 e_type = 'R'
 tables
 it_fields = bbs_fieldtab.
correct fieldnames
read table bbs_fieldtab with key rfield = 'PRCTR'.
if sy-subrc = 0.
 bbs_fieldtab-rfield = 'RPRCTR'.
 modify bbs_fieldtab index sy-tabix.
endif.
read table bbs_fieldtab with key rfield = 'PPRCTR'.
if sy-subrc = 0.
 bbs_fieldtab-rfield = 'SPRCTR'.
 modify bbs_fieldtab index sy-tabix.
endif.
read table bbs_fieldtab with key rfield = 'BUKRS'.
if sy-subrc = 0.
 bbs_fieldtab-rfield = 'RBUKRS'.
 modify bbs_fieldtab index sy-tabix.
endif.
Unicode
class cl_abap_char_utilities definition load.
clear hex00 with cl_abap_char_utilities=>minchar.
clear hexff with cl_abap_char_utilities=>maxchar.
endform. " INIT_VARS
 FORM FILL_LISTHEADER *
 List-Header in Abhängigkeit der selektierten Daten *
form fill_listheader.
read table i_glpca index 1.
if sy-subrc ne 0.
 exit.
endif.
t_listheader-typ = 'S'.
t_listheader-key = 'Ledger '(h01).
if cnt_rldnr <= 1.
 t_listheader-info = i_glpca-rldnr.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Kostenrechnungskreis'(h02).
if cnt_kokrs <= 1.
 t_listheader-info = i_glpca-kokrs.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Buchungskreis '(h03).
if cnt_bukrs <= 1.
 t_listheader-info = i_glpca-rbukrs.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Buchungsperiode '(h04).
if cnt_poper <= 1.
 t_listheader-info = i_glpca-poper.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
if cnt_ryear <= 1.
 t_listheader-typ = 'S'.
 t_listheader-key = 'Geschäftsjahr '(h05).
 t_listheader-info = i_glpca-ryear.
 append t_listheader.
endif.
t_listheader-typ = 'S'.
t_listheader-key = 'Version '(h06).
if cnt_rvers <= 1.
 t_listheader-info = i_glpca-rvers.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
endform. "fill_listheader
*& Form FIELDCAT_FILL
*& Aufbau des Feldkataloges für den K_KKB_LIST_DISPLAY, *
*& bzw REUSE_ALV_LIST_DISPLAY, *
*& weitere Infos enthält die FktBaustein-Doku *
form fieldcat_fill.
data: i type i value 0.
refresh t_fieldcat.
Ledger
if cnt_rldnr > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RLDNR'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
afield-key = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Satzart
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RRCTY'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
Version
if cnt_rvers > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RVERS'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Periode
if cnt_poper > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'POPER'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Geschäftsjahr
if cnt_ryear > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RYEAR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Referenzbelegtyp
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'REFDOCCT'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '2'.
afield-seltext_s = 'Typ'(t01).
afield-seltext_m = 'Belegtyp'(t02).
afield-seltext_l = 'Ref.Belegtyp'(t03).
afield-outputlen = 3. "Platz für die Sterne der Zwischensummen
if not show_ref is initial.
afield-key = 'X'.
else.
 afield-no_out = 'X'.
endif.
append afield to t_fieldcat.
Referenzbelegnummer
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'REFDOCNR'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '2'.
afield-seltext_s = 'Refbeleg'(t04).
afield-seltext_m = 'Refbelegnr'(t05).
afield-seltext_l = 'Ref.Belegnummer'(t06).
if not show_ref is initial.
afield-key = 'X'.
else.
 afield-no_out = 'X'.
endif.
append

Hi Prabhu,
You are right, problem is with Field Catalog...
When I use FM 'REUSE_ALV_GRID_DISPLAY' it is dumping...
When i tried with FM 'REUSE_ALV_LIST_DISPLAY' it is working perfectly....
how can i use FM 'REUSE_ALV_GRID_DISPLAY' without dumping????
do i need to pass any thing in FM????
Here is the dump:
Runtime Errors MESSAGE_TYPE_X
 Occurred on 12/21/2006 at 01:03:24
The current application triggered a termination with a short dump.
 What happened?
The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X).
 Error analysis
Short text of error message:
Technical information about the message:
Message classe...... "0K "
Number.............. 000
User, transaction...
Language key........ "E"
Transaction......... "SE38 "
Program............. "SAPLSLVC "
Screen.............. "SAPLSLVC_FULLSCREEN 0500"
Screen line......... 3
Information on where termination occurred
The termination occurred in the ABAP program "SAPLSLVC " in "LINE_OUT_NEW_2".
The main program was "ZRCOPCA02 ".
The termination occurred in line 918 of the source code of the (Include)
program "LSLVCF01 "
of the source code of program "LSLVCF01 " (when calling the editor 9180).
 Source code extract
008880 gs_roid-row_id = rs_row-index * -1.
008890 endif.
008900 gs_roid-sub_row_id = rs_row-rowtype+7(10).
008910 gs_poid-row_id = gs_roid-row_id.
008920 gs_poid-sub_row_id = gs_roid-sub_row_id.
008930 gs_poid-rowtype = rs_row-rowtype.
008940 gs_poid-index = rs_row-index.
008950 insert gs_poid into table rt_poid.
008960 endif.
008970 append gs_roid to rt_roid.
008980
008990 loop at rt_fieldcat assigning <ls_fieldcat> where tech ne 'X' and
009000 no_out ne 'X'.
009010
009020 if gflg_invisible = 'X'.
009030 if <ls_fieldcat>-do_sum is initial.
009040 clear gflg_invisible.
009050 continue.
009060 else.
009070 clear g_col_counter.
009080 clear gflg_invisible.
009090 endif.
009100 endif.
009110
009120 clear gs_lvc_data.
009130 clear g_style.
009140
009150 assign component
009160 <ls_fieldcat>-fieldname of structure rt_data to <g_field>.
009170 if sy-subrc ne 0.
 > message x000(0k).
009190 endif.
009200
009210 g_col_counter = g_col_counter + 1.
009220
009230 gs_lvc_data-row_pos = r_row_counter.
009240 gs_lvc_data-col_pos = g_col_counter.
009250 gs_lvc_data-row_id = gs_roid-row_id.
009260 gs_lvc_data-sub_row_id = gs_roid-sub_row_id.
009270
009280 * Endtotal and average
009290 if rs_row-rowtype(1) ca 'T' and <ls_fieldcat>-do_sum = 'C'.
009300 * save the actual grouplevel information
009310 gs_grouplevels = rs_grouplevels.
009320 clear g_lines.
009330
009340 * get number of lines of the collect table
009350 describe table rt_data lines g_lines.
009360 * if there is only one line or the field has no references so
009370 * that only the first line has to be considered
Thanks,
fractal
null

Printing ABAP List(Report output - SE38) in A3 format

I have a requirement to print the ABAP report in A3 page format. I am using LP01 printer and in in SPAD transcation I Changed the Tab "Output Attributes"
Paper tray = "Paper tray 3" and Tab "Tray Info" Tray 3 = "DINA3" still the report gets print in A4 page format.
Even i tried by changing the lize size and line count...still .... it prints in A4 format only.
Could you let me know what exactly I need to in order to print my report output in A3 Page format.
Waiting for your reply.
Thanks in Advance,
Steevan

Hi,
Check this below link
http://www.sap-img.com/basis/how-can-i-print-a3-format-in-sap.htm
Cheers!!
VEnk@

Send the report output in Email in the case of HR ABAP

Hi
 how can i send the output of report in email when i am doin the HR ABAP report .
 This report will be sheduled to run automatically every day.
If any body can help please send the answer.
Thanks.

hi,
u have to use excel sheet attachment with mail.
u can put internal table data into excel sheet...
sample code...for attachment u have to use objbin..
clear objbin.
refresh objbin.
this is heading purpose
CONCATENATE 'Name' 'PS No.' 'Grade' 'Location' 'OD' 'DOB'
 INTO objbin SEPARATED BY con_tab.
CONCATENATE con_cret objbin INTO objbin.
APPEND objbin.
loop at it_email into wa_email.<<<<----intenal table
this is actual data from internal table
CONCATENATE
 wa_email-emp_ename
 wa_email-emp_pernr
 wa_email-persk
 loc
 wa_email-od
 wa_email-dob
 INTO objbin SEPARATED BY con_tab.
 CONCATENATE con_cret objbin INTO objbin.
 APPEND objbin.
 CLEAR objbin.
reclist-receiver = email.
reclist-rec_type = 'U'.
reclist-receiver = 'TC12'.
reclist-rec_type = 'B'.
APPEND reclist.
CLEAR objpack.
att_type = 'XLS'.<<<<<--attachment type
objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = att_type.
objpack-obj_name = 'Attachment'.
objpack-obj_descr = 'Report.xls'.
APPEND objpack.
*Function module to send email with an attachment
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 document_data = docdata
 put_in_outbox = 'X'
 commit_work = 'X'
 TABLES
 packing_list = objpack
 object_header = objhead
 contents_bin = objbin
 contents_txt = objtxt
 receivers = reclist
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4
 parameter_error = 5
 x_error = 6
 enqueue_error = 7
 OTHERS = 8.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
 MESSAGE s899(m3) WITH 'Mail sent successfully!'.
ENDIF.
i hope it will be useful,
regards
vivek

Statistics report using ABAP- SXMB_MONI output

Dear all,
I would like to create an ABAP report which should giveme the details of one particular interface. The details are like How many messages processed, how many of them are success status and how many of them are in error status on daily basis.
Ideally this is like our SXMB_MONI output where we can choose Sender interface and time interval to get these details. But i want to have a daily job to run this query only for one interface.
Is it really possible? If yes, how?
Note: DO NOT SEND any links for SAP PI enhanced monitoring, Payload Search using ABAP report..etc. i had implemented this in my project:)
Thanks
Rajesh
Edited by: Rajesh on Jan 25, 2011 2:38 PM

Not sure if you already refered this
http://wiki.sdn.sap.com/wiki/display/Snippets/PIMonitoringFunctionality-FetchingDatafromSXMB_MONIStandardTables-PartIII
Regards,
srinivas

How we can display the running time as an output by writting abap report?

hi to all,
my name ahmed iam just abap fresher.i know java/j2ee very well.
i want to display the runing time as an output of abap report.Is it possible if possible how.

Hi,
system field SY-UZEIT
WRITE : SY-UZEIT.
Regards,
V.Balaji
Reward if Usefull...

Convert ABAP Report's Output into PDF Format..

Hello Experts,
I want to convert the outout of an ABAP report to an PDF file. I have succedded in doing the following :
Data statistics -
Number of
Records passed ---4
After executing the program RSTXPDFT4, i can get PDF file saying number of records in the above format...
But i want to have the output of the report in PDF. suppose a list is being displayed in the output olf the ABAP report, i want to save that report in PDF format....
Please help........
Anupam...

Hi Anupam,
Try this way
<pre>
REPORT ztest_notepad.
"Variables
DATA:
 l_lay TYPE pri_params-paart,
 l_lines TYPE pri_params-linct,
 l_cols TYPE pri_params-linsz,
 l_val TYPE c,
 l_no_of_bytes TYPE i,
 l_pdf_spoolid LIKE tsp01-rqident,
 l_jobname LIKE tbtcjob-jobname,
 l_jobcount LIKE tbtcjob-jobcount,
 spoolno TYPE tsp01-rqident.
*Types
TYPES:
 t_pripar TYPE pri_params,
 t_arcpar TYPE arc_params.
"Work areas
DATA:
 lw_pripar TYPE t_pripar,
 lw_arcpar TYPE t_arcpar.
DATA:
 it_t100 TYPE t100 OCCURS 0 WITH HEADER LINE,
 it_pdf TYPE tline OCCURS 0 WITH HEADER LINE.
"Start-of-selection.
START-OF-SELECTION.
l_lay = 'X_65_132'.
l_lines = 65.
l_cols = 132.
"Read, determine, change spool print parameters and archive parameters
CALL FUNCTION 'GET_PRINT_PARAMETERS'
 EXPORTING
 in_archive_parameters = lw_arcpar
 in_parameters = lw_pripar
 layout = l_lay
 line_count = l_lines
 line_size = l_cols
 no_dialog = 'X'
 IMPORTING
 out_archive_parameters = lw_arcpar
 out_parameters = lw_pripar
 valid = l_val
 EXCEPTIONS
 archive_info_not_found = 1
 invalid_print_params = 2
 invalid_archive_params = 3
 OTHERS = 4.
IF l_val <> space AND sy-subrc = 0.
 lw_pripar-prrel = space.
 lw_pripar-primm = space.
 NEW-PAGE PRINT ON
 NEW-SECTION
 PARAMETERS lw_pripar
 ARCHIVE PARAMETERS lw_arcpar
 NO DIALOG.
ENDIF.
"Get data
SELECT *
FROM t100
INTO TABLE it_t100
UP TO 100 ROWS
WHERE sprsl = sy-langu.
" Writing to Spool
LOOP AT it_t100.
 WRITE:/ it_t100.
ENDLOOP.
NEW-PAGE PRINT OFF.
CALL FUNCTION 'ABAP4_COMMIT_WORK'.
spoolno = sy-spono.
"Convert spool to PDF
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = spoolno
 no_dialog = ' '
 IMPORTING
 pdf_bytecount = l_no_of_bytes
 pdf_spoolid = l_pdf_spoolid
 btc_jobname = l_jobname
 btc_jobcount = l_jobcount
 TABLES
 pdf = it_pdf.
"Download PDF file C Drive
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 filename = 'C:\itab_to_pdf.pdf'
 filetype = 'BIN'
 TABLES
 data_tab = it_pdf. </pre>
Thanks
Venkat.O

ABAP Report : show commented code in output

Hi,
I have to display only commented code as the output.
User will give the program (abap report) name and it should display only commented lines in that program.
Is there any option or command or tcodes that can extract only selected text?
Pls advise.

Run the program below, i hope it suits ur requirement
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE lv_frttl.
PARAMETERS: program LIKE sy-repid.
SELECTION-SCREEN END OF BLOCK b1.
DATA: gt_code(255) TYPE c OCCURS 0,
      gv_code      LIKE LINE OF gt_code,
      gt_code2(255) TYPE c OCCURS 0,
      temp like gv_code.
INITIALIZATION.
sets the value for the title of the parameters block
lv_frttl = 'Parameter'.
START-OF-SELECTION.
READ REPORT program INTO gt_code.
LOOP AT gt_code INTO gv_code.
    if gv_code+0(1) eq '*'.
      write:/ gv_code.
    endif.
endloop.
Reward points if useful, get back in case of query...
Cheers!!!

ABAP Report output to MS SharePoint

Similar Messages

Maybe you are looking for