Call tcode KSB1 in a custom program and modify its output

Question

I was searching the forum for finding a way to create a program that has all details from KSB1 and some details from CJ13 (WBS details) and found some related posts. But none of the posts had any details on how to actually achieve this.
I have to do a similar thing of getting the KSB1 output and add WBS details for each line item and then give the final output.
If you have already done this before, please elaborate on the steps how you achieved it.
Please specify the SUBMIT that you had written to call KSB1. If I can have all details from KSB1 in my memory, then I can read that in my program and add WBS details and give the output.
Below is what I am doing but it gives the same error as one of you had - transaction code not defined.
DATA: FCODE TYPE SY-TCODE VALUE 'KSB1'.
SUBMIT RKAEP000 WITH SY-TCODE = FCODE.
Any help would be appreciated. Thanks.
Regards,
Shipra

Answer 1

Hi,
try this code it will work..
the data is stored in txtlines format the data by the field wise.
* Data Declaration
  DATA:lt_listobject TYPE TABLE OF abaplist,
    l_tab_lines TYPE i.
  DATA: txtlines(1024) TYPE c OCCURS 0 WITH HEADER LINE.
  SUBMIT rkaep000                      "the program name
     USING SELECTION-SET 'BPC TEST'          "Pass varint BPC Test
           EXPORTING LIST TO MEMORY AND RETURN.
* Read list from memory into table
  CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = lt_listobject
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.
  IF sy-subrc  0.
*   Error in function module &1
  ENDIF.
*Spool content in Ascii format
  CALL FUNCTION 'LIST_TO_ASCI'
    TABLES
      listobject         = lt_listobject
      listasci           = txtlines
    EXCEPTIONS
      empty_list         = 1
      list_index_invalid = 2
      OTHERS             = 3.
  CALL FUNCTION 'WRITE_LIST'       "Display report same as in KSB1... else not required
  TABLES
    listobject = lt_listobject
  EXCEPTIONS
    empty_list = 1
    OTHERS     = 2.
CALL FUNCTION 'LIST_FREE_MEMORY'
  TABLES
    listobject = lt_listobject.
  LOOP AT txtlines.   "data will be stored in this..
    " split the txtlines-tdline with | and move into another internal table and do the validation...
  endloop.
Prabhudas
Edited by: Prabhu Das on May 20, 2009 11:28 PM