Re: alv

Former Member — Thu, 19 Jul 2007 04:24:19 GMT

Hi Hema,

Kindly check the coding below :

[code]

An ALV program that calls a ME21N via BDC

Tips by: Sam Hearn

Here is an ALV program that calls a ME21N via BDC. There is a LOT of code here you don't need (ex: the ability to run the ALV in background for huge amounts of data yet keep the ALV sort & mod abilities, the ability for different users to set their own sort combinations etc), but if you go to the CALL_CRYSTAL form, you will see I do another perform, called BUILD_BDC. This will show you how to use the CALL TRANSACTION, with a message table. I have a loop inside the message table after I return from ME21N to display an info message with the doc number. Using this loop, you can find your delivery numbers for your second BDC.

----

Author : Sam Hearn *
Date : 2004-08-31 *
*
Description : This program was copied from the ZMRP21 *
*

[START OF REPORT]-

report zjmrp message-id zaberd no standard page heading

line-count 65(1) line-size 162.

[TABLES]-

tables: mara, " General Material Data

marc, "

sscrfields. " Fields on selection screens

type-pools: slis.

[INTERNAL WORK AREAS]-

----

for MD_ABBL_REPORTING -

data: i_crpes like crpes.

data begin of i_mdps occurs 100.

include structure mdps.

data end of i_mdps.

----

SORTING TABLES -

data begin of i_sortord occurs 100.

include structure zsort_list.

data end of i_sortord.

data: fname(5).

data: f01(10),f02(10),f03(10),f04(10),f05(10),f06(10),f07(10),f08(10),

f09(10),f10(10),f11(10),f12(10),f13(10),f14(10),f15(10),f16(10),

f17(10),f18(10),f19(10),f20(10).

field-symbols <fs1>.

FILENAME DEFINITION--

data: sap1filp(132) value '/usr/sap/interfaces/reports/zmrp21_'.

data: sap1fil(132),

getfil(132).

ranges s_wrkst for mara-wrkst.

ranges s_groes for mara-groes.

data: begin of disp_tab occurs 0, "Internal table for ALV data

ckbox(1) type c, " Selection Box (input)

matkl like mara-matkl, " Material Group

matnr like mara-matnr, " Material Number

maktx like makt-maktx, " Description

bismt like mara-bismt, " Old material

wrkst like mara-wrkst, " Basic material

groes like mara-groes, " Size/dimension

werks like marc-werks, " Plant

dispo like marc-dispo, " MRP controller

bstmi like marc-bstmi, " Min Run Length

lbkum like mbew-lbkum, " On Hand

eisbe like marc-eisbe, " Safety stock

idprq like mdps-mng01, " Independant Req

deprq like mdps-mng01, " Dependant Req

reqrq like mdps-mng01, " Requisitions

storq like mdps-mng01, " STO's

convert like mdps-mng01, " Qty to convert (input)

deldat like sy-datum, " Delivery date (input)

end of disp_tab.

data: begin of i_fldw, "Storage area for DISP_TAB data

ckbox(1) type c, " Selection Box (input)

matkl like mara-matkl, " Material Group

matnr like mara-matnr, " Material Number

maktx like makt-maktx, " Description

bismt like mara-bismt, " Old material

wrkst like mara-wrkst, " Basic material

groes like mara-groes, " Size/dimension

werks like marc-werks, " Plant

dispo like marc-dispo, " MRP controller

bstmi like marc-bstmi, " Min Run Length

lbkum like mbew-lbkum, " On Hand

eisbe like marc-eisbe, " Safety stock

idprq like mdps-mng01, " Independant Req

deprq like mdps-mng01, " Dependant Req

reqrq like mdps-mng01, " Requisitions

storq like mdps-mng01, " STO's

convert like mdps-mng01, " Qty to convert

deldat like sy-datum, " Delivery date (input)

end of i_fldw.

data: begin of i_fcc occurs 100,

chkbox(1), " Checkbox

matkl(10), " Material Group

matnr(18), " Material Number

maktx(40), " Description

bismt(18), " Old material

wrkst(48), " Basic material

groes(32), " Size/dimension

werks(04), " Plant

dispo(03), " MRP controller

bstmi(13), " Min Run Length

lbkum(13), " On Hand

eisbe(13), " Safety stock

