Skip ABAP output screen

Dear Experts ,
I am using BDC call transaction method for 'SP01' tcode . when i execute my Zprogram its showing all spool requests.
up to now fine.but what my problem is ,when i click on back button it's showing ABAP out put screen .my requirement is to come sap initial screen.i tried following code
IF SY-LSIND EQ 1.
LEAVE PROGRAM.
ENDIF.
but its not working.please help me out.
Thanks and regards
Naresh Bammidi

playsuji wrote:
Hi Try like this, instead of leav program, just call your program..
>
>
IF SY-LSIND EQ 1.
> SUBMIT ZXXXXXX
> AND RETURN.
> *LEAVE PROGRAM.
> ENDIF.
Hi ,
if i use above code it's coming to the initial screen of my Tcode SP01 but not to selection screen.any other idea.
thanks and regards
Naresh bammidi

Similar Messages

Skip output screen of report

Hi ,
I have a requirement in which i hav to skip the output screen for report    "    RSBDCSUB ".
Any pointers will be greatful.
Thanks in advance
Regards
Rahul

Hello Rahul,
Try SUBMIT command. See example below.
Kind Regards,
Rae Ellen Woytowiez
* Runs batch input session.
      SUBMIT rsbdcsub
*****         with batchsys ...
              WITH bis EQ sy-datum
              WITH fehler EQ ' '
              WITH logall EQ 'X'
              WITH mappe EQ wa_bgr00-group
*****         with queue_id ...
              WITH von EQ sy-datum
*****         with z_verarb ...
              EXPORTING LIST TO MEMORY
              AND RETURN.
Edited by: Rae Ellen Woytowiez on May 11, 2011 6:57 PM

Refresh WebDynpro Output Screen

i want to refresh the webdynpro -abap output screen(not through F5) but through rest button.
could any body tell me how to achieve this.
Thanks

Hello ,
Here i am not going to previous screen.
here i have only one screnn with multi functinality.
thats why i designed one Button. and in the button i want to write some logic.
so that whil e i will click on the button the whole application will get refreshed. so that no need to press F5 also.
i need some relevant logic for this so that , i wil put in my Button in Ui screen
For this could you please provide me some appriate logic.
thanks.. in adv..
Rakshar

When the user click on the request number it should skip the first screen o

when the user click on the request number it should skip the first screen of REV track and show the rev track request number details. On click of u201CBacku201D button on this screen the output screen of the report should be displayed again.

Hello Rohit,
What you can do is, when the User Clicks on any particular Request, you use the At Line-Selection Event. In that event, you can set the User Name to default "SY-UNAME" or any other user Name for the specific Request.
Again, if you want to check the Owner of the Request, you can use the Table E070 where you can Input the Request Number and get the Owner of the Request. Set the same in the User Name Field and Skip First Screen (SE09 Transaction).
Hope it was helpful.
Thanks and Regards,
Venkat Phani Prasad Konduri

ALV Report - Selection screen information should appear in Output screen

Hi experts,
I am working on ALV Reports.
I want selection screen information to appear in ouputscreen when report executed.
Those who know the sloution pls tell me as soon as possible.
regards,
Imran

Hi Imrangs ,
Ur requirement is not clear -
if u want ur selection screen and the output screen on the same screen, i.e if u fill ur selection options with input and press the button then ur ALV will display on the same screen. For this try to use Screen painter, it will get resolved.
http://www.kodyaz.com/articles/sap-abap-tutorial-alv-grid-cl_gui_alv_grid-screen-painter.aspx
chreers
Regards
Neha

Urgent: Reports: Skip the first screen

Hi experts,
   In report program iam calling another program screen. I just want to skip the first screen of the calling program and when i call this program i should directly go into the output screen. Iam using like this. So how should i skip the first screen.
Please do needful help.
if p_err_u = 'X'.
submit rsuniscan_final. "VIA SELECTION-SCREEN AND RETURN.
Regards.
AADI

Use in Submit
   [USING SELECTION-SET variant]
    [USING SELECTION-SETS OF PROGRAM prog]
    [WITH SELECTION-TABLE rspar]
Santhosh

SM37 - Output screen

Hi ,
I want to make SM37 output screen as display only. User should not be able to do any changes/delete/create to the existing jobs or spools. Is it possible using Transaction variant? because the output of SM37 screen doesnt have Screen number assigned to that.
Regards
Sowmmya VB

