PDF file to be doewnloaded to application server.

Hi ,
Can we download a PDF converted file to the application server.
Will the commands OPEN DATASET , READ DATASET and TRANSFER DATASET work out for PDF file format.
Pls. provide your ideas.
Thanks,
stock

Hi
report ztest.
data: begin of itab occurs 0,
        field(256),
      end   of itab.
data: dsn(100) value '/usr/sap/xfr/FIS/testpdf',
      length like sy-tabix,
      lengthn like sy-tabix.
call function 'GUI_UPLOAD'
     exporting
          filename   = 'c:\temp\test.pdf'
          filetype   = 'BIN'
     importing
          filelength = length
     tables
          data_tab   = itab.
open dataset dsn for output in binary mode.
loop at itab.
transfer itab-field to dsn.
endloop.
close dataset dsn.
clear   itab.
refresh itab.
*- To crosscheck if it went well
open dataset dsn for input in binary mode.
do.
read dataset dsn into itab-field.
if sy-subrc = 0.
    append itab.
else.
    exit.
endif.
enddo.
call function 'GUI_DOWNLOAD'
     exporting
          filename     = 'c:\temp\testn.pdf'
          filetype     = 'BIN'
          bin_filesize = length
     importing
          filelength   = lengthn
     tables
          data_tab     = itab.
Regards,
Raj

Similar Messages

Pdf file in txt format in application server

Hi all,
can we use open datset to store pdf file in text format in application server.
when i am using this some data was getting correctly stored in appl server.but some data is getting converted to # symbols.of course the pdf data also contains some different characters in that place.
but i want that pdf data in that format,i dont want that change of # symbols...how can i do that...
and while storing it,it is allowing only open dataset in binary mode only ..can anybody explain why?
regards,
sharma.

<b>Check this example....</b>
report ztest.
data: begin of itab occurs 0,
field(256),
end of itab.
data: dsn(100) value '/usr/sap/xfr/FIS/testpdf',
length like sy-tabix,
lengthn like sy-tabix.
call function 'GUI_UPLOAD'
exporting
filename = 'c:\temp\test.pdf'
filetype = 'BIN'
importing
filelength = length
tables
data_tab = itab.
open dataset dsn for output in binary mode.
loop at itab.
transfer itab-field to dsn.
endloop.
close dataset dsn.
clear itab.
refresh itab.
*- To crosscheck if it went well
open dataset dsn for input in binary mode.
do.
read dataset dsn into itab-field.
if sy-subrc = 0.
append itab.
else.
exit.
endif.
enddo.
call function 'GUI_DOWNLOAD'
exporting
filename = 'c:\temp\testn.pdf'
filetype = 'BIN'
bin_filesize = length
importing
filelength = lengthn
tables
data_tab = itab.
<b>TIP</b>
Use the TCode
CG3Z or CG3Y
for downloading to Application Server.
Regards,
Pavan

Download PDF File from Archiv to SAP Application Server

Hi,
I need to download the PDF file from an NAST-Dataset (how is stored from the message via SAP ArchivLink) to the SAP Application Server.
1) At first i read the Archiv-Link data via function module WFMC_GET_ARCHIVE_OBJECT_TYPE
2) Then i get the Connection-Infos via function module ARCHIV_GET_CONNECTIONS_INT
3) Now i read the file from archiv as table via function module ARCHIVOBJECT_GET_BYTES
4) Save to the SAP Appl.Server via:
   - OPEN DATASET ld_dpfad FOR OUTPUT IN BINARY MODE
   - LOOP and TRANSFER lf_archivobject TO ld_dpfad.
   - CLOSE DATASET ld_dpfad.
In the dialog of NAST-Dataset (Messages) i can open the PDF-File without any errors (display originals). But after the filetransfer to the SAP Appl.Server i get the following errors during the file opening dialog from Adobe Acrobat Reader:
- the embedded font u201CArialu201D cant to be extract
- not enough data for the picture
The reader can display the PDF-File but only without the picture (Logo) and with alternative font.
The same transfer from archiv and sending as an attachement to the BOR-Object via function module SO_DOCUMENT_INSERT_API1 works very fine and without any errors.
Can any one please help me to solve this Issue?
Thanks in Advance,
Thomas