idprq(25), " Independant Req

deprq(25), " Dependant Req

reqrq(25), " Requisitions

storq(25), " STO's

convert(25), " Qty to convert

deldat(10), " Delivery date

end of i_fcc.

data begin of bdcdata occurs 20.

include structure bdcdata.

data end of bdcdata.

data begin of messtab occurs 10.

include structure bdcmsgcoll.

data end of messtab.

data: i_fieldcat_alv type slis_t_fieldcat_alv,

w_fieldcat_alv like line of i_fieldcat_alv,

wa_repid type sy-repid,

w_variant type disvariant,

wx_variant type disvariant,

w_callback_ucomm type slis_formname,

w_variant_save(1) type c,

w_exit(1) type c,

w_layout type slis_layout_alv,

lst_is_print type slis_print_alv,

lin type i.

************************************************************************

selection-screen: begin of block main with frame title text-008.

select-options: w_wrkst for mara-wrkst no intervals no-extension,

w_groes for mara-groes no intervals no-extension,

w_matnr for mara-matnr no intervals no-extension,

w_matkl for mara-matkl no intervals no-extension,

w_dispo for marc-dispo,

w_date for sy-datum no intervals no-extension.

parameter: p_modes type c default 'N' no-display.

parameter: w_ast as checkbox default 'X'.

selection-screen: begin of block immed with frame title text-001.

selection-screen: begin of line.

selection-screen: comment 1(29) text-002. "Output directly to printer?

parameters: pa_print as checkbox.

selection-screen: end of line.

selection-screen: end of block immed.

selection-screen: begin of block variant with frame title text-003.

parameters: p_vari type slis_vari.

selection-screen: end of block variant.

selection-screen begin of block sub2 with frame title text-007.

parameter: w_new radiobutton group rad1.

parameter: w_fil radiobutton group rad1.

parameter: w_save as checkbox.

parameter: sapfil(132) type c default '001.dat' lower case obligatory.

selection-screen end of block sub2.

selection-screen function key 1.

selection-screen function key 2.

selection-screen: end of block main.

$$----

$$ Initialization

$$----

initialization.

perform init_variant.

perform variant_default using p_vari.

perform added_inits.

$$----

$$ At Selection Screen

$$----

at selection-screen.

perform variant_fill.

perform added_functions.

$$----

$$ At Selection Screen Value Request

$$----

at selection-screen on value-request for p_vari.

perform variant_f4 using p_vari.

************************************************************************

start-of-selection.

perform get_data.

perform fieldcat_build.

perform layout_build.

perform save_list_order.

perform call_crystal.

end-of-selection.

&----

*& Form init_variant

&----

form init_variant.

clear: w_variant.

wa_repid = sy-repid.

w_variant-report = wa_repid.

w_variant-username = sy-uname.

w_variant_save = 'A'. "All types

endform.

&----

*& Form variant_default

&----

form variant_default using p_variant.

wx_variant = w_variant.

if not p_variant is initial.

wx_variant-variant = p_variant.

endif.

call function 'LVC_VARIANT_DEFAULT_GET'

exporting

i_save = w_variant_save

changing

cs_variant = wx_variant

exceptions

wrong_input = 1

not_found = 2

program_error = 3

others = 4.

case sy-subrc.

when 0.

p_variant = wx_variant-variant.

when 2.

clear: p_variant.

endcase.

endform.

&----

*& Form variant_fill

&----

form variant_fill.

clear: w_variant.

if p_vari is initial.

w_variant-variant = 'STANDARD'.

w_variant-report = wa_repid.

else.

w_variant-variant = p_vari.

w_variant-report = wa_repid.

call function 'LVC_VARIANT_EXISTENCE_CHECK'

exporting

i_save = w_variant_save

changing

cs_variant = w_variant

exceptions

others = 01.

if sy-subrc ne 0.

message i005.

endif.

endform.

&----

*& Form variant_f4

&----

form variant_f4 using p_variant.

call function 'LVC_VARIANT_F4'

exporting

is_variant = w_variant

i_save = w_variant_save

importing

e_exit = w_exit

es_variant = wx_variant

exceptions

not_found = 1

program_error = 2

others = 3.

if sy-subrc <> 0.

message i006.

endif.

if w_exit is initial.

