DME file encryption

Question

Hi experts,
We have DME developments for our project and right now we are using Payment Medium Workbench(PMW) method for generating DME files and in this method, the file is being generated and stored it in the Presentation server(User PC).
Our requirement is we need to encrypt the DME file while generation and it needs to be stored in the Presentation server. Please suggest us whether it is able to acheive it in the PMW.
Regds,
Uma

Answer 1

Hi,
1. File transport.
Anyway DME file in only Presentation server as a text file.
Use FM --> GUI_UPLOAD get the data to Internal table and
use FM --> DX_FILE_WRITE Pass the itab and app. file path  create file to appication server.
OR
Run BDC for CG3Z
Like below code
data : t_bdcdata type table of bdcdata,
       w_bdcdata type bdcdata.
  clear : w_bdcdata, t_bdcdata.
  w_bdcdata-program = 'SAPLC13Z'.
  w_bdcdata-dynpro = '1020'.
  w_bdcdata-dynbegin = 'X'.
  w_bdcdata-fnam = 'RCGFILETR-FTFRONT'.
  w_bdcdata-fval = w_wrk_string.
  append w_bdcdata to t_bdcdata.
  w_bdcdata-program = 'SAPLC13Z'.
  w_bdcdata-dynpro = '1020'.
  w_bdcdata-dynbegin = 'X'.
  w_bdcdata-fnam = 'RCGFILETR-FTAPPL'.
  w_bdcdata-fval = w_g_efile_a.
  w_addparam = w_g_efile_a.
  append w_bdcdata to t_bdcdata.
  w_bdcdata-program = 'SAPLC13Z'.
  w_bdcdata-dynpro = '1020'.
  w_bdcdata-dynbegin = 'X'.
  w_bdcdata-fnam = 'RCGFILETR-IEFOW'.
  w_bdcdata-fval = 'X'.
  append w_bdcdata to t_bdcdata.
  w_bdcdata-program = 'SAPLC13Z'.
  w_bdcdata-dynpro = '1020'.
  w_bdcdata-fnam = 'BDC_OKCODE'.
  w_bdcdata-fval = '=EIMP'.
  append w_bdcdata to t_bdcdata.
  w_bdcdata-program = 'SAPLC13Z'.
  w_bdcdata-dynpro = '1020'.
  w_bdcdata-fnam = 'BDC_OKCODE'.
  w_bdcdata-fval = '=ECAN'.
  append w_bdcdata to t_bdcdata.
  call transaction 'CG3Z' using t_bdcdata mode 'E'.
Same way for CG3Y.
2. Encryption Part.
data : l_encrtpt_ap type sxpgcolist-parameters.
data : l_econst(1) type c value 'E'.
data : w_addparam type sxpgcolist-parameters,
       w_finalencrpt type string,
       t_chkfile1 like btcxpm-message.
data : w_status like  extcmdexex-status.
data : w_exitparam like  extcmdexex-exitcode.
data : t_exec_protocol like  btcxpm occurs 0 with header line.
*w_addparam = Appication server TXT file path Name. *F\PROJECT\text_file.txt
*w_finalencrpt = Appication server ENC file (Encrypted file path name)
* F\PROJECT\encrypted_file.txt
* t_chkfile1 = 32 digit key code (checksum code)
*              Example #978708gflkorluf96moldglfj0lhop9#
* w_status  = space (No value).
* w_exitparam = space (No value).
* t_exec_protocol  = space (No value).
w_addparam =    'F:\usr\sap\EED\DVEBMGS00\work\TESTDURAI123.txt'.
w_finalencrpt = 'F:\usr\sap\EED\DVEBMGS00\work\TESTDURAIENC.txt'.
t_chkfile1 = '978708gflkorluf96moldglfj0lhop9D'.
concatenate l_econst w_addparam w_finalencrpt t_chkfile1
                   into l_encrtpt_ap separated by space.
  call function 'SXPG_COMMAND_EXECUTE' destination 'devr3_EED_00'
    exporting
      commandname                = 'XWIZSTOP'
      additional_parameters      = l_encrtpt_ap
    importing
      status                     = w_status
      exitcode                   = w_exitparam
    tables
      exec_protocol              = t_exec_protocol
    exceptions
      no_permission              = 1
      command_not_found          = 2
      parameters_too_long        = 3
      security_risk              = 4
      wrong_check_call_interface = 5
      program_start_error        = 6
      program_termination_error  = 7
      x_error                    = 8
      parameter_expected         = 9
      too_many_parameters        = 10
      illegal_command            = 11
      others                     = 12.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
*Here ZCRYPTOBJECT is commend name in SM49.
*Result : Encrypted file generated to application server  in  w_finalencrpt file name
*        I.e.  F\PROJECT\encrypted_file.txt
*Here Without generated the checksum key we Encrypted the file
*we hard code the checksum key.
*if u want to genereted the checksum code defined on file.
*there we can use SXPG_CALL_SYSTEM  function module
<REMOVED BY MODERATOR - REQUEST OR OFFER POINTS ARE FORBIDDEN>
Thanks,
Durai.V
Edited by: Alvaro Tejada Galindo on Aug 21, 2008 3:19 PM