Hello Keith,
Many thanks for your answer.
In the past i didnu2019t need the BINARCHIVOBJECT-Parameter and so i overlook this option.
Now, the File looks a little bit different, but only in the STREAM-section.
During the Fileopen-Dialog i get only one message now - "not enough data for image" and the image will not displayed. The rest seems to be correct.
The relevant coding is now:
ld_doc_typ = pf_connections-reserve.
CALL FUNCTION 'ARCHIVOBJECT_GET_BYTES'
    EXPORTING
      archiv_id                = pf_connections-archiv_id
      archiv_doc_id            = pf_connections-arc_doc_id
      document_type            = ld_doc_typ
      length                   = ld_length1
      offset                   = ld_offset
    IMPORTING
      binlength                = ld_length
      offset                   = ld_offset
    TABLES
      binarchivobject          = lt_binarchivobj
    EXCEPTIONS
      error_archiv             = 1
      error_communicationtable = 2
      error_kernel             = 3
      OTHERS                   = 4.
Zieldatei zum Schreiben öffnen
    OPEN DATASET ld_dpfad FOR OUTPUT IN BINARY MODE.
Inhalte in Zieldatei schreiben
LOOP AT lt_binarchivobj INTO lf_binarchivobj.
    TRANSFER lf_binarchivobj TO ld_dpfad NO END OF LINE.
ENDLOOP.
Zieldatei schließen
CLOSE DATASET ld_dpfad.
Where is the error for the image data?
Ciao Thomas
Push up by: Thomas Engler on May 3, 2010 4:54 PM

How to run a "exe" file that is residing in application server.

Hi,
I have a requirement in which a .exe (Windows executive) file needs to be run through code, which is residing in the application server. That exe file is nothing but a pdf-excel converter that will convert a pdf file to excel. The corresponding pdf file is also in the application server. Is there any function module to make this happen? I have come across the FM GUI_EXEC, but it operates on exe and pdf files that are in the presentation server.

HI Anirban
SM49 /SM69 might be of help
Could you please look into the link below.
Re: sm49/sm69

How to change the excel file name which is in Application server...

hi friends,
my requirement is getting failed, when i'm trying to change the file name which is in Application server using the FM: SXPG_COMMAND_EXECUTE.
when i execute above FM, i can see all my required details in SM69 like:
COMMAND NAME: ZSPOOL_TEST1
OS: Windows NT
TYPE: Customer
OS COMMAND: cmd rename Y:\OBRZ.PDF OBRZ38582.PDF
once the above FM is executed, i'm getting SY-SUBRC = 2 (exception: COMMAND_NOT_FOUND).
so, can any one guide me how to resolve this issue or is there any other way to rename the file which is in AS?
thanks in advance...

Hi ,
First you can tranfer the AS server file to a new application server file.
Then you delete the original file .
To do that you can write code as follows --
DATA : w_file(8) TYPE c VALUE 'FILE_NAM', " your present AS file name
       w_new(8) TYPE c VALUE 'NEW_FILE',
       fs_itab(255) TYPE c,
       t_itab LIKE TABLE OF fs_itab.
OPEN DATASET w_file FOR OUTPUT IN BINARY MODE.
DO.
READ DATASET w_file INTO fs_itab. " Reading value from the AS file to field string
IF sy-subrc NE 0.
    EXIT.
ELSE.
    APPEND fs_itab TO t_itab. " Populating internal table form the file value
ENDIF.
ENDDO.
OPEN DATASET w_new FOR INPUT IN BINARY MODE. " creating a new file if that does not exist
LOOP AT t_itab INTO fs_itab.
TRANSFER fs_itab TO w_new. " Transfering to file
ENDLOOP.
CLOSE DATASET w_file..
DELETE DATASET w_file. " Dleting the old file
CLOSE DATASET w_new. " Closing the final file
Regards
Pinaki

Deploying a war file in Oracle Apps's application server

Hi all, i have a war file which i want to deploy inside oracle apps's application server, i just want to know the location to put my war file in so that the application server will auto deploy it.And also provide port and url(Application server) where i can access that web app.