You may bypass BDC by using in sequence FM of group BTCH : BP_JOB_READ and BP_JOB_EDITOR (with job_editor_dialog = 'Y' and job_editor_opcode = 12, check constants in include LBTCHDEF)
NB: AND SKIP FIRST SCREEN wont be suitable here as one of the two conditions required is that the own dynpro number of the initial screen must not be specified as the next screen number...
Regards,
Raymond

Deleting line on output screen that is written by Write statement....

Hello Gurus,
In my case there is data written on output screen. When I double click on line on ABAP report execution output screen, I want that line to be deleted from output screen.
I know I will have to write the logic at line-selection but how can I delete line that is written on screen using write statement ?
Regards,
Jainam.
Edited by: Jainam Shah on Nov 12, 2009 4:47 PM

Hi Jainam,
When you say AT LINE-SELECTION. It is an intercative list only.
This is not possible to delete when you double click on a record.
However I have created a small code snippet for you. But to display something on the secondary list, you have to write a WRITE statement...The code as below :-
TABLES MARA.
DATA: BEGIN OF itab OCCURS 1,
      MATNR like MARA-MATNR,
      MEINS LIKE MARA-MEINS,
      END OF itab.
SELECT MATNR MEINS FROM MARA INTO TABLE itab.
sort itab by MATNR.
LOOP AT itab.
WRITE:/ itab-MATNR.
HIDE itab-MATNR.
ENDLOOP.
AT LINE-SELECTION.
IF sy-lsind = 1.
    CLEAR itab-MATNR.
    write : sy-lilli.
ENDIF.
Kindly set to resolved, if this clears you question.
Regards
Abhii...

Jump to transaction me21n from output screen.

hi,
   I am displaying PO ,item no from ekpo table.On the output screen where data is displayed , when i click on PO no i need to go to transaction me21n.Can anyone plz help me and tell me the mechanism.

you can go to ME23N where it will display the particular PO.
Check this alv report.
REPORT ZMM_PO_TEXT
        no standard page heading
        line-size 300
        message-id zmsg.
                        Tables                                         *
TABLES : EKKO,         "Purchasing Document Header
         EKPO,         "Purchasing Document Item
         EKBE.         "History per Purchasing Doc
    Internal table   for display                                *
DATA : begin of it_item occurs 0 ,
       ebeln like ekpo-ebeln,        "pur doc no
        ebelp   like ekpo-ebelp,        "pur doc no item
        matnr   like ekpo-matnr,        "material no
        werks   like ekpo-werks,        "Plant
        bedat   like ekko-bedat,        "pur doc date
        banfn   like eban-banfn,        "Purchase requisition number
        bnfpo   like eban-bnfpo,        "Item number of purchase requisition
        charg like ekbe-charg ,       "Batch Number
        end of it_item.
DATA it_temp like table of it_item with header line.
ALV VARIABLES AND INTERNAL TABLES
TYPE-POOLS: slis.
DATA:st_layout      TYPE slis_layout_alv,
       it_fieldcat    TYPE slis_t_fieldcat_alv,
       it_listheader TYPE slis_t_listheader,
       it_event       TYPE slis_t_event,
       keyinfo        TYPE slis_keyinfo_alv.
DATA:ls_selfield TYPE slis_selfield.
                   VARIABLES                                     *
DATA:
        v_repid       LIKE sy-repid,
        name like thead-tdname,
        lines like tline occurs 0 with header line.
*SELECTION SCREEN DEFINITIONS
SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME    TITLE     TEXT-001.
    SELECT-OPTIONS:
                     so_plant FOR ekpo-werks,
                     so_date FOR ekko-bedat OBLIGATORY,
                     so_matnr for ekpo-matnr,
                     so_ebeln for ekko-ebeln,
                     so_ekorg for ekko-ekorg,
                     so_ekgrp for ekko-ekgrp.
SELECTION-SCREEN: END OF BLOCK a1.
                  INITIALIZATION                                *
INITIALIZATION.
      v_repid = sy-repid.
*START-OF-SELECTION
START-OF-SELECTION.
      PERFORM get_data.
      IF it_item[] IS NOT INITIAL.
         PERFORM display_data.
      ELSE.
         MESSAGE i012(zmsg).
      ENDIF.
                    END-OF-SELECTION                                 *
