Data display on remote cube

Question

Hi Guru's
I've created a generic ds using fm for direct access.creating virtual cube and mapped accordingluy with ds.
Now when I do test extract on ds per a single posting day then it takes few secords to pull through the data and the no. of records are 45 on dev box.But I do data display on remote cub and it takes long and throughing a timed out error.
I dont have any routines on transformaions.
What could be the problem?
Nagesh.

Answer 1

HI
here's the code in FM
Example: DataSource for table SFLIGHT
  TABLES: BKPF,BSEG.
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,
Starting point for each data package
         READ_NEXT LIKE SY-TABIX,
Total Number of Extracted Records
         NO_RECS LIKE SY-TABIX,
Number read so far
         TEMP_CNTR(9) TYPE N.
cursor
S_CURSOR TYPE CURSOR.
Select ranges
  RANGES: R_BLDAT FOR BKPF-BLDAT,
          R_BUDAT FOR BKPF-BUDAT,
          R_CPUDT FOR BKPF-CPUDT,
          R_BUKRS FOR BKPF-BUKRS,
          R_GJAHR FOR BKPF-GJAHR,
          R_BELNR FOR BKPF-BELNR.
  DATA: GT_T_DATA LIKE ZFI_GL_4 OCCURS 0 WITH HEADER LINE.
  DATA: GT_BKPF TYPE TABLE OF BKPF,
        GS_BKPF TYPE BKPF.
  DATA: COUNTER(9) TYPE N.
  DATA: LV_MONAT(3).
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 'ZFI_GL_4'.
      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 = 'BLDAT'.
        MOVE-CORRESPONDING L_S_SELECT TO r_bldat.
        APPEND R_BLDAT.
      ENDLOOP.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'BUDAT'.
        MOVE-CORRESPONDING L_S_SELECT TO R_BUDAT.
        APPEND R_BUDAT.
      ENDLOOP.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CPUDT'.
        MOVE-CORRESPONDING L_S_SELECT TO R_CPUDT.
        APPEND R_CPUDT.
      ENDLOOP.
         LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'BUKRS'.
        MOVE-CORRESPONDING L_S_SELECT TO R_BUKRS.
        APPEND R_BUKRS.
      ENDLOOP.
         LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'GJAHR'.
        MOVE-CORRESPONDING L_S_SELECT TO R_GJAHR.
        APPEND R_GJAHR.
      ENDLOOP.
          LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'BELNR'.
        MOVE-CORRESPONDING L_S_SELECT TO R_BELNR.
        APPEND R_BELNR.
      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.
      SELECT * FROM BKPF INTO TABLE GT_BKPF WHERE BLDAT IN R_BLDAT
                                              AND BUDAT IN R_BUDAT
                                              AND CPUDT IN R_CPUDT
                                              AND BUKRS IN R_BUKRS
                                              AND GJAHR IN R_GJAHR
                                              AND BELNR IN R_BELNR.
      LOOP AT GT_BKPF INTO GS_BKPF.
        SELECT * FROM BSEG WHERE BELNR = GS_BKPF-BELNR
                           AND   BUKRS = GS_BKPF-BUKRS
                           AND   GJAHR = GS_BKPF-GJAHR.
          MOVE-CORRESPONDING GS_BKPF TO GT_T_DATA.
          MOVE-CORRESPONDING BSEG TO GT_T_DATA.
          CLEAR LV_MONAT.
          CONCATENATE '0' GT_T_DATA-MONAT INTO LV_MONAT.
          CONCATENATE GT_T_DATA-GJAHR LV_MONAT INTO GT_T_DATA-FISCPER.
          CALL FUNCTION 'BWFIU_GET_DOCUMENT_ORIGIN'
            EXPORTING
              I_AWTYP    = GT_T_DATA-AWTYP
              I_AWKEY    = GT_T_DATA-AWKEY
            IMPORTING
              E_REFBELNR = GT_T_DATA-AWREF
              E_REFGJAHR = GT_T_DATA-AWGJA
              E_REFBUKRS = GT_T_DATA-AWBUK
              E_REFKOKRS = GT_T_DATA-AWKOK.
Lcal currency calculations.
          IF GT_T_DATA-SHKZG EQ 'S'.
            GT_T_DATA-DMSOL = GT_T_DATA-DMBTR.
            GT_T_DATA-DMSHB = GT_T_DATA-DMBTR.
            GT_T_DATA-DMHAB = 0.
          ELSEIF GT_T_DATA-SHKZG EQ 'H'.
            GT_T_DATA-DMHAB = GT_T_DATA-DMBTR.
            GT_T_DATA-DMSHB = GT_T_DATA-DMBTR * -1.
            GT_T_DATA-DMSOL = 0.
          ENDIF.
Foriegn Currency calculations.
          IF GT_T_DATA-SHKZG EQ 'S'.
            GT_T_DATA-WRSOL = GT_T_DATA-DMBTR.
            GT_T_DATA-WRSHB = GT_T_DATA-DMBTR.
            GT_T_DATA-WRHAB = 0.
          ELSEIF GT_T_DATA-SHKZG EQ 'H'.
            GT_T_DATA-WRHAB = GT_T_DATA-DMBTR.
            GT_T_DATA-WRSHB = GT_T_DATA-DMBTR * -1.
            GT_T_DATA-WRSOL = 0.
          ENDIF.
          APPEND GT_T_DATA.
        ENDSELECT.
      ENDLOOP.
      DESCRIBE TABLE GT_T_DATA LINES NO_RECS.
      READ_NEXT = 0.
      TEMP_CNTR = 0.
    ENDIF.                             "First data package ?
Fetch records into interface table.
    IF ( READ_NEXT GT NO_RECS ) OR ( NO_RECS EQ 0 ).
      REFRESH GT_T_DATA.
      CLEAR:S_COUNTER_DATAPAKID, COUNTER, READ_NEXT, S_S_IF, NO_RECS.
      RAISE NO_MORE_DATA.
    ENDIF.
    COUNTER = 0.
    LOOP AT GT_T_DATA FROM READ_NEXT.
      COUNTER = COUNTER + 1.
      IF COUNTER GT S_S_IF-MAXSIZE.
        IF TEMP_CNTR EQ NO_RECS.
          CLEAR: S_COUNTER_DATAPAKID,COUNTER,READ_NEXT,S_S_IF,NO_RECS.
          RAISE NO_MORE_DATA.
        ELSE.
          READ_NEXT = READ_NEXT + COUNTER.
        ENDIF.
        EXIT.
      ENDIF.
      MOVE-CORRESPONDING GT_T_DATA TO E_T_DATA.
      APPEND E_T_DATA.
      TEMP_CNTR = TEMP_CNTR + 1.
      iF TEMP_CNTR GT NO_RECS.
        CLEAR GT_T_DATA.
        CLEAR: S_COUNTER_DATAPAKID, COUNTER,READ_NEXT, S_S_IF,NO_RECS.
        RAISE NO_MORE_DATA.
        EXIT.
      ENDIF.
    ENDLOOP.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.
If it's a code then why it's quick on rsa3?
Nagesh.