Help on GE -Functional Module

Question

Hi ,
i am wrote FM based on RSAX_BIW_GETDATA_SIMPLE.
once i run on RSA3 , it will go to the Dump.
Plz check my code and tell me where i am wrong ....
i assign points...
code ....
FUNCTION ZXBWMM_PRSTATUSCR.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_REQUNR) TYPE  SRSC_S_IF_SIMPLE-REQUNR
*"     VALUE(I_DSOURCE) TYPE  SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     VALUE(I_MAXSIZE) TYPE  SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     VALUE(I_INITFLAG) TYPE  SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*"     VALUE(I_READ_ONLY) TYPE  SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*"     VALUE(I_REMOTE_CALL) TYPE  SBIWA_FLAG DEFAULT SBIWA_C_FLAG_OFF
*"  TABLES
*"      I_T_SELECT TYPE  SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE  ZVSAPR OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
Example: DataSource for table SFLIGHT
  TABLES: SFLIGHT.
  TABLES: EBAN , CDPOS , CDHDR , ZVSAPR.
  TYPES : BEGIN OF TY_OBJDATE ,
        OBJECTID TYPE EBAN-BANFN,
        VALUE_NEW TYPE CDPOS-VALUE_NEW,
        ZZVALUE TYPE eban-preis,
        UDATE TYPE CDHDR-UDATE,
        END OF TY_OBJDATE.
  data : int_cdhdr type table of cdhdr with header line,
       int_cdpos type table of cdpos with HEADER LINE,
       INT_OBJDATE TYPE TABLE OF TY_OBJDATE WITH HEADER LINE.
DATA: int_pr1 TYPE TABLE OF ZVSAPR WITH HEADER LINE.
Auxiliary Selection criteria structure
  DATA: L_S_SELECT TYPE SRSC_S_SELECT.
Maximum number of lines for DB table
  STATICS: S_S_IF TYPE SRSC_S_IF_SIMPLE,
counter
          S_COUNTER_DATAPAKID LIKE SY-TABIX,
cursor
          S_CURSOR TYPE CURSOR.
Select ranges
RANGES: L_R_CARRID  FOR SFLIGHT-CARRID,
         L_R_CONNID  FOR SFLIGHT-CONNID.
    RANGES : ra_BANFN FOR E_T_DATA-BANFN.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
  IF I_INITFLAG = SBIWA_C_FLAG_ON.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
Check DataSource validity
    CASE I_DSOURCE.
      WHEN 'ZPRSTATUSCR'.
      WHEN OTHERS.
        IF 1 = 2. MESSAGE E009(R3). ENDIF.
this is a typical log call. Please write every error message like this
        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.
Fill parameter buffer for data extraction calls
    S_S_IF-REQUNR    = I_REQUNR.
    S_S_IF-DSOURCE = I_DSOURCE.
    S_S_IF-MAXSIZE   = I_MAXSIZE.
Fill field list table for an optimized select statement
(in case that there is no 1:1 relation between InfoSource fields
and database table fields this may be far from beeing trivial)
    APPEND LINES OF I_T_FIELDS TO S_S_IF-T_FIELDS.
  ELSE.                 "Initialization mode or data extraction ?
Data transfer: First Call      OPEN CURSOR + FETCH
               Following Calls FETCH only
First data package -> OPEN CURSOR
    IF S_COUNTER_DATAPAKID = 0.
Fill range tables BW will only pass down simple selection criteria
of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.
     LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CARRID'.
       MOVE-CORRESPONDING L_S_SELECT TO L_R_CARRID.
       APPEND L_R_CARRID.
     ENDLOOP.
     LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CONNID'.
       MOVE-CORRESPONDING L_S_SELECT TO L_R_CONNID.
       APPEND L_R_CONNID.
     ENDLOOP.
Determine number of database records to be read per FETCH statement
from input parameter I_MAXSIZE. If there is a one to one relation
between DataSource table lines and database entries, this is trivial.
In other cases, it may be impossible and some estimated value has to
be determined.
     OPEN CURSOR WITH HOLD S_CURSOR FOR
     SELECT (S_S_IF-T_FIELDS) FROM SFLIGHT
                              WHERE CARRID  IN L_R_CARRID AND
                                    CONNID  IN L_R_CONNID.
      select * from cdhdr into table int_cdhdr where OBJECTCLAS = 'BANF' AND TCODE IN ('ME52N','ME54N').