END-OF-SELECTION.
*START-OF-SELECTION.
*perform get_data.
*perform display_data .
*******AT LINE-SELECTION.
******if it_data-banfn is initial.
******SET PARAMETER ID 'BES' FIELD it_data-EBELN.
******CALL TRANSACTION 'ME23N'.
******else.
******SET PARAMETER ID 'BAN' FIELD it_data-Banfn.
******CALL TRANSACTION 'ME53N'.
******endif.
          Form get data                        ******************
FORM get_data.
if so_date-high is initial.
so_date-high = sy-datum.
endif.
select aebeln aebelp amatnr awerks
          b~bedat
          c~charg
          into corresponding fields of table it_item
          from ekpo as a inner join ekko as b
          on aebeln = bebeln
          inner join eket as c on aebeln = cebeln and aebelp = cebelp
          where a~werks in so_plant
          and   a~matnr in so_matnr
          and   a~ebeln in so_ebeln
          and   b~bedat between so_date-low and so_date-high
          and   b~ekorg in so_ekorg
          and   b~ekgrp in so_ekgrp .
DELETE ADJACENT DUPLICATES FROM it_item.
SORT it_item by ebeln bedat.
loop at it_ITEM.
select single banfn bnfpo into (it_ITEM-banfn,it_ITEM-bnfpo) from eban where ebeln = it_ITEM-ebeln
                                                                          and ebelp = it_ITEM-ebelp.
*select single charg into (it_ITEM-charg) from ekbe where ebeln = it_ITEM-EBELP.
    if sy-subrc IS INITIAL.
CONCATENATE it_item-banfn it_item-bnfpo INTO NAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = 'B06'
    LANGUAGE                      = sy-langu
    NAME                          = NAME
    OBJECT                        = 'EBAN'
TABLES
    LINES                         = lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
MODIFY IT_ITEM.
else.
CONCATENATE it_item-EBELN it_item-EBELP INTO NAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = 'F10'
    LANGUAGE                      = sy-langu
    NAME                          = NAME
    OBJECT                        = 'EKPO'
TABLES
    LINES                         = lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endif.
IF LINES[] IS INITIAL.
DELETE IT_ITEM.
ENDIF.
CLEAR: IT_ITEM, LINES.
REFRESH : LINES.
endloop.
ENDFORM.                    " display_data
*FORM FOR DISPLAY DATA
FORM display_data .
          PERFORM fill_layout_structure.
          PERFORM fill_field_catalog_table.
          PERFORM get_event USING it_event.
          PERFORM fill_listheader USING it_listheader.
          perFORM call_alv_function.
ENDFORM.                    " display_data
*&      Form fill_layout_structure
      text
--> p1        text
<-- p2        text
FORM fill_layout_structure .
    st_layout-zebra = 'X'.
ENDFORM.                    " fill_layout_structure
*&      Form fill_field_catalog_table
      text
--> p1        text
<-- p2        text
FORM fill_field_catalog_table .
PERFORM fill_field_catalog USING :
           'EBELN'    'P.O Number'       'IT_ITEM' 'X'      space '10' 'X',
           'EBELP'    'P.O. Item No' 'IT_ITEM' space    space '10'    space,
           'BEDAT'     'P.O. Date'     'IT_ITEM' space    space '10'    space,
           'WERKS'     'Plant'            'IT_ITEM' space    space '10'    space,
           'MATNR'     'Material no'      'IT_ITEM' space    space '18'    space,
           'BANFN'     'P.R. Number'   'IT_ITEM'     space    space '18'    space,
           'CHARG'     'Batch Number' 'IT_ITEM' space space '10'    'space'    .
ENDFORM.                    " fill_field_catalog_table
*FORM FOR FILLING FIELD CATALOG
FORM fill_field_catalog USING f d t p S o h.
      DATA: wa_fieldcat TYPE slis_fieldcat_alv.
      STATICS v_pos TYPE i VALUE 1.
      wa_fieldcat-row_pos    = 1.
      wa_fieldcat-col_pos    = v_pos.
      wa_fieldcat-fieldname = f.
      wa_fieldcat-seltext_m = d.
      wa_fieldcat-tabname    = t.
       wa_fieldcat-hotspot = h.
      APPEND wa_fieldcat TO it_fieldcat.
      v_pos = v_pos + 1.
ENDFORM.                    "fill_field_catalog
*&      Form fill_listheader
      text
     -->P_IT_LISTHEADER text
