Download total BSP

how to download the BSP page? i would like to download total BSP page contents.

Well the only thing you are able to is exporting the data you have to Excel.
The formatting of the BSP cannot be transported to Excel.
How to transfer data from a controller to excel via a HTTP response is show within this blogs.
/people/thomas.jung3/blog/2005/02/14/bsp-and-microsoft-excel--learning-to-live-together
/people/thomas.jung3/blog/2005/02/23/bsp-and-microsoft-excel--learning-to-live-together-part-2
The blogs themselves show how an excel export from an internal table works.
But I can recommend to extend this by using a cached response. This means an additional response, that might be called via an iFrame within your BSP View.

Similar Messages

Download a BSP application

Hi,
stupid question : is there a way to download a bsp application into a .txt file for instance and upload it in another system like for Abap programs?
Regards & Happy new year,
Huy

Hallo Huy,
In R/3 systems, the transport system is the best way to move stuff between systems. You can place all the objects you wish onto a transport of copies, export it, and import the transport into the new system. The starting point is transaction SE09. You might need the help/approval of a system administrator, depending on your rights, etc. This is the simplest and best way to do it.
If you should wish to develop your solution, look at CL_BSP_API_GENERATE. It is an API to create BSP applications.
You can also look at our own report BSP_EXPORT_CLASSES (transaction SE38) that we use to dump BSP applications into text files. We use it for checking that our SP systems are in sync with our development system.
brian

Presentation Server Download from BSP Page

Hi,
I am using the class cl_bsp_utility method DOWNLOAD and getting the Wait...Your request is being processed
message.
I have read other blogs that give an alternative solution with a 1px by 1 px iFrame.
Also, I have seen a couple of posts say that we need to undo the <xhtmlb:protectDoubleSubmit> tag.
I have put the event handler code on an image click and have no idea where to do this
<xhtmlb:protectDoubleSubmit>.
Does someone have any idea.
Please help.

Hi,
I am not understanding exactly where your problem is, but you use the tag in your BSP code somewhere between the opening <HTMLB:CONTENT> and the closing </HTMLB:CONTENT>.
BSP element <xhtmlb:protectDoubleSubmit> can be used within an HTMLB:form BSP element to prevent a user from triggering a new event until the first event has been processed on the server and a response has been sent to the browser, where it was received.
This makes sense in particular if response times exceed a few hundred milliseconds, as in these cases users tend to press a radiobutton again to speed up the response.
The tag itself does not trigger an event that you can capture in OnInputProcessing or in DoHandleEvent and the message shows up automatically.

MIME object download by BSP with 'Save as' box

hello ,
i am trying to download a Excel file which is in MIME objects in my BSP application. From portal i want to download this with 'Save as' box . Currently excel file is opening and i have to save it manually on local drive.
can u suggest me any solution to open 'Save as ' dialogue box to download the MIME object on my local hard-disk drive by using BSP application.
Regards

Hi there,
I'm getting the same issue with the following code:
header("Pragma: public");
header("Expires: 0");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Cache-Control: private",false);
header("Content-Type: application/force-download");
header("Content-Disposition: attachment; filename=\"$newFileName\";");
header("Content-Transfer-Encoding: binary");
header("Content-Length: ". filesize($fileName) );
echo $fileData;
The only issue seems to be with the filename being set to that of the php script. The contents of the file are correct. Have you had any luck with this issue?
Cheers,
Jeremy

PDF download from BSP application

hi all,
With the bellow code i am able to download to PDF from BSP application
Issue is when i click on the download button waiting popup window is not disappearing even after PDF displayed.
Please help me to resolve how to stop this waiting popup window.
response->delete_header_field( name = 'Cache-Control' ). "#EC NOTEXT
response->delete_header_field( name = 'Expires' ).        "#EC NOTEXT
response->delete_header_field( name = 'Pragma' ).         "#EC NOTEXT
Deactivated because of Note 904314 and Kompression in Kernel
response->set_compression( options = '4' ).
response->set_header_field( name = 'content-type'
                              value = 'application/pdf' ).
response->set_header_field(
                     name = 'cache-control'
                     value = 'max-age=0' ).
    response->set_header_field(
                       name = 'content-disposition'
                       value = 'attachment; filename=candidate.pdf' ).
l_pdf_len = XSTRLEN( l_pdf_xstring ).
response->set_data( data   = l_pdf_xstring
                      length = l_pdf_len ).
navigation->response_complete( ).
Any help on this is highly appreciated.
Thanks,
Ravi

May be you can navigate to another page AFTER the response_complete() method and show the message that 'PDF is downloaded successfully'
or something meanful message. so that it will get a response back from server and 'wait...Processing' message might disappear.
I'm not sure and didnt try..may be you can give it a try and let us know..
navigation->response_complete( ).
navigation->goto_page(....)

Hierarchy download using bsp

I have a requirement where I have to display all hierarchies on an infoobject to a user. The user should be able to select a particular hierarchy and download it as a flat file to a location. Can this be done using bsp?

Hi,
You can list the hierarchies of an InfoObject using table RSHIEDIR.
When the user clicks on a hierarchy name, you can get its content in an internal table using Function Module RSSH_HIERARCHY_READ.
Finally, you will have to process the internal table to send it as a flat file in HTTP response at the BSP level, so that the user can download it.
Regards,
Tanguy

File download via BSP using different SAP versions

Hi Everyone,
I have been using code based on Brian McKellar's excellent Blog (/people/mark.finnern/blog/2003/09/23/bsp-programming-handling-of-non-html-documents). The code works great in the following system:
SAP_BASIS     620     0038     SAPKB62038     SAP Basis Component
SAP_ABA     620     0038     SAPKA62038     Cross-Application Component
However i am now trying the same code in our new 7.00 SAP system which is a
SAP_ABA     700     0013     SAPKA70013     Cross-Application Component
SAP_BASIS     700     0013     SAPKB70013     SAP Basis Component
When I try it in our 7.00 system, the download does not work. It tells me that the document is incomplete or corrupted.
Specifically the code that is being used is as follows:
data: cached_response type ref to if_http_response,
       lv_xlen type i,
       lv_guid type guid_32.
create object cached_response
       type cl_http_response exporting add_c_msg = 1.
lv_xlen = xstrlen( lv_xstring ).
cached_response->set_data( data   = lv_xstring
                    length = lv_xlen ).
cached_response->set_header_field(
      name = if_http_header_fields=>content_type
      value = lv_mtype_string ).
cached_response->set_status( code = 200 reason = 'OK' ).
cached_response->server_cache_expire_rel( expires_rel = 120 ).
call function 'GUID_CREATE'
importing
    ev_guid_32 = lv_guid.
concatenate runtime->application_url '/' lv_guid '.'
            lv_doc_hdr-obj_type
            into lv_cached_url.
cl_http_server=>server_cache_upload( url      = lv_cached_url
                                     response = cached_response ).
call method runtime->server->response->redirect( url = lv_cached_url ).
navigation->response_complete( ). " signal that response is complete
So now I have a choice: I can log an OSS but I doubt SAP will help as this is 'custom code'. It is in our Z BSP.
Can anyone suggest how I can even begin to debug this issue?
Regards,
Alon

i tried the following code on a WAS 7.00 SP14 and it works as expected.
create object cached_response type cl_http_response exporting
add_c_msg = 1.
    cached_response->set_data( file_content ).
    cached_response->set_header_field( name =
if_http_header_fields=>content_type
                                       value = file_mime_type ).
    cached_response->set_status( code = 200 reason = 'OK' ).
    cached_response->server_cache_expire_rel( expires_rel = 180 ).
    call function 'GUID_CREATE'
      importing
        ev_guid_32 = guid.
    concatenate runtime->application_url '/' guid into display_url.
    cl_http_server=>server_cache_upload( url      = display_url
                                         response = cached_response ).
call method runtime->server->response->redirect( url = display_url ).
navigation->response_complete( ).

ALV grid report - Download total to excel

Hi,
In ALV report I am calculating Gross profit%.
*Gross profit% = ( (NetValue- Cost value) * 100 )/ CostValue.*
Report strcture is as below.
Region     Article             Netvalue      CostValue    Grossprofit%
    A       1        100          80            25
    A      2        150          140          7.14
total                             250          220     13.64
In total i am calulating Gross profit over Total-Netvalue and Total-Costvalue.
report is working fine but while downloading data in excel or any other format, Gross profit% in Total row comes up as summation of all the rows. for example if i download above records grossprofit% will be 32.14 which is wrong.
Please suggest.

it.s normal,
please deactivate option sum on excel file.
regards
r

Problem in multiple PDF downloads in BSP.