Babu,
There are a lot of dependencies involved. app severes before 10g are not generic j2ee server. what kind of files are you putting in ur war file?
--Shiv

DART: Could not open file c:\datafile.txt on application server

We are running data extracts on DART (t-code FTW1A).
However we get error:
Could not open file c:\datafile.txt on application server ####.
We verified that c:\datafile is existing and accessible.
Please help tell why? Pints guaranteed. Thanks!

Hi,
Are you able to see the file from AL11 or using report RSWATCH0. Also please check below thread it may help you.
File not created in application server
Thanks,
Sushil

How to apply special right to the PDF file using the LiveCycle Rights Management Server.?

How to apply special right to the PDF file using the LiveCycle Rights Management Server.?
I want to edit bar code field data using Adobe Reader. Bar Code field was designed and data was changing using Acrobat X1 Professional (Trial Version). But can't do so in adobe reader.

I think that product has nothing to do with it. You would use LiveCycle Reader Extensions.

How to check if the file already exists in the application server directory

Hi all. I'm on devsuite 10g.
I transfer file from local machine to application server using webutil function webutil_file_transfer.client_to_as and I want to check if the file I'm transfering already exists on the server directory.
How can I make this?
Thanks all,
Fabrizio

use the text_io package and open the file in read-mode.
like this
declare
xFileType text_io.file_type;
begin
xFileType := text_io.fopen('c:\temp\test.txt','R'); --file on the middle tier
-- file exists;
text_io.fclose(xFileType);
exception
when others then
--file doesn't exist
end;
regards
Christian

Smartform into PDF and store in folder of application server

Hi Gurus,
I have to solve this issue please help meu2026
1.Convert Smartform into PDF and store in folder of application server
2.print the PDF stored in folder(Application Server) automatically
Please give suggestion for the above..
Moderator message: "spec dumping", please work yourself first on your requirement.
Edited by: Thomas Zloch on Oct 7, 2011 10:39 AM

hi uma,
http://www.kodyaz.com/articles/sap-smartforms-download-as-smartform-pdf-using-ws_download-and-cl_gui_frontend_services.aspx
check this out...
thanks,
ram

FM to select the file path for download into application server

Hello,
I need a FM to select the file path for download into application server. It is a F4 help .
Its functionality should be simmilar to the one used for presentation server i.e. as fol
CALL METHOD cl_gui_frontend_services=>file_save_dialog

Hello,
What about F4_DXFILENAME_TOPRECURSION? You can check other FMs of the group DX_FILE.
BR,
Suhas
PS: I think these FMs are not released by SAP, so need to be cautious while using these

How to find that which flat file is belongs to which application server?

How to find that which flat file is belongs to which application server?

Hi,
Search im www.sap-img.com, you will get most of answers.
Jogdand M B

Transfer file from UNIX to windows application server G:\ drive

Dear Expert,
Really need some help on this, very urgent !
The download program schedule in background to allow file store in unix.
Can we do a unix command in abap program to transfer the file from unix to windows application server G:\ drive.
The gateway for that application server is ukblmqg02.emea.astrazeneca.net .
Anyone have the sample source code ?
Thanks&regards
Nislina

Hi,
1.
There is a FM 'ARCHIVFILE_SERVER_TO_CLIENT'.
If the requirement need not necessarily require a FM to transfer a file, then you can also use transaction 'CG3Y' to transfer a file
from application server to presentation server.
2.
Try to use FM DOCFILE_SERVER_TO_CLIENT. I am using it to download a file from SAP application server to desktop.
Source path should be application server file path along with file name i.e. /tmp/sample.xls.
Target path should be something like c:\file.xls.
Best regards,
Prashant

How to open a file that resides on either application server or webserver

Hi all,
i need to open a pdf file when pressing a button in a form this file might exist on application server or a webserver.please i need the answer to this question as soon as possible

i did all the previous steps that u mentioned but the file didn't open
and i recieved the following line on the browser's page
The requested URL /forms/ktl/dalia.pdf was not found on this server.
please note that the folder that i'm making an alias for is the bin .does that represent a problem ?

How to store multiple files from SAp in to Application server?

