FM ABAP coding error

Question

i created GENERIC datasource  and i am trying to fill the values in that datasource using Fm.
Within my FM i want to call FM- CRM_ORDER_READ to get the values.
now when u execute CRM_ORDER_READ, i want the data from segments
ET_ORDERADM_H : GUID
ET_ORDERADM_H :  OBJECT ID
& ET_ORDERADM_I : HEADER
ET_ORDERADM_I :  ITM_TYPE
now, when HEADER = guid extract ALL ITEM TYPES
extract data for all guids.  (guid is something like order number which is key in between different segments.)
my code below gives NO-Error and short dumps at execution in RSA3-
ERROR IS : FM- CRM_ORDER_READ is called with ITM-TYPE. ITM_TYPE is not defined.
can somebody suggest corrections:
CASE I_DSOURCE.
WHEN 'ZCRM_COMP_TEST_D2'.
WHEN OTHERS.
IF 1 = 2. MESSAGE E009(R3). ENDIF.
LOG_WRITE 'E' "message type
'R3' "message class
'009' "message number
I_DSOURCE "message variable 1
' '. "message variable 2
RAISE ERROR_PASSED_TO_MESS_HANDLER.
ENDCASE.
APPEND LINES OF I_T_SELECT TO S_S_IF-T_SELECT.
S_S_IF-REQUNR = I_REQUNR.
S_S_IF-DSOURCE = I_DSOURCE.
S_S_IF-MAXSIZE = I_MAXSIZE.
ELSE. "Initialization mode or data extraction ?
loop at s_s_if-t_select into l_s_select
where fieldnm = 'ITM_TYPE'.
move-corresponding l_s_select to L_R_ITM_TYPE.
append L_R_ITM_TYPE.
endloop.
  OPEN CURSOR WITH HOLD S_CURSOR FOR
     SELECT *  FROM CRMD_ORDERADM_H
        WHERE PROCESS_TYPE  EQ 'STT1'.
   ENDIF. "  this endif is for the IF S_COUNTER_DATAPAKID = 0.
           " this will ensure the base records are selected from header with a pariticular doc type for the
           " for the cursor
FETCH NEXT CURSOR S_CURSOR
APPENDING CORRESPONDING FIELDS
OF TABLE E_T_DATA
PACKAGE SIZE S_S_IF-MAXSIZE.
IF SY-SUBRC EQ 0.
Here select the guid of the header table which can be used in the FM
DATA : LT_HEADER      TYPE            CRMT_OBJECT_GUID_TAB     .
       SELECT GUID FROM CRMD_ORDERADM_H
       INTO  TABLE LT_HEADER
                WHERE PROCESS_TYPE  EQ 'STT1'.
   "CAll the FM here
       CALL FUNCTION 'CRM_ORDER_READ'
       EXPORTING
         IT_HEADER_GUID = LT_HEADER
       IMPORTING 
                             ITM_TYPE = CRMD_ORDERADM_I-ITM_TYPE.
     " MOdify e_t_data .... transporting your fields from FM
   ENDIF .
   IF SY-SUBRC <> 0.     
CLOSE CURSOR S_CURSOR.
RAISE NO_MORE_DATA.
ENDIF.
S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
ENDIF. "Initialization mode or data extraction ?
ENDIF.
ENDFUNCTION.
any inputs??

Answer 1

so i modified the code , it is bringing values for GUID & Object id (Order Numbers) but the field for ITEM_TYPE is always empty.
what modification needs to be done in code so that it item_type is populated.
(the logic is something like when GUID of   et_orderadm_h = Header of   et_orderadm_i, bring in all ITEM TYPES)
so data in   et_orderadm_h is
GUID--OBJECT ID
111.......101
112.......102
and data in   et_orderadm_i is :
GUID--Header guid.........item types
911.......111........................ORD1
912.......111........................ORD2
913.......111........................ORD3
914.......112........................ORD4
915.......112........................ORD5
916.......112........................ORD6..............
IF S_COUNTER_DATAPAKID = 0.
       loop at s_s_if-t_select into l_s_select
         where fieldnm = 'ITM_TYPE'.
         move-corresponding l_s_select to L_R_ITM_TYPE.
         append L_R_ITM_TYPE.
         endloop.
        OPEN CURSOR WITH HOLD S_CURSOR FOR
        SELECT *  FROM CRMD_ORDERADM_H
        WHERE PROCESS_TYPE EQ 'ZSRV'.
FETCH NEXT CURSOR S_CURSOR
APPENDING CORRESPONDING FIELDS
OF TABLE E_T_DATA
PACKAGE SIZE S_S_IF-MAXSIZE.
IF SY-SUBRC EQ 0.
DATA : LT_HEADER TYPE CRMT_OBJECT_GUID_TAB .
       SELECT GUID FROM CRMD_ORDERADM_H
       INTO  TABLE LT_HEADER
         WHERE PROCESS_TYPE EQ 'ZSRV'.
   "CAll the FM here
       CALL FUNCTION 'CRM_ORDER_READ'
        EXPORTING
          it_header_guid = lt_header_guid
          it_requested_objects = lt_request_objs
          IMPORTING
            et_orderadm_h = lt_orderadm_h
            et_orderadm_i = lt_orderadm_i
            et_status = lt_status.
      ENDIF .
        IF SY-SUBRC <> 0.
          CLOSE CURSOR S_CURSOR.
          RAISE NO_MORE_DATA.
          ENDIF.
S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
ENDIF...
any inputs???????