Hi,
         My BSP application downloads the outputs of three smartforms as PDF files. The BSP contains three checkboxes and a button. Each checkbox is the option to download the output of a smartform. I have declared three Page Attributes - w_chk1, w_chk2 and w_chk3 which stores the value of the checkboxes (i.e. whether they are checked or not) and I have checked their "Auto" values. My requirement is, if the user selects one or more checkboxes, then the corresponding PDF files will be downloaded. And problem that I am facing is, if the user checks more than one checkbox, then the PDF file of only the last checked checkbox is getting downloaded and the first ones are getting ignored. Please suggest what could possibly be the problem. I have used the following code to implement the download functionality -
Code in the OnInputProcessing method -
****Some codes go here here.*********
if not w_chk1 is initial.
**** Some codes go here to get the pdf output of the smartform 1 ***
         CALL METHOD cl_bsp_utility=>download
               EXPORTING
                  object_s            = w_pdfdata1
                  content_type        = 'application/download'
                 content_disposition = 'attachment;filename=smartform1.pdf'
                 res ponse            = is_m_response
                 navigation          = is_navigation.
endif.
if not w_chk2 is initial.
**** Some codes go here to get the pdf output of the smartform 2 ******
         CALL METHOD cl_bsp_utility=>download
               EXPORTING
                  object_s            = w_pdfdata2
                  content_type        = 'application/download'
                 content_disposition = 'attachment;filename=smartform2.pdf'
                 res ponse            = is_m_response
                 navigation          = is_navigation.
endif.
if not w_chk2 is initial.
**** Some codes go here to get the pdf output of the smartform 3 ******
         CALL METHOD cl_bsp_utility=>download
               EXPORTING
                  object_s            = w_pdfdata3
                  content_type        = 'application/download'
                 content_disposition = 'attachment;filename=smartform3.pdf'
                 res ponse            = is_m_response
                 navigation          = is_navigation.
endif.

Hi,
Declare a internal table and try to append the checkbox values..and run once..
check the last conditon once agian
if not w_chk2 is initial.
Hope this is helpful.let me know if you still have any problem
Thanks
kalyan

Downloaded "total recipe search"which has taken over, has a poor reputation, and I can not remove it - help please

I was looking for particular recipes, and when I downloaded them
a new tool bar arrived called Total recipe search. Now every time I access mozilla firefox "wot" informs me the site has a poor reputation. I cannot find a download file as it went straight to the browser, and it will not "restore" to a previous date. I do not know how to remove this. I have used Firefox for years. Please help if you can

i had it too in safari i you have a mac go to your preferences and choose the extentions icon there i should give you the option to un install.... hopefully it helps i know firefox is different than safari

I downloaded "Total War Empire" from app store but i keep getting an error message?

I have Downloaded Empire by Total war through the app store
however i keep getting an error message.
What can i do?

*rubbing crystal ball*
And the error message says?

Re: Downloading BSP Code to PC for backup

Hi,
Is there any method or code to download BSP code to local PC? I found a link named SAPLINK but not sure how to use this.
Please help me.
Regards,
Anshuman