Hi Guys,
             Can anybody tell me how to store multiple files from SAP into Application server.in my application i have to get the data from SAP tables BSEG , BKPF , BSAK and BSIK that to daily i have to do.
            Any Logic or Code for how to do is welcomed.
                    plz help me urgently.
Thanks,
Gopi

Hi,
directories creates basis. If you have task to store data in application server you already should have information into which folder you have to do it. If you don't have this information because it is just for example training for next task then you can use your personal folder into which you have access. To get list of all available folders please look at attached code and form get_directories (you get the list of folders you see in transaction AL11). But don't forget: If you are using open dataset you have to have rights to access application folder!
Here you are code which I use to upload text files from local disc into application folder
Regards,
Karol
*& Report FILE_PC_TO_SAP
REPORT FILE_PC_TO_SAP.
DATA: BEGIN OF searchpoints OCCURS 100,
        DIRNAME(200)     TYPE c, " name of directory.
        sp_name(100)     TYPE c," name of entry. (may end with *)
      END OF searchpoints.
DATA: BEGIN OF isearchpoints OCCURS 10,
        dirname(75) TYPE c,            " name of directory.
        aliass(75) TYPE c,            " alias for directory.
        svrname(75) TYPE c,            " svr where directory is availabl
        sp_name(75) TYPE c,            " name of entry. (may end with *)
        sp_cs(10)   TYPE c,            " ContainsString pattern for name
      END OF isearchpoints.
data: l_file type filetable.
data: l_rc   type i.
data: itab   type TABLE OF string.
data: g_tmp_file_path type rlgrap-filename.
data: wa_itab type string.
data: h_destin(100) type c.
data: dat      type string.
INITIALIZATION.
perform get_directories.
START-OF-SELECTION.
parameters: in_file type string OBLIGATORY LOWER CASE.
parameters: destin(100) type c OBLIGATORY LOWER CASE.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
   FILENAME                      = in_file
   "FILETYPE                      = 'BIN'
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = ' '
   HEADER_LENGTH                 = 0
   READ_BY_LINE                  = 'X'
   DAT_MODE                      = ' '
TABLES
    DATA_TAB                     = itab
EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17.
IF sy-SUBRC <> 0.
write: / 'Error during loading input file!'.
ENDIF.
if h_destin is INITIAL.
h_destin = in_file.
endif.
CONCATENATE destin h_destin into dat SEPARATED BY '/'.
*TRANSLATE dat TO UPPER CASE.
OPEN DATASET dat FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-SUBRC = 0.
loop at itab into wa_itab.
     TRANSFER: wa_itab TO dat.
endloop.
CLOSE DATASET dat.
write: / 'File uploaded!'.
ELSE.
write: / 'Not possible to open dataset'.
ENDIF.
at selection-screen on value-request for in_file.
perform select_input_file_name.
loop at l_file into g_tmp_file_path.
    move g_tmp_file_path to in_file.
    h_destin = ''.
    SPLIT g_tmp_file_path at '\' into table itab.
    loop at itab into g_tmp_file_path.
      h_destin = g_tmp_file_path.
    endloop.
endloop.
at selection-screen on value-request for destin.
DATA: lt_dfies    TYPE TABLE OF dfies.
DATA: lwa_dfies   TYPE dfies.
CALL FUNCTION 'DDIF_FIELDINFO_GET'
    EXPORTING
      tabname    = '/BI0/PCO_AREA'
      lfieldname = 'CO_AREA'
    IMPORTING
      dfies_wa   = lwa_dfies.
lwa_dfies-tabname = 'searchpoints'.
lwa_dfies-REPTEXT   = 'Destination directory'.
lwa_dfies-LENG      = 100.
lwa_dfies-INTLEN    = 100.
lwa_dfies-OUTPUTLEN = 100.
lwa_dfies-fieldname = 'SP_NAME'.
APPEND lwa_dfies TO lt_dfies.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD = 'SP_NAME'
      DYNPPROG = SY-REPID
      DYNPNR = SY-DYNNR
      DYNPROFIELD = 'destin'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = searchpoints
      FIELD_TAB = lt_dfies
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS = 3.
*&      Form select_input_file_name
*       text
form select_input_file_name.
* call function 'F4_FILENAME'
*       exporting
*            program_name = sy-repid
*            dynpro_number = sy-dynnr
*            field_name    = 'PATH'
*       importing
*            file_name     = g_tmp_file_path.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
WINDOW_TITLE = 'Please choose a file'
"default_extension = '*.TXT'
"default_filename = 'C:\*.txt'
initial_directory = 'C:\'
file_filter = '*.*'
CHANGING
FILE_TABLE = l_file
RC = l_RC
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.                    "select_input_file_name
*&      Form WRITE_DB_HOME
*       Write DB home directory
*       no parameters
FORM write_db_home.
CASE sy-dbsys(3).
    WHEN 'ORA'.
      CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_ORAHOME'
                         ID 'VALUE' FIELD searchpoints-dirname.