SELECT * FROM CDPOS INTO TABLE INT_CDPOS
     FOR ALL ENTRIES IN INT_CDHDR
     WHERE OBJECTCLAS = INT_CDHDR-OBJECTCLAS
     AND CHANGENR = INT_CDHDR-CHANGENR
     AND TABNAME = 'EBAN'
     AND FNAME = 'FRGKZ'
     AND VALUE_NEW = '2'.
SELECT * FROM CDPOS APPENDING TABLE INT_CDPOS
     FOR ALL ENTRIES IN INT_CDHDR
     WHERE OBJECTCLAS = INT_CDHDR-OBJECTCLAS
     AND CHANGENR = INT_CDHDR-CHANGENR
     AND TABNAME = 'EBAN'
     AND FNAME = 'LOEKZ'
     AND VALUE_NEW = 'X'.
   LOOP AT INT_CDPOS.
     READ TABLE INT_CDHDR WITH KEY OBJECTID = INT_CDPOS-OBJECTID CHANGENR = INT_CDPOS-CHANGENR.
     IF SY-SUBRC = 0.
        INT_OBJDATE-OBJECTID = INT_CDPOS-OBJECTID.
        INT_OBJDATE-VALUE_NEW = INT_CDPOS-VALUE_NEW.
        INT_OBJDATE-UDATE = INT_CDHDR-UDATE.
        APPEND INT_OBJDATE.
     ENDIF.
   ENDLOOP.
SELECT * FROM EBAN
     INTO CORRESPONDING FIELDS OF TABLE INT_PR1
     FOR ALL ENTRIES IN INT_OBJDATE
     WHERE BAnfn = int_objdate-objectid.
*ZZPRREL
LOOP AT INT_PR1.
   ON CHANGE OF INT_PR1-BANFN.
   READ TABLE int_objdate with KEY objectid = int_pr1-banfn.
   INT_PR1-udate = int_objdate-udate.
   IF int_objdate-VALUE_NEW = '2'.
    int_pr1-ZZPRREL = 'R'.
   ENDIF.
   ENDON.
   READ TABLE int_objdate with KEY objectid = int_pr1-banfn.
   IF int_objdate-VALUE_NEW = 'X'.
    int_pr1-ZZPRREL = 'D'.
   ENDIF.
   IF eban-peinh is INITIAL.
    eban-peinh = 1.
   ENDIF.
   int_pr1-ZZVALUE = ( INT_PR1-preis / eban-peinh ) * 8.
   MODIFY INT_PR1.
ENDLOOP.
   if int_pr1 is not initial.
refresh E_T_DATA.
endif.
LOOP AT int_pr1.
E_T_DATA-BANFN = int_pr1-banfn.
E_T_DATA-BNFPO = int_pr1-bnfpo.
E_T_DATA-BSART = int_pr1-BSART.
E_T_DATA-LOEKZ = int_pr1-loekz.
E_T_DATA-FRGKZ = int_pr1-frgkz.
E_T_DATA-MATNR = int_pr1-matnr.
E_T_DATA-TXZ01 = int_pr1-txz01.
E_T_DATA-MENGE = int_pr1-menge.
E_T_DATA-MEINS = int_pr1-meins.
E_T_DATA-LFDAT = int_pr1-lfdat.
E_T_DATA-ZZVALUE = int_pr1-zzvalue.
E_T_DATA-WAERS = int_pr1-waers.
E_T_DATA-EKGRP = int_pr1-ekgrp.
E_T_DATA-WERKS = int_pr1-werks.
E_T_DATA-LGORT = int_pr1-lgort.
E_T_DATA-AFNAM = int_pr1-afnam.
E_T_DATA-UDATE = int_pr1-udate.
E_T_DATA-ZZPRREL = int_pr1-zzprrel.
APPEND E_T_DATA.
CLEAR  E_T_DATA.
ENDLOOP.
    ENDIF.                             "First data package ?
Fetch records into interface table.
  named E_T_'Name of extract structure'.
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    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 ?
ENDFUNCTION.
Regards,
PSR.

Answer 1

Hi ,
can u share ur experience for correcting this error .
and how can i define deleta for this data sources ...
the delta is based on the Udate field ( calander day ) ...
i assign points....
Regards,
PSR