0

I need to assign data field (component of another field symbol) to field-symbol in a several places of code. For the sake of reusability I decided to encapsulate this code in procedure, but I cannot understand how to pass field-symbols into this procedure.

LOOP bseg ASSIGNING <bseg>
...
PERFORM assigning USING <bseg>
                  CHANGING <wrbtr>.
...
ENDLOOP.

FORM assigning USING <bseg> TYPE bseg
               CHANGING <wrbtr> TYPE bseg-wrbtr
IF ...
  some logic here
  ASSIGN <bseg>-wrbtr TO <wrbtr>.
ELSE
  ASSIGN <bseg>-skfbt TO <wrbtr>.
ENDIF.

ENDFORM.

This code does not work.

What should I do to change the field symbol reference too?

Suncatcher
  • 10,355
  • 10
  • 52
  • 90

1 Answers1

2

This is not possible, at least not the way you try to do it. Field symbols cannot be passed as the pointers they really are. If you need something like that, you'll have to use real references.

Not knowing anything about the rest of your code - it looks a bit weird. Why would you want to change data in BSEG fields directly? I can only assume that you're "abusing" fields to transport some custom value throughout the code, and that's usually a bad idea. And if you need to do this, I'd rather do it this way:

LOOP bseg ASSIGNING <bseg>.
   IF foo.
    l_my_wrbtr = <bseg>-wrbtr.
  ELSE.
    l_my_wrbtr = <bseg>-skfbt.
  ENDIF.

  " ... pro'lly thousands of lines I don't even want to see...

  IF foo.
    <bseg>-wrbtr = l_my_wrbtr.
  ELSE.
    <bseg>-skfbt = l_my_wrbtr.
  ENDIF.
ENDLOOP.
vwegert
  • 18,371
  • 3
  • 37
  • 55
  • Because there is no need to change BSEG table, but to output (make a report) using one or another BSEG fields depending on some condition. For what we fill output data internal table. I cannot change code filling the table - only include my modifications in it. And filling is organized using two loops. For that reason I want to insert check procedures there. – Suncatcher Aug 27 '12 at 13:32
  • I understand, but it just isn't possible. FIELD-SYMBOLS are, as far as I know, a clever trick of local symbol table manipulation, so it's just technically impossible to pass them around. If you need to do stuff like this, you'll have to use real references (TYPE REF TO). – vwegert Aug 27 '12 at 14:27