*--- C5056155 Start of ALV -------------------------------*
*      PERFORM flip_flop(rsora000) USING cflag.
*      WRITE: / 'DIR_ORAHOME',       30 searchpoints-dirname.
      MOVE: 'DIR_ORAHOME'        TO searchpoints-sp_name.
      APPEND searchpoints.
*--- C5056155 End   of ALV -------------------------------*
    WHEN 'ADA'.
      CALL 'C_GETENV' ID 'NAME' FIELD 'DBROOT'
                      ID 'VALUE' FIELD searchpoints-dirname.
*--- C5056155 Start of ALV -------------------------------*
*      PERFORM flip_flop(rsora000) USING cflag.
*      WRITE: / 'DIR_ADA_DBROOT',    30 searchpoints-dirname.
      MOVE: 'DIR_ADA_DBROOT'     TO searchpoints-sp_name.
      APPEND searchpoints.
*--- C5056155 End   of ALV -------------------------------*
    WHEN 'INF'.
      CALL 'C_GETENV' ID 'NAME' FIELD 'INFORMIXDIR'
                      ID 'VALUE' FIELD searchpoints-dirname.
*--- C5056155 Start of ALV -------------------------------*
*      PERFORM flip_flop(rsora000) USING cflag.
*      WRITE: / 'DIR_INF_INFORMIXDIR', 30 searchpoints-dirname.
      MOVE: 'DIR_INF_INFORMIXDIR' TO searchpoints-sp_name.
      APPEND searchpoints..
*--- C5056155 End   of ALV -------------------------------*
    WHEN 'DB6'.
      CALL 'C_GETENV' ID 'NAME' FIELD 'INSTHOME'
                      ID 'VALUE' FIELD searchpoints-dirname.
      IF sy-subrc = 0.
*--- C5056155 Start of ALV -------------------------------*
*        PERFORM flip_flop(rsora000) USING cflag.
*        WRITE: / 'DIR_DB2_HOME',    30 searchpoints-dirname.
        MOVE: 'DIR_DB2_HOME'       TO searchpoints-sp_name.
        APPEND searchpoints.
*--- C5056155 End   of ALV -------------------------------*
      ELSE.
        EXIT.
      ENDIF.
    WHEN OTHERS.
      EXIT.
ENDCASE.
ENDFORM.                    " WRITE_DB_HOME
FORM get_directories.
* get the name and aliases of ALL userdefined directories
SELECT * FROM user_dir INTO isearchpoints
    WHERE svrname = sy-uname.
    MOVE isearchpoints-dirname to searchpoints-dirname.
    MOVE isearchpoints-aliass to searchpoints-sp_name.
    APPEND searchpoints.
ENDSELECT.
SELECT * FROM user_dir INTO isearchpoints
    WHERE svrname = 'all'.
    MOVE isearchpoints-dirname to searchpoints-dirname.
    MOVE isearchpoints-aliass to searchpoints-sp_name.
    APPEND searchpoints.
ENDSELECT.
* Get DB home
IF sy-dbsys(3) = 'ADA'.
    PERFORM write_db_home.
ENDIF.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_ATRA'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_ATRA'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_BINARY'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_BINARY'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory $DIR_CCMS
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_CCMS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_CCMS'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_CT_LOGGING'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_CT_LOGGING'     TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_CT_RUN'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_CT_RUN'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_DATA'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_DATA'           TO searchpoints-sp_name.
APPEND searchpoints.
* Get DB home
IF sy-dbsys(3) = 'DB6'.
    PERFORM write_db_home.
