calling a tcode in simple report

[Former Member]

hi,

I am trying to call a tcode (ME23n) in a simple report(not ALV) but problem is i am unable to SET Parameter ID (i.e. P.O. no ). I displaying a list from an internal table even thou i am using the HIDE statement i am unable to capture the ebeln(P.O. no). please provide some sample code.

regards

prabhu

[Former Member]

Hello,

DO like this.

loop at itab.

write: itab-ebeln.
hide itab-ebeln hotspot on.
endloop.
data: fl(10),
lv(10).
At line-selection.
get cursor field fl value vl.

if fl = 'EBELN'.
SET PARAMETER ID 'BES' FIELD VL.
CALL TRANSACTION 'ME23N'.
ENDIF:

Vasanth

[Former Member]

hi vasanth and sheshu,

thanks for ur reply, problem solved my hide statement was not next to the write statement, bad thing is i cannot reward both 10 pts , sorry sheshu i can give 6 pts only.

regards

prabhu

[seshatalpasai_madala]

Hi,

Make sure yo have ut your HIDE statemet after the WRITE statement.

Also make sureyou are using the right PARAMTER ID in the SET PARAMETER, check in debug mode before the call to SET PARAMETER if the value exist in the data object from which you are copying the data.

Regards,

Sesh

[Former Member]

I have ALV Report which calls mm02 and see the report

REPORT Z_GET_REFRESH no standard page heading.

type-pools : slis.

tables : makt,

mara.

data : i_fieldcat type slis_t_fieldcat_alv.

data : begin of i_makt occurs 0,

matnr like makt-matnr,

maktx like makt-maktx,

end of i_makt.

data : v_repid like sy-repid,

g_user_command type slis_formname value 'USER_COMMAND',

g_status_set type slis_formname value 'SET_PF_STATUS'.

DATA:LC_GLAY TYPE LVC_S_GLAY.

select-options s_matnr for mara-matnr .

start-of-selection.

select matnr maktx from makt into table i_makt

where matnr in s_matnr.

end-of-selection.

• Fill the fieldcatlog

perform fill_field.

• Call the FM

perform call_fm.

&----

---

*& Form fill_field

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM fill_field.

data wa_fieldcat type slis_fieldcat_alv.

clear : wa_fieldcat.

wa_fieldcat-tabname = 'I_MAKT'.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-outputlen = '18'.

wa_fieldcat-seltext_l = 'Material #'.

wa_fieldcat-col_pos = '1'.

append wa_fieldcat to i_fieldcat.

clear : wa_fieldcat.

wa_fieldcat-tabname = 'I_MAKT'.

wa_fieldcat-fieldname = 'MAKTX'.

wa_fieldcat-outputlen = '40'.

wa_fieldcat-seltext_l = 'Material Desc'.

wa_fieldcat-col_pos = '2'.

append wa_fieldcat to i_fieldcat.

ENDFORM. " fill_field

&----

---

*& Form call_fm

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM call_fm.

v_repid = sy-repid.

LC_GLAY-EDT_CLL_CB = 'X'.

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 = g_status_set

I_CALLBACK_USER_COMMAND = g_user_command

• I_CALLBACK_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

• I_GRID_TITLE =

I_GRID_SETTINGS = LC_GLAY

• IS_LAYOUT =

IT_FIELDCAT = i_fieldcat

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

• IT_EVENTS =

• 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

• IT_ALV_GRAPHICS =

• IT_ADD_FIELDCAT =

• IT_HYPERLINK =

• I_HTML_HEIGHT_TOP =

• I_HTML_HEIGHT_END =

• IT_EXCEPT_QINFO =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = i_makt

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. " call_fm

----

---

• FORM USER_COMMAND *

----

---

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield. "#EC CALLED

data i_RSPARAMS like RSPARAMS occurs 0.

CASE R_UCOMM.

WHEN '&IC1'.

read table i_makt index rs_selfield-tabindex.

SET PARAMETER ID 'MAT' FIELD i_makt-matnr.

if not i_makt-matnr is initial.

call transaction 'MM02' and skip first screen.

endif.

when 'REFRESH'.

CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'

EXPORTING

CURR_REPORT = v_repid

• IMPORTING

• SP =

TABLES

SELECTION_TABLE = i_RSPARAMS

EXCEPTIONS

NOT_FOUND = 1

NO_REPORT = 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.

submit z_get_refresh with selection-table i_RSPARAMS.

rs_selfield-refresh = 'X'.

*

ENDCASE.

MOVE 'REFRESH' TO r_ucomm.

ENDFORM.

----

---

• FORM set_pf_status *

----

---

FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'ZSTANDARD' EXCLUDING rt_extab.

SET TITLEBAR sy-tcode.

ENDFORM.

For PO

use like

set parameter id 'BES' field ur field.

call transaction 'ME22N'.

[Former Member]

hello,

try this :

REPORT ztest.

PARAMETERS p_ebeln LIKE ekko-ebeln.

START-OF-SELECTION.

SET PARAMETER ID 'BES' FIELD p_ebeln.

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

you can add the parameter id of the item purchase order : 'BSP'