一个完整的SAP的Abap例子(idoc,edi文件的相互转换)

*&---------------------------------------------------------------------*
*& Report  Z_IDOC_EDI_CONVERT                                          *
*&                                                                     *
*&---------------------------------------------------------------------*
REPORT  Z_IDOC_EDI_CONVERT                   .
TABLES:ZEDITAB,EDISDEF,EDSAPPL.
*&---------------------------------------------------------------------*
*& Author: ZHT.
*& paramenters region.(parameters)
*&---------------------------------------------------------------------*
PARAMETERS:
           P_FILE LIKE FILEPATH-PATHINTERN OBLIGATORY ,                  "read file path.
           W_FILE LIKE FILEPATH-PATHINTERN OBLIGATORY ,                  "write file path
           CRITERIA TYPE C LENGTH 100 DEFAULT '*' OBLIGATORY,
           IDOC_EDI RADIOBUTTON GROUP RDO,                                      "radio button. idoc convert edi.
           EDI_IDOC RADIOBUTTON GROUP RDO.                                      "radio button edi convert idoc.
 
IF IDOC_EDI  = 'X'.
   " Choose idoc convert to edi.
    CALL  FUNCTION 'ZIDOC_CONVERT_EDI'
         EXPORTING
                    P_FILE = P_FILE
                    W_FILE = W_FILE
                    CRITERIA = CRITERIA.
ELSEIF EDI_IDOC = 'X'.
    " Choose edi convert to idoc..
    CALL  FUNCTION 'ZEDI_CONVERT_IDOC'
          EXPORTING
                      P_FILE = P_FILE
                      W_FILE = W_FILE
                      CRITERIA = CRITERIA.
ENDIF.