retreving data from sapscript

[Former Member]

Hi Experts,

Iam working on sap scripts.

I have BUKRS in my variable /: &MSEG-BUKRS&.

Using this value i want to extract BUTXT from t001 table.

Since my print program is sap standard program i can not write select statement.

How can i get BUTXT value into my sapscript.

Thanks

kaki

[RichHeilman]

You can use a PERFORM statement in your sapscript to retrieve the text and pass back to the sapscript.

REgards,

Rich Heilman

[Former Member]

Hi,

Could you please give me any sample code using perform statement to retreive BUTXT value.My code is like this..

/: DEFINE &ZBUKRS& = &MSEG-BUKRS&
/: PERFORM GET_COMP_NAME IN PROGRAM 
/: test
/: USING &ZBUKRS& CHANGING &ZBUTXT&
/: ENDPERFORM

REPORT  test.

FORM get_comp_name TABLES in_tab  STRUCTURE itcsy
                         out_tab STRUCTURE itcsy.

 BREAK-POINT.
  DATA: lv_zbukr LIKE t001-bukrs,
        lv_butxt LIKE t001-butxt.

  READ TABLE in_tab WITH KEY 'ZBUKRS'.
  lv_zbukr = in_tab-value.

  SELECT SINGLE butxt INTO lv_butxt FROM
  t001 WHERE bukrs = lv_zbukr.

  READ TABLE out_tab WITH KEY 'ZBUTXT'.
  IF sy-subrc = 0.
    out_tab-value = lv_butxt.
    MODIFY out_tab INDEX sy-tabix.
  ENDIF.            "check for sy-subrc

ENDFORM.                    "comp_reg_num

Is it correct approach??

[former_member186741]

I believe this is perfect.... you could change all references of &ZBUTXT& to &MSEG-BUKRS& but it should work either way.

[Former Member]

Hi Neil,

There is a value in &ZBUKRS&.

But iam not getting company name in &ZBUTXT&.

Where iam doing wrong?

Thanks

kaki

[former_member186741]

Hi Kaki,

I think you need to put an endperform in after the 'changing' line and put the 'using' and 'changing' parameters on separate lines:

/: DEFINE &ZBUKRS& = &MSEG-BUKRS&

/: PERFORM GET_COMP_NAME IN PROGRAM test

/: USING &ZBUKRS&

/: CHANGING &ZBUTXT&

/: ENDPERFORM