capturing records in itab

[Former Member]

Hi experts,

I have 10 records in the output screen.Each and every record having checkbox. If i check 4th record's check box,

i should be able to capture 4th record fields.If i check 7th record's check box i should be able to capture that record fields.Can any one tell me how to caputure that particular records which i have checked?

Points guaranteed

cheers

kaki

Message was edited by: Kaki R

[Former Member]

Hi,

Are you using ALV or Normal Report.

Normal Report use AT Line Selection.

[RichHeilman]

Here is a sample program. You must create a gui status for it to work.

report zrich_0002 no standard page heading.

data: imara type table of mara with header line.

data: check_box(1) type c,
      report_lines type i.

start-of-selection.

* Create the gui status with BACK button in standard place
* and a READ button in the application toolbar
  set pf-status 'CHECK'.

  select * into corresponding fields of table imara
           from mara up to 100 rows.

  loop at imara.
    write:/ check_box as checkbox, imara-matnr, imara-matkl.
    hide imara-matnr.
  endloop.

  report_lines  = sy-linno - 1.

top-of-page.

  write: 'List of materials'.
  uline.

top-of-page during line-selection.

  write:  'Material.....'.
  uline.

at user-command.

  case sy-ucomm.
    when 'READ'.
      check_box = space.
      set pf-status 'CHECK' excluding 'READ'.
      do report_lines times.
        read line sy-index field value check_box.
        if check_box = 'X'.
        read table imara with key matnr = imara-matnr.
          write:/  'You have selected material',
                 imara-matnr, imara-matkl, imara-groes.
        endif.
      enddo.
  endcase.

REgards,

Rich Heilman

Modified code a bit

Message was edited by: Rich Heilman

[suresh_datti]

Hi Kaki,

If this is a contnuation of your previous post on checkboxes you can do the following..

AT LINE-SELECTION.

depending on what you need you can get field value or entire line contents using the GET CURSOR options.

Regards,

Suresh Datti

[Former Member]

Hi

Check this link for some information,

http://www.sts.tu-harburg.de/teaching/sap_r3/ABAP4/at_list_.htm

Thanks

Kathirvel

[Former Member]

Hi,

Iam trying to use MR.Rich code to get the fields.

In the 'report_lines' iam getting 10 lines,actually iam having 3 lines in the output.Is it reading page heading lines also? Another thing is when i check the check box iam getting two lines of the last record of the ITAB.Not the clicked item.What might be the reason? Here is my code.

start-of-selection.

if P_XBLNR eq '' and P_EBELN ne ''.

message E000(zm) with 'Please enter Delivery Note'.

leave list-processing.

elseif P_XBLNR ne '' and P_EBELN eq ''.

message E000(zm) with 'Please enter Purchase order'.

leave list-processing.

else.

<b>set pf-status 'EXEC'.</b>

perform get_data.

endif.

perform display_data.

LOOP AT T_INS.

HIDE T_INS-PRUEFLOS.

ENDLOOP.

<b>report_lines </b> = sy-linno - 1.

top-of-page during line-selection.

at user-command.

case sy-ucomm.

when 'EXEC'.

check_box = space.

set pf-status 'EXEC'.

do report_lines times.

read line sy-index field value check_box.

if check_box = 'X'.

read table T_INS with key PRUEFLOS = <b>T_INS-PRUEFLOS</b>.

write:/ 'You have selected material',

T_INS-PRUEFLOS.

endif.

enddo.

• perform process_bdclot.

when 'BACK'.

leave.

when 'EXIT' OR 'CANCEL'.

LEAVE TO SCREEN 0.

endcase.

end-of-selection.

<b>Iam having Heading likie this</b>

FORM set_header .

uline.

write:/0(6) space color col_heading,

6(15) 'DN number' color col_heading,

22(10) 'Po Number' color col_heading,

33(18) 'Material' color col_heading,

52(20) 'Matl Description' color col_heading,

71(10) 'Quantity' color col_heading,

81(14) 'Inspection lot' color col_heading,

96(10) 'Prod order' color col_heading,

107(8) 'UOM' color col_heading,

114(12) 'GR date' color col_heading,

