R3 to FTP

Question

Hi ,
IF my itab has more than 10 records,
it is not transferred to ftp.
what is the problem.

Answer 1

Hi ,
Here is my code :
*& Report  ZPY_SCALE_ITEMS
REPORT  ZPY_SCALE_ITEMS_FTP.
data:c_dest LIKE rfcdes-rfcdest VALUE 'SAPFTP',
     c_key TYPE i VALUE 26101957.
data: g_slen type i,
      g_handle type i,
*      g_filename_tmp(40) value 'new9.txt',
      cblob type i value 120,
      lin type i.
data: begin of itab occurs 0,
        v_text(120),
      end of itab.
data: begin of itab2 occurs 0,
        v_text(100),
      end of itab2,
      v_cmd(20).
data : v_knumh type konp-knumh,
       stabix type sy-tabix,
       v_value(10),
       v_file(40),
       v_inc type p decimals 0,
       v_inc1(10).
data: begin of itab1 occurs 0,
        werks type marc-werks,
        matnr type mara-matnr,
        ean11 type mara-ean11,
        scagr type wlk2-scagr,
        matkl type mara-matkl,
        maktx type makt-maktx,
        kbetr type konv-kbetr,
      end of itab1.
SELECTION-SCREEN begin of block b1 WITH FRAME TITLE text-001.
  select-options : s_werks for itab1-werks,
                   s_matnr for itab1-matnr.
  parameters: p_user(30) default 'rxpadm',     "obligatory,
              gftppwd(30) ,
              g_ip(64) default '172.23.4.212'. "obligatory.
*              folder(20) default 'IB'.
selection-SCREEN end of block b1.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-name = 'GFTPPWD'.
      screen-invisible = '1'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
start-of-selection.
TRANSLATE p_user to LOWER CASE.
translate gftppwd to LOWER CASE.
select a~matnr
       a~matkl
       a~ean11
       b~werks
       into corresponding fields of table itab1
       from mara as a inner join marc as b
       on a~matnr = b~matnr
       inner join wlk2 as c
       on c~matnr = a~matnr
       and  c~vkorg = '5544'
       and  c~vtweg = '20'
       and  c~scagr = '01'
       where b~werks in s_Werks
       and   a~matnr in s_matnr.
end-of-selection.
g_slen = STRLEN( gftppwd ).
loop at itab1.
  stabix = sy-tabix.
  CALL FUNCTION 'CONVERSION_EXIT_MATN2_INPUT'
    EXPORTING
      INPUT         = itab1-ean11
   IMPORTING
     OUTPUT        = itab1-ean11.
  select single maktx from makt into itab1-maktx
    where matnr = itab1-matnr.
  select single knumh from a071
    into v_knumh
    where matnr = itab1-matnr
    and   werks = itab1-werks
    and   vkorg = '5544'
    and   vtweg = '20'
    and   kschl = 'VKP0'
    and   datab <= sy-datum
    and   datbi >= sy-datum.
  if sy-subrc = 0.
    select single kbetr from konp
      into itab1-kbetr
      where knumh = v_knumh.
  endif.
  modify itab1 index stabix.
  clear stabix.
  clear itab1.
  endloop.
sort itab1 by werks.
  loop at itab1.
    v_inc = v_inc + 1.
    v_inc1 = v_inc.
    condense v_inc1.
    v_value = itab1-kbetr.
    condense v_value.
    concatenate v_inc1 ',' itab1-ean11 ',' itab1-matkl ','
                v_value ',' '0,0,0,0,0,0,1,0,0,' itab1-maktx ',0'
                into itab-v_text.
    append itab.
    clear itab.
    at end of werks.
CALL FUNCTION 'HTTP_SCRAMBLE'
EXPORTING
SOURCE = gftppwd
sourcelen = g_slen
key = c_key
IMPORTING
destination = gftppwd.
*2. Connect FTP
data: g_rfcdes_rfcdest LIKE rfcdes-rfcdest VALUE 'SAPFTP'.
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
user = p_user
password = gftppwd
host = g_ip
rfc_destination = g_rfcdes_rfcdest
IMPORTING
handle = g_handle
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.
ENDIF.
*    3. Transfer file
    concatenate 'ScaleItems' itab1-werks '.txt' into v_file.
describe table itab lines cblob.
    CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
    handle = g_handle
    fname = v_file
*    blob_length = CBLOB
    character_mode = 'X'
    TABLES
       text = itab
    EXCEPTIONS
       tcpip_error = 1
       command_error = 2
       data_error = 3
    OTHERS = 4.
    IF sy-subrc <> 0.
*    p_retcd = 3. "Put file fail
    else.
      write:/ 'File has been created on FTP Server'.
    endif.
   CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      handle = g_handle.
    CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      destination = g_rfcdes_rfcdest
    EXCEPTIONS
    OTHERS = 1.
     clear: itab, v_inc, v_file.
     refresh itab.
    endat.
   endloop.
*   CALL FUNCTION 'FTP_DISCONNECT'
*    EXPORTING
*      handle = g_handle.
*    CALL FUNCTION 'RFC_CONNECTION_CLOSE'
*    EXPORTING
*      destination = g_rfcdes_rfcdest
*    EXCEPTIONS
*    OTHERS = 1.