pdf2server

DESCRIBE TABLE it_mess_att LINES gd_recsize.
CHECK gd_recsize > 0.

DATA: l_file       TYPE string,
      l_file_zip   TYPE string,
      l_file_enc   TYPE string.

  CONCATENATE folderserver xpdf_name '''.pdf'  INTO l_file.
  CONCATENATE folderserver 'ps' xpdf_name '''.pdf'  INTO l_file_enc.
  CONCATENATE folderserver 'ps' xpdf_name '''.zip'  INTO l_file_zip.

  REPLACE '''' WITH '' INTO l_file.
  REPLACE '''' WITH '' INTO l_file_enc.
  REPLACE '''' WITH '' INTO l_file_zip.
  CONDENSE l_file NO-GAPS.
  CONDENSE l_file_enc NO-GAPS.
  CONDENSE l_file_zip NO-GAPS.

****code move PDF to server location***
  OPEN DATASET l_file FOR OUTPUT IN BINARY MODE  .
  IF  sy-subrc = 0 .
    LOOP AT it_mess_att.
      TRANSFER it_mess_att TO l_file .
    ENDLOOP.
    CLOSE DATASET l_file  .
  ELSE.
*    WRITE : / 'operating system could not open file' .
  ENDIF.
***end server code***