126(12) 'GR doc' color col_heading,

139(20) 'Vendor name' color col_heading,

160(15) 'Vendor' color col_heading,

176(10) 'Item' color col_heading,

187(10) 'QI doc' color col_heading,

198(8) 'QI date' color col_heading,

207(8) 'QI day' color col_heading,

216(35) 'Reason' color col_heading.

WRITE : 1 SY-VLINE, 5 SY-VLINE, 21 SY-VLINE, 32 SY-VLINE,

51 SY-VLINE, 70 SY-VLINE, 80 SY-VLINE, 95 SY-VLINE,

106 SY-VLINE,112 SY-VLINE,125 SY-VLINE,138 SY-VLINE,

159 SY-VLINE,175 SY-VLINE,186 SY-VLINE,197 SY-VLINE,

206 SY-VLINE,215 SY-VLINE,250 SY-VLINE.

uline.

ENDFORM. " set_page_header

[Former Member]

Hi,

1. Define a variable type checkbox.

AND LINES like SY-LINNO

2. loop...

write 😕 <var> as checkbox.

endloop.

LINES = SY-LINNO

3. at user-command.

case SY-UCOMM.

when <fcode>.

do LINES times.

IF C = 'X'. " IF Checkbox is checked

.......

else.

.....

endif.

enddo.

when others.

....

endcase.

Regards,

Digesh Panchal

[Former Member]

Hello Kaki,

You could also specify the field/s that you wish to capture in differnt variables..

eg,

AT lINE SELECTION.

READ LINE INDEX SY-INDEX FIELD LIFNR INTO V_LIFNR.

[Former Member]

hi,

this would be easy if you convert your program to ALV grid/list. there we have User COmmand option, if you give that , it will fetch you what records selected in the output list. you can move them to another table.

thanks

srikanth

send us total program so that i can analyse it. (include all form routines also)

Message was edited by: Srikanth Kidambi Maruthi

[Former Member]

Hi Srikanth,

This is my total code.

REPORT ZQMUP01_INSPECTION MESSAGE-ID ZM

NO STANDARD PAGE HEADING

LINE-SIZE 250.

*include icons.

tables: qals,

mkpf,

mseg,

makt,

lfa1,

ekko,

ekpo,

afko,

afpo,

qave,

jest.

data: messtab like bdcmsgcoll occurs 0 with header line,

bdcdata like bdcdata occurs 0 with header line.

data: begin of bdctab occurs 10. "BDC table

include structure bdcdata.

data: end of bdctab.

data: begin of t_ins occurs 0,

XBLNR LIKE MKPF-XBLNR,

MJAHR LIKE MKPF-MJAHR,

EBELN LIKE MSEG-EBELN,

MATNR LIKE MSEG-MATNR,

MAKTX LIKE MAKT-MAKTX,

MENGE LIKE MSEG-MENGE,

MEINS LIKE MSEG-MEINS,

PRUEFLOS LIKE QALS-PRUEFLOS,

LOSMENGE LIKE QALS-LOSMENGE,

AUFNR LIKE AFKO-AUFNR,

CPUDT LIKE MKPF-CPUDT,

MBLNR LIKE MKPF-MBLNR,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

ZEILE LIKE MSEG-ZEILE,

REASON LIKE ZQI01-REASON,

VCODE LIKE QAVE-VCODE,

VCODEGRP LIKE QAVE-VCODEGRP,

QKENNZAHL LIKE QAVE-QKENNZAHL,

OBJNR LIKE QALS-OBJNR,

STAT LIKE JEST-STAT,

INACT LIKE JEST-INACT,

end of t_ins.

DATA : T_MSEG LIKE MSEG OCCURS 0 WITH HEADER LINE.

DATA : T_MKPF LIKE MKPF OCCURS 0 WITH HEADER LINE.

data: check_box(1) type c,

report_lines type i.

data: flag(1).

DATA: W_FLAG(1).

DATA: G_QTY(10).

data: num type i.

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

PARAMETERS : P_WERKS LIKE MSEG-WERKS DEFAULT '1000'.

PARAMETERS : P_XBLNR LIKE MKPF-XBLNR.

