Reg submit

Question

Dear experts,
    I need help in the following requirement,
    I have a prgram named "A" with values in the selection screen. I need to call the other transaction  "B" in the background passing all the values to that selection screen B from selection screen "A"and exectute . After exection it should return back to program "A" with the values of internal table in the program "B".
can anyone pls send me a sample code or let me know how to accomplish this
thanks in advance
karthik

Answer 1

Hello Karthick,
Check this code.
I have did this report to submit to reports and get the output list of the two reports.
REPORT ZV_06_026 .
*--- Type für Anwenderstatus Suchhilfe
TYPES: BEGIN OF TY_ESTAT,
        STSMA TYPE TJ30-STSMA,
        ESTAT TYPE TJ30-ESTAT,
        TXT04 TYPE TJ30T-TXT04,
        TXT30 TYPE TJ30T-TXT30,
      END   OF TY_ESTAT.
*--- Anwenderstatus für Projekte
DATA:  G_T_ESTAT TYPE TABLE OF TY_ESTAT,
       G_R_ESTAT TYPE          TY_ESTAT,
  BEGIN OF G_T_STATUS OCCURS 0,
    PSPID     LIKE PROJ-PSPID, "Projektdefinition
    POSID     LIKE PRPS-POSID, "PSP-Element
  END OF G_T_STATUS.
*--- Interne Tabelle für Listausgabe
DATA:
  BEGIN OF G_T_LISTE OCCURS 0,
    PSPNR LIKE PROJ-PSPNR, "Projektdefinition (intern)
    PSPID LIKE PROJ-PSPID, "Projektdefinition
    POSID LIKE PRPS-POSID, "PSP-Element
    POST1 LIKE PRPS-POST1, "Kurzbeschreibung
    KSTAR LIKE COSS-KSTAR, "Kostenart   "/&-neueneu
    KTEXT LIKE CSKU-KTEXT, "Kostenarttext"/&-neueneu
    PLAN       LIKE COSS-WTG001,
    OBLIGO     LIKE COSS-WTG001,
    IST        LIKE COSS-WTG001,
    PLAN_MINUS LIKE COSS-WTG001,
    OBLIGO_INT LIKE COSS-WTG001,
    IST_INT    LIKE COSS-WTG001,
    IST_LFD    LIKE COSS-WTG001,
    PSPXX(1),
    PSPNN(23),
  END OF G_T_LISTE.
TYPES:
  TYPE_TEXTLINE(512).
DATA:
  W_TEXTLINE TYPE TYPE_TEXTLINE.
DATA:
  LT_LIST TYPE TABLE OF ABAPLIST,
  LT_TXT  TYPE TABLE OF TYPE_TEXTLINE.
TABLES: T2503,PRPS,TJ02T.
SELECT-OPTIONS: SO_WWSTO FOR T2503-WWSTO.
*--- Buchungsperiod VON
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) TEXT-S01 FOR FIELD PA_JAHRV.
PARAMETERS:
PA_JAHRV TYPE GJAHR OBLIGATORY,
PA_PERV  TYPE CO_PERIO OBLIGATORY.
SELECTION-SCREEN END   OF LINE.
*--- Buchungsperiod BIS
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) TEXT-S02 FOR FIELD PA_JAHRB.
PARAMETERS:
PA_JAHRB TYPE GJAHR OBLIGATORY,
PA_PERB  TYPE CO_PERIO OBLIGATORY.
SELECTION-SCREEN END   OF LINE.
*--- Systemstatus
SELECT-OPTIONS: SO_PBUKR FOR PRPS-PBUKR DEFAULT '1060',
SO_ISTAT FOR TJ02T-TXT04 NO INTERVALS  MATCHCODE OBJECT Z48R_ISTAT.
SELECTION-SCREEN BEGIN OF BLOCK BLCK2 WITH FRAME TITLE TEXT-002.
PARAMETERS: FILENAME LIKE RLGRAP-FILENAME
DEFAULT '
SI39467atmo2$SAMQFETRANSFER.txt'.
*SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
PARAMETERS: AP RADIOBUTTON GROUP GRP1,
            PC RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN END OF BLOCK BLCK2.
