SAP数据交换：EDI与ALE IDOC转换

一个完整的SAP的Abap例子(idoc,edi文件的相互转换)默认分类 2010-12-10 23:34:39 阅读253 评论0   字号：大中小 订阅 
*&---------------------------------------------------------------------*    
*& 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.  
 

<<idoc convert edi的代码如下:>>

FUNCTION ZIDOC_CONVERT_EDI.    
*"----------------------------------------------------------------------   
*"*"Local interface:    
*"  IMPORTING    
*"     REFERENCE(P_FILE) TYPE  FILENAME-FILEINTERN    
*"     REFERENCE(W_FILE) TYPE  FILENAME-FILEINTERN    
*"     REFERENCE(CRITERIA) TYPE  ZCRITERIA    
*"----------------------------------------------------------------------    
  DATA:    
           readfielname LIKE filepath-pathintern  ,writefielname LIKE filepath-pathintern ,    
           mess TYPE string,segtype LIKE edsappl-segtyp,str_format TYPE c LENGTH 7,    
           str_filedvalue TYPE c LENGTH 10,readresult TYPE c LENGTH 2000,    
           curr_field_length TYPE i,_index TYPE i VALUE 1,INX TYPE i VALUE 1,    
           len TYPE i,    
           substring_result TYPE c LENGTH 2000,    
           count TYPE i,    
           str TYPE c LENGTH 500 VALUE '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&',    
           read_line_index TYPE i VALUE 0,write_str TYPE c LENGTH 3000,strlenth TYPE i ,    
           write_result TYPE c LENGTH 3000,itab_lines TYPE i,    
           gen_filename TYPE STRING ,               " generate fileName.    
           read_filename TYPE STRING,               " read file name.    
           ms_type TYPE c LENGTH 100,    
           prefix_path TYPE c LENGTH 50,            "prefix path,