PARAMETERS : P_EBELN LIKE MSEG-EBELN.

PARAMETERS : P_INSLOT LIKE QALS-PRUEFLOS.

*PARAMETERS : P_AUFNR LIKE AFKO-AUFNR.

selection-screen end of block a1.

selection-screen begin of block B1 with frame title text-002.

PARAMETERS : P_AUFNR LIKE AFKO-AUFNR.

selection-screen end of block B1.

top-of-page.

perform set_header.

end-of-page.

start-of-selection.

if P_XBLNR eq '' and P_EBELN ne ''.

message E000(zm) with 'Please enter Delivery Note'.

leave list-processing.

elseif P_XBLNR ne '' and P_EBELN eq ''.

message E000(zm) with 'Please enter Purchase order'.

leave list-processing.

else.

set pf-status 'EXEC'.

perform get_data.

endif.

perform display_data.

*top-of-page during line-selection.

at line-selection.

at user-command.

case sy-ucomm.

when 'EXEC'.

check_box = space.

set pf-status 'EXEC'.<b>

do report_lines times. </b>

read line sy-index field value check_box.

if check_box = 'X'.

read table T_INS with key PRUEFLOS = T_INS-PRUEFLOS.

write:/ 'You have selected material',

T_INS-PRUEFLOS.

endif.

enddo.

• perform process_bdclot.

when 'BACK'.

leave.

when 'EXIT' OR 'CANCEL'.

LEAVE TO SCREEN 0.

endcase.

end-of-selection.

&----

---

*& Form get_data

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM get_data .

DATA : W_MKPF LIKE MKPF.

DATA : W_FOUND(1).

if P_XBLNR NE '' and P_EBELN NE '' and P_AUFNR EQ '' .

FLAG = 'X'.

SELECT * INTO TABLE T_MKPF FROM MKPF

WHERE ( VGART EQ 'WE' OR VGART = 'WA' )

AND XBLNR = P_XBLNR.

SELECT * INTO TABLE T_MSEG FROM MSEG

FOR ALL ENTRIES IN T_MKPF

WHERE MBLNR = T_MKPF-MBLNR

AND MJAHR = T_MKPF-MJAHR

AND WERKS = P_WERKS

AND EBELN = P_EBELN

AND LGORT <> SPACE

AND BWART = '101'

AND INSMK = 'X'.

LOOP AT T_MSEG.

CLEAR T_INS.

MOVE-CORRESPONDING T_MSEG TO T_INS.

READ TABLE T_MKPF WITH KEY MBLNR = T_MSEG-MBLNR

MJAHR = T_MSEG-MJAHR.

CHECK SY-SUBRC EQ 0.

MOVE-CORRESPONDING T_MKPF TO T_INS.

PERFORM CHECK_REVERSAL USING T_MKPF-MBLNR

T_MKPF-MJAHR

T_MSEG-ZEILE.

CHECK W_FLAG IS INITIAL.

CLEAR W_FOUND.

LOOP AT T_MKPF INTO W_MKPF

WHERE XBLNR = T_INS-XBLNR

AND MBLNR <> T_MKPF-MBLNR.

CHECK T_MKPF-BKTXT = P_EBELN.

SELECT SINGLE * FROM MSEG WHERE MBLNR = W_MKPF-MBLNR

AND MJAHR = W_MKPF-MJAHR

AND MATNR = T_MSEG-MATNR

AND ( BWART = '122' OR

BWART = '321' ).

CHECK SY-SUBRC EQ 0.

PERFORM CHECK_REVERSAL USING W_MKPF-MBLNR

W_MKPF-MJAHR

T_MSEG-ZEILE.

IF W_FLAG IS INITIAL.

MOVE 'X' TO W_FOUND.

EXIT.

ENDIF.

ENDLOOP.

CHECK W_FOUND IS INITIAL.

SELECT SINGLE MAKTX INTO T_INS-MAKTX

FROM MAKT

WHERE MATNR = T_MSEG-MATNR.

SELECT SINGLE NAME1 INTO T_INS-NAME1

FROM LFA1

WHERE LIFNR = T_MSEG-LIFNR.

APPEND T_INS.

