service order creation problem

[Former Member]

Hi Experts, I have a requirement to create a Service order using a BAPI. I'm trying to use the BAPI BAPI_BUSPROCESSND_CREATEMULTI. I found some code related to this BAPI on this forum . THE service order is created

but ibase / component is not filled . How can i give the Ibase through the bapi and in which parameter of the bapi i have to fil this. Could anyone please help me figure out what the problem is . my code is as follows.

[Former Member]

************DATA IN ORGMAN**********
WA_ORG-REF_GUID = LV_GUID1.
WA_ORG-REF_KIND    = 'A'.
WA_ORG-DIS_CHANNEL = DISTRIBUTION_CHANNEL.
WA_ORG-DIVISION = DIVISION.
WA_ORG-SALES_ORG = SALES_ORGANIZATION.
WA_ORG-SALES_OFFICE = SALESOFFICE.
WA_ORG-SALES_ORG_RESP = ORG_UNIT.
WA_ORG-SERVICE_ORG_RESP = SERVICE_ORG_UNIT.
WA_ORG-SERVICE_ORG      = SERVICE_ORGANIZATION.
WA_ORG-MODE           = 'A'.

APPEND WA_ORG TO IT_ORG.


*************** ORGMAN INPUT FIELDS*****************
CLEAR WA_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'DIS_CHANNEL'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'DIVISION'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'SALES_ORG'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'SALES_OFFICE'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'SALES_ORG_RESP'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'SALES_ORG_RESP'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.


WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'SERVICE_ORG'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORGMAN'.
WA_INPUT_FIELDS-FIELDNAME = 'MODE'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.


************SERVICE_OS***************
WA_SERVICE-REF_GUID = LV_GUID1.
APPEND WA_SERVICE TO IT_SERVICE.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'SERVICE_H'.
WA_INPUT_FIELDS-FIELDNAME = 'MODE'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.



*************DATA IN PRODUCT**********

WA_PROD-REF_GUID = LV_GUID2.
wa_prod-process_qty_unit = QUANTITY_UNIT.
APPEND wa_prod TO IT_PROD.

****************************
**INPUT FIELDS PRODUCT
*****************************

CLEAR wa_input_fields.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
*WA_input_fields-ref_handle = '0000000002'.
WA_input_fields-ref_kind = 'B'.
WA_input_fields-objectname = 'PRODUCT_I'.
WA_input_fields-fieldname = 'PROCESS_QTY_UNIT'.
WA_input_fields-changeable = 'X'.
APPEND WA_input_fields TO IT_input_fields.


*************DATA IN SCHED**********
*

WA_SCHEDLINES-ITEM_GUID = LV_GUID2.
WA_SCHEDLINES-GUID = LV_GUID3.
WA_schedlines-QUANTITY = QUANTITY.
APPEND WA_schedlines TO It_schedlines.



****************************
**INPUT FIELDS SCHEDULE LINE
*****************************
CLEAR WA_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_input_fields-ref_kind = 'B'.
WA_input_fields-objectname = 'SCHEDLIN'.
WA_input_fields-fieldname = 'QUANTITY'.
WA_input_fields-changeable = 'X'.
APPEND WA_input_fields TO It_input_fields.




************DATA IN PRICING*********
WA_PRICING-REF_GUID = LV_GUID1.
WA_PRICING-REF_KIND = 'A'.
WA_PRICING-CURRENCY = CURRENCY.

APPEND WA_PRICING TO IT_PRICING.



*****************************
*INPUT FIELDS PRICING
****************************
CLEAR WA_INPUT_FIELDS.


WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PRICING'.
WA_INPUT_FIELDS-FIELDNAME = 'CURRENCY'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.



** Objects
WA_OBJECTS-ref_guid = lv_guid2.
wa_objects-ibase_component = '000000000000000010'.
WA_OBJECTS-IBASE_HEADER = IBASE_COMPONENT.
wa_objects-ref_handle = '0000000002'.
APPEND wa_objects TO IT_objects.

*INPUT FIELDS
CLEAR WA_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
wa_input_fields-objectname = 'ORDPRP_I'.
wa_input_fields-ref_kind = 'D'.
wa_input_fields-ref_handle = '0000000002'.
wa_input_fields-fieldname = 'IBASE_COMPONENT'.
APPEND wa_input_fields TO it_input_fields.
wa_input_fields-fieldname = 'IBASE_HEADER'.
APPEND wa_input_fields TO it_input_fields.


CALL FUNCTION 'BAPI_BUSPROCESSND_CREATEMULTI'
  TABLES
    HEADER                  = IS_HEADER

   ITEM                    = IS_ITEM
   ACTIVITY                = IT_ACTIVITY
   SALES                   = It_SALES
   PARTNER                 = IT_PARTNER
   ORGANISATION            = IT_ORG