w_variant-variant = wx_variant-variant.

p_variant = wx_variant-variant.

endif.

endform.

&----

*& Form get_data

&----

text

----

form get_data.

concatenate sap1filp sapfil into sap1fil.

if w_new = 'X'.

clear disp_tab.

select matkl matnr bismt wrkst groes

into (disp_tab-matkl, disp_tab-matnr, disp_tab-bismt,

disp_tab-wrkst, disp_tab-groes)

from mara where matnr in w_matnr

and matkl in w_matkl

and groes in s_groes

and wrkst in s_wrkst

and mstae = ''.

i_fldw = disp_tab.

select matnr werks dispo eisbe

into (disp_tab-matnr, disp_tab-werks,

disp_tab-dispo, disp_tab-eisbe)

from marc where matnr = disp_tab-matnr

and werks eq '7000'

and dispo in w_dispo.

select single lbkum into disp_tab-lbkum from mbew

where matnr = disp_tab-matnr

and bwkey = disp_tab-werks.

refresh i_mdps.

call function 'MD_ABBL_REPORTING'

exporting

ematnr = disp_tab-matnr

ewerks = disp_tab-werks

ecrpes = i_crpes

tables

mdpsx = i_mdps

exceptions

error_matmaster = 1

others = 2.

if sy-subrc = 0.

if w_date[] is initial.

w_date-low = '99991231'.

w_date-sign = 'I'.

w_date-option = 'EQ'.

append w_date.

endif.

loop at i_mdps.

case i_mdps-delkz.

when 'U1'.

if i_mdps-dat00 le w_date-low.

disp_tab-deprq = disp_tab-deprq + i_mdps-mng01.

endif.

when 'VC'.

if i_mdps-dat00 le w_date-low.

disp_tab-idprq = disp_tab-idprq + i_mdps-mng01.

endif.

when 'BA'.

disp_tab-reqrq = disp_tab-reqrq + i_mdps-mng01.

when 'BE'.

disp_tab-storq = disp_tab-storq + i_mdps-mng01.

endcase.

endloop.

endif.

select single bstmi into disp_tab-bstmi from marc

where matnr = disp_tab-matnr

and werks = disp_tab-werks.

select single maktx into disp_tab-maktx from makt

where matnr = disp_tab-matnr

and spras = 'E'.

if disp_tab-lbkum > 0 or

disp_tab-idprq > 0 or

disp_tab-deprq > 0 or

disp_tab-reqrq > 0 or

disp_tab-storq > 0.

append disp_tab.

endif.

disp_tab = i_fldw.

endselect.

else.

Open the datainfil.

open dataset sap1fil in text mode.

if sy-subrc <> 0.

write:/ 'Upload File Not Found'.

exit.

endif.

refresh i_fcc.

Loop At data set.

do.

read dataset sap1fil into i_fcc.

if sy-subrc <> 0. exit. endif.

move-corresponding i_fcc to disp_tab.

append disp_tab.

enddo.

Close Dataset.

close dataset sap1fil.

endif.

endform. " get_data

&----

*& Form fieldcat_build

&----

Build up the headers for the fields in the Grid Display, and set
the key-fields for freeze while scrolling.

************************************************************************

form fieldcat_build.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = wa_repid

i_internal_tabname = 'DISP_TAB'

i_inclname = wa_repid

changing

ct_fieldcat = i_fieldcat_alv.

loop at i_fieldcat_alv into w_fieldcat_alv.

case w_fieldcat_alv-fieldname.

when 'CKBOX'.

w_fieldcat_alv-seltext_s = text-011.

w_fieldcat_alv-seltext_m = text-011.

w_fieldcat_alv-seltext_l = text-011.

w_fieldcat_alv-reptext_ddic = text-011.

w_fieldcat_alv-key = 'X'.

w_fieldcat_alv-edit = 'X'.

w_fieldcat_alv-checkbox = 'X'.

when 'MATKL'.

w_fieldcat_alv-key = 'X'.

when 'MATNR'.

w_fieldcat_alv-key = 'X'.

w_fieldcat_alv-hotspot = 'X'.

when 'WERKS'.

w_fieldcat_alv-key = ''.

when 'IDPRQ'.

w_fieldcat_alv-seltext_s = text-009.

w_fieldcat_alv-seltext_m = text-009.

