this program download the code to presentation server
Analyse this code.
CHECK IT IN DEBUGGING
REPORT zdownload_source MESSAGE-ID zabap.
TABLES: trdir.
SELECT-OPTIONS: repo FOR trdir-name.
PARAMETERS: path(60) TYPE c DEFAULT 'C:\programs\'.
DATA: BEGIN OF tabsource OCCURS 10,
source(72) TYPE c,
END OF tabsource.
DATA: BEGIN OF tabtext OCCURS 50,
tab LIKE textpool ,
END OF tabtext.
DATA: BEGIN OF tabrdir OCCURS 100,
rdir LIKE trdir,
END OF tabrdir.
DATA: filename LIKE rlgrap-filename,
mode TYPE c VALUE ' ',
rdirrows TYPE i,
sourcerows TYPE i,
rc TYPE i,
length TYPE i.
FIELD-SYMBOLS: <p>.
DATA: ok TYPE i VALUE 0,
fail TYPE i VALUE 1.
AT SELECTION-SCREEN.
DATA: i TYPE i.
DESCRIBE TABLE repo LINES i.
IF i <= 0.
SET CURSOR FIELD repo.
MESSAGE i001 WITH 'se message class'.
ENDIF.
START-OF-SELECTION.
CONDENSE path NO-GAPS.
length = strlen( path ).
SUBTRACT 1 FROM length.
ASSIGN path+length(1) TO <p>.
IF <p> <> '\'.
ADD 1 TO length.
ASSIGN path+length TO <p>.
<p> = '\'.
ENDIF.
SELECT * FROM trdir
INTO TABLE tabrdir
WHERE name IN repo.
DESCRIBE TABLE tabrdir LINES rdirrows.
CHECK rdirrows > 0.
LOOP AT tabrdir.
MOVE tabrdir TO trdir.
PERFORM download_sourse USING rc.
CHECK rc = ok.
* PERFORM download_textpool USING rc.
ENDLOOP.
write :/ sy-dbcnt , ' number of programs downloaded'.
*&---------------------------------------------------------------------*
*& Form download_sourse
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_RC text
*----------------------------------------------------------------------*
FORM download_sourse USING rc.
rc = fail.
CLEAR: tabsource, filename.
REFRESH: tabsource.
READ REPORT trdir-name INTO tabsource.
DESCRIBE TABLE tabsource LINES sourcerows.
CHECK sourcerows > 0.
CALL FUNCTION 'STRING_CONCATENATE_3'
EXPORTING
string1 = PATH
string2 = TRDIR-NAME
string3 = '.ABA'
IMPORTING
string = FILENAME
EXCEPTIONS
too_small = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
WRITE: 'AAAA'.
ENDIF.
CONDENSE filename NO-GAPS.
PERFORM download TABLES tabsource USING filename rc.
ENDFORM. " download_sourse
*&---------------------------------------------------------------------*
*& Form download_textpool
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_RC text
*----------------------------------------------------------------------*
FORM download_textpool USING p_rc.
rc = fail.
CLEAR: tabtext, filename.
REFRESH: tabtext.
READ TEXTPOOL trdir-name INTO tabtext LANGUAGE sy-langu.
DESCRIBE TABLE tabtext LINES sourcerows.
CHECK sourcerows > 0.
CALL FUNCTION 'STRING_CONCATENATE_3'
EXPORTING
string1 = path
string2 = trdir-name
string3 = '.TXT'
IMPORTING
string = filename
EXCEPTIONS
too_small = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
PERFORM download TABLES tabtext USING filename rc.
ENDFORM. " download_textpool
*&---------------------------------------------------------------------*
*& Form download
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_TABTEXT text
* -->P_FILENAME text
* -->P_RC text
*----------------------------------------------------------------------*
FORM download TABLES tabtext
USING filename
rc.
rc = fail.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
* BIN_FILESIZE = ' '
* CODEPAGE = ' '
FILENAME = filename
FILETYPE = 'ASC'
MODE = 'MODE'
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* COL_SELECT = ' '
* COL_SELECTMASK = ' '
* NO_AUTH_CHECK = ' '
* IMPORTING
* FILELENGTH =
TABLES
data_tab = TABTEXT
* FIELDNAMES =
* EXCEPTIONS
* FILE_OPEN_ERROR = 1
* FILE_WRITE_ERROR = 2
* INVALID_FILESIZE = 3
* INVALID_TYPE = 4
* NO_BATCH = 5
* UNKNOWN_ERROR = 6
* INVALID_TABLE_WIDTH = 7
* GUI_REFUSE_FILETRANSFER = 8
* CUSTOMER_ERROR = 9
* OTHERS = 10
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF sy-subrc <> 0.
WRITE: / sy-subrc, ' message declare '.
ENDIF.
rc = sy-subrc.
ENDFORM. " download
regards.
santhosh reddy
<REMOVED BY MODERATOR>
Edited by: Santhosh Reddy on Feb 13, 2008 6:48 PM
Edited by: Alvaro Tejada Galindo on Feb 18, 2008 12:00 PM
Bluesky