*   SERVICE_OS              = IT_SERVICE
   INPUT_FIELDS            = IT_INPUT_FIELDS
   CREATED_PROCESS         = ITAB_CREATED_PROCESS
   RETURN                  = IT_RETURN
   PRODUCT                 = IT_PROD
   SCHEDULELINE            = IT_SCHEDLINEs
   PRICING                 = IT_PRICING
  OBJECTS                 = IT_OBJECTS
          .
W_OBJECT_TO_SAVE-GUID = lv_guid1.
APPEND  W_OBJECT_TO_SAVE TO It1_object_to_save.

DATA:ITAB_RET TYPE TABLE OF BAPIRET2,
     WA_RET1 TYPE BAPIRET2.

CALL FUNCTION 'BAPI_BUSPROCESSND_SAVE'
  EXPORTING
    UPDATE_TASK_LOCAL = SPace
    SAVE_FRAME_LOG    = 'X'
*  IMPORTING
*    LOG_HANDLE        = LV_LOG_HANDLE
  TABLES
    OBJECTS_TO_SAVE   = It1_object_to_save
    SAVED_OBJECTS     = i_saved_objects
    RETURN            = IT_RETURN1.

BREAK-POINT.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*   EXPORTING
*     WAIT          = 'X'
*   IMPORTING
*     RETURN        = IT_RET2
.

if sy-subrc = 0.
data:g_id type char10,
     g_sales type char25.
read table i_saved_objects into WA_SAVed_objects index 1.
g_objnr = WA_SAVed_objects-OBJECT_ID.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    INPUT         = g_objnr
 IMPORTING
   OUTPUT        =  g_objnr.

g_sales  = 'Service order created'.
WA_RET1-MESSAGE  = g_sales.
wa_ret1-id = g_objnr.
append wa_ret1 to RETURN.
ENDIF.
ENDFUNCTION.

[Former Member]

Please find the code current thread and below thread.

FUNCTION ZBAPI_SERVICE_SORDER2.
DATA :  IS_HEADER            TYPE TABLE OF      BAPIBUS20001_HEADER_INS,
        WA_HDR               TYPE               BAPIBUS20001_HEADER_INS,
        IS_ITEM	         TYPE TABLE OF     BAPIBUS20001_ITEM,
        WA_ITEM              TYPE               BAPIBUS20001_ITEM,
       IT_ACTIVITY	        TYPE TABLE OF      BAPIBUS20001_ACTIVITY_INS,
       WA_ACTIVITY           TYPE               BAPIBUS20001_ACTIVITY_INS,
        IT_PARTNER	        TYPE TABLE OF      BAPIBUS20001_PARTNER_INS,
        WA_PARTNER           TYPE               BAPIBUS20001_PARTNER_INS,
        IT_SALES	        TYPE TABLE OF      BAPIBUS20001_SALES,
        WA_SALES             TYPE               BAPIBUS20001_SALES,
        IT_ORG	        TYPE TABLE OF      BAPIBUS20001_ORGMAN_INS,
        WA_ORG               TYPE               BAPIBUS20001_ORGMAN_INS,
        IT_PRICING	        TYPE TABLE OF      BAPIBUS20001_PRICING,
        WA_PRICING           TYPE               BAPIBUS20001_PRICING,
        IT_SERVICE           TYPE TABLE OF      BAPIBUS20001_SERVICE_OS_INS,
        WA_SERVICE           TYPE               BAPIBUS20001_SERVICE_OS_INS,
        IT_RETURN	         TYPE TABLE OF     BAPIRET2,
        WA_RET               TYPE               BAPIRET2,
        IT_PROD	        TYPE TABLE OF      BAPIBUS20001_PRODUCT,
        WA_PROD              TYPE               BAPIBUS20001_PRODUCT,"PROCESS_QTY_UNIT -EA
