SAP PROGRAMS: IDOCS in BOUND FLOW

IDOC Inbound flow steps:

1. Creation of segment (WE31)

2. Basic idoc type creation (WE30)

3. Message type creation (WE81)

4. Assign message type to basic idoc type (WE82)

5. Creating Function module (SE37)

6. Assign Function module to logical system (WE57).

7. Define input Method for Inbound function module (BD51).

8. Creating process code (WE42).

9. Generating the Partner Profile (BD64).

10. Partner profile (WE20)

Create Segment type

Go to t code WE31:

Provide the Segment name: Z1SRQTEV

Click on Create button

Provide short description and field names to we are received data from outbound idoc.

Click on save button

Click on back button find the segment definition is created

Basic idoc type creation:

Go to WE30:

Provide object name:ZHRRQTEV01

Click on create button

Provide description and create new radio button

Click on enter

Click on create

Provide segment type and min and max numbers after click one ok button

Click on save button

MESSAGE type creation:

Go to transaction code: WE81

Click on display change button popup is shown like below click on ok

Click on new entries tab

Provide message type and short text

Click on save button

Message type is created

ASSIGN MESSAGE TYPE TO IDOCTYPE

Go to transaction code: WE82

Click on display change button

Click on new entries tab

Provide message type and basic type and Realease

Click on save button

CREATE FUNCTION MODULE

Go to transaction code:SE37

Provide function module name: ZFHR_PT_CATSDB_APRISO12

Click on create button

Provide function group name and short text

Click on save button

Create function module

Import, export, tables and source code

FUNCTION ZFHR_PT_CATSDB_APRISO.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*"     REFERENCE(INPUT_METHOD) LIKE BDWFAP_PAR-INPUTMETHD
*"     REFERENCE(MASS_PROCESSING) LIKE BDWFAP_PAR-MASS_PROC
*" EXPORTING
*"     REFERENCE(WORKFLOW_RESULT) LIKE BDWF_PARAM-RESULT
*"     REFERENCE(APPLICATION_VARIABLE) LIKE BDWF_PARAM-APPL_VAR
*"     REFERENCE(IN_UPDATE_TASK) LIKE BDWFAP_PAR-UPDATETASK
*"     REFERENCE(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
*" EXCEPTIONS
*"      WRONG_FUNCTION_CALLED
*"----------------------------------------------------------------------
* Include File containing ALE constants
INCLUDE MBDCONWF.
TABLES : CATSDB,
         PA2003.
DATA : WA_ZSHR_RQTEV      TYPE ZSHR_RQTEV, "Structure
       WA_Z1SRQTEV        TYPE Z1SRQTEV,    "segment
       wa_data            type edidd,
       WA_CATSDB          TYPE CATSDB,
       IT_CATSDB          TYPE TABLE OF CATSDB,
       WA_P2003           TYPE PA2003,
       IT_P2003           TYPE TABLE OF PA2003,
       return             TYPE bapireturn1.

DATA: empnumber               TYPE hr_pernr,
       message                 TYPE string,
       ret                     TYPE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: catsrecords_input       LIKE bapicats1 OCCURS 0 WITH HEADER LINE,
       sendercostcentre        TYPE kostl,
       profile                 TYPE catsvarian VALUE 'USP-LGL1',
       wa_i_catsrecords_input LIKE bapicats1.
WORKFLOW_RESULT    = C_WF_RESULT_OK.
LOOP AT IDOC_DATA INTO WA_DATA. "WHERE DOCNUM EQ IDOC_CONTRL-DOCNUM.
    CASE WA_DATA-SEGNAM.
      WHEN 'Z1SRQTEV'.
        AT NEW SEGNUM.
          WA_Z1SRQTEV = WA_DATA-SDATA.
          MOVE-CORRESPONDING WA_Z1SRQTEV TO WA_P2003.
          MOVE-CORRESPONDING WA_Z1SRQTEV TO WA_CATSDB.
          APPEND WA_CATSDB TO IT_CATSDB.
        ENDAT.