Hi,
ABAP prog for downloading BSP application to PC:
Selection Text:
CHK_ATTR Attributes
CHK_BSP DownLoad BSP
CHK_CLS DownLoad Class
CHK_CONT Controllers
CHK_EVTS Events
CHK_FRAG Page Fragments
CHK_METH Methods
CHK_PGFL Page with Flow Logic
CHK_TYPE Types
CHK_VIEW Views
P_DIRCLS Folder Name
P_DIRNAM Folder Name
R_ALL All Components
R_BSPALL All Components
R_BSPPAR Partial Components
R_PAR Partial Components
S_BSPAPP BSP Application/s
S_CLSNAM Class Name/s
*& Report Z_UMA_BSP_DOWNLOAD
report z_uma_bsp_download message-id zmsgcls line-size 180.
* TABLES
tables: seoclass,
o2appl,
o2pagcon.
* TYPE-POOLS
type-pools: seoo,seos,seor,seof,seot,seok,seop.
* TYPE DEFINITIONS
types: begin of t_class,
clsname type seoclass-clsname, "Class Name
descrip type seoclasstx-descript, "Class Description
end of t_class.
types: begin of t_component,
clsname type seoclsname,
cmpname type seocmpname,
cmptype type seocmptype,
mtdtype type seomtdtype,
descrip type seodescr,
end of t_component.
types: begin of t_format,
cmpname(30),
decltyp(20),
exposur(15),
typtype(15),
type(110),
attval(110),
desc(100),
end of t_format.
types: begin of t_format1,
pad(4),
sconame(30),
decl(10),
pass(20),
optn(10),
typtype(15),
type(100),
valu(100),
desc(100),
end of t_format1.
types: begin of t_format2,
pad(4),
sconame(30),
desc(100),
end of t_format2.
types: begin of t_mtd_compo,
clsname type seoclsname,
cmpname type seocmpname,
sconame type seosconame,
scotype type seoscotype,
descrip type seodescr,
end of t_mtd_compo.
types: begin of t_bspappl,
applname type o2applname,
applclas type o2applclas,
startpage type o2pageext,
stateful type o2stateful,
descrip type o2descr,
end of t_bspappl.
types: begin of t_pagdetl,
applname type o2applname,
pagekey type o2page,
pagename type o2pageext,
implclass type o2ctrcls,
pagetype type o2pagtyp,
controllerurl type o2pageext,
lifetime type o2lifetime,
state type o2pagstate,
is_error_page type o2errpag,
error_page type o2pageext,
browser_cache type o2bcache,
server_cache type o2scache,
author type cnam,
createdon type rdir_cdate,
changedby type unam,
changedon type rdir_udate,
end of t_pagdetl.
types: begin of t_pagcon,
applname type o2applname,
pagekey type o2page,
objtype type o2objtype,
version type r3state,
end of t_pagcon.
types: begin of t_pagedata,
content type o2pageline_table,
ev_handler type o2pagevh_tabletype,
parameters type o2pagpar_tabletype,
typesource type rswsourcet,
xml_source type xstring,
otr_guids type bsp_guids,
html_pool type string,
end of t_pagedata.
types : begin of t_scr_out,
appname type string,
component type string,
path type string,
status type string ,
etype type c,
end of t_scr_out.
* DATA DECLARATIONS
data: v_langu type sy-langu,
v_filename type string,
x_format type t_format,
x_format1 type t_format1,
x_format2 type t_format2,
v_lines type i,
x_mtdkey type seocpdkey,
x_transport type trkey,
v_sourcename type programm,
v_repid type sy-repid,
v_dynnr type sy-dynnr,
v_uzeit type sy-uzeit,
v_filestr type string,
v_datum type sy-datum,
r_temp_all type c,
v_cnt_cls type string.
INTERNAL TABLE DECLARTIONS
data: it_class type standard table of t_class with header line,
it_compo type standard table of t_component with header line,
it_mtd_compo type standard table of t_mtd_compo with header line,
it_attributes type seoo_attributes_r,
it_methods type seoo_methods_r,
it_events type seoo_events_r,
it_types type seoo_types_r,
it_parameters type seos_parameters_r,
it_exceps type seos_exceptions_r,
it_implementings type seor_implementings_r,
it_redefinitions type seor_redefinitions_r,
it_friendships type seof_friendships_r,
it_typepusages type seot_typepusages_r,
it_clsdeferrds type seot_clsdeferrds_r,
it_intdeferrds type seot_intdeferrds_r,
it_explore_inheritance type seok_cls_typeinfos,
it_explore_implementings type seok_int_typeinfos,
it_aliases type seoo_aliases_r,
it_bspappl type standard table of t_bspappl with header line,
it_pagdetl type standard table of t_pagdetl with header line,
it_pagcon type standard table of t_pagcon with header line,
it_source type t_pagedata,
it_scr_out type standard table of t_scr_out with header line,
it_data(400) occurs 0 with header line,
wa_source type line of o2pageline_table,
wa_pagecon_key type o2pconkey.
* CONSTANTS DECLARATIONS
constants: gc_cmp_attr type n value 0, "COMPONENT ATTRIBUTE
gc_cmp_meth type n value 1, "COMPONENT METHOD
gc_cmp_evnt type n value 2, "COMPONENT EVENT
gc_cmp_type type n value 3, "COMPONENT TYPE
gc_mtd_meth type n value 0, "METHOD METHOD
gc_mtd_evnt type n value 1, "METHOD EVENT
gc_mtd_cons type n value 2, "METHOD CONSTRUCTOR
gc_mtd_dest type n value 3, "METHOD DESTRUCTOR
gc_mtd_getm type n value 4, "METHOD GET
gc_mtd_setm type n value 5, "METHOD SET
gc_sco_para type n value 0, "SCOPE PARAMETER
gc_sco_excp type n value 1, "SCOPE EXCEPTION
gc_exp_priv type n value 0, "EXPOSURE PRIVATE
gc_exp_prot type n value 1, "EXPOSURE PROTECTED
gc_exp_publ type n value 2, "EXPOSURE PUBLIC
gc_typ_like type n value 0, "TYPE LIKE
gc_typ_type type n value 1, "TYPE TYPE
gc_typ_otyp type n value 2, "TYPE OBJECT TYPE
gc_typ_tref type n value 3, "TYPE TYPE REF TO
gc_atr_inst type n value 0, "ATTRIBUTE INSTANCE
gc_atr_stat type n value 1, "ATTRIBUTE STATIC
gc_atr_cnst type n value 2, "ATTRIBUTE CONSTANT
gc_par_impo type n value 0, "PARAMETER IMPORTING
gc_par_expo type n value 1, "PARAMETER EXPORTING
gc_par_chng type n value 2, "PARAMETER CHANGING
gc_par_retn type n value 3, "PARAMETER RETURNING
gc_pas_valu type n value 0, "PARAMETER PASS BY VALUE
gc_pas_refr type n value 1, "PARAMETER CALL BY REFERENCE
gc_yes type c value 'X',
gc_no type c value space,
gc_tab(8) type c value ' ',
gc_bsp_ctrl type o2pagtyp value 'C',
gc_bsp_pgfr type o2pagtyp value 'X',
gc_bsp_pgfl type o2pagtyp value space,
gc_bsp_view type o2pagtyp value 'V',
gc_lft_upgc type c value space,
gc_lft_requ type c value '1',
gc_lft_sess type c value '2'.
* SELECTION SCREENS
*Selection Screen for the Options
selection-screen : begin of block b_main with frame title text-009.
parameters : chk_bsp as checkbox user-command ucom,
chk_cls as checkbox user-command ucom1.
selection-screen : end of block b_main.
*Selection Screen for the BSP Application
selection-screen : begin of block b_bsp1 with frame title text-005.
selection-screen : begin of block b_bsp2 with frame title text-006.
select-options : s_bspapp for o2appl-applname no intervals modif id bsp.
parameters : p_dirnam type rlgrap-filename default 'C:\' modif id bsp.
selection-screen : end of block b_bsp2.
selection-screen : begin of block b_bsp3 with frame title text-007.
parameters : r_bspall radiobutton group rad1 user-command u1 modif id bsp default 'X',
r_bsppar radiobutton group rad1 modif id bsp.
selection-screen : begin of block b_bsp4 with frame title text-008.
parameters : chk_cont as checkbox modif id bs1,
chk_view as checkbox modif id bs1,
chk_pgfl as checkbox modif id bs1,
chk_frag as checkbox modif id bs1.
selection-screen : end of block b_bsp4.
selection-screen : end of block b_bsp3.
selection-screen : end of block b_bsp1.
*Selection Screen for Class Download
selection-screen : begin of block b1 with frame title text-001.
selection-screen : begin of block b2 with frame title text-002.
select-options : s_clsnam for seoclass-clsname no intervals modif id cls.
parameters : p_dircls like rlgrap-filename default 'C:\' modif id cls.
selection-screen : end of block b2.
selection-screen : begin of block b3 with frame title text-003.
parameters : r_all radiobutton group rbsp user-command u2 modif id cls default 'X',
r_par radiobutton group rbsp modif id cls.
selection-screen : begin of block b4 with frame title text-004.
parameters : chk_attr as checkbox modif id cl1,
chk_meth as checkbox modif id cl1,
chk_evts as checkbox modif id cl1,
chk_type as checkbox modif id cl1.
selection-screen : end of block b4.
selection-screen : end of block b3.
selection-screen : end of block b1.
* INTIALIZATION
initialization.
v_repid = sy-repid.
v_dynnr = sy-dynnr.
v_langu = sy-langu.
* AT SELECTION-SCREEN OUTPUT
at selection-screen output.
loop at screen.
if chk_bsp = 'X'.
if screen-group1 = 'BSP' or screen-group1 = 'BS1'.
screen-active = 1.
endif.
else.
if screen-group1 = 'BSP' or screen-group1 = 'BS1' .
screen-active = 0.
endif.
endif.
if r_bspall = 'X'.
if screen-group1 = 'BS1'.
screen-active = 0.
endif.
else.
if screen-group1 = 'BS1'.
screen-active = 1.
endif.
endif.
modify screen.
endloop.
loop at screen.
if chk_cls = 'X'.
if screen-group1 = 'CLS' or screen-group1 = 'cl1'.
screen-active = 1.
endif.
else.
if screen-group1 = 'CLS' or screen-group1 = 'cl1'.
screen-active = 0.
endif.
endif.
if r_all = 'X'.
if screen-group1 = 'CL1'.
screen-active = 0.
endif.
else.
if screen-group1 = 'CL1'.
screen-active = 1.
endif.
endif.
modify screen.
endloop.
* AT SELECTION-SCREEN
at selection-screen.
* START OF SELECTION
start-of-selection.
* If the user selected BSP check box then we need to do down load the BSP application
if chk_cls is initial and
chk_bsp is initial.
message i001 with 'Select any download option'(007).
exit.
endif.
if chk_bsp = 'X'.
refresh it_bspappl.
clear it_bspappl.
if s_bspapp is initial.
set pf-status'AA'.
message i002 with 'Enter BSP Application Names'(010).
exit.
endif.
* Check the directory name is entered or not
if p_dirnam is initial.
message i004 with 'Enter Directory name for BSP Download'(012).
exit.
else.
if r_bspall = 'X'.
clear : chk_cont,chk_view,chk_pgfl,chk_frag.
endif.
select a~applname
a~applclas
a~startpage
a~stateful
b~text into table it_bspappl
from o2appl as a inner join o2applt as b
on a~applname = b~applname
where a~applname in s_bspapp and
a~version = 'A' and
b~langu = v_langu.
* Check we got any entries in the class internal table
clear v_lines.
describe table it_bspappl lines v_lines.
if v_lines > 0.
loop at it_bspappl.
perform save_bspappl_details using it_bspappl.
perform get_bspappl_compo using it_bspappl.
endloop.
else.
write:/ 'Enter Valid BSP Application Names'.
endif.
endif.
endif.
* If the user selected class check box then we need to do down load the class
if chk_cls = 'X'.
refresh it_class.
clear it_class.
clear r_temp_all.
* Check Class name is empty or not
if s_clsnam is initial.
message i003 with 'Enter Class Names'(011).
exit.
endif.
* Check the directory name is entered or not
if p_dircls is initial.
message i000 with 'Enter Directory name for Class Download'(008).
exit.
else.
* if user selected All Components in Class Down Load
* then clear all the check box variables
move r_all to r_temp_all.
if r_temp_all = 'X'.
clear: chk_attr,chk_meth,chk_evts,chk_type.
endif.
* get the class name and Class Description from the table SEOCLASS
* for all the classes which user entered in selection screen based on
* the system language
select a~clsname b~descript into table it_class
from seoclass as a left outer join seoclasstx as b
on a~clsname = b~clsname and
b~langu = v_langu
where a~clsname in s_clsnam.
* Check we got any entries in the class internal table
clear v_lines.
describe table it_class lines v_lines.
* if you got any enties in class interbnal table then we need to
* get the other details about that class
if v_lines > 0.
perform add_slash_4dir changing p_dircls.
perform check_dir_exists using p_dircls.
loop at it_class.
perform get_class_details using it_class-clsname 'X' ' '.
endloop.
else.
write:/ 'PLEASE ENTER VALID CLASS NAMES'.
endif.
endif.
endif.
* END OF SELECTION
end-of-selection.
write: /1(25) 'Application Name',
26(25) 'Component Name',
52(50) 'Download Path',
102(50) 'ErrorSuccess Message'.
write:/ sy-uline.
loop at it_scr_out.
write:/1(25) it_scr_out-appname,
26(25) it_scr_out-component,
52(50) it_scr_out-path,
102(50) it_scr_out-status.
endloop.
*& Form GET_CLASS_DETAILS
* used to get the other details of the class
form get_class_details using p_clsname p_check p_filename.
* Data Declarations
data: x_class type vseoclass,
x_inheritance type vseoextend,
x_seoclskey type seoclskey,
x_attributes type line of seoo_attributes_r,
x_methods type line of seoo_methods_r,
x_events type line of seoo_events_r,
x_types type line of seoo_types_r,
x_parameters type line of seos_parameters_r,
x_exceps type line of seos_exceptions_r,
x_implementings type line of seor_implementings_r,
x_redefinitions type line of seor_redefinitions_r,
x_friendships type line of seof_friendships_r,
x_typepusages type line of seot_typepusages_r,
x_clsdeferrds type line of seot_clsdeferrds_r,
x_intdeferrds type line of seot_intdeferrds_r,
x_explore_inheritance type line of seok_cls_typeinfos,
x_explore_implementings type line of seok_int_typeinfos,
x_aliases type line of seoo_aliases_r.
* REFRESH & CLEAR ALL THE VARIABLES.
refresh: it_attributes,it_methods,it_events,it_types,it_parameters,
it_exceps,it_implementings,it_redefinitions,it_friendships,
it_typepusages,it_clsdeferrds,it_intdeferrds,it_data,
it_explore_inheritance,it_explore_implementings,it_aliases.
clear : it_attributes,it_methods,it_events,it_types,it_parameters,
it_exceps,it_implementings,it_redefinitions,it_friendships,
it_typepusages,it_clsdeferrds,it_intdeferrds,it_data,
it_explore_inheritance,it_explore_implementings,it_aliases.
clear : x_attributes,x_methods,x_events,x_types,x_parameters,
x_exceps,x_implementings,x_redefinitions,x_friendships,
x_typepusages,x_clsdeferrds,x_intdeferrds,
x_explore_inheritance,x_explore_implementings,x_aliases,
x_class,x_inheritance,x_seoclskey.
* SET THE CLASS NAME TO THE STRUCTURE
x_seoclskey-clsname = p_clsname.
call function 'SEO_CLASS_TYPEINFO_GET'
exporting
clskey = x_seoclskey
importing
class = x_class
attributes = it_attributes
methods = it_methods
events = it_events
types = it_types
parameters = it_parameters
exceps = it_exceps
implementings = it_implementings
inheritance = x_inheritance
redefinitions = it_redefinitions
friendships = it_friendships
typepusages = it_typepusages
clsdeferrds = it_clsdeferrds
intdeferrds = it_intdeferrds
explore_inheritance = it_explore_inheritance
explore_implementings = it_explore_implementings
aliases = it_aliases
exceptions
not_existing = 1
is_interface = 2
model_only = 3
others = 4.
if sy-subrc <> 0.
it_scr_out-component = p_clsname.
it_scr_out-status = 'ERROR'.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
* DOWNLOAD CLASS INFORMATION
perform download_class_info using x_class.
* DOWNLOAD INHERITANCE INFORMATION
perform download_class_inht using x_inheritance.
* DOWNLOAD CLASS IMPLEMENTATION
perform download_class_otherdetails using p_clsname seop_ext_class_locals_imp.
* DOWNLOAD CLASS TYPES
perform download_class_otherdetails using p_clsname seop_ext_class_locals_def.
DOWNLOAD CLASS MACROS
perform download_class_otherdetails using p_clsname seop_ext_class_macros.
DOWNLOAD CLASS ATTRIBUTES
if r_temp_all = 'X' or chk_attr = 'X'.
perform download_class_attr tables it_attributes.
endif.
DOWNLOAD CLASS METHODS
if r_temp_all = 'X' or chk_meth = 'X'.
perform download_class_meth tables it_methods
it_parameters
it_exceps.
endif.
Interface Implementations.
perform download_class_implementation tables it_explore_implementings.
DOWNLOAD CLASS EVENTS.
if r_temp_all = 'X' or chk_evts = 'X'.
perform download_class_evts.
endif.
* DOWNLOAD CLASS TYPE GROUPS.
perform download_class_type_groups.
* DOWNLOAD INTERNAL TYPES
if r_temp_all = 'X' or chk_type = 'X'.
perform download_class_internal_types.
endif.
if p_check = 'X'.
* DOWNLOAD CLASS DEFINITION
perform download_classdef using p_filename.
else.
* while downloading the bsp we need to pass the directory and
* class name to the function module so the file will create
perform download_class using p_check.
endif.
endif.
endform. " GET_CLASS_DETAILS
*& Form DOWNLOAD_CLASS_INFO
* used to download the class information
form download_class_info using p_x_class structure vseoclass.
it_data = p_x_class-clsname.
append it_data.
clear it_data.
it_data = p_x_class-descript.
append it_data.
clear it_data.
endform. " DOWNLOAD_CLASS_INFO
*& Form DOWNLOAD_CLASS_INHT
* used to download the inheritance
form download_class_inht using p_x_inheritance structure vseoextend.
if not p_x_inheritance-refclsname is initial.
concatenate 'INHERITED FROM: ' p_x_inheritance-refclsname into it_data.
append it_data.
clear it_data.
endif.
endform. " DOWNLOAD_CLASS_INHT
*& Form DOWNLOAD_CLASS_ATTR
* text
form download_class_attr tables p_it_attr type seoo_attributes_r.
data: x_attributes type line of seoo_attributes_r.
it_data = '*********************************************************'.
append it_data.
clear it_data.
it_data = 'ATTRIBUTES'.
append it_data.
clear it_data.
it_data = '-----------'.
append it_data.
clear it_data.
loop at p_it_attr into x_attributes.
clear x_format.
* ATTRIBUTE NAME
x_format-cmpname = x_attributes-cmpname.
* ATTRIBUTE DECLARATION LEVEL
case x_attributes-attdecltyp.
when gc_atr_inst.
x_format-decltyp = 'INSTANCE ATTRIBUTE'.
when gc_atr_stat.
x_format-decltyp = 'STATIC ATTRIBUTE'.
when gc_atr_cnst.
x_format-decltyp = 'CONSTANT ATTRIBUTE'.
endcase.
* ATTRIBUTE EXPOSURE
case x_attributes-exposure.
when gc_exp_priv.
x_format-exposur = 'PRIVATE'.
when gc_exp_publ.
x_format-exposur = 'PUBLIC'.
when gc_exp_prot.
x_format-exposur = 'PROTECTED'.
endcase.
* ATTRIBUTE TYPTYPE
case x_attributes-typtype.
when gc_typ_like.
x_format-typtype = 'LIKE'.
when gc_typ_type.
x_format-typtype = 'TYPE'.
when gc_typ_otyp.
x_format-typtype = 'OBJECT TYPE'.
when gc_typ_tref.
x_format-typtype = 'TYPE REF TO'.
endcase.
* ATTRIBUTE REFERNCE TYPE
x_format-type = x_attributes-type.
* ATTRIBUTE INITIAL VALUE
x_format-attval = x_attributes-attvalue.
* ATTRIBUTE DESCRIPTION
x_format-desc = x_attributes-descript.
move x_format to it_data.
append it_data.
clear it_data.
endloop.
it_data = '*********************************************************'.
append it_data.
clear it_data.
endform. " DOWNLOAD_CLASS_ATTR
*& Form DOWNLOAD_CLASS_METH
* used to download the methods of the class
form download_class_meth tables p_it_meth type seoo_methods_r
p_it_parm type seos_parameters_r
p_it_excp type seos_exceptions_r.
data: x_methods type line of seoo_methods_r,
x_params type line of seos_parameters_r,
x_exceps type line of seos_exceptions_r.
clear: x_methods,x_params,x_exceps.
it_data = 'METHODS'.
append it_data.
clear it_data.
it_data = '-------'.
append it_data.
clear it_data.
loop at p_it_meth into x_methods.
clear: x_format.
* METHOD NAME
x_format-cmpname = x_methods-cmpname.
* METHOD DECLARATION TYPE
case x_methods-mtddecltyp.
when gc_atr_inst.
x_format-decltyp = 'INSTANCE METHOD'.
when gc_atr_stat.
x_format-decltyp = 'STATIC METHOD'.
endcase.
* METHOD EXPOSURE
case x_methods-exposure.
when gc_exp_priv.
x_format-exposur = 'PRIVATE'.
when gc_exp_publ.
x_format-exposur = 'PUBLIC'.
when gc_exp_prot.
x_format-exposur = 'PROTECTED'.
endcase.
* METHOD DESCRIPTION.
x_format-desc = x_methods-descript.
move x_format to it_data.
append it_data.
clear it_data.
* DOWNLOAD METHOD PARAMETERS
perform download_method_params tables it_parameters
using x_methods-cmpname.
* DOWNLOAD METHOD EXCEPTIONS
perform download_method_exceps tables it_exceps
using x_methods-cmpname.
* DOWNLOAD METHOD SOURCE
perform download_method_source using it_class-clsname
x_methods-cmpname.
endloop.
* DOWNLOAD RE-DEFINED METHODS IF ANY
perform download_redef_methods.
endform. " DOWNLOAD_CLASS_METH
*& Form DOWNLOAD_METHOD_PARAMS
* used to download the method parameters
form download_method_params tables p_it_params type seos_parameters_r
using p_cmpname.
data: x_parameters type line of seos_parameters_r.
clear: x_parameters.
it_data = '^^^^PARAMETERS'.
append it_data.
clear it_data.
loop at p_it_params into x_parameters where cmpname = p_cmpname.
clear: x_format1.
* METHOD PARAMETER NAME
x_format1-sconame = x_parameters-sconame.
* METHOD PARAMETER DECLARATION TYPE
case x_parameters-pardecltyp.
when gc_par_impo.
x_format1-decl = 'IMPORTING'.
when gc_par_expo.
x_format1-decl = 'EXPORTING'.
when gc_par_chng.
x_format1-decl = 'CHANGING'.
when gc_par_retn.
x_format1-decl = 'RETURNING'.
endcase.
* METHOD PARAMETERS PASSING TYOE
case x_parameters-parpasstyp.
when gc_pas_valu.
x_format1-pass = 'PASS BY VALUE'.
when gc_pas_refr.
x_format1-pass = 'PASS BY REFERENCE'.
endcase.
* METHOD PARAMETER TYPTYPE
case x_parameters-typtype.
when gc_typ_like.
x_format1-typtype = 'LIKE'.
when gc_typ_type.
x_format1-typtype = 'TYPE'.
when gc_typ_otyp.
x_format1-typtype = 'OBJECT TYPE'.
when gc_typ_tref.
x_format1-typtype = 'TYPE REF TO'.
endcase.
* METHOD PARAMETER OPTIONAL/MANDATORY
case x_parameters-paroptionl.
when gc_yes.
x_format1-optn = 'OPTIONAL'.
when gc_no.
x_format1-optn = 'MANDATORY'.
endcase.
* METHOD PARAMETER TYPE
x_format1-type = x_parameters-type.
* METHOD PARAMETER INITIAL VALUE
x_format1-valu = x_parameters-parvalue.
* METHOD PARAMETER DESCRIPTION
x_format1-desc = x_parameters-descript.
move x_format1 to it_data.
append it_data.
clear it_data.
endloop.
endform. " DOWNLOAD_METHOD_PARAMS
*& Form DOWNLOAD_METHOD_EXCEPS
* used to download the Exceptions of methods
form download_method_exceps tables p_it_exceps type seos_exceptions_r
using p_cmpname.
data: x_exceps type line of seos_exceptions_r.
clear: x_exceps.
it_data = '^^^^EXCEPTION'.
append it_data.
loop at p_it_exceps into x_exceps where cmpname = p_cmpname.
clear x_format2.
* METHOD EXCEPTION NAME
x_format2-sconame = x_exceps-sconame.
* METHOD EXCEPTION DESCRIPTION
x_format2-desc = x_exceps-descript.
move x_format2 to it_data.
append it_data.
clear it_data.
endloop.
endform. " DOWNLOAD_METHOD_EXCEPS
*& Form DOWNLOAD_METHOD_SOURCE
* text
form download_method_source using p_clsname
p_cmpname.
data : x_mtdkey type seocpdkey,
x_source type line of seop_source,
it_source type seop_source.
refresh: it_source.
clear : it_source,x_source,x_mtdkey.
x_mtdkey-clsname = p_clsname.
x_mtdkey-cpdname = p_cmpname.
call function 'SEO_METHOD_GET_SOURCE'
exporting
mtdkey = x_mtdkey
importing
source = it_source
exceptions
_internal_method_not_existing = 1
_internal_class_not_existing = 2
others = 3.
if sy-subrc <> 0.
it_scr_out-component = p_cmpname.
it_scr_out-status = ' FAILED '.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
it_data = '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'.
append it_data.
clear it_data.
loop at it_source into x_source.
move x_source to it_data.
append it_data.
clear it_data.
endloop.
it_data = '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'.
append it_data.
clear it_data.
endif.
endform. " DOWNLOAD_METHOD_SOURCE
*& Form DOWNLOAD_REDEF_METHODS
* used to download any redefined methods if any
form download_redef_methods .
data: x_redef type line of seor_redefinitions_r.
loop at it_redefinitions into x_redef.
* DOWNLOAD METHOD SOURCE
perform download_method_source using it_class-clsname
x_redef-mtdname.
endloop.
endform. " DOWNLOAD_REDEF_METHODS
*& Form DOWNLOAD_CLASS_EVTS
* used to download the class events types
form download_class_evts .
data: x_events type line of seoo_events_r.
it_data = 'EVENTS'.
append it_data.
clear it_data.
it_data = '-------'.
append it_data.
clear it_data.
loop at it_events into x_events.
clear: x_format.
* EVENT NAME
x_format-cmpname = x_events-cmpname.
* METHOD DECLARATION TYPE
case x_events-evtdecltyp.
when gc_atr_inst.
x_format-decltyp = 'INSTANCE EVENT'.
when gc_atr_stat.
x_format-decltyp = 'STATIC EVENT'.
endcase.
* EVENT EXPSOURE.
case x_events-exposure.
when gc_exp_priv.
x_format-exposur = 'PRIVATE'.
when gc_exp_publ.
x_format-exposur = 'PUBLIC'.
when gc_exp_prot.
x_format-exposur = 'PROTECTED'.
endcase.
* EVENT DESCRIPTION
x_format-desc = x_events-descript.
append x_format to it_data.
clear it_data.
endloop.
endform. " DOWNLOAD_CLASS_EVTS
*& Form DOWNLOAD_CLASS_TYPE_GROUPS
* used to download the type groups
form download_class_type_groups .
data: x_typep type line of seot_typepusages_r.
it_data = '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'.
append it_data.
clear it_data.
it_data = 'TYPE-GROUPS'.
append it_data.
clear it_data.
it_data = '------------'.
append it_data.
clear it_data.
loop at it_typepusages into x_typep.
it_data = x_typep-typegroup.
append it_data.
clear it_data.
endloop.
endform. " DOWNLOAD_CLASS_TYPE_GROUPS
*& Form DOWNLOAD_CLASS_INTERNAL_TYPES
* used to download the class type internal type definitions
form download_class_internal_types .
data: x_types type line of seoo_types_r.
it_data = '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'.
append it_data.
clear it_data.
it_data = 'INTERNAL TYPES'.
append it_data.
clear it_data.
it_data = '------------'.
append it_data.
clear it_data.
loop at it_types into x_types.
clear: x_format.
* TYPE NAME
x_format-cmpname = x_types-cmpname.
* TYPE EXPSOURE.
case x_types-exposure.
when gc_exp_priv.
x_format-exposur = 'PRIVATE'.
when gc_exp_publ.
x_format-exposur = 'PUBLIC'.
when gc_exp_prot.
x_format-exposur = 'PROTECTED'.
endcase.
* TYPTYPE
case x_types-typtype.
when gc_typ_like.
x_format-typtype = 'LIKE'.
when gc_typ_type.
x_format-typtype = 'TYPE'.
when gc_typ_otyp.
x_format-typtype = 'OBJECT TYPE'.
when gc_typ_tref.
x_format-typtype = 'TYPE REF TO'.
endcase.
* TYPE
x_format-type = x_types-type.
* DESCRIPTION
x_format-desc = x_types-descript.
append x_format to it_data.
clear it_data.
endloop.
endform. " DOWNLOAD_CLASS_INTERNAL_TYPES
*& Form DOWNLOAD_CLASSDEF
* used to download total class to the text file
form download_classdef using p_p_filename.
data: lv_filename type string.
if p_p_filename = ' '.
v_filename = it_class-clsname.
concatenate p_dircls v_filename '.txt' into lv_filename.
else.
move p_p_filename to lv_filename.
concatenate lv_filename '.txt' into lv_filename.
endif.
call function 'GUI_DOWNLOAD'
exporting
filename = lv_filename
tables
data_tab = it_data
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.
it_scr_out-component = it_class-clsname.
it_scr_out-path = lv_filename.
it_scr_out-status = 'FAILED'.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
it_scr_out-component = it_class-clsname.
it_scr_out-path = lv_filename.
it_scr_out-status = 'SUCCESSFULL'.
it_scr_out-etype = 'S'.
append it_scr_out.
clear it_scr_out.
endif.
endform. " DOWNLOAD_CLASSDEF
*& Form SAVE_BSPAPPL_DETAILS
* Used to Save the Bsp Application Details
form save_bspappl_details using p_it_bspappl type t_bspappl.
data: lv_filestr type string,
lv_filenam type rlgrap-filename.
refresh it_data.
clear: it_data,lv_filestr.
concatenate 'APPLICATION NAME: ' p_it_bspappl-applname into it_data.
append it_data.
concatenate 'DESCRIPTION: ' p_it_bspappl-descrip into it_data.
append it_data.
concatenate 'APPLICATION CLASS: ' p_it_bspappl-applclas into it_data.
append it_data.
concatenate 'START PAGE: ' p_it_bspappl-startpage into it_data.
append it_data.
if p_it_bspappl-stateful is initial.
it_data = 'STATELESS APPLICATION'.
else.
it_data = 'STATEFUL APPLICATION'.
endif.
append it_data.
perform add_slash_4dir changing p_dirnam.
concatenate p_dirnam it_bspappl-applname '\' into lv_filenam.
move lv_filenam to lv_filestr.
call function 'GUI_CREATE_DIRECTORY'
exporting
dirname = lv_filenam
exceptions
failed = 1
others = 2.
move lv_filestr to v_filestr.
concatenate lv_filestr it_bspappl-applname '.TXT' into lv_filestr.
call function 'GUI_DOWNLOAD'
exporting
filename = lv_filestr
tables
data_tab = it_data
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.
it_scr_out-appname = p_it_bspappl-applname.
it_scr_out-component = 'Application Details'.
it_scr_out-path = lv_filestr.
it_scr_out-status = 'FAILED'.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
it_scr_out-appname = p_it_bspappl-applname.
it_scr_out-component = 'Application Details'.
it_scr_out-path = lv_filestr.
it_scr_out-status = 'SUCCESSFULL'.
it_scr_out-etype = 'S'.
append it_scr_out.
clear it_scr_out.
endif.
endform. " SAVE_BSPAPPL_DETAILS
*& Form ADD_SLASH_4DIR
* used to add '/' after the direcory if necessary
form add_slash_4dir changing p_dirnamcls.
data: lv_tempvar(1),
lv_length type i.
lv_length = strlen( p_dirnamcls ).
lv_length = lv_length - 1.
lv_tempvar = p_dirnam+lv_length(1).
if lv_tempvar <> '\'.
concatenate p_dirnamcls '\' into p_dirnamcls.
endif.
endform. " ADD_SLASH_4DIR
*& Form CHECK_DIR_EXISTS
* Check the Directory Exists or Not
form check_dir_exists using p_dirnamcls.
data: lv_filename type rlgrap-filename,
lv_filestr type string,
it_data(10) occurs 0 with header line.
clear: lv_filename.
v_datum = sy-datum.
v_uzeit = sy-uzeit.
concatenate p_dirnamcls 'TESTFIL_09087' '.TXT' into lv_filename.
move lv_filename to lv_filestr.
call function 'GUI_DOWNLOAD'
exporting
filename = lv_filestr
tables
data_tab = it_data
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 e901(zt) with 'INVALID DIRECTORY'.
endif.
endform. " CHECK_DIR_EXISTS
*& Form GET_BSPAPPL_COMPO
* To get the BSP Applciation Component Details
form get_bspappl_compo using p_it_bspappl type t_bspappl.
data: lv_filestr type string,
lv_tempstr type string,
lv_fn type rlgrap-filename.
refresh it_pagdetl.
clear it_pagdetl.
select applname
pagekey
pagename
implclass
pagetype
controllerurl
lifetime
state
is_error_page
error_page
browser_cache
server_cache
author
createdon
changedby
changedon
into table it_pagdetl
from o2pagdir
where applname = p_it_bspappl-applname.
* Downloading the application Class Details
if not p_it_bspappl-applclas is initial.
clear : lv_filestr.
concatenate v_filestr 'APPLICATIONCLASS' '\' into lv_filestr.
it_scr_out-appname = p_it_bspappl-applname.
perform create_directory using lv_filestr.
it_scr_out-appname = p_it_bspappl-applname.
perform download_class_details using lv_filestr p_it_bspappl-applclas.
endif.
if r_bspall = 'X' or chk_cont = 'X'.
clear : lv_filestr.
concatenate v_filestr 'CONTROLLERS' '\' into lv_filestr.
perform create_directory using lv_filestr.
* DOWNLOADING THE CONTROLLER DETAILS
loop at it_pagdetl where pagetype = gc_bsp_ctrl.
concatenate lv_filestr it_pagdetl-pagename '\' into lv_tempstr.
perform create_directory using lv_tempstr.
clear: lv_fn.
move lv_tempstr to lv_fn.
it_scr_out-appname = p_it_bspappl-applname.
perform download_controller_details using lv_tempstr .
it_scr_out-appname = p_it_bspappl-applname.
perform download_class_details using lv_tempstr it_pagdetl-implclass.
endloop.
endif.
if r_bspall = 'X' or chk_view = 'X'.
clear : lv_filestr.
concatenate v_filestr 'VIEWS' '\' into lv_filestr.
perform create_directory using lv_filestr.
* DOWNLOADING THE VIEW DETAILS
loop at it_pagdetl where pagetype = gc_bsp_view.
concatenate lv_filestr it_pagdetl-pagename '\' into lv_tempstr.
perform create_directory using lv_tempstr.
it_scr_out-appname = p_it_bspappl-applname.
perform download_html_event_details using it_pagdetl-applname
it_pagdetl-pagekey
lv_tempstr.
endloop.
endif.
if r_bspall = 'X' or chk_frag = 'X'.
clear : lv_filestr.
concatenate v_filestr 'PAGEFRAGMENTS' '\' into lv_filestr.
perform create_directory using lv_filestr.
* DOWNLOADING THE PAGE FRAGMENTS DETAILS.
loop at it_pagdetl where pagetype = gc_bsp_pgfr.
concatenate lv_filestr it_pagdetl-pagename '\' into lv_tempstr.
perform create_directory using lv_tempstr.
it_scr_out-appname = p_it_bspappl-applname.
perform download_html_event_details using it_pagdetl-applname
it_pagdetl-pagekey
lv_tempstr.
endloop.
endif.
if r_bspall = 'X' or chk_pgfl = 'X'.
clear : lv_filestr.
concatenate v_filestr 'PAGEFLOWLOGIC' '\' into lv_filestr.
perform create_directory using lv_filestr.
* DOWNLOADING THE PAGES WITH FLOW LOGIC DETAILS.
loop at it_pagdetl where pagetype = gc_bsp_pgfl.
concatenate lv_filestr it_pagdetl-pagename '\' into lv_tempstr.
perform create_directory using lv_tempstr.
it_scr_out-appname = p_it_bspappl-applname.
perform download_html_event_details using it_pagdetl-applname
it_pagdetl-pagekey
lv_tempstr.
endloop.
endif.
endform. " GET_BSPAPPL_COMPO
*& Form CREATE_DIRECTORY
* To Create Directory*----------------------------------------------------------------------*
form create_directory using p_lv_filestr.
data: lv_filename type rlgrap-filename.
move p_lv_filestr to lv_filename.
call function 'GUI_CREATE_DIRECTORY'
exporting
dirname = lv_filename
exceptions
failed = 1
others = 2.
endform. " CREATE_DIRECTORY
*& Form DOWNLOAD_CONTROLLER_DETAILS
* Controller Details
form download_controller_details using p_lv_tempstr .
data: lv_temp type n.
refresh it_data.
clear : it_data,
v_cnt_cls.
concatenate 'CONTROLLER_NAME: ' it_pagdetl-pagekey into it_data.
append it_data.
it_data = space.
append it_data.
concatenate 'ERROR HANDLING' ':' into it_data.
append it_data.
if it_pagdetl-is_error_page is initial.
concatenate 'IS ERROR PAGE? ' 'NO' into it_data.
else.
concatenate 'IS ERROR PAGE? ' 'YES' into it_data.
endif.
append it_data.
concatenate 'ERROR PAGE: ' it_pagdetl-error_page into it_data.
append it_data.
concatenate 'CONTROLLER CLASS : ' it_pagdetl-implclass into it_data.
append it_data.
it_data = space.
append it_data.
it_data = 'STATUS'.
append it_data.
case it_pagdetl-state.
when gc_lft_requ.
it_data = 'STATE: STATELESS FROM NOW ON'.
when gc_lft_sess.
it_data = 'STATE: STATEFUL FROM NOW ON'.
when others.
concatenate 'IS ERROR PAGE? ' 'YES' into it_data.
endif.
append it_data.
concatenate 'ERROR PAGE: ' it_pagdetl-error_page into it_data.
append it_data.
concatenate 'CONTROLLER CLASS : ' it_pagdetl-implclass into it_data.
append it_data.
it_data = space.
append it_data.
it_data = 'STATUS'.
append it_data.
case it_pagdetl-state.
when gc_lft_requ.
it_data = 'STATE: STATELESS FROM NOW ON'.
when gc_lft_sess.
it_data = 'STATE: STATEFUL FROM NOW ON'.
when others.
it_data = 'STATE: UNCHANGED'.
endcase.
append it_data.
case it_pagdetl-state.
when gc_lft_requ.
it_data = 'LIFETIME: REQUEST'.
when gc_lft_sess.
it_data = 'LIFETIME: SESSION'.
when others.
it_data = 'LIFETIME: UNTIL PAGE CHANGE'.
endcase.
append it_data.
it_data = space.
append it_data.
it_data = 'CACHING'.
append it_data.
lv_temp = it_pagdetl-browser_cache.
concatenate 'BROWSER CACHE: ' lv_temp into it_data.
append it_data.
lv_temp = it_pagdetl-server_cache.
concatenate 'SERVER CACHE: ' lv_temp into it_data.
append it_data.
it_data = space.
append it_data.
it_data = 'LOG DETAILS'.
append it_data.
concatenate 'CREATED BY: ' it_pagdetl-author ' ON ' it_pagdetl-createdon into it_data.
append it_data.
concatenate 'CHANGED BY: ' it_pagdetl-changedby ' ON ' it_pagdetl-changedon into it_data.
append it_data.
concatenate p_lv_tempstr it_pagdetl-pagename into p_lv_tempstr.
call function 'GUI_DOWNLOAD'
exporting
filename = p_lv_tempstr
tables
data_tab = it_data
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.
concatenate 'CONTROLLER' it_pagdetl-pagekey into it_scr_out-component separated by ':'.
it_scr_out-path = p_lv_tempstr.
it_scr_out-status = 'Cntl Class Details Download FAILED'.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
concatenate 'CONTROLLER' it_pagdetl-pagekey into it_scr_out-component separated by ':'.
it_scr_out-path = p_lv_tempstr.
it_scr_out-status = 'SUCCESSFULL'.
it_scr_out-etype = 'S'.
append it_scr_out.
clear it_scr_out.
endif.
* Getting the Controller Class Name into Global Variable
clear v_cnt_cls.
move it_pagdetl-implclass to v_cnt_cls.
endform. " DOWNLOAD_CONTROLLER_DETAILS
*& Form download_class
* DownLoading the Data to File
form download_class using lv_filename.
call function 'GUI_DOWNLOAD'
exporting
filename = lv_filename
tables
data_tab = it_data
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.
it_scr_out-component = lv_filename.
it_scr_out-status = 'FAILED'.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
it_scr_out-component = lv_filename.
it_scr_out-status = 'SUCCESSFULL'.
it_scr_out-etype = 'S'.
append it_scr_out.
clear it_scr_out.
endif.
endform. " download_class
*& Form DOWNLOAD_HTML_EVENT_DETAILS
* text
form download_html_event_details using p_applname
p_pagekey
p_lv_tempstr.
data: lv_tempstr type string,
lv_count type n.
refresh it_pagcon.
clear it_pagcon.
select applname
pagekey
objtype
version
into table it_pagcon
from o2pagcon
where applname = p_applname and
pagekey = p_pagekey and
version = 'A' and
objtype = 'PD'.
lv_count = 0.
loop at it_pagcon.
clear: lv_tempstr,it_source,wa_source,wa_pagecon_key.
wa_pagecon_key-applname = it_pagcon-applname.
wa_pagecon_key-pagekey = it_pagcon-pagekey.
wa_pagecon_key-objtype = it_pagcon-objtype.
wa_pagecon_key-version = it_pagcon-version.
if it_pagcon-objtype = 'PD'. "PAGE
concatenate p_lv_tempstr p_pagekey into lv_tempstr.
endif.
import content to it_source-content from database o2pagcon(tr) id wa_pagecon_key
accepting padding ignoring conversion errors.
if not it_source-content[] is initial.
call function 'GUI_DOWNLOAD'
exporting
filename = lv_tempstr
tables
data_tab = it_source-content
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.
it_scr_out-component = p_pagekey.
it_scr_out-path = lv_tempstr.
it_scr_out-status = 'FAILED'.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
it_scr_out-component = p_pagekey.
it_scr_out-path = lv_tempstr.
it_scr_out-status = 'SUCCESSFULL'.
it_scr_out-etype = 'S'.
append it_scr_out.
clear it_scr_out.
endif.
endif.
endloop.
* NOW DOWNLOAD ALL THE PARAMETERS FOR THAT PAGE
perform download_params_for_page using p_applname
p_pagekey
p_lv_tempstr.
* NOW DOWNLOAD ALL EVENTS FOR THAT PAGE
perform download_events_for_page using p_applname
p_pagekey
p_lv_tempstr.
endform. " DOWNLOAD_HTML_EVENT_DETAILS
*& Form DOWNLOAD_PARAMS_FOR_PAGE
* text
form download_params_for_page using p_applname
p_pagekey
p_lv_tempstr.
types: begin of t_dld_params,
compname type o2param,
auto(5),
typtype(15),
type1 type rs38l_typ,
parvalue type seovalue,
end of t_dld_params.
data: it_params type standard table of o2pagpar with header line.
data: it_dld_params type standard table of t_dld_params with header line.
data: lv_tempstr type string.
refresh: it_params,it_dld_params.
clear : it_params,it_dld_params.
concatenate p_lv_tempstr 'PARAMETERS.TXT' into lv_tempstr.
select * from o2pagpar into table it_params
where applname = p_applname and
pagekey = p_pagekey and
version = 'A'.
loop at it_params.
it_dld_params-compname = it_params-compname.
it_dld_params-type1 = it_params-type.
it_dld_params-parvalue = it_params-parvalue.
if it_params-pardecltyp = '0'.
it_dld_params-auto = 'AUTO'.
endif.
if it_params-typtype = '3'.
it_dld_params-typtype = 'TYPE REF TO'.
else.
it_dld_params-typtype = 'TYPE'.
endif.
append it_dld_params.
clear it_dld_params.
endloop.
if not it_dld_params[] is initial.
call function 'GUI_DOWNLOAD'
exporting
filename = lv_tempstr
tables
data_tab = it_dld_params.
endif.
endform. " DOWNLOAD_PARAMS_FOR_PAGE
*& Form DOWNLOAD_EVENTS_FOR_PAGE
* To Download the Events data
form download_events_for_page using p_applname
p_pagekey
p_lv_tempstr.
data: lv_tempstr type string,
it_events type standard table of o2pagevh with header line,
lv_count type i.
types: begin of t_ev_handler,
name type o2evhandlr,
source type rswsourcet,
end of t_ev_handler.
types : it_ev_handler type sorted table of t_ev_handler with unique key name.
data : it_ev_sources type it_ev_handler with header line.
field-symbols : <fs_ev_handler> type it_ev_handler.
refresh it_events.
clear : it_events,lv_count.
select * from o2pagevh into table it_events
where applname = p_applname and
pagekey = p_pagekey and
version = 'A'.
describe table it_events lines lv_count.
if lv_count > 0.
concatenate p_lv_tempstr 'EVENTS' '\' into lv_tempstr.
perform create_directory using lv_tempstr.
p_lv_tempstr = lv_tempstr.
endif.
refresh: it_ev_sources.
clear: lv_tempstr,it_source,wa_source,wa_pagecon_key,it_ev_sources.
wa_pagecon_key-applname = p_applname.
wa_pagecon_key-pagekey = p_pagekey.
wa_pagecon_key-objtype = 'EV'.
wa_pagecon_key-version = 'A'.
import evhandler to it_ev_sources from database o2pagcon(tr) id wa_pagecon_key
accepting padding ignoring conversion errors.
loop at it_ev_sources.
concatenate p_lv_tempstr it_ev_sources-name '.TXT' into lv_tempstr.
call function 'GUI_DOWNLOAD'
exporting
filename = lv_tempstr
tables
data_tab = it_ev_sources-source.
endloop.
endform. " DOWNLOAD_EVENTS_FOR_PAGE
*& Form download_cnt_class
* Perform to Download the Controller Class Details
form download_class_details using p_lv_filestr pclassname.
data : v_cnt_cls_name type string,
v_cnt_lines type i.
clear : v_cnt_cls_name.
* As We need to call the common perform which is used for Downloading
* Class . Before doing that we need to Set Some varibles.
if pclassname is not initial.
clear : r_temp_all,chk_attr,chk_meth,chk_evts,chk_type,it_class.
move 'X' to r_temp_all.
refresh it_class.
concatenate p_lv_filestr pclassname into v_cnt_cls_name.
* get the class name and Class Description from the table SEOCLASS
* for all the classes which user entered in selection screen based on
* the system language
select a~clsname b~descript
into table it_class
from seoclass as a left outer join seoclasstx as b
on a~clsname = b~clsname and
b~langu = v_langu
where a~clsname = pclassname.
describe table it_class lines v_cnt_lines.
if v_cnt_lines > 0.
loop at it_class.
perform get_class_details using it_class-clsname 'X' v_cnt_cls_name .
endloop.
endif.
endif.
endform. " download_cnt_class
*& Form download_class_implementation
* To Down Load the Class Implementaions
form download_class_implementation tables p_implementation type seok_int_typeinfos.
data : x_imp type line of seok_int_typeinfos.
loop at p_implementation into x_imp.
perform get_inferface_data using x_imp.
endloop.
endform. " download_class_implementation
*& Form get_inferface_data
* Getting the Interface Data
form get_inferface_data using p_x_imp type line of seok_int_typeinfos.
data : x_inmeth type line of seoo_methods_r,
v_methodname type string,
v_classname type string.
it_data = 'INTERFACE'.
append it_data.
it_data = '----------'.
append it_data.
* Interface Name
clear it_data.
concatenate 'Interface Name : ' p_x_imp-interface-clsname into it_data.
append it_data.
* Interface Description
clear it_data.
concatenate 'Interface Description : ' p_x_imp-interface-descript into it_data.
append it_data.
* Interace Methods
it_data = '-----------------'.
append it_data.
clear it_data.
it_data = 'Interface Methods'.
append it_data.
clear it_data.
it_data = '-----------------'.
append it_data.
loop at p_x_imp-methods into x_inmeth where clsname eq p_x_imp-interface-clsname .
data : temp_str type string.
* Adding Class Name & Class Description
concatenate x_inmeth-cmpname cl_abap_char_utilities=>horizontal_tab x_inmeth-descript
cl_abap_char_utilities=>horizontal_tab into temp_str.
* Declaration Type
if x_inmeth-mtddecltyp eq 0.
concatenate temp_str 'Instance Method' into temp_str.
else.
concatenate temp_str 'Static Method' into temp_str.
endif.
* Visibility
case x_inmeth-exposure.
when 0.
concatenate temp_str cl_abap_char_utilities=>horizontal_tab 'PRIVATE' into temp_str.
when 2.
concatenate temp_str cl_abap_char_utilities=>horizontal_tab 'PUBLIC' into temp_str.
when 1.
concatenate temp_str cl_abap_char_utilities=>horizontal_tab 'PROTECTED' into temp_str.
endcase.
it_data = temp_str.
append it_data.
* To Get Corresponding Paramenters.
perform get_int_meth_parameters using p_x_imp x_inmeth-cmpname.
* To Get Source Code for Interface methods.
clear v_methodname.
clear v_classname.
concatenate p_x_imp-interface-clsname '~' x_inmeth-cmpname into v_methodname.
v_classname = it_class-clsname.
perform download_method_source using v_classname
v_methodname.
clear temp_str.
clear it_data.
append it_data.
endloop.
endform. " get_inferface_data
*& Form GET_INT_METH_PARAMETERS
* To get the method Parameters
form get_int_meth_parameters using p_x_imp type line of seok_int_typeinfos
p_x_inmeth_cmpname.
data: x_parameters type line of seos_parameters_r,
temp_str type string.
it_data = '^^^^PARAMETERS'.
append it_data.
clear it_data.
loop at p_x_imp-parameters into x_parameters where clsname eq p_x_imp-interface-clsname and
cmpname eq p_x_inmeth_cmpname.
concatenate cl_abap_char_utilities=>horizontal_tab
cl_abap_char_utilities=>horizontal_tab
x_parameters-sconame
cl_abap_char_utilities=>horizontal_tab into temp_str.
case x_parameters-pardecltyp.
when 0.
concatenate temp_str 'Importing' cl_abap_char_utilities=>horizontal_tab into temp_str.
when 1.
concatenate temp_str 'Exporting' cl_abap_char_utilities=>horizontal_tab into temp_str.
when 2.
concatenate temp_str 'Changing' cl_abap_char_utilities=>horizontal_tab into temp_str.
when 3.
concatenate temp_str 'Returning' cl_abap_char_utilities=>horizontal_tab into temp_str.
endcase.
case x_parameters-typtype.
when 0.
concatenate temp_str 'Like' cl_abap_char_utilities=>horizontal_tab into temp_str.
when 1.
concatenate temp_str 'Type' cl_abap_char_utilities=>horizontal_tab into temp_str.
when 2.
concatenate temp_str 'Type Ref To' cl_abap_char_utilities=>horizontal_tab into temp_str.
endcase.
concatenate temp_str x_parameters-type cl_abap_char_utilities=>horizontal_tab x_parameters-parvalue into temp_str.
it_data = temp_str.
append it_data.
clear it_data.
clear temp_str.
endloop.
endform. " GET_INT_METH_PARAMETERS
*& Form DOWNLOAD_CLASS_OTHERDETAILS
* Downloading Class Implementation , Types & Macros
form download_class_otherdetails using p_p_clsname
p_inctype.
data : lv_inctype type string,
l_clsname type seoclskey,
cl_source type seop_source,
cl_exsource type seop_source_string,
x_source type line of seop_source.
move p_p_clsname to l_clsname.
case p_inctype.
when seop_ext_class_locals_imp.
lv_inctype = 'CLASS IMPLEMENTAION'.
when seop_incextapp_definition.
lv_inctype = 'CLASS TYPES'.
when seop_incextapp_macros.
lv_inctype = 'CLASS MACROS'.
endcase.
call function 'SEO_CLASS_GET_INCLUDE_SOURCE'
exporting
clskey = l_clsname
inctype = p_inctype
importing
source = cl_source
source_expanded = cl_exsource
exceptions
_internal_class_not_existing = 1
not_existing = 2
others = 3.
if sy-subrc <> 0.
it_scr_out-component = lv_inctype.
it_scr_out-status = 'FAILED'.
it_scr_out-etype = 'E'.
append it_scr_out.
clear it_scr_out.
else.
it_data = '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'.
append it_data.
clear it_data.
it_data = lv_inctype .
append it_data.
clear it_data.
it_data = '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'.
append it_data.
clear it_data.
loop at cl_source into x_source.
move x_source to it_data.
append it_data.
clear it_data.
endloop.
it_data = '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'.
append it_data.
clear it_data.
endif.
endform. " DOWNLOAD_CLASS_OTHERDETAILS
Regards,
Anubhav.

