reset flag

[Former Member]

Hi Experts I need an advice for the below case.

A flag which is set in the EBAN must be reseted. This

is the programm. It doesn't do that. What can be reason for that.

This is the Function Module Call from SAP SRM System with destination command.

CALL FUNCTION 'ZBM_RESET_FLAG'
 DESTINATION 'RV3CLNT888'
  EXPORTING
    BANFNUMBER        = ls_ITEM-EXT_DEMID
 EXCEPTIONS
   NOT_RESETED       = 1
   OTHERS            = 2.

The Function Module is in the the backendsystem (R/3).

FUNCTION ZBM_RESET_FLAG.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(BANFNUMBER) TYPE  BANFN
*"  EXCEPTIONS
*"      NOT_RESETED
*"----------------------------------------------------------------------

  data lt_eban type table of eban.
  data ls_eban type eban.

  data:  l_r_banfn type table of ZBANFEN.

 SELECT * FROM eban into table lt_eban where BANFN EQ BANFNUMBER AND LOCKFLAG EQ 'X'.

  IF SY-SUBRC IS INITIAL.
    LOOP AT lt_eban INTO ls_eban .
      clear: ls_eban-LOCKFLAG .
      modify eban from ls_eban.
    ENDLOOP.
    ELSE.
    raise NOT_RESETED.
  ENDIF.

ENDFUNCTION.

[Sandeep_Panghal]

You may check in the backend system by debugging the system .

There can be an issue with the "modify eban from ls_eban."

[Former Member]

Hi,

The field BANFN has a conversion routine associated with it.

Just check whether the Purchase requisition number which you are passing to the FM via the variable

ls_ITEM-EXT_DEMID has padded 0's. If not then use FM CONVERSION_EXIT_ALPHA_INPUT in your RFC FM before the select statement.

Possibly the select statement is failing and hence the update is not happening.

Regards,

Ankur Parab

[former_member609120]

Hi ertas,

Could you debug and check whether the select is successful.

Whether it is clearing the same entry for that particular record.

Best Regards,

Vanessa Noronha

Edited by: Vanessa Noronha on Jun 10, 2009 11:55 AM

[rainer_hbenthal]

i'm just wondering about that. Do you know how the UPDATE is working?

update eban
set lockflag = ' '
where banfn = banfnumber.
  and lockflag = 'X'.

no select, no loop, no modify. Add checking of sy-subrc and sy-dbcnt and give that back to the caller.

Edited by: Rainer Hübenthal on Jun 10, 2009 12:04 PM

[kesavadas_thekkillath]

looping at lt_eban

Modifying eban ..

Not possible

 LOOP AT lt_eban INTO ls_eban .   <--------
      clear: ls_eban-LOCKFLAG .
      modify eban from ls_eban.       <-----------
 ENDLOOP.

[Former Member]

when I call the Function Module within R/3 then it works

[rainer_hbenthal]

then your rfc connection is not working. But ... i would really change the coding.

[Former Member]

how ?

How else can you write this coding ?

Regards

ertas

Edited by: Ilhan Ertas on Jun 10, 2009 12:12 PM

[rainer_hbenthal]

Just read the answers.

[Former Member]

is that the answer ?

looping at lt_eban

Modifying eban ..

This is not a valid abap code

[rainer_hbenthal]

If you cant read i cant help you.

[Former Member]

TRANSPORTING addition in MODIFY statement may do the trick for you.

*MODIFY eban FROM ls_eban.
MODIFY eban FROM ls_eban TRANSPORTING lockflag.

[rainer_hbenthal]

if its not working without transporting, it will not work with transporting. But still silly coding.

[kesavadas_thekkillath]

Hi IIhan,

check the Prv post from Rainer .. Thatz it

and manish "MODIFY eban" is that possible

[Former Member]

Even i think so now..

My apologies..

[Former Member]

hi is there a commit work needed or not ?

Regards

ertas

[Former Member]

Dear Colleques,

the problem is still existing.

I have inserted a infinite loop and have called t-code sm50 and debugged this coding.

There is no sy-subrc <> 0 and any error message.

Is it not possible to update a dictionary table via remote call like in my case ?

What is worng here ?

Regards

ertas

data lzahl1 type i .
data lzahl2 type i .

lzahl1 = 0.
lzahl2 = 2.

while lzahl1 < lzahl2.
clear sy-subrc.
endwhile.


  data lt_eban type table of eban.
  data ls_eban type eban.

  data:  l_r_banfn type table of ZBANFEN.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      INPUT  = BANFNUMBER
    IMPORTING
      OUTPUT = BANFNUMBER.


  SELECT * FROM eban into table lt_eban where BANFN EQ BANFNUMBER AND LOCKFLAG EQ 'X'.

  IF SY-SUBRC IS INITIAL.
    LOOP AT lt_eban INTO ls_eban .
      UPDATe eban set lockflag = ' ' where banfn = ls_eban-BANFN.
     commit work and wait.
    ENDLOOP.
  ELSE.
    raise NOT_RESETED.
  ENDIF.

[Former Member]

Hi,

what is the type of teh field BANFNUMBER?

Is your select statement returning anything?

Regards,

Ankur Parab

[Former Member]

hi parab

the type of the field BANFNUMBER is BANFN

and the select statement is returning 0

Regards

ertas

[Former Member]

Hi,

try with this.

LOOP AT lt_eban INTO ls_eban .
      UPDATe eban 
      SET lockflag = space 
      WHERE banfn = ls_eban-BANFN.
     commit work and wait.
    ENDLOOP.

Regards,

Ankur Parab