***********begin of insert data in pa2003 infotype
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
       EXPORTING
            number = WA_P2003-pernr
       IMPORTING
            return = return.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
   EXPORTING
     infty                  = '2003'
     number                 = WA_P2003-pernr
    SUBTYPE                 = WA_P2003-subty
    VALIDITYEND             = WA_P2003-endda
    VALIDITYBEGIN           = WA_P2003-begda
     record                 = WA_P2003
     operation              = 'INS'
IMPORTING
    RETURN                  = return
           .
if sy-subrc = 0.
   message 'INSERT DATA IN INFOTYPE SUCCESSFULLY' type 'I'.
endif.
*mapping
CATSDB-PERNR     = catsrecords_input-employeenumber.
CATSDB-WORKDATE = catsrecords_input-workdate.
CATSDB-BEGUZ     = catsrecords_input-STARTTIME.
CATSDB-ENDUZ     = catsrecords_input-ENDTIME.
CATSDB-CATSHOURS = catsrecords_input-CATSHOURS.
CATSDB-AWART     = catsrecords_input-ABS_ATT_TYPE.
CATSDB-STATUS    = '30'.

move-corresponding wa_catsdb to catsrecords_input.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    input = sendercostcentre
IMPORTING
    output = sendercostcentre.

CALL FUNCTION 'BAPI_CATIMESHEETMGR_INSERT'
EXPORTING
   profile               = profile
TABLES
    catsrecords_in        = catsrecords_input
    return                = ret
          .
IF sy-subrc EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
IF ret[] IS INITIAL.
    CONCATENATE 'Time Sheet has been filled successfully for' empnumber INTO message SEPARATED BY space.
ELSE.
    READ TABLE ret WITH KEY type = 'E'.
    IF sy-subrc EQ 0.
      message = ret-message.
    ELSE.
      READ TABLE ret INDEX 1.
      message = ret-message.
    ENDIF.
ENDIF.
ELSE.
READ TABLE ret WITH KEY type = 'E'.
IF sy-subrc EQ 0.
    message = ret-message.
ELSE.
    READ TABLE ret WITH KEY type = 'A'.
    IF sy-subrc EQ 0.
      message = ret-message.
    ELSE.
      READ TABLE ret INDEX 1.
      message = ret-message.
    ENDIF.
ENDIF.
ENDIF.
if sy-subrc = 0.
message 'INSERT DATA IN CATSDB TABLE SUCCESSFULLY' type 'I'.
endif.
*****************end of insert the data in catsdb table
    IF SY-SUBRC EQ 0.
      IDOC_STATUS-DOCNUM = IDOC_CONTRL-DOCNUM.
      IDOC_STATUS-STATUS = '53'.
      IDOC_STATUS-MSGTY = 'I'.
      IDOC_STATUS-MSGID = 'ZHR'.
      IDOC_STATUS-MSGNO = '012'.
      IDOC_STATUS-MSGV1 = WA_CATSDB-PERNR.
      APPEND IDOC_STATUS.
      CLEAR IDOC_STATUS.
    ELSE.
      IDOC_STATUS-DOCNUM = IDOC_CONTRL-DOCNUM.
      IDOC_STATUS-STATUS = '51'.
      IDOC_STATUS-MSGTY   = 'E'.
      IDOC_STATUS-MSGID   = 'ZHR'.
      IDOC_STATUS-MSGNO   = '013'.
      IDOC_STATUS-MSGV1   = WA_CATSDB-PERNR.
      APPEND IDOC_STATUS.
      CLEAR IDOC_STATUS.
      WORKFLOW_RESULT             = C_WF_RESULT_ERROR.
      RETURN_VARIABLES-WF_PARAM   = 'Error_Idocs'.
      RETURN_VARIABLES-DOC_NUMBER = IDOC_CONTRL-DOCNUM.
      APPEND RETURN_VARIABLES.
      CLEAR RETURN_VARIABLES.
    ENDIF.
endcase.
endloop.

ENDFUNCTION.

ASSIGN FM TO LOGICAL MESSAGE

Go to transaction code WE57