Flat File to IDOC

Question

Hi,
I have to post the data from Flat File to SAP using IDOC. Please help me out with all the posibilities.
Regards,
Kiran.L

Answer 1

Hi,
Step 1 Read flate file into internal table.
step 2  Follow below program to create a idoc through Z program,
REPORT ZOUTBD_IDOC_TEMPLATE NO STANDARD PAGE HEADING.
*************************START OF DECLARATIONS**********************
*eject
Table Declarations
  TABLES:  ZIDOC_TAB_EX1,  "Equivalent to an SAP Master table.
           ZIDOC_TAB_EX2.  "Equivalent to an SAP Master table.
*eject
Types Declarations with data work Areas / Internal tables.
  TYPES: begin of ty_idoc_par,
           werks      LIKE   ZIDOC_TAB_EX1-werks,
           c_rec_ind  LIKE   ZIDOC_TAB_EX1-c_rec_ind,
           name1      LIKE   ZIDOC_TAB_EX1-name1,
           name2      LIKE   ZIDOC_TAB_EX1-name2,
           stras      LIKE   ZIDOC_TAB_EX1-stras,
           pfach      LIKE   ZIDOC_TAB_EX1-pfach,
           ort01      LIKE   ZIDOC_TAB_EX1-ort01,
           counc      LIKE   ZIDOC_TAB_EX1-counc,
           pstlz      LIKE   ZIDOC_TAB_EX1-pstlz,
           telf1      LIKE   ZIDOC_TAB_EX1-telf1,
           regio      LIKE   ZIDOC_TAB_EX1-regio,
        end of ty_idoc_par.
  TYPES: begin of ty_idoc_chd,
           werks     LIKE    ZIDOC_TAB_EX2-werks,
           eroed     LIKE    ZIDOC_TAB_EX2-eroed,
           schld     LIKE    ZIDOC_TAB_EX2-schld,
         end of ty_idoc_chd.
  TYPES: begin of ty_message,
           OBJNR      LIKE    MCMAILOBJ-OBJNR,
           OBJLEVEL   LIKE    MCMAILOBJ-OBJLEVEL,
           OBJTYPE    LIKE    MCMAILOBJ-OBJTYPE,
           OBJNAM     LIKE    MCMAILOBJ-OBJNAM,
           OBJDES     LIKE    MCMAILOBJ-OBJDES,
           OBJLINE    LIKE    MCMAILOBJ-OBJLINE,
         end of ty_message.
  TYPES: begin of ty_mess_output,
           v_err_out(1000)     TYPE  C,
           v_err_out_2(1000)   TYPE  C,
         end of ty_mess_output.
*eject
Data Declarations
Essential declarations for populating the IDOC:
  DATA:  begin of itab_idoc_data occurs 0.
           include structure edidd.                    "Data record.
  DATA:  end of itab_idoc_data.
  DATA:  begin of itab_comm_idoc_control occurs 0.
           include structure edidc.                    "Control record.
  DATA:  end of itab_comm_idoc_control.
Internal Table for Mail Recipient.
  DATA: BEGIN OF ITAB_RECIPIENT OCCURS 0.
          INCLUDE STRUCTURE  ZINT_RECEIVER.
  DATA: END OF ITAB_RECIPIENT.
Declare an internal table for Parent segment.
  DATA:  itab_idoc_par TYPE ty_idoc_par occurs 0 with header line.
Declare an internal table for child segment.
  DATA:  itab_idoc_chd TYPE ty_idoc_chd occurs 0 with header line.
Declare variables for Parent and Child Segments
  DATA:  i_z1parseg  LIKE   z1parseg,     "PARENT SEGMENT DATA.
         i_z1child   LIKE   z1child.      "CHILD  SEGMENT DATA.
Internal table to process function to send error mails.
  DATA: itab_err_mess  TYPE   ty_message     occurs 0 with header line.
  DATA: itab_mess_output TYPE ty_mess_output occurs 0 with header line.
Variables for sending error mails.
  DATA: objnr                 LIKE   SOOD1-ACNAM, "Name of object.
        V_ERR_DESC_1          LIKE   SOOD1-OBJDES,
                    "Error message on pop up box after program executes.
        V_OBJLINE             LIKE   ITAB_ERR_MESS-OBJLINE,
        V_MESSAGE_1(60)       TYPE   C,
        V_MESSAGE_2(120)      TYPE   C,
        V_MESSAGE_3(75)       TYPE   C,
        V_MESSAGE_4(150)      TYPE   C,
        V_MESSAGE_5(150)      TYPE   C,
        V_MESSAGE_6(150)      TYPE   C,
        V_RDATE(10)           TYPE   C,
        V_RTIME(8)            TYPE   C,
        V_RECIPIENT(12)       TYPE   C,
        v_itab_idoc_par_lines,
        v_itab_idoc_chd_lines,
        child_counter         TYPE   C,
        parent_counter        TYPE   C,
        idoc_counter          TYPE   C,
        v_mess_output(1000)   TYPE   C,
        v_error_detail(88)    TYPE   C,
        v_final_detail(1000)  TYPE   C,
        V_DUMMY               TYPE   C.   "Dummy File Indicator.
*eject.
Constant Declarations
  CONSTANTS:
BASIC IDOC TYPE AS CREATED FROM TRANSACTION CODE we30.
  C_Segment_type1(8)         TYPE C  VALUE  'Z1IDOCOB',
  C_mestyp(11)               TYPE C  VALUE  'ZSAMPLEMESS',
  C_SENDMODE                 TYPE C  VALUE  'B',   "Sending Mode
  C_EXPRESS                  TYPE C  VALUE  'E',
  C_LANGUAGE                 LIKE sy-langu   VALUE  'E'.
**********************END OF DECLARATIONS*****************************
*eject
Initialisation
INITIALIZATION.
Assign the initial settings for sending error mails.
  v_err_desc_1   = 'Message from processing ZOUTBD_IDOC_TEMPLATE.'.
                   "Error message in pop up box after program executes.
  v_error_detail = 'A complete set of detail records is not held for'.
  idoc_counter   = '0'.   "No of Idocs processed.
  parent_counter = '0'.   "No of parent segments selected.
  child_counter  = '0'.   "No of child segments selected.
*************************BEGIN OF PROCESSING**************************
Call form to initialize standard structures
  PERFORM clear_Structures.
Fill report to tell user when the interface was run.
  PERFORM fill_mail_report.
Call function to populate parent structure:
  PERFORM select_parent_data.
Call function to populate child structure:
  PERFORM select_child_data.
Inform the user of the number of records that were selected.
  PERFORM fill_record_selected.
Loop at contents of parent structure:
  LOOP AT itab_idoc_par.
Populate the control structure with the partner and port sending and
receiving details.
   REFRESH itab_idoc_data.
   PERFORM populate_Control_structure USING  c_mestyp
                                             c_SEGMENT_type1.
   PERFORM transfer_Parent_data_to_seg.
Loop at the children structure - retrieving the children segments
for this parent.
   LOOP AT itab_idoc_chd WHERE WERKS = itab_idoc_par-WERKS.
Call form to transfer data to child Idoc.
   PERFORM transfer_Child_data_to_seg.
ENDLOOP.      "Stop looping through the children structure.
Call SAP function to transfer data.
   PERFORM master_idoc_distribute.
Form to close logical unit of work.
   PERFORM COMMIT_WORK.
ENDLOOP.   " Stop looping through the parent structure.
Fill the number of articles processed for online mail.
   PERFORM fill_process_record.
Write to online mail report on data interface has processed.
   PERFORM FILL_ERR_MESSAGE USING  V_OBJLINE
                                   V_MESSAGE_1
                                   V_MESSAGE_2
                                   V_MESSAGE_3
                                   V_MESSAGE_4
                                   V_MESSAGE_5
                                   V_MESSAGE_6.
Send online mail with contents of message fields.
   PERFORM SEND_MAIL.