*        IT_SCHED	        TYPE TABLE OF	BAPIBUS20001_SCHEDLIN, "QUANTITY
*        WA_SCHED             TYPE              BAPIBUS20001_SCHEDLIN,
        IT_SCHEDLINEs         TYPE TABLE OF     BAPIBUS20001_SCHEDLIN,
        WA_SCHEDLINEs         TYPE              BAPIBUS20001_SCHEDLIN,
        lv_partner_fct1      TYPE               crmt_partner_fct,
        lv_partner_fct2      TYPE               crmt_partner_fct,
        lv_partner_fct3      TYPE               crmt_partner_fct,
        lv_partner_fct4      TYPE               crmt_partner_fct,
        LV_HANDLE            TYPE               CRMT_PRP_HANDLE,
        t_object_to_save     TYPE               crmt_object_guid_tab,
        IT_OBJECT_TO_SAVE    TYPE TABLE OF      crmt_object_guid_tab,
        ts_object            type               CRMT_OBJECT_GUID,
        It1_object_to_save   TYPE TABLE OF      BAPIBUS20001_GUID_DIS,
        W_OBJECT_TO_SAVE     TYPE               BAPIBUS20001_GUID_DIS,
        LV_LOG_HANDLE        TYPE               BALLOGHNDL,
        IT_RETURN1	         TYPE TABLE OF     BAPIRET2,
        it_saved_objects     type             crmt_return_objects,
        t_exceptions         type              CRMT_EXCEPTION_T,
        t_objects_not_saved  type              CRMT_OBJECT_GUID_TAB,
        WA_INPUT_FIELDS      TYPE              BAPIBUS20001_INPUT_FIELDS,
        IT_INPUT_FIELDS      TYPE TABLE OF     BAPIBUS20001_INPUT_FIELDS,
        ITAB_CREATED_PROCESS TYPE STANDARD TABLE OF BAPIBUS20001_HEADER_INS,
        WA_CREATED_PROCESS   TYPE              BAPIBUS20001_HEADER_INS,
        IT_OBJECTS           TYPE TABLE OF     BAPIBUS20001_OBJECTS,
        WA_OBJECTS           TYPE              BAPIBUS20001_OBJECTS.

DATA:   CV_LOG_HANDLE        TYPE              BALLOGHNDL,
        i_saved_objects      type table of     BAPIBUS20001_OBJECT_ID,
        IT_RET2              TYPE TABLE OF     BAPIRET2,
        WA_SAVed_objects     type BAPIBUS20001_OBJECT_ID,
        g_objnr              type CRMT_OBJECT_ID.
DATA :
        LV_GUID1   TYPE       GUID_32,
        LV_GUID2   TYPE       GUID_32,
        LV_GUID3   TYPE       GUID_32,
        V_OBJNR22  TYPE       IBIN-OBJNR,
        V_GUID16     TYPE       COMT_PRODUCT_GUID,
        V_OBJID    TYPE       COMT_PRODUCT_ID.
*************HEADER-GUID**********
CALL FUNCTION 'GUID_CREATE'
  IMPORTING
    EV_GUID_32       =  LV_GUID1.

***********ITEM-GUID************

CALL FUNCTION 'GUID_CREATE'
 IMPORTING
   EV_GUID_32       = LV_GUID2
          .

*********SCHEDULELINE********
  CALL FUNCTION 'GUID_CREATE'
    IMPORTING
      EV_GUID_32       = LV_GUID3
             .
************DATA IN HEADER**********
WA_HDR-GUID = LV_GUID1.
WA_HDR-PROCESS_TYPE = 'YESV'.
WA_HDR-DESCRIPTION = PROCESS_DESCRIPTION.
APPEND WA_HDR TO IS_HEADER.
*************** INPUT FIELDS HEADER**************
CLEAR WA_INPUT_FIELDS.
CLEAR IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_H'.
WA_INPUT_FIELDS-FIELDNAME = 'GUID'.
wa_input_fields-fieldname = 'MODE'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_H'.
WA_INPUT_FIELDS-FIELDNAME = 'PROCESS_TYPE'.
APPEND  WA_INPUT_FIELDS TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_H'.
WA_INPUT_FIELDS-FIELDNAME = 'DESCRIPTION '.
APPEND  WA_INPUT_FIELDS TO IT_INPUT_FIELDS.


************DATA IN ITEM**********

WA_ITEM-GUID  = LV_GUID2.
WA_ITEM-HEADER  = LV_GUID1.

WA_ITEM-ORDERED_PROD = PRODUCT.
WA_ITEM-DESCRIPTION = PROD_DESCRIPTION.  "product name
WA_ITEM-ITM_LANGUAGE = 'EN'.
WA_ITEM-ITM_TYPE = ITEM_CAT.
WA_ITEM-NUMBER_INT = ITEM_NO.
WA_ITEM-MODE = 'A'.

INSERT WA_ITEM  INTO TABLE IS_ITEM.


*******INPUT FIELDS ITEM*****************
******************************
CLEAR WA_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'ORDERED_PROD'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'DESCRIPTION '.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'ITM_LANGUAGE'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'ITM_TYPE'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID2.
WA_INPUT_FIELDS-REF_KIND = 'B'.
WA_INPUT_FIELDS-OBJECTNAME = 'ORDERADM_I'.
WA_INPUT_FIELDS-FIELDNAME = 'NUMBER_INT'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

************DATA IN ACTIVITY**********

