Solved: capturing records in itab

Former Member · ‎2005 Dec 15

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 · ‎2005 Dec 15

Hi,

Are you using ALV or Normal Report.

Normal Report use AT Line Selection.

Former Member · ‎2005 Dec 15

Hi,

Are you using ALV or Normal Report.

Normal Report use AT Line Selection.

RichHeilman · ‎2005 Dec 15

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 · ‎2005 Dec 15

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 · ‎2005 Dec 15

Hi

Check this link for some information,

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

Thanks

Kathirvel

Former Member · ‎2005 Dec 15

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.

set pf-status 'EXEC'.

perform get_data.

endif.

perform display_data.

LOOP AT T_INS.

HIDE T_INS-PRUEFLOS.

ENDLOOP.

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

Iam having Heading likie this

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 · ‎2005 Dec 15

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 · ‎2005 Dec 15

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 · ‎2005 Dec 15

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 · ‎2005 Dec 15

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'.

do report_lines times.

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.

HIDE T_INS-PRUEFLOS.

report_lines = report_lines + 1.

ENDLOOP.

report_lines = sy-linno - 1.

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 · ‎2005 Dec 15

Thanks for all replies.

points alloted

cheers

kaki

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

capturing records in itab