[转]FTP服务器和ABAP的连接

*&---------------------------------------------------------------------*
*& Report  ZLITEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zlitest.

TYPE-POOLS:slis,truxs.
TABLES: mseg,mkpf,makt,ekko,mara.

DATA: l_ftpcommand(128) TYPE c.  "FTP command
DATA: l_handle          TYPE i.  "HANDle
DATA:  pr_return TYPE c.
DATA lt_ftp TYPE truxs_t_text_data.
DATA ls_ftp TYPE truxs_t_text_data WITH HEADER LINE.

DATA: hdl TYPE i,
    key TYPE i VALUE 26101957,
    slen TYPE i.
DATA dest LIKE rfcdes-rfcdest VALUE 'SAPFTP'.


DATA:l_file_name(30) TYPE c.
DATA:l_path(255) TYPE c.
DATA:l_file(255) TYPE c.
DATA:  BEGIN OF lt_output OCCURS 0,
   name(10) TYPE c,
  age(2) TYPE n,
  address(20) TYPE c,
  END OF lt_output.

DATA:lt_output_ftp LIKE TABLE OF lt_output WITH HEADER LINE.
DATA  pv_pw(30) TYPE c.
lt_output-name = 'LIYUWU'.
lt_output-age = 24.
lt_output-address = 'hunang yongzhou'.
APPEND lt_output.
lt_output-name = 'FANGCHUN'.
lt_output-age = 22.
lt_output-address = 'shichuan'.
APPEND lt_output.



LOOP AT lt_output.
  MOVE-CORRESPONDING lt_output TO lt_output_ftp.
  APPEND lt_output_ftp.
  CLEAR lt_output_ftp.
ENDLOOP.

l_file_name = 'ftcput.txt'.

CALL FUNCTION 'FILE_GET_NAME'
  EXPORTING
    client           = sy-mandt
    logical_filename = 'ZFTOSHIBA'
    operating_system = sy-opsys
    eleminate_blanks = 'X'
  IMPORTING
    file_name        = l_path
  EXCEPTIONS
    file_not_found   = 1
    OTHERS           = 2.

CONCATENATE l_path l_file_name INTO l_file.

TRANSLATE l_file TO LOWER CASE.
*
*CALL FUNCTION 'ZTRANSVMI_FILE_TO_FTP'
*  EXPORTING
*    pv_path          = l_file
*    pv_host          = '10.10.11.131'
*    pv_user          = 'ittest'
*    pv_pw            = 'abcd!1234'
*    pv_ftppath       = 'toshiba\vmi\put'
*    pv_ftpfn         = 'miput.TXT'
** IMPORTING
**   PV_SUBRC         =
*  TABLES
*    pv_tbl           = lt_output_ftp
*          .
CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
  EXPORTING
    i_field_seperator          ='|'
*   I_LINE_HEADER              =
*   I_FILENAME                 =
*   I_APPL_KEEP                = ' '
  TABLES
    i_tab_sap_data             = lt_output_ftp
CHANGING
   i_tab_converted_data       =  lt_ftp
EXCEPTIONS
   conversion_failed          = 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.

OPEN DATASET l_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.
  LOOP AT lt_ftp INTO ls_ftp.
    TRANSFER ls_ftp TO l_file.
  ENDLOOP.
ENDIF.

CLOSE DATASET l_file.
slen = STRLEN( 'abcd!1234' ) .

DO 10 TIMES.
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = 'abcd!1234'
      sourcelen   = slen
      key         = key
    IMPORTING
      destination = pv_pw.

  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user                   =       'ittest'
      password               =   pv_pw
*   ACCOUNT                =
      host                   =     '10.10.11.131'
      rfc_destination        =   dest
*   GATEWAY_USER           =
*   GATEWAY_PASSWORD       =
*   GATEWAY_HOST           =
   IMPORTING
     handle                 = hdl.
* EXCEPTIONS
*   NOT_CONNECTED          = 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.
    EXIT.
  ENDIF.
ENDDO.
CLEAR l_ftpcommand.
CONCATENATE 'cd'  'TOSHIBA\VMI\PUT' INTO l_ftpcommand SEPARATED BY space.
perform frm_ftp_command using l_ftpcommand
      changing pr_return hdl.
clear l_ftpcommand.
l_ftpcommand = 'ascii'.
perform frm_ftp_command using l_ftpcommand
      changing pr_return hdl.
clear l_ftpcommand.
concatenate 'put'  l_file  'liyutest.txt'
into l_ftpcommand separated by space.
perform frm_ftp_command using l_ftpcommand
      changing pr_return
        hdl.




*&---------------------------------------------------------------------*
*&      Form  frm_ftp_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PV_COMMAND text
*      -->CHANGE     text
*      -->PV_RET     text
*      -->PV_HANDLE  text
*----------------------------------------------------------------------*
FORM frm_ftp_command USING pv_command changing pv_ret pv_handle.
  DATA:BEGIN OF it_result OCCURS 0,
    line(100) TYPE c,
    END OF it_result.
  CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      handle        = pv_handle
      command       = pv_command
      compress      = 'N'
    TABLES
      data          = it_result
    EXCEPTIONS
      tcpip_error   = 1
      command_error = 2
      data_error    = 3.
  IF sy-subrc <> 0.
    pv_ret = '1'.
    CALL FUNCTION'FTP_DISCONNECT'
    EXPORTING
      handle = pv_handle.
    EXIT.
  ENDIF.
ENDFORM.                    "frm_ftp_command

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

