topic Re: BAPI Help in Application Development and Automation Discussions

BAPI Help

Former Member — Wed, 09 Feb 2011 23:52:50 GMT

Hi All,

I have this BAPI which is getting data from tstc and tstct tables. The data has 200k+ records, I need to display 50K at a time. Can someone please help me with this.

Thanks,

SNReddy


FUNCTION bptcoddata_extract.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(FILEPATH) TYPE  RLGRAP-FILENAME OPTIONAL
*"     VALUE(STANDARD_TABLES) TYPE  FLAG DEFAULT 'X'
*"     VALUE(CONNECTOR) TYPE  CHAR5 OPTIONAL
*"     VALUE(TCODE_DATA) TYPE  FLAG DEFAULT 'X'
*"     VALUE(TCODE_SELECT) TYPE  STRING OPTIONAL
*"  TABLES
*"      TBL_BAPIRET STRUCTURE  BAPIRET2 OPTIONAL
*"      TCODES STRUCTURE  TWBTCODE OPTIONAL
*"      TCODES_DESC STRUCTURE  TSTCT OPTIONAL
*"----------------------------------------------------------------------

  DATA : t_tcodes_tstc TYPE STANDARD TABLE OF twbtcode,
         wa_bapiret TYPE bapiret2,
         t_tcodes TYPE STANDARD TABLE OF ty_tcodes,
         wa_tcodes TYPE ty_tcodes,
         lv_filename TYPE string,
         t_tcodes_script TYPE tt_tcodes_script,
         wa_tcodes_script TYPE stcodes_script,
         t_bapiret TYPE STANDARD TABLE OF bapiret2,
         wa_tstct TYPE tstct,
         t_seluserstr TYPE STANDARD TABLE OF ssel_user_str.


*If there is any pattern sent for Transaction codes then use the same for fetching Transaction codes
  IF NOT tcode_select IS INITIAL.
    PERFORM process_tcodepattern TABLES t_seluserstr
                                  USING tcode_select.
  ENDIF.

  IF tcode_data = 'X'.
* Fetch All Transaction codes from the SAP system
    IF standard_tables = 'X'.
      IF t_seluserstr[] IS INITIAL.
        select * into corresponding fields of table tcodes from tstc.
        select * into corresponding fields of table tcodes_desc from
          tstct where sprsl = 'E'.
      ELSE.
        select * into corresponding fields of table tcodes from tstc
          where tcode in t_seluserstr[].
        select * into corresponding fields of table tcodes_desc from
          tstct where sprsl = 'E' and tcode in t_seluserstr[].
      ENDIF.

    ELSE.
      IF t_seluserstr[] IS INITIAL.
        SELECT tcode FROM (lv_alrttstc) INTO TABLE t_tcodes_tstc WHERE tcode NE space AND sprsl = 'E'.
      ELSE.
        SELECT tcode FROM (lv_alrttstc) INTO TABLE t_tcodes_tstc WHERE tcode IN t_seluserstr[] AND sprsl = 'E'.
      ENDIF.

      SELECT sprsl tcode ttext FROM (lv_alrttstct)
      INTO CORRESPONDING FIELDS OF TABLE t_tcodes
      FOR ALL ENTRIES IN t_tcodes_tstc
      WHERE   sprsl = 'E' AND
              tcode = t_tcodes_tstc-tcode.

    ENDIF.

    IF sy-subrc <> 0.
      wa_bapiret-type = 'E'.
      wa_bapiret-id = 'MSG'.
      wa_bapiret-number = '000'.
      wa_bapiret-message = 'There are no Transaction Codes available in the System'."#EC NOTEXT
      APPEND wa_bapiret TO tbl_bapiret.
      CLEAR wa_bapiret.
      EXIT.
    ENDIF.


    FREE : t_tcodes_tstc.
  ENDIF.

ENDFUNCTION.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 00:51:23 GMT

Hi All,

I am getting number of lines from internal table like this.

Describe table tcodes lines lv_count.

IF lv_count > 50000.

ELSE.

Tcodes = tcodes.

ENDIF.

But how can I get each time only 50k and display them.

Thanks,

NReddy

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 03:34:47 GMT

Hi,

you can use as below:

select * up to 10 rows from ekko where bukrs = '1001'.

write:/ EKKO-ebeln.

endselect.

or after entries in Internal table, you have to write like this:

Loop at ITAB.

If Sy-tabix <= 50000.

endif.

endloop.

Regards,

Ani

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 19:07:32 GMT

Hi,

I am trying this code, but is not working. Can any one please help me.

select * into corresponding fields of table tcodes from tstc.

Describe table tcodes lines lv_count.

IF lv_count > 50000.

select * from tcodes

up to 50000 rows

into table tcodes.

ENDIF.

And also how can I loop it so that I will get all the 200k records.

Thanks.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 19:15:07 GMT

Hi,

I tried this.

DATA:

TCODES type table of TWBTCODE,

TCODES1 type table of TWBTCODE.

select * into corresponding fields of table tcodes from tstc.

Describe table tcodes lines lv_count.

IF lv_count > 50000.

LOOP at tcodes.

select up to 50000 rows

into table tcodes1.

ENDLOOP.

ENDIF.

How can I get data in loop stmt and also how do I get remaining entries.

Please help.

Thanks.

Re: BAPI Help

kesavadas_thekkillath — Thu, 10 Feb 2011 19:15:33 GMT

Type package size in your editor and hit F1 key.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 20:01:55 GMT

Hi Keshav,

Thank you. If I use INTO package size last few records are staying and if I use APPENDING all the records are comming. How can I get each time 50,000 until all records are done.

Thanks.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 20:19:35 GMT

Hi,

I tried this, but the program is getting teminated.

DATA: dbcur1 TYPE cursor.

OPEN CURSOR dbcur1 FOR

select * from tstc.

DO.

FETCH NEXT CURSOR dbcur1

INTO TABLE tcodes PACKAGE SIZE 50000.

ENDDO.

CLOSE CURSOR: dbcur1.

Can any one please help me.

Thanks.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 20:41:28 GMT

Are you calling this function remotely?

Rob

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 20:46:36 GMT

Hi Rob,

We call this BAPI from Java.

Thanks.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 20:48:09 GMT


> Thank you. If I use INTO package size last few records are staying and if I use APPENDING all the records are comming. How can I get each time 50,000 until all records are done.
.

What do you mean last few records are staying? For me, package size seems to working and it returns the last package correctly..


SELECT * FROM VBAK INTO TABLE T_VBAK
       PACKAGE SIZE 20.
  LOOP AT T_VBAK INTO S_VBAK. 
     write: / s_vbak-vbeln
  ENDLOOP.
  WRITE: / 'END OF PACKAGE'.
ENDSELECT.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 21:18:51 GMT


> We call this BAPI from Java.

So is it correct to say that you want to call this function repeatedly? The first time you pick up the first 50,000 records, the second time the next 50,000 records and so on until you have returned all of the records?

Rob

Re: BAPI Help

former_member186741 — Thu, 10 Feb 2011 23:02:48 GMT

I think you may be able to make use of the 'tcode_select' parameter. The first time you call the fm it will return more than you want but you can just use the first 50k and save the key of the 50001th record and pass that in the parameter to the next call to the FM(telling it to give you records >= that key value) and then repeat this process until you have no records coming back.

Re: BAPI Help

Former Member — Thu, 10 Feb 2011 23:16:01 GMT

Thank you Rob and Neil.

The main function module I have bptcoddata_extract is having 200k records. I need to get the data in batches. As I am new this functionality, but can I write a wrapper fuction module to call this function and get data once every 50,000 records until I get all the data.

Can you please give me an example of using tcode_select parameter.

I greatly appriciate all your help.

Thanks.

Re: BAPI Help

former_member186741 — Fri, 11 Feb 2011 00:02:41 GMT

that fm does not exist in my system but assuming this field is a range or select option type field:

tcode_select-option = 'GE'.

tcode_select-sign = 'I'.

tcode_select-low = "your value from the 50001th entry".

APPEND tcode_select.

Re: BAPI Help

Former Member — Fri, 11 Feb 2011 05:04:46 GMT

Thank you Neil. I also do not have tcode_select.

In the wrapper function module I am calling the main function module, which contains all the data. How to loop through that data to send 50000 records at a time until all the data is done.

Can some one please help me.

Thanks.

Re: BAPI Help

former_member186741 — Fri, 11 Feb 2011 05:20:16 GMT

actually I see that TCODE_SELECT is listed as a type 'string'.......can you double-click on the function module to view the code? If so you will be able to work out how this string is used by the fm. I think you maybe able to pass a pattern, something like 'TCODE >= 'abcd'.........

another thing you could try is to get your wrapper to have the following parameters:

start_number and end_number

from java you should call your wrapper in a loop, say 4 times so that

start_number is 1, 50001,100001,150001 and end_number is 50000, 100000, 150000 and 200000.

the code from you rwrapper can call the fm and then delete the entries it does not want before sending it back to java.

so it would have something like:

*remove records after your target first

l_first_to_delete = i_end_number + 1.

delete lt_tcode from l_first_to_delete.

*now remove entries before your first target entry

if i_start_number <> 1.

l_last_to_delete = i_start_number - 1.

delete lt_tcode from 1 to l_last_to_delete.

endif.

Re: BAPI Help

Former Member — Fri, 11 Feb 2011 14:02:07 GMT

In your java program, you can call the fm in a loop, each time passing a number indicating which group of records you want (1, 2, 3, ...N). Then in the FM, use the package size addition to the SELECT statement to skip the 50,000*(N-1) records.

Rob

Re: BAPI Help

kesavadas_thekkillath — Fri, 11 Feb 2011 14:10:31 GMT


use the package size addition to the SELECT statement to skip the 50,000*(N-1) records

Hi Rob,

Suppose there are 50,000 thousand records to fetched in 5 loops ... say 5 calls to the fm. The select statement in each hit will always give the first 10000 records in five loops not the records from 20,000 to 50,000.

Assuming that its not possible to skip using package statement.

Re: BAPI Help

Former Member — Fri, 11 Feb 2011 14:12:50 GMT

Yes - it's ugly, but what else?

Rob