ENDLOOP.

LOOP AT T_INS.

SELECT SINGLE * FROM QALS WHERE MBLNR = T_INS-MBLNR AND

PRUEFLOS NE ''.

T_INS-PRUEFLOS = QALS-PRUEFLOS.

T_INS-LOSMENGE = QALS-LOSMENGE.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

SELECT SINGLE REASON INTO T_INS-REASON FROM ZQI01

WHERE DELNOTE = T_INS-XBLNR

AND MBLNR = T_INS-MBLNR.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

SELECT SINGLE * FROM QAVE WHERE PRUEFLOS = T_INS-PRUEFLOS.

T_INS-VCODE = QAVE-VCODE.

T_INS-VCODEGRP = QAVE-VCODEGRP.

T_INS-QKENNZAHL = QAVE-QKENNZAHL.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

ENDLOOP.

LOOP AT T_INS.

DELETE T_INS WHERE PRUEFLOS = ''.

ENDLOOP.

ELSEIF P_XBLNR EQ '' and P_EBELN EQ '' AND P_INSLOT NE '' AND

P_AUFNR = ''. .

SELECT * INTO CORRESPONDING FIELDS OF TABLE T_INS FROM QALS

WHERE PRUEFLOS = P_INSLOT.

LOOP AT T_INS.

SELECT SINGLE MAKTX INTO T_INS-MAKTX FROM MAKT

WHERE MATNR = T_INS-MATNR.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

SELECT SINGLE NAME1 INTO T_INS-NAME1 FROM LFA1

WHERE LIFNR = T_INS-LIFNR.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

SELECT SINGLE * FROM MSEG WHERE MBLNR = T_INS-MBLNR

AND MJAHR = T_INS-MJAHR.

IF SY-SUBRC = 0.

MOVE-CORRESPONDING MSEG TO T_INS.

MODIFY T_INS.

ENDIF.

SELECT SINGLE * FROM QALS WHERE MBLNR = T_INS-MBLNR.

T_INS-PRUEFLOS = QALS-PRUEFLOS.

T_INS-LOSMENGE = QALS-LOSMENGE.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

SELECT SINGLE REASON INTO T_INS-REASON FROM ZQI01

WHERE DELNOTE = T_INS-XBLNR

AND MBLNR = T_INS-MBLNR.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

SELECT SINGLE * FROM QAVE WHERE PRUEFLOS = T_INS-PRUEFLOS.

T_INS-VCODE = QAVE-VCODE.

T_INS-VCODEGRP = QAVE-VCODEGRP.

T_INS-QKENNZAHL = QAVE-QKENNZAHL.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

ENDLOOP.

ELSEIF P_AUFNR NE '' AND P_XBLNR EQ '' AND P_EBELN EQ ''

AND P_INSLOT EQ '' .

*--for production order

FLAG = 'X'.

SELECT AUFNR MBLNR FROM MSEG INTO CORRESPONDING FIELDS OF TABLE

T_INS WHERE AUFNR = P_AUFNR.

LOOP AT T_INS.

SELECT SINGLE * FROM QALS WHERE MBLNR = T_INS-MBLNR AND

PRUEFLOS NE ''.

IF SY-SUBRC = 0.

T_INS-PRUEFLOS = QALS-PRUEFLOS.

T_INS-OBJNR = QALS-OBJNR.

MODIFY T_INS.

ENDIF.

SELECT SINGLE * FROM JEST WHERE OBJNR = T_INS-OBJNR AND

STAT = 'E0001'.

IF SY-SUBRC = 0.

T_INS-STAT = JEST-STAT.

T_INS-INACT = JEST-INACT.

MODIFY T_INS.

ENDIF.

SELECT SINGLE * FROM QAVE WHERE PRUEFLOS = T_INS-PRUEFLOS.

T_INS-VCODE = QAVE-VCODE.

T_INS-VCODEGRP = QAVE-VCODEGRP.

T_INS-QKENNZAHL = QAVE-QKENNZAHL.

IF SY-SUBRC = 0.

MODIFY T_INS.

ENDIF.

ENDLOOP.

ELSE. "IF P_AUFNR NE '' AND P_XBLNR NE ''