w_fieldcat_alv-seltext_l = text-009.

w_fieldcat_alv-reptext_ddic = text-009.

w_fieldcat_alv-key = ''.

when 'DEPRQ'.

w_fieldcat_alv-seltext_s = text-004.

w_fieldcat_alv-seltext_m = text-004.

w_fieldcat_alv-seltext_l = text-004.

w_fieldcat_alv-reptext_ddic = text-004.

w_fieldcat_alv-key = ''.

when 'REQRQ'.

w_fieldcat_alv-seltext_s = text-005.

w_fieldcat_alv-seltext_m = text-005.

w_fieldcat_alv-seltext_l = text-005.

w_fieldcat_alv-reptext_ddic = text-005.

w_fieldcat_alv-key = ''.

when 'STORQ'.

w_fieldcat_alv-seltext_s = text-006.

w_fieldcat_alv-seltext_m = text-006.

w_fieldcat_alv-seltext_l = text-006.

w_fieldcat_alv-reptext_ddic = text-006.

w_fieldcat_alv-key = ''.

when 'CONVERT'.

w_fieldcat_alv-seltext_s = text-010.

w_fieldcat_alv-seltext_m = text-010.

w_fieldcat_alv-seltext_l = text-010.

w_fieldcat_alv-reptext_ddic = text-010.

w_fieldcat_alv-key = ''.

w_fieldcat_alv-edit = 'X'.

when 'DELDAT'.

w_fieldcat_alv-seltext_s = text-012.

w_fieldcat_alv-seltext_m = text-012.

w_fieldcat_alv-seltext_l = text-012.

w_fieldcat_alv-reptext_ddic = text-012.

w_fieldcat_alv-key = ''.

w_fieldcat_alv-edit = 'X'.

when others.

endcase.

modify i_fieldcat_alv from w_fieldcat_alv.

endloop.

endform.

&----

*& Form layout_build

&----

form layout_build.

w_layout-zebra = 'X'.

w_layout-no_vline = ''.

w_layout-colwidth_optimize = 'X'.

w_layout-detail_popup = 'X'.

w_layout-detail_initial_lines = 'X'.

endform.

*&----

*& Form call_crystal

*&----

text

*----

form call_crystal.

w_callback_ucomm = 'CALLBACK_UCOMM'.

If Batch write to list for spool output availability

if sy-batch = 'X' or

pa_print = 'X'.

if pa_print = 'X'.

lst_is_print-print = 'X1'.

endif.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

i_callback_program = wa_repid

i_default = 'X'

i_save = 'A'

is_variant = w_variant

is_layout = w_layout

i_callback_user_command = w_callback_ucomm

it_fieldcat = i_fieldcat_alv

is_print = lst_is_print

tables

t_outtab = disp_tab.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

else.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_background_id = 'SIWB_WALLPAPER'

i_callback_program = wa_repid

i_default = 'X'

i_save = 'A'

is_variant = w_variant

is_layout = w_layout

i_callback_user_command = w_callback_ucomm

it_fieldcat = i_fieldcat_alv

tables

t_outtab = disp_tab.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

else.

loop at disp_tab

where ckbox = ' '.

delete disp_tab.

endloop.

describe table disp_tab lines lin.

if lin ne 0.

perform build_bdc.

endif.

endform. " call_crystal

&----

*& Form added_functions

&----

text

----

--> p1 text
<-- p2 text

----

form added_functions.

refresh:s_wrkst, s_groes.

loop at w_wrkst.

if w_ast = 'X'.

concatenate w_wrkst-low '*' into w_wrkst-low.

w_wrkst-option = 'CP'.

endif.

move-corresponding w_wrkst to s_wrkst.

translate s_wrkst-low to upper case.

append s_wrkst.

translate s_wrkst-low to lower case.

append s_wrkst.

endloop.

loop at w_groes.

if w_ast = 'X'.

concatenate '' w_groes-low '' into w_groes-low.

w_groes-option = 'CP'.

endif.

move-corresponding w_groes to s_groes.

translate s_groes-low to upper case.

append s_groes.

translate s_groes-low to lower case.

append s_groes.

endloop.

if sscrfields-ucomm = 'FC01'.

call function 'Z_POPUP_TO_LIST_SORT_ORDER'