How can I see how many total times my apps have been downloaded?

I have 4 free apps in the iTunes store and I need to see how many times each one has been downloaded total. The Sales and Trends area of itunes connect only gives me weekly graphs that are hard to read and does not give me a total for all time downloads. Thanks in advance.

Hi lynniewigs,
This is a common concern among Android and I-phone user, and one of the drawbacks to using a smart phone. We lose so much privacy. Our phones become cameras into our homes for us to be spied on.
I don't know what type of phone you have, if it is even a smart phone, but here is an example of an application that you can use to determine which applications are accessing your information and sending it out.
Permission Scanner - Android Apps on Google Play
Google just recently revamp their permissions geared to hide invasive applications that spy and send out your information without your knowledge. Report says be aware of what your Android app does - CNET
Please continue to be mindful of the apps you download and the permissions you give.

Download BSP Application Source Code for Backup

Dear All,
Is there any way, I can download the whole BSP Application as a Text or HTML or DOC file, for backup purpose?
Thank you.
Regards
Gladson

have you seen this code sample
<a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/3330a5e1-0701-0010-6e81-e88984de611a">Tool to Download Complete BSP Application</a>
Regards
Raja

Downloading Bsp application

Hi,
I've used the code sample provided in SDN to download my BSP application to local folder.
"Tool to download BSP Application including MVC" by Boga Umashankar.
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/3330a5e1-0701-0010-6e81-e88984de611a
<u>Problem:</u>
In my appln, Utilities --> Settings > abap editor>editor, Downwards-comp. Line Length(72) Checkbox is unchecked and there is no limitation on length of code in a line.
When i download that application, In the output text file(of a method in a controller), The length of code in a line is limited to 73 characters and rest of the code is ignored while downloading. So only partial code is downloaded.
So is there any solution so that i can download complete code.
Thanks in advance,

Hi,
Does this happen too when you use this method?
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/abap/bsp/bsp-code-samples/abap%20code%20sample%20for%20download%20of%20a%20bsp%20application.pdf
Eddy

Download total BSP

Similar Messages

Maybe you are looking for