• AND P_EBELN NE ''

• AND P_INSLOT NE '' .

message S000(zm) with 'You can enter both orders!'.

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " get_data

&----

---

*& Form CHECK_REVERSAL

&----

---

• text

----

---

• -->P_MBLNR text

• -->P_MJAHR text

• -->P_ZEILE text

----

---

FORM CHECK_REVERSAL USING P_MBLNR

P_MJAHR

P_ZEILE.

CLEAR W_FLAG.

SELECT SINGLE * FROM MSEG WHERE SMBLN = P_MBLNR

AND SJAHR = P_MJAHR

AND SMBLP = P_ZEILE.

IF SY-SUBRC EQ 0.

MOVE 'X' TO W_FLAG.

ENDIF.

ENDFORM. "CHECK_REVERSAL

&----

---

*& Form display_data

&----

---

• text

----

---

FORM display_data.

loop at t_ins.

write:/0(1) space.

• WRITE check_box AS CHECKBOX.

write:check_box as checkbox,

6(15) t_ins-xblnr,

22(10) t_ins-ebeln,

33(18) t_ins-matnr,

52(20) t_ins-maktx,

71(10) t_ins-menge,

81(14) t_ins-PRUEFLOS,

96(10) t_ins-aufnr,

107(8) t_ins-meins,

114(12) t_ins-cpudt,

126(12) t_ins-mblnr,

139(20) t_ins-name1,

160(15) t_ins-lifnr,

176(10) t_ins-zeile,

187(10) 'QI doc',

198(8) 'QI date',

207(8) 'QI day',

216(35) t_ins-Reason.

WRITE : 1 SY-VLINE, 5 SY-VLINE, 21 SY-VLINE, 32 SY-VLINE,

51 SY-VLINE, 70 SY-VLINE, 80 SY-VLINE, 95 SY-VLINE,

106 SY-VLINE,112 SY-VLINE,125 SY-VLINE,138 SY-VLINE,

159 SY-VLINE,175 SY-VLINE,186 SY-VLINE,197 SY-VLINE,

206 SY-VLINE,215 SY-VLINE,250 SY-VLINE.

uline.

endloop.

LOOP AT T_INS.<b>

HIDE T_INS-PRUEFLOS.</b>

• report_lines = report_lines + 1.

ENDLOOP.

<b>report_lines = sy-linno - 1.</b>

ENDFORM. "display_data

*&----

---

*

*& Form set_page_header

*&----

---

*

• text

*----

---

*

• --> p1 text

• <-- p2 text

*----

---

FORM set_header .

uline.

write:/0(6) space color col_heading,

6(15) 'DN number' color col_heading,

22(10) 'Po Number' color col_heading,

33(18) 'Material' color col_heading,

52(20) 'Matl Description' color col_heading,

71(10) 'Quantity' color col_heading,

81(14) 'Inspection lot' color col_heading,

96(10) 'Prod order' color col_heading,

107(8) 'UOM' color col_heading,

114(12) 'GR date' color col_heading,

126(12) 'GR doc' color col_heading,

139(20) 'Vendor name' color col_heading,

160(15) 'Vendor' color col_heading,

176(10) 'Item' color col_heading,

187(10) 'QI doc' color col_heading,

198(8) 'QI date' color col_heading,

207(8) 'QI day' color col_heading,

216(35) 'Reason' color col_heading.

WRITE : 1 SY-VLINE, 5 SY-VLINE, 21 SY-VLINE, 32 SY-VLINE,

51 SY-VLINE, 70 SY-VLINE, 80 SY-VLINE, 95 SY-VLINE,

106 SY-VLINE,112 SY-VLINE,125 SY-VLINE,138 SY-VLINE,

159 SY-VLINE,175 SY-VLINE,186 SY-VLINE,197 SY-VLINE,

206 SY-VLINE,215 SY-VLINE,250 SY-VLINE.

uline.

ENDFORM. " set_page_header

&----

---

*& Form bdc

&----

---

• text

----

---

form process_bdclot.

loop at t_ins.

refresh bdcdata.

if flag = 'X'.