ENDIF.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_DBMS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_DBMS'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_EXECUTABLE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_EXECUTABLE'     TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_EXE_ROOT'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_EXE_ROOT'       TO searchpoints-sp_name.
APPEND searchpoints.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GEN'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GEN'            TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GEN_ROOT'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GEN_ROOT'       TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GLOBAL'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GLOBAL'         TO searchpoints-sp_name.
APPEND searchpoints.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GRAPH_EXE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GRAPH_EXE'      TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GRAPH_LIB'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GRAPH_LIB'      TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_HOME'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_HOME'           TO searchpoints-sp_name.
APPEND searchpoints.
* Get DB home
IF sy-dbsys(3) = 'INF'.
    PERFORM write_db_home.
ENDIF.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_INSTALL'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_INSTALL'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_INSTANCE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_INSTANCE'       TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_LIBRARY'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_LIBRARY'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_LOGGING'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_LOGGING'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the files written by the memory inspector
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_MEMORY_INSPECTOR'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_MEMORY_INSPECTOR' TO searchpoints-sp_name.
APPEND searchpoints.
* Get DB home
IF sy-dbsys(3) = 'ORA'.
    PERFORM write_db_home.
ENDIF.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PAGING'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PAGING'         TO searchpoints-sp_name.
APPEND searchpoints.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PUT'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PUT'            TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PERF'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PERF'           TO searchpoints-sp_name.
APPEND searchpoints.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PROFILE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PROFILE'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PROTOKOLLS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PROTOKOLLS'     TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_REORG'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_REORG'          TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_ROLL'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_ROLL'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_RSYN'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_RSYN'           TO searchpoints-sp_name.
APPEND searchpoints.
* calculate directory for saphostagent (no sapparam available...)
IF ( sy-opsys(3) = 'WIN' ) OR ( sy-opsys(3) = 'Win' ).
    DATA: windir_path(64), programfiles_path(64).
*   hoping that ProgramFiles is set in service user environment
    CALL 'C_GETENV' ID 'NAME' FIELD 'ProgramFiles'
                    ID 'VALUE' FIELD programfiles_path.
    IF programfiles_path IS INITIAL.
*     %ProgramFiles% not available. guess from windir
      CALL 'C_GETENV' ID 'NAME' FIELD 'windir'
                      ID 'VALUE' FIELD windir_path.
*     e.g. S:\WINDOWS ==> S:\Program Files
      CONCATENATE windir_path(3) 'Program Files' INTO programfiles_path.
    ENDIF.
    CONCATENATE programfiles_path '\SAP\hostctrl'
                                             INTO searchpoints-dirname.
ELSE.
*   on UNIX, the path is hard coded
    searchpoints-dirname = '/usr/sap/hostctrl'.
ENDIF.
MOVE: 'DIR_SAPHOSTAGENT' TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SAPUSERS'
                     ID 'VALUE' FIELD searchpoints-dirname.
IF searchpoints-dirname = '.'.
    IF sy-opsys = 'Windows NT'.
      searchpoints-dirname = '.\'.
    ELSE.
      searchpoints-dirname = './'.
    ENDIF.
ENDIF.
MOVE: 'DIR_SAPUSERS'       TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SETUPS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_SETUPS'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SORTTMP'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_SORTTMP'        TO searchpoints-sp_name.
APPEND searchpoints.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SOURCE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_SOURCE'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TEMP'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TEMP'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TRANS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TRANS'          TO searchpoints-sp_name.
APPEND searchpoints.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TRFILES'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TRFILES'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TRSUB'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TRSUB'          TO searchpoints-sp_name.
APPEND searchpoints.
* get the name of the current server.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'rdisp/myname'
                     ID 'VALUE' FIELD searchpoints-dirname.
data: h_ind type i.
LOOP AT searchpoints.
    h_ind = sy-tabix.
    IF searchpoints-sp_name IS INITIAL.
      DELETE searchpoints INDEX h_ind.
    ENDIF.
ENDLOOP.
ENDFORM.

PDF file to be doewnloaded to application server.

Similar Messages

Maybe you are looking for