*&---------------------------------------------------------------------*

*& Report ZLITEST

*&---------------------------------------------------------------------*

REPORT zlitest.

TYPE-POOLS:slis,truxs.

TABLES: mseg,mkpf,makt,ekko,mara.

DATA: l_ftpcommand(128) TYPE c. "FTP command

DATA: l_handle TYPE i. "HANDle

DATA: pr_return TYPE c.

DATA lt_ftp TYPE truxs_t_text_data.

DATA ls_ftp TYPE truxs_t_text_data WITH HEADER LINE.

DATA: hdl TYPE i,

key TYPE i VALUE 26101957,

slen TYPE i.

DATA dest LIKE rfcdes-rfcdest VALUE 'SAPFTP'.

DATA:l_file_name(30) TYPE c.

DATA:l_path(255) TYPE c.

DATA:l_file(255) TYPE c.

DATA: BEGIN OF lt_output OCCURS 0,

name(10) TYPE c,

age(2) TYPE n,

address(20) TYPE c,

END OF lt_output.

DATA:lt_output_ftp LIKE TABLE OF lt_output WITH HEADER LINE.

DATA pv_pw(30) TYPE c.

lt_output-name = 'LIYUWU'.

lt_output-age = 24.

lt_output-address = 'hunang yongzhou'.

APPEND lt_output.

lt_output-name = 'FANGCHUN'.

lt_output-age = 22.

lt_output-address = 'shichuan'.

APPEND lt_output.

LOOP AT lt_output.

MOVE-CORRESPONDING lt_output TO lt_output_ftp.

APPEND lt_output_ftp.

CLEAR lt_output_ftp.

ENDLOOP.

l_file_name = 'ftcput.txt'.

CALL FUNCTION 'FILE_GET_NAME'

EXPORTING

client = sy-mandt

logical_filename = 'ZFTOSHIBA'

operating_system = sy-opsys

eleminate_blanks = 'X'

IMPORTING

file_name = l_path

EXCEPTIONS

file_not_found = 1

OTHERS = 2.

CONCATENATE l_path l_file_name INTO l_file.

TRANSLATE l_file TO LOWER CASE.

*CALL FUNCTION 'ZTRANSVMI_FILE_TO_FTP'

* EXPORTING

* pv_path = l_file

* pv_host = '10.10.11.131'

* pv_user = 'ittest'

* pv_pw = 'abcd!1234'

* pv_ftppath = 'toshiba\vmi\put'

* pv_ftpfn = 'miput.TXT'

** IMPORTING

** PV_SUBRC =

* TABLES

* pv_tbl = lt_output_ftp

* .

CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'

EXPORTING

i_field_seperator ='|'

* I_LINE_HEADER =

* I_FILENAME =

* I_APPL_KEEP = ' '

TABLES

i_tab_sap_data = lt_output_ftp

CHANGING

i_tab_converted_data = lt_ftp

EXCEPTIONS

conversion_failed = 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.

OPEN DATASET l_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.

LOOP AT lt_ftp INTO ls_ftp.

TRANSFER ls_ftp TO l_file.

ENDLOOP.

ENDIF.

CLOSE DATASET l_file.

slen = STRLEN( 'abcd!1234' ) .

DO 10 TIMES.

CALL FUNCTION 'HTTP_SCRAMBLE'

EXPORTING

SOURCE = 'abcd!1234'

sourcelen = slen

key = key

IMPORTING

destination = pv_pw.

CALL FUNCTION 'FTP_CONNECT'

EXPORTING

user = 'ittest'

password = pv_pw

* ACCOUNT =

host = '10.10.11.131'

rfc_destination = dest

* GATEWAY_USER =

* GATEWAY_PASSWORD =

* GATEWAY_HOST =

IMPORTING

handle = hdl.

* EXCEPTIONS

* NOT_CONNECTED = 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.

EXIT.

ENDIF.

ENDDO.

CLEAR l_ftpcommand.

CONCATENATE 'cd' 'TOSHIBA\VMI\PUT' INTO l_ftpcommand SEPARATED BY space.

perform frm_ftp_command using l_ftpcommand

changing pr_return hdl.

clear l_ftpcommand.

l_ftpcommand = 'ascii'.

perform frm_ftp_command using l_ftpcommand

changing pr_return hdl.

clear l_ftpcommand.

concatenate 'put' l_file 'liyutest.txt'

into l_ftpcommand separated by space.

perform frm_ftp_command using l_ftpcommand

changing pr_return

hdl.

*&---------------------------------------------------------------------*

*& Form frm_ftp_command

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->PV_COMMAND text

* -->CHANGE text

* -->PV_RET text

* -->PV_HANDLE text

*----------------------------------------------------------------------*

FORM frm_ftp_command USING pv_command changing pv_ret pv_handle.

DATA:BEGIN OF it_result OCCURS 0,

line(100) TYPE c,

END OF it_result.

CALL FUNCTION 'FTP_COMMAND'

EXPORTING

handle = pv_handle

command = pv_command

compress = 'N'

TABLES

data = it_result

EXCEPTIONS

tcpip_error = 1

command_error = 2

data_error = 3.

IF sy-subrc <> 0.

pv_ret = '1'.

CALL FUNCTION'FTP_DISCONNECT'

EXPORTING

handle = pv_handle.

EXIT.

ENDIF.

ENDFORM. "frm_ftp_command

如若转载，请注明出处：https://www.gavindong.com/1156.html

[转]FTP服务器和ABAP的连接

相关推荐