FORM fill_listheader USING    P_IT_LISTHEADER TYPE   slis_t_listheader.
DATA : wa_listheader TYPE slis_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info ='PURCHASE ORDER TEXTS '.
APPEND wa_listheader TO it_listheader.
ENDFORM.                    " fill_listheader
*&      Form get_event
      text
     -->P_IT_EVENT text
FORM get_event USING    P_IT_EVENT    TYPE slis_t_event.
   DATA : wa_event TYPE slis_alv_event.
   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE           = 0
    IMPORTING
      ET_EVENTS             = it_event.
      READ TABLE it_event WITH KEY name = slis_ev_top_of_page INTO wa_event.
       IF SY-SUBRC = 0.
       MOVE 'TOP_OF_PAGE' to wa_event-form.
       APPEND wa_event to it_event.
   ENDIF.
ENDFORM.                    " get_event
*FORM FOR TOP_OF_PAGE(to assign form for the top-of-page event)
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader.
ENDFORM.                    "top_of_page
*FORM FOR ALV FUNCTIONS
FORM call_alv_function.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             =
    I_BUFFER_ACTIVE                = ' '
      I_CALLBACK_PROGRAM             = v_repid
    I_CALLBACK_PF_STATUS_SET       = ' '
     I_CALLBACK_USER_COMMAND        = 'CALL_TCODE'
    I_STRUCTURE_NAME               =
     IS_LAYOUT                      = st_layout
     IT_FIELDCAT                    = it_fieldcat[]
    IT_EXCLUDING                   =
    IT_SPECIAL_GROUPS              =
    IT_SORT                        =
    IT_FILTER                      =
    IS_SEL_HIDE                    =
    I_DEFAULT                      = 'X'
    I_SAVE                         = ' '
    IS_VARIANT                     =
     IT_EVENTS                      = it_event[]
    IT_EVENT_EXIT                  =
    IS_PRINT                       =
    IS_REPREP_ID                   =
    I_SCREEN_START_COLUMN          = 0
    I_SCREEN_START_LINE            = 0
    I_SCREEN_END_COLUMN            = 0
    I_SCREEN_END_LINE              = 0
IMPORTING
    E_EXIT_CAUSED_BY_CALLER        =
    ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = it_item
EXCEPTIONS
    PROGRAM_ERROR                  = 1
    OTHERS                         = 2
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.
*FORM FOR ALV CALL_TCODE
FORM call_tcode USING r_ucomm ls_selfield LIKE ls_selfield.
    CASE r_ucomm.
      WHEN '&IC1'.
        IF ls_selfield-fieldname = 'EBELN'.
          SET PARAMETER ID 'BES' FIELD ls_selfield-value.
          CALL TRANSACTION 'ME23N'.
        ENDIF.
        IF ls_selfield-fieldname = 'BANFN'.
          SET PARAMETER ID 'BAN' FIELD ls_selfield-value.
          CALL TRANSACTION 'ME53N' AND SKIP FIRST SCREEN.
        ENDIF.
    ENDCASE.
For classical
use HIDE statement, AT LINE SELECTION event and CALL TRANSACTION Statement.
regards,
Prabhu
Reward if it is helpful.

Regarding Push Buttons in Output Screen

Hi All,
I want to add to buttons in the output screen(not in the selection-screen). I used the below code, but it was showing those buttons in selection screen. can any one help me how to get these two buttons in the output screen.
INITIALIZATION.
sscrfields-functxt_01 = 'AUTO POPULATE'.
sscrfields-functxt_02 = 'SAVE'.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
WHEN 'FC02'.
ENDCASE.
Thanks in advance.
Regards,
Ramana Prasad. T