exporting

t_title = 'Setup Sorting Order'

w_popup = 'X'

tables

sortlist = i_sortord.

endif.

if sscrfields-ucomm = 'FC02'.

call function 'Z_POPUP_TO_LIST_FILES'

exporting

t_title = 'Basic Material Search Files'

dir_name = '/usr/sap/interfaces/reports'

file_mask = 'zmrp21_*'

importing

selfilename = getfil.

if not getfil is initial.

sapfil = getfil.

endif.

endform. " added_functions

&----

*& Form added_inits

&----

text

----

--> p1 text
<-- p2 text

----

form added_inits.

move 'Setup Sorting Order ' to sscrfields-functxt_01.

move 'Display Files on Server' to sscrfields-functxt_02.

refresh i_sortord.

i_sortord-fieldname = 'matkl'.

i_sortord-ddtext = 'Material Group'.

append i_sortord.

i_sortord-fieldname = 'matnr'.

i_sortord-ddtext = 'Material Number'.

append i_sortord.

i_sortord-fieldname = 'maktx'.

i_sortord-ddtext = 'Material Description'.

append i_sortord.

i_sortord-fieldname = 'bismt'.

i_sortord-ddtext = 'Old material'.

append i_sortord.

i_sortord-fieldname = 'wrkst'.

i_sortord-ddtext = 'Basic material'.

append i_sortord.

i_sortord-fieldname = 'groes'.

i_sortord-ddtext = 'Size/dimension'.

append i_sortord.

i_sortord-fieldname = 'werks'.

i_sortord-ddtext = 'Plant'.

append i_sortord.

i_sortord-fieldname = 'dispo'.

i_sortord-ddtext = 'MRP controller'.

append i_sortord.

i_sortord-fieldname = 'bstmi'.

i_sortord-ddtext = 'Min lot size'.

append i_sortord.

i_sortord-fieldname = 'lbkum'.

i_sortord-ddtext = 'On Hand'.

append i_sortord.

i_sortord-fieldname = 'eisbe'.

i_sortord-ddtext = 'Safety stock'.

append i_sortord.

i_sortord-fieldname = 'idprq'.

i_sortord-ddtext = 'Independant Req'.

append i_sortord.

i_sortord-fieldname = 'deprq'.

i_sortord-ddtext = 'Dependant Req'.

append i_sortord.

i_sortord-fieldname = 'reqrq'.

i_sortord-ddtext = 'Requisitions'.

append i_sortord.

i_sortord-fieldname = 'storq'.

i_sortord-ddtext = 'STO''s'.

append i_sortord.

endform. " added_inits

&----

*& Form save_list_order

&----

text

----

--> p1 text
<-- p2 text

----

form save_list_order.

call function 'Z_POPUP_TO_LIST_SORT_ORDER'

exporting

t_title = 'Setup Sorting Order'

w_popup = ' '

tables

sortlist = i_sortord.

loop at i_sortord.

write sy-tabix to fname right-justified.

translate fname using ' 0'.

concatenate 'f' fname+2(2) into fname.

assign (fname) to <fs1>.

<fs1> = i_sortord-fieldname.

translate <fs1> to upper case.

endloop.

sort disp_tab ascending by

(f01) (f02) (f03) (f04) (f05) (f06) (f07) (f08) (f09) (f10) (f11)

(f12) (f13) (f14) (f15) (f16) (f17) (f18) (f19) (f20).

endform. " save_list_order

----

FORM user_command *

----

form callback_ucomm using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when '&IC1'.

if rs_selfield-sel_tab_field = 'DISP_TAB-MATNR'.

set parameter id 'MAT' field rs_selfield-value.

set parameter id 'WRK' field '7000'.

set parameter id 'BERID' field ' '.

call transaction 'MD04'.

endif.

when others.

endcase.

endform.

&----

*& Form build_bdc

&----

text

----

form build_bdc.

data: lgpro like marc-lgpro,

first(1) type c,

wa_date like sy-datum.

PREPARE BDC

refresh bdcdata.

clear bdcdata.

perform bdchead using 'SAPLMEGUI'

'0014'.

perform bdcitem using 'BDC_OKCODE'

'=MEDOCTYPE'.

perform bdcitem using 'MEPO_TOPLINE-BSART'