if T_INS-VCODE = '01'. " ACCEPT

PERFORM BDC_FIELDS..

ELSEIF T_INS-VCODE = '02'. " REJECT

PERFORM BDC_FIELDS.

ELSEIF T_INS-VCODE = '02' AND T_INS-INACT = 'X'.

PERFORM BDC_FIELDS.

ELSE.

message e000(ZM) with 'QC not passed !': T_INS-PRUEFLOS.

EXIT.

ENDIF.

else.

perform bdc_dynpro using 'SAPMQEVA' '0100'.

perform bdc_field using 'BDC_CURSOR'

'QALS-PRUEFLOS'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'QALS-PRUEFLOS'

t_ins-PRUEFLOS.

perform bdc_dynpro using 'SAPMQEVA' '0200'.

perform bdc_field using 'BDC_CURSOR'

'RQEVA-VCODE'.

if T_INS-VCODE = '01' and T_INS-VCODEGRP = '100'.

perform bdc_field using 'RQEVA-VCODE'

T_INS-VCODE.

perform bdc_field using 'RQEVA-VCODEGRP'

T_INS-VCODEGRP.

perform bdc_field using 'RQEVA-QKENNZAHL'

T_INS-QKENNZAHL.

perform bdc_field using 'BDC_OKCODE'

'=BB'.

perform bdc_dynpro using 'SAPMQEVA' '0200'.

perform bdc_field using 'BDC_CURSOR'

'RQEVA-VMENGE01'.

perform bdc_field using 'BDC_OKCODE'

'=ENTE'.

G_QTY = T_INS-LOSMENGE.

CONDENSE G_QTY.

perform bdc_field using 'RQEVA-VMENGE01'

G_QTY.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

ELSE.

message e000(ZM) with 'This lot is having REJECTION!': T_INS-PRUEFLOS.

EXIT.

ENDIF.

endif. " for flag

call transaction 'QA12' using bdcdata

mode 'A' update 'S' messages into messtab.

endloop.

endform. "bdc_acc

----

---

• Form BDC_FIELDS

----

---

FORM BDC_FIELDS.

perform bdc_dynpro using 'SAPMQEVA' '0100'.

perform bdc_field using 'BDC_CURSOR'

'QALS-PRUEFLOS'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'QALS-PRUEFLOS'

t_ins-PRUEFLOS.

perform bdc_dynpro using 'SAPMQEVA' '0200'.

perform bdc_field using 'BDC_CURSOR'

'RQEVA-VCODE'.

perform bdc_field using 'RQEVA-VCODE'

T_INS-VCODE.

perform bdc_field using 'RQEVA-VCODEGRP'

T_INS-VCODEGRP.

perform bdc_field using 'RQEVA-QKENNZAHL'

T_INS-QKENNZAHL.

perform bdc_field using 'BDC_OKCODE'

'=BB'.

perform bdc_dynpro using 'SAPMQEVA' '0200'.

perform bdc_field using 'BDC_CURSOR'

'RQEVA-VMENGE01'.

perform bdc_field using 'BDC_OKCODE'

'=ENTE'.

G_QTY = T_INS-LOSMENGE.

CONDENSE G_QTY.

perform bdc_field using 'RQEVA-VMENGE01'

G_QTY.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

ENDFORM. "BDC_FIELDS

----

---

• Form BDC_DYNPRO

----

---

form bdc_dynpro using program dynpro.

clear bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

append bdcdata.

endform. " BDC_DYNPRO

----

---

• Form BDC_FIELD

----

---

form bdc_field using fnam fval.

clear bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

append bdcdata.

endform. "bdc_field

----

---

• FORM NAME : BDC_TAB

• FORM DESCRIPTION : This routine fills the BDC table.

----

---

form bdc_tab using dynbegin program dynpro.

clear bdctab.

if dynbegin = 'X'.

bdctab-dynbegin = dynbegin.

bdctab-program = program.

bdctab-dynpro = dynpro.

append bdctab.

else.

bdctab-fnam = program.

bdctab-fval = dynpro.

append bdctab.

endif.

endform. "bdc_tab

[Former Member]

Thanks for all replies.

points alloted

cheers

kaki