hi
good
go through this code,which ll give you brief idea about create the button in output screen
*& Report ZSSCRBUTTON *
*& Adds buttons to selection screen. *
*& Demonstrates alteration of selection screen layout depending on *
*& which button is pressed. *
REPORT zsscrbutton NO STANDARD PAGE HEADING.
TABLES: t030, skat, sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME
TITLE text-001.
SELECT-OPTIONS: p_ktopl FOR t030-ktopl,
p_komok FOR t030-komok,
p_ktosl FOR t030-ktosl.
SELECTION-SCREEN SKIP.
*SELECTION-SCREEN FUNCTION KEY 1. Adds button to application toolbar
Declaration of sel screen buttons
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_button USER-COMMAND BUT1.
SELECTION-SCREEN PUSHBUTTON (25) w_but2 USER-COMMAND BUT2.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS: p_konts FOR t030-konts,
p_bklas FOR t030-bklas.
PARAMETER: gd_ucomm like sy-ucomm default BUT1′ no-display.
SELECTION-SCREEN END OF BLOCK block1.
TYPES: BEGIN OF t_t030,
ktopl TYPE t030-ktopl,
konts TYPE t030-konts,
txt20 TYPE skat-txt20,
bklas TYPE t030-bklas,
bkbez TYPE t025t-bkbez,
END OF t_t030.
DATA: it_t030 TYPE STANDARD TABLE OF t_t030 INITIAL SIZE 0,
wa_t030 TYPE t_t030.
DATA: gd_repsize TYPE i VALUE 83′.
*INITIALIZATION.
INITIALIZATION.
Add displayed text string to buttons
w_button = GL account selection.
w_but2 = Valuation class selection.
*AT SELECTION-SCREEN.
AT SELECTION-SCREEN.
Check if buttons have been
if sscrfields-ucomm eq BUT1′.
gd_ucomm = BUT1′.
clear: p_BKLAS.
refresh: p_BKLAS.
elseif sscrfields-ucomm eq BUT2′.
clear: p_KONTS.
refresh: p_KONTS.
gd_ucomm = BUT2′.
endif.
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.
if gd_ucomm eq BUT1′.
loop at screen.
if screen-name CS P_KONTS.
screen-active = 1.
elseif screen-name CS P_BKLAS.
screen-active = 0.
endif.
modify screen.
endloop.
elseif gd_ucomm eq BUT2′.
loop at screen.
if screen-name CS P_KONTS.
screen-active = 0.
elseif screen-name CS P_BKLAS.
screen-active = 1.
endif.
modify screen.
endloop.
endif.
thanks
mrutyun^

Need push button in output screen

Hi Friends,
I need to have a pushbutton in the output screen,how can i display it ? and if that push button is pressed ,it should perform an operation and display the output in next screen.
I have a condition that the select-option should act as parameter,How can I get it.
Thank you.
I Promise to Reward.

Hi
See this code.
SELECTION-SCREEN BEGIN OF SCREEN 1001.
SELECTION-SCREEN: BEGIN OF BLOCK BL WITH FRAME TITLE TIT,
                  COMMENT /30(30) WEL,
                  SKIP 3.
PARAMETERS : FLIGHTNO LIKE ZFLIGHT-FNO,
               FNAME LIKE ZFLIGHT-FNAME.
SELECTION-SCREEN: SKIP 2,
END OF BLOCK BL.
SELECTION-SCREEN : PUSHBUTTON 15(10) SH USER-COMMAND SHOW1,
                     PUSHBUTTON 30(10) IN USER-COMMAND INS1,
                     PUSHBUTTON 45(10) CL USER-COMMAND CLR1,
                    PUSHBUTTON 60(10) EX USER-COMMAND EX1,
                    PUSHBUTTON 73(10) NE USER-COMMAND NE1,
    END OF SCREEN 1001.
INITIALIZATION.
TIT = 'WELCOME TO BLOCK'.
WEL = 'WELCOME TO SELECTION SCREEN'.
SH = 'SHOW'.
IN = 'INSERT'.
CL = 'CLEAR'.
EX = 'EXIT'.
NE = 'NEXT SCREEN'.
NEX = 'NEXT SCREEN1'.
CALL SELECTION-SCREEN 1001.
AT SELECTION-SCREEN.
CASE SY-UCOMM.
   WHEN 'SHOW1'.
          SELECT * FROM ZFLIGHT WHERE FNO = FLIGHTNO.
          FNAME = ZFLIGHT-FNAME.
          ENDSELECT.
   WHEN 'INS1'.
         ZFLIGHT-FNO = FLIGHTNO.
         ZFLIGHT-FNAME = FNAME.
         INSERT ZFLIGHT.
         MESSAGE 'RECORD INSERTED' TYPE 'S'.
   WHEN 'CLR1'.
         FLIGHTNO = ' '.
         FNAME = ' '.
   WHEN 'EX1'.
       LEAVE PROGRAM.
   WHEN 'NE1'.
        CALL SELECTION-SCREEN 1002.
   WHEN 'NE2'.
        CALL SELECTION-SCREEN 1001.
    ENDCASE.

How to remove toolbar in its mobile at output screen?

Hi,
I've a problem in ITS MOBILE. I runned ITS, but it's running with sap toolbar. How to remove toolbar in ITS MOBILE at output screen?
Regards, Buğra.