WA_ACTIVITY-REF_GUID = LV_GUID1.
WA_ACTIVITY-PRIORITY = PRIORITY.
APPEND WA_ACTIVITY TO IT_ACTIVITY.

*************INPUT FIELDS SALES*************
*******************************

CLEAR WA_INPUT_FIELDS.


WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'C'.
WA_INPUT_FIELDS-OBJECTNAME = 'ACTIVITY_H'.
WA_INPUT_FIELDS-FIELDNAME = ' PRIORITY'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.


************DATA IN SALES**********
WA_SALES-REF_GUID = LV_GUID1.
WA_SALES-PO_NUMBER_SOLD = SOLD_T0_PARTY.
wa_sales-ref_kind = 'A'.
APPEND WA_SALES TO It_SALES.

*************INPUT FIELDS SALES*************
CLEAR WA_INPUT_FIELDS.
WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'E'.
WA_INPUT_FIELDS-OBJECTNAME = 'SALES'.
WA_INPUT_FIELDS-FIELDNAME = 'PO_NUMBER_SOLD'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.
************DATA IN PARTNER *********
WA_PARTNER-REF_GUID    = LV_GUID1.
WA_PARTNER-REF_KIND    = 'A'.
WA_PARTNER-PARTNER_FCT = '00000001'.
WA_PARTNER-PARTNER_NO  =  SOLD_T0_PARTY .
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'.    "Business Partner Number
wa_partner-no_type = 'BP'.        "Business Partner Number
wa_partner-kind_of_entry = 'C'.  "entered manually

APPEND WA_PARTNER TO IT_PARTNER.


WA_PARTNER-REF_GUID    = LV_GUID1.
WA_PARTNER-REF_KIND    = 'A'.
WA_PARTNER-PARTNER_FCT = '00000014'.
WA_PARTNER-PARTNER_NO  =  EMPLOYEE_RESPONSIBLE .
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'.    "Business Partner Number
wa_partner-no_type = 'BP'.        "Business Partner Number
wa_partner-kind_of_entry = 'C'.  "entered manually

APPEND WA_PARTNER TO IT_PARTNER.

WA_PARTNER-REF_GUID    = LV_GUID1.
WA_PARTNER-REF_KIND    = 'A'.
WA_PARTNER-PARTNER_FCT = '00000056'.
WA_PARTNER-PARTNER_NO  =  SERVICE_EMPLOYEE_GROUP.
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'.    "Business Partner Number
wa_partner-no_type = 'BP'.        "Business Partner Number
wa_partner-kind_of_entry = 'C'.  "entered manually

APPEND WA_PARTNER TO IT_PARTNER.

WA_PARTNER-REF_GUID    = LV_GUID1.
WA_PARTNER-REF_KIND    = 'A'.
WA_PARTNER-PARTNER_FCT = '00000003'.
WA_PARTNER-PARTNER_NO  =  BILL_TO_PARTY.
wa_partner-ref_partner_handle = '0001'.
wa_partner-display_type = 'BP'.    "Business Partner Number
wa_partner-no_type = 'BP'.        "Business Partner Number
wa_partner-kind_of_entry = 'C'.  "entered manually


APPEND WA_PARTNER TO IT_PARTNER.

************************************
*INPUT FIELDS PARTENER
************************************
CLEAR WA_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_FCT'.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

WA_INPUT_FIELDS-REF_GUID = LV_GUID1.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
WA_INPUT_FIELDS-FIELDNAME = 'PARTNER_NO '.
wa_input_fields-logical_key = '0001'.
APPEND  WA_INPUT_FIELDS  TO IT_INPUT_FIELDS.

wa_input_fields-ref_guid = lv_guid1.
wa_input_fields-ref_kind = 'A'.
wa_input_fields-objectname = 'PARTNER'.
wa_input_fields-fieldname = 'KIND_OF_ENTRY '.
wa_input_fields-logical_key = '0001'.
APPEND wa_input_fields TO it_input_fields.

wa_input_fields-ref_guid = lv_guid1.
wa_input_fields-ref_kind = 'A'.
wa_input_fields-objectname = 'PARTNER'.
wa_input_fields-fieldname = 'NO_TYPE '.
wa_input_fields-logical_key = '0001'.
APPEND wa_input_fields TO it_input_fields.

wa_input_fields-ref_guid = lv_guid1.
wa_input_fields-ref_kind = 'A'.
wa_input_fields-objectname = 'PARTNER'.
wa_input_fields-fieldname = 'DISPLAY_TYPE '.
wa_input_fields-logical_key = '0001'.
APPEND wa_input_fields TO it_input_fields.
as follows.
please find below thread.

Edited by: venkatrao veeramaneni on Nov 4, 2011 3:54 PM

Edited by: venkatrao veeramaneni on Nov 4, 2011 3:57 PM