'UB'.

perform bdcitem using 'MEPO_TOPLINE-BEDAT'

sy-datum.

perform bdchead using 'SAPLMEGUI'

'0014'.

perform bdcitem using 'BDC_OKCODE'

'=MEV4000BUTTON'.

perform bdcitem using 'MEPO_TOPLINE-SUPERFIELD'

'5200'.

perform bdchead using 'SAPLMEGUI'

'0014'.

perform bdcitem using 'BDC_OKCODE'

'=TABHDT9'.

perform bdchead using 'SAPLMEGUI'

'0014'.

perform bdcitem using 'BDC_OKCODE'

'=MEV4001BUTTON'.

perform bdcitem using 'MEPO1222-EKORG'

'7000'.

perform bdcitem using 'MEPO1222-EKGRP'

'J10'.

perform bdcitem using 'MEPO1222-BUKRS'

'ABFI'.

first = 'Y'.

loop at disp_tab.

clear lgpro.

if not wa_date is initial and

disp_tab-deldat is initial.

disp_tab-deldat = wa_date.

endif.

select single lgpro into lgpro

from marc

where matnr = disp_tab-matnr and

werks = '7000'.

perform bdchead using 'SAPLMEGUI'

'0014'.

perform bdcitem using 'BDC_OKCODE'

'/00'.

perform bdcitem using 'MEPO1211-EMATN(01)'

disp_tab-matnr.

perform bdcitem using 'MEPO1211-MENGE(01)'

disp_tab-convert.

perform bdcitem using 'MEPO1211-EEIND(01)'

disp_tab-deldat.

perform bdcitem using 'MEPO1211-NAME1(01)'

'7000'.

perform bdcitem using 'MEPO1211-LGOBE(01)'

lgpro.

if first = 'Y'.

first = 'N'.

wa_date = disp_tab-deldat.

perform bdchead using 'SAPLMEGUI'

'0014'.

perform bdcitem using 'BDC_OKCODE'

'=MEPO1211EDITFILTER'.

perform bdchead using 'SAPLSKBH'

'1500'.

perform bdcitem using 'BDC_OKCODE'

'=DTC_WLSE'.

perform bdchead using 'SAPLSKBH'

'1500'.

perform bdcitem using 'BDC_OKCODE'

'=DTC_CONT'.

perform bdchead using 'SAPLSSEL'

'1104'.

perform bdcitem using 'BDC_OKCODE'

'=%00411050000197408'.

perform bdchead using 'SAPLALDB'

'3000'.

perform bdcitem using 'BDC_OKCODE'

'=NOINT'.

perform bdchead using 'SAPLALDB'

'3000'.

perform bdcitem using 'BDC_OKCODE'

'=ACPT'.

perform bdcitem using 'RSCSEL-ILOW_E(01)'

'1'.

perform bdcitem using 'RSCSEL-IHIGH_E(01)'

'99999'.

perform bdchead using 'SAPLSSEL'

'1104'.

perform bdcitem using 'BDC_OKCODE'

'=CRET'.

endif.

endloop.

perform bdchead using 'SAPLMEGUI'

'0014'.

perform bdcitem using 'BDC_OKCODE'

'=MESAVE'.

call transaction 'ME21N' using bdcdata

mode p_modes

update 'S' messages into messtab.

loop at messtab.

if messtab-msgv2+0(4) = '4500'.

message i001 with messtab-msgv1 messtab-msgv2 'created'.

endif.

endloop.

endform. " build_bdc

&----

*& Form bdchead

&----

text

----

-->P_1713 text
-->P_1714 text

----

form bdchead using p_program

p_dynpro.

clear bdcdata.

move : p_program to bdcdata-program,

p_dynpro to bdcdata-dynpro,

'X' to bdcdata-dynbegin.

append bdcdata.

endform. " bdchead

&----

*& Form bdcitem

&----

text

----

-->P_1718 text
-->P_1719 text

----

form bdcitem using p_fnam

p_fval.

clear bdcdata.

move p_fnam to bdcdata-fnam.

write p_fval to bdcdata-fval left-justified.

append bdcdata.

endform. " bdcitem

[/code]

Reward pts if found usefull:)

Regards

Sathish

topic alv in Application Development and Automation Discussions

alv

Re: alv

Re: alv