Hi Ahmet,
Please provide the below in GUI Configuration in SICF Transaction .
~webgui_toolbar_menu_reload = 0
Thanks,
Seshadri.

How to display the output screen when I use bdc.

hey expert,
I want to display the output screen when i use bdc without using mode 'A'.
thank you.

Hi,
You can go for mode 'E'.. it will display the output screen directly and if there is any error in the transaction you would get that particular screen and you can correct and continue after which you will get the final screen if anything goes fine...
check this sample code....
I had a program if you execute below program it automatically creates a new zprogram.
REPORT zprogram_create_recording.
PARAMETER:
p_prog    TYPE sy-repid OBLIGATORY,
p_shtxt TYPE repti OBLIGATORY,
p_pack TYPE devclass DEFAULT '$tmp'.
DATA:
t_bdcdata LIKE
   STANDARD TABLE
         OF bdcdata.
DATA:
wa_bdcdata LIKE LINE OF t_bdcdata.
REFRESH t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLWBABAP'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'RS38M-PROGRAMM'.
wa_bdcdata-fval       = p_prog.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'NEW'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSEDTATTR'.
wa_bdcdata-dynpro     = '0200'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'RS38M-REPTI'.
wa_bdcdata-fval       = p_shtxt.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'TRDIR-SUBC'.
wa_bdcdata-fval       = '1'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'CONT'.
APPEND wa_bdcdata TO t_bdcdata.
IF p_pack EQ '$TMP'.
*local object
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO007-L_DEVCLASS'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'TEMP'.
APPEND wa_bdcdata TO t_bdcdata.
ELSE.
*package assignment with request
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO007-L_DEVCLASS'.
wa_bdcdata-fval       = p_pack.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'ADD'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0300'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO008-TRKORR'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'KO008-AS4TEXT'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'LOCK'.
APPEND wa_bdcdata TO t_bdcdata.
ENDIF.                                 " IF P_PACK EQ '$TMP'
CALL TRANSACTION 'SE38' USING t_bdcdata MODE 'E'.
Hope this would help you..
Regards
Narin Nandivada

Can I execute a report and skip the first screen in CJE0

I'm trying to call transaction CJE0 and skip the first screen. The report name I'm assigning to the PID REI appears in the screen field, but you have to click execute to continue to the report.
Is there something I'm missing.
Thanks
Karen

I've tried using the following code to run project reports without having to select the report name and exectue, but it is still leaving the user on the screen for CJE0 with the correct report name, but it's not skipping the screen and executing the report. Can you see what I'm doing wrong.
Thank-you for your help
Karen
Code -
data begin of bdcdata occurs 100.
         include structure bdcdata.
data end of bdcdata.
data begin of itab occurs 10.
         include structure bdcmsgcoll.
data end of itab.
data program like sy-repid.
program = '11ERL1A'.
bdcdata-program = 'SAPMKCEE'.
bdcdata-dynpro   = '0500'.
bdcdata-dynbegin = 'X'.
append bdcdata. clear bdcdata.
bdcdata-fnam     = 'RKB1D-REPID'.
bdcdata-fval     = program.
append bdcdata. clear bdcdata.
   call transaction 'CJE0' using bdcdata mode 'N'
                           messages into itab.

RE:HR-ABAP selection screen problem.

hi,
hi friends iam facing one problem regarding hr ABAP selection screen ,in my program iam using PNP LDB for bonus details report
i have using selection screen declaration present for single selection.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-006.
SELECT-OPTIONS: S_ABKRS FOR P0001-ABKRS NO INTERVALS NO-EXTENSION,
                S_WERKS FOR P0001-WERKS NO INTERVALS NO-EXTENSION,
                S_BTRTL FOR P0001-BTRTL NO INTERVALS NO-EXTENSION,
                S_PERSG FOR P0001-PERSG NO INTERVALS NO-EXTENSION,
                S_PERSK FOR P0001-PERSK NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK B3.
based on this selection iam fetching the information from infotypes using macros.
now my requirement is iam fetch the information for multiple selections means like payroll areas z1,z2 and z3 payroll informations
should be fetching once. pls any body knows solution please give me reply.
thanks & regards,
mgrao.

You should be using a selection view (HR Report Category in the programs attributes) to filter results from the LDB.
Why is this in the objects forum?

Skip ABAP output screen

Similar Messages

Maybe you are looking for