Inbound IDOC extension

Question

Hi,
iam working on an inbound IDOC TPSSHT01, i need to add an extrta field and segment , so i create an data element and  Z segment and add the field in the segment
i have to copy the TPSSHT01 to a ZTPSSHT01 and do the IDoc extension ,
i have to copy the function module IDOC_INPUT_SHIPPL to Z_IDOC_INPUT_SHIPPL
Can any body let me know what are the steps that i have to follow to process the inbound idoc with the above requirment
Cheers,
Sai

Answer 1

Hi ,
      Follow this procedure .
In bound Idoc…
Step 1: Create segment
a.     T.code WE31
b.     Enter a new segment type and press create button
c.     Give a short text
d.     Enter the field names say FIELD NAME : MATNR ;; DATA ELEMENT: CHAR(18)
e.     Save the segment   (zkrishseg)
Step 2: Create IDOC type
a.     T.code WE30
b.     Enter a new IDOC type name
c.     Choose the basic type and press the create button.
d.     Choose the create new option button and enter a description and press enter
e.     Place the cursor on the type name and then press create button.
f.     Enter the segment name created in step 1 and check the mandatory segment check box
g.     Enter minimum number and maximum number as 1 and press enter.
h.     Then save the IDOC type.   (zkrishtyp)
Step 3: Create message type
a.     T.code WE81
b.     Press change button.
c.     Press new entries button.
d.     Enter a message type and short text and press save button. (zkrishmsg)
Step 4: Assign message type to IDOC type.
a.     T.code WE82
b.     Press change button
c.     Press new entries button.
d.     Enter the created message type, IDOC type and version release (46B or 46C)
Step 5:  Create a function module for inbound. (Z_IDOC_KRISH_INBOUND)
Step 5A: Create characteristics of inbound FM.
a.     T.code BD51
b.     Click ‘New entries’
c.     Enter the IDOC function module name and 1(individual type) in ‘input t.’.
d.     Save it.
Step 6: Assignment of FM to log, message and type.
a.     T.code WE57
b.     Go for change mode and click ‘new entries’.
c.     In processing by…enter FM name and enter ‘F’ as type.
d.     Enter basic type (idoc type-zkrishtyp) and message type (zkrishmsg) in the respective text boxes.
e.     Choose the direction as 2 – Inbound.
f.     Save the data.
Step 7. : Creation of inbound process code.
a.     T.code WE42
b.     Go to change mode and click ‘create entries’.
c.     Enter a new process code and description (zidockrish)
d.     Enter the FM name in the identification text box
e.     Choose processing with ALE service
f.     Choose processing by FM and click Save button
g.     In the next screen, select the FM name and click save button
Step 7a : Creation of inbound process code.
h.     T.code SM59
i.     Select ‘R/3 connection’  and click ‘create’.
j.     Enter all system related things(for Eg. Connection type as ‘3’, Target host as ‘SAP04’,
Description , and Logon  details and save.
Step 8:  Define a port
a.     T.code WE21
b.     Click on Transactional RFC and press the ‘Create’ button
c.     Enter a port name and description. (ztestkrish)
d.     Choose the release type.
e.     Choose the RFC destination.
f.     To create RFC destination…go to SPRO and search RFC destination…and create.
g.     Save the data.
Step 9. Define logical system
a.     T.code SALE
b.     Click down the sending and receiving systems
c.     Click down the logical systems
d.     Choose Define logical system.
e.     Go for new entries.
f.     Enter a new name and description and save it. (zkrishlog)
Step 10. Create partner profile
a.     T.code  WE20
b.     Choose partner type LS and click create.
c.     Enter the logical system name in partner number
d.     Then Save …. Here Type is ‘US’.
e.     click + icon(create inbound parameter) in the bottom. Note: Two table control subscreens will appear.  One for inbound and the other for outbound.  Click + icon in inbound area.
f.     Enter the message type, process code and save the data.
Step 11. Checking the Idoc
a.     T.code WE19,
b.     Choose radio Basic type , enter the type name(zkrishtyp) and press execute button.
c.     Click on EDIDC Number.
d.     Enter partner Number, Partner type, Port Number for sender and recipient ( data remains same here for sender and recipient)
e.     Enter Message type and press ENTER.
f.     Click on empty space corresponding to SEGMENT name and enter Paarameters like MATNR, WERKS and CHARG etc….
g.     Click standard inbound properties here…  and press enter… see the result….
h.     T.code WE02
i.     Enter IDOC number press ENTER see the status.
Function Module in Inbound
     Import Parameters
     INPUT_METHOD           LIKE BDWFAP_PAR-INPU              Inbound method for the IDoc inb 
MASS_PROCESSING     LIKE BDWFAP_PAR-MASS            Flag: Mass processing 
Export Parameters        
WORKFLOW_RESULT     LIKE      BDWF_PARAM-RESULT          Final value of method          
APPLICATION_VARIABLELIKE      BDWF_PARAM-APPL_VAR  Variable to be used by 
IN_UPDATE_TASK      LIKE      BDWFAP_PAR-UPDATETASK       Flag: Application has 
CALL_TRANSACTION_DONLIKE      BDWFAP_PAR-CALLTRANS        Flag: Application 
tables
     IDOC_CONTRL         LIKE      EDIDC                       Control record (IDoc)       
IDOC_DATA              LIKE      EDIDD                       Data record (IDoc)          
IDOC_STATUS          LIKE      BDIDOCSTAT           ALE IDoc status (subset of al
RETURN_VARIABLES    LIKE      BDWFRETVAR    Assignment of IDoc or documen
SERIALIZATION_INFO  LIKE      BDI_SER                Serialization objects for one
     Source code
FUNCTION ZASHOKMODULE.
""Local interface:
*"  IMPORTING
*"     VALUE(INPUT_METHOD) LIKE  BDWFAP_PAR-INPUTMETHD
*"     VALUE(MASS_PROCESSING) LIKE  BDWFAP_PAR-MASS_PROC
*"  EXPORTING
*"     VALUE(WORKFLOW_RESULT) LIKE  BDWF_PARAM-RESULT
*"     VALUE(APPLICATION_VARIABLE) LIKE  BDWF_PARAM-APPL_VAR
*"     VALUE(IN_UPDATE_TASK) LIKE  BDWFAP_PAR-UPDATETASK
*"     VALUE(CALL_TRANSACTION_DONE) LIKE  BDWFAP_PAR-CALLTRANS
*"  TABLES
*"      IDOC_CONTRL STRUCTURE  EDIDC
*"      IDOC_DATA STRUCTURE  EDIDD
*"      IDOC_STATUS STRUCTURE  BDIDOCSTAT
*"      RETURN_VARIABLES STRUCTURE  BDWFRETVAR
*"      SERIALIZATION_INFO STRUCTURE  BDI_SER
data: begin of w_data occurs 0.
       include structure edidd.
data: end of w_data.
data: wa_data like ZASH1.
data : i_data like standard table of wa_data initial size 0.
*tables : zhemal1.
data : begin of wa_zhemal1.
        include structure zhemal1.
data : end of wa_zhemal1.
data : i_ZHEMal1 like standard table of wa_ZHEMal1 initial size  0.
read table idoc_data with key SEGNAM = 'ZASH1'.
loop at  IDOC_DATA into  W_DATA where segnam = 'ZASH1'.
  WA_DATA = W_DATA-SDATA.
  wa_data  = w_data-sdata.
  append wa_data to i_data.
endloop.
MOVE IDOC_DATA-DOCNUM TO IDOC_STATUS-DOCNUM.
    IDOC_STATUS-MSGID = 'ZABC'.
    IDOC_STATUS-STATUS = 53.
    IDOC_STATUS-MSGTY = 'S'.
    IDOC_STATUS-MSGNO = '001'.
    APPEND IDOC_STATUS.
LOOP AT i_data into wa_data.
wa_ZHEMal1-VBELN = wa_data-VBELN.
wa_ZHEMal1-POSNR = wa_data-POSNR.
wa_ZHEMal1-MATNR = wa_data-MATNR.
wa_ZHEMal1-MATWA = wa_data-MATWA.
wa_ZHEMal1-MATKL = wa_data-MATKL.
append wa_ZHEMal1 to i_ZHEMal1.
insert ZHEMal1 from table  i_ZHEMal1 accepting duplicate keys .
ENDLOOP.
ENDFUNCTION.
For Out bond  Steps are
1.     Create segment
2.     Create Type
3.     Create Message Type
4.     Assign message Type to Idoc Type.
5.     Create Port
6.     Define Logical systems.
7.     Define Partner profile.
8.     Create a Report program.
Report program Out bond
REPORT ZASH1 .
              Outbound standalone idoc creation                      *
Program Name : Y_VENMAST_OUTBOUND_STANDALONE                         *
Description  : Outbound standalone idoc creation for training        *
               to Unilever offshore team members                     *
Created by   : Satyam Computer Services Ltd.                         *
Created on   : 04.01.2002                                            *
                       Modification Log                              *
Developer           Date            Transport #   Details            *
Subramony         04.01.2002                                         *
Tables Declaration                                                   *
TABLES : zhemal1.
Internal table declaration                                           *
data : i_zhem1 Like standard table of zhem1 with header line.
data : control_record_out like edidc.
*data: p type p decimals 2,
     c(10) type c.
start-of-selection.
    p = '3.14'.
    c = p.
    overlay c with '0000000000000'.
  write c.
DATA : BEGIN OF I_EDIDD OCCURS 0.
        INCLUDE STRUCTURE EDIDD.
DATA : END OF I_EDIDD.
DATA : BEGIN OF I_EDIDC OCCURS 0.
        INCLUDE STRUCTURE EDIDC.
DATA : END OF I_EDIDC.
DATA : BEGIN OF I_zhemal1 OCCURS 0,
            VBELN LIKE zhemal1-VBELN,
            POSNR LIKE zhemal1-POSNR,
            MATNR LIKE zhemal1-MATNR,
            MATWA LIKE zhemal1-MATWA,
            MATKL LIKE zhemal1-MATKL,
       END OF I_zhemal1.
SELECT-OPTIONS : S_vbeln FOR zhemal1-vbeln .
START-OF-SELECTION.
  PERFORM F_GET_zhemal1.
END-OF-SELECTION.
Building Control record
CONTROL_RECORD_OUT-MESTYP = 'ZASH1'.
CONTROL_RECORD_OUT-IDOCTP = 'ZASH1'.
CONTROL_RECORD_OUT-RCVPRT = 'LS'.
CONTROL_RECORD_OUT-RCVPRN = 'ZASH1'.
CONTROL_RECORD_OUT-sndPRT = 'LS'.
CONTROL_RECORD_OUT-sndPRN = 'ZASH1'.
PERFORM F_PROCESS_OUTPUT.
*PERFORM F_FILL_EDIDD.
PERFORM F_CREATE_IDOC.
Form  F_GET_Y1COTU110                                                *
FORM F_GET_zhemal1.
  SELECT VBELN  POSNR MATNR MATWA MATKL
         FROM ZHEMAL1
         INTO TABLE I_ZHEMAL1
         WHERE VBELN IN S_VBELN.
ENDFORM.                    " F_GET_zhemal1
Form f_process_output                                                *
FORM F_PROCESS_OUTPUT.
  LOOP AT I_zhemal1.
  I_zhem1-VBELN = I_zhemal1-VBELN.
  I_zhem1-POSNR = I_zhemal1-POSNR.
  I_zhem1-MATNR = I_zhemal1-MATNR.
  I_zhem1-MATWA = I_zhemal1-MATWA.
  I_zhem1-MATKL = I_zhemal1-MATKL.
  i_edidd-segnam = 'ZASH1'.
    i_edidd-sdata  = I_zhem1.
    append i_edidd.
    clear i_edidd.
  ENDLOOP.
ENDFORM.                    " f_process_output
Form  f_create_edidc                                                 *
FORM F_CREATE_IDOC.
  CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
       EXPORTING
            MASTER_IDOC_CONTROL            = CONTROL_RECORD_OUT
       TABLES
            COMMUNICATION_IDOC_CONTROL     = I_EDIDC
            MASTER_IDOC_DATA               = I_EDIDD
       EXCEPTIONS
            ERROR_IN_IDOC_CONTROL          = 1
            ERROR_WRITING_IDOC_STATUS      = 2
            ERROR_IN_IDOC_DATA             = 3
            SENDING_LOGICAL_SYSTEM_UNKNOWN = 4
            OTHERS                         = 5.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    LOOP AT I_EDIDC.
      WRITE :/ 'IDoc Generated  :' , I_EDIDC-DOCNUM.
    ENDLOOP.
    COMMIT WORK.
  ENDIF.
ENDFORM.                               " f_create_idoc
Please reward if useful.