*--- Initialzation -
INITIALIZATION.
  PERFORM F_INITIALZATION.
  INCLUDE Z48C_PSP_DOWN_E01                                          *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME.
  PERFORM FRONTEND_FILE CHANGING FILENAME.
*&      Form  f_initialzation
      text
-->  p1        text
<--  p2        text
FORM F_INITIALZATION.
  PA_JAHRV = '1900'.
  PA_PERV  = '001'.
  PA_JAHRB = SY-DATUM+0(4).
  PA_PERB  = SY-DATUM+4(2).
*--- Alle zu Projekten gehörene Anwenderstatus selektieren
  SELECT  TJ30STSMA  TJ30ESTAT  TJ30TTXT04  TJ30TTXT30
    INTO  CORRESPONDING FIELDS OF TABLE G_T_ESTAT
    FROM  TJ30
    INNER JOIN TJ30T ON  TJ30STSMA = TJ30TSTSMA
                     AND TJ30ESTAT = TJ30TESTAT
    INNER JOIN TJ21  ON  TJ30STSMA = TJ21STSMA
    WHERE TJ30T~SPRAS EQ SY-LANGU
      AND TJ21~OBTYP = 'PRN'
      OR  TJ21~OBTYP = 'PDN'.
ENDFORM.                    " f_initialzation
START-OF-SELECTION.
  DATA: LISTOBJECT LIKE ABAPLIST OCCURS 0 WITH HEADER LINE.
  SUBMIT  Z48R_PROJEKTSTATUS WITH SO_WWSTO IN SO_WWSTO
                             WITH SO_ISTAT IN SO_ISTAT
                             EXPORTING LIST TO MEMORY
                             AND RETURN.
Import the list from memory and store it in table listobject
  CALL FUNCTION 'LIST_FROM_MEMORY'
       TABLES
            LISTOBJECT = LISTOBJECT
       EXCEPTIONS
            NOT_FOUND  = 1
            OTHERS     = 2.
  IF SY-SUBRC <> 0.
    WRITE  'Error in list_from_memory.'.
  ENDIF.
  CALL FUNCTION 'LIST_TO_ASCI'
      EXPORTING
           LIST_INDEX         = -1
       TABLES
            LISTASCI           = LT_TXT
            LISTOBJECT         = LISTOBJECT
       EXCEPTIONS
            EMPTY_LIST         = 1
            LIST_INDEX_INVALID = 2
            OTHERS             = 3.
  CHECK SY-SUBRC = 0.
  DATA: LV_LINES LIKE SY-TABIX.
  DESCRIBE TABLE LT_TXT LINES LV_LINES.
  LOOP AT LT_TXT INTO W_TEXTLINE.
    CHECK SY-TABIX > 3.
    CHECK W_TEXTLINE(5) <> 'Keine'.
    CHECK W_TEXTLINE(5) <> '-----'.
    DO 120 TIMES. REPLACE ' |' WITH '|' INTO W_TEXTLINE.  ENDDO.
    "WRITE / w_textline(255).
    PERFORM HANDLE_LINE USING W_TEXTLINE.
  ENDLOOP.
Free memory
  CALL FUNCTION 'LIST_FREE_MEMORY'
       TABLES
            LISTOBJECT = LISTOBJECT
       EXCEPTIONS
            OTHERS     = 1.
  IF SY-SUBRC <> 0.
    WRITE  'Error in list_free_memory.'.
  ENDIF.
  DATA: SO_PROJ TYPE RANGE OF PROJ-PSPID,
        WA_PROJ LIKE LINE OF SO_PROJ,
        SO_POSID TYPE RANGE OF PRPS-POSID,
        WA_POSID LIKE LINE OF SO_POSID.
  CLEAR: SO_PROJ,WA_PROJ,SO_POSID,WA_POSID.
  REFRESH: SO_PROJ,SO_POSID.
  LOOP AT G_T_STATUS.
    WA_PROJ-SIGN = 'I'.
    WA_PROJ-OPTION = 'EQ'.
    WA_PROJ-LOW = G_T_STATUS-PSPID.
    APPEND WA_PROJ TO SO_PROJ.
    WA_POSID-SIGN = 'I'.
    WA_POSID-OPTION = 'EQ'.
    WA_POSID-LOW = G_T_STATUS-POSID.
    APPEND WA_POSID TO SO_POSID.
    CLEAR: WA_PROJ,WA_POSID.
  ENDLOOP.
  SORT SO_PROJ BY LOW.
  DELETE ADJACENT DUPLICATES FROM SO_PROJ COMPARING LOW.
  SORT SO_POSID BY LOW.
  DELETE ADJACENT DUPLICATES FROM SO_POSID COMPARING LOW.
  SUBMIT Z48R_PROJEKT_FEHLERKOSTEN  WITH SO_PROJ IN SO_PROJ
                                    WITH SO_PSP IN SO_POSID
                                    WITH SO_PBUKR IN SO_PBUKR
                                    WITH PA_JAHRV EQ PA_JAHRV
                                    WITH PA_PERV EQ PA_PERV
                                    WITH PA_JAHRB EQ PA_JAHRV
                                    WITH PA_PERB EQ PA_PERB
                                    WITH P_LIST EQ 'X'
                                    EXPORTING LIST TO MEMORY
                                    AND RETURN.
IMPORT G_T_LISTE FROM MEMORY ID 'IV_06_026'.
Import the list from memory and store it in table listobject
  CALL FUNCTION 'LIST_FROM_MEMORY'
       TABLES
            LISTOBJECT = LISTOBJECT
       EXCEPTIONS
            NOT_FOUND  = 1
            OTHERS     = 2.
  IF SY-SUBRC <> 0.
    WRITE  'Error in list_from_memory.'.
  ENDIF.
  CALL FUNCTION 'LIST_TO_ASCI'
      EXPORTING
           LIST_INDEX         = -1
       TABLES
            LISTASCI           = LT_TXT
            LISTOBJECT         = LISTOBJECT
       EXCEPTIONS
            EMPTY_LIST         = 1
            LIST_INDEX_INVALID = 2
            OTHERS             = 3.
  LOOP AT G_T_LISTE.
    WRITE:/ G_T_LISTE.
  ENDLOOP.
*&      Form  handle_line
      text
     <--> P_TEXTLINE  text
FORM HANDLE_LINE USING    P_LINE.
  DATA: BEGIN OF T_CLINE OCCURS 0,
          TEXT(40),
        END   OF T_CLINE.
erstes Zeichen immer | und irrelevant
  SHIFT P_LINE.
  SPLIT P_LINE AT '|' INTO TABLE T_CLINE.
  READ TABLE T_CLINE INDEX 2.
  G_T_STATUS-PSPID = T_CLINE-TEXT.
  READ TABLE T_CLINE INDEX 3.
  G_T_STATUS-POSID = T_CLINE-TEXT.
  APPEND G_T_STATUS.
ENDFORM.                    " handle_line
*&      Form  HANDLE_LINE_LIST
      text
     -->P_W_TEXTLINE  text
FORM HANDLE_LINE_LIST USING    P_LINE.
  DATA: BEGIN OF T_CLINE OCCURS 0,
          TEXT(40),
        END   OF T_CLINE.
erstes Zeichen immer | und irrelevant
SHIFT P_LINE.
SPLIT P_LINE AT '|' INTO TABLE T_CLINE.
READ TABLE T_CLINE INDEX 2.
G_T_OUTTAB-PSPID = T_CLINE-TEXT.
READ TABLE T_CLINE INDEX 3.
G_T_OUTTAB-POSID = T_CLINE-TEXT.
APPEND G_T_OUTTAB.
ENDFORM.                    " HANDLE_LINE_LIST
*&      Form  frontend_file
      text
     <--P_FILENAME  text
FORM FRONTEND_FILE CHANGING P_FILENAME.
  CALL FUNCTION '/SAPDMC/LSM_F4_FRONTEND_FILE'
       EXPORTING
            PATHNAME         = 'C:'
       CHANGING
            PATHFILE         = P_FILENAME
       EXCEPTIONS
            CANCELED_BY_USER = 1
            SYSTEM_ERROR     = 2
            OTHERS           = 3.
  IF SY-SUBRC <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    " frontend_file
Hope this will helps you.
Vasanth