when i parked a document in FV60 by giving amount and amount in doc currency is 0,it should through success message as doc is posted

Hi All,

i am requirement that in FV60 Transaction ,when i park a document by giving required detials in the fields i.e in Amount as 1000 and Amount in Doc currency as 500,then i shoul get status message as Error message " Posting is Only Possible with a Zero Balance; Correct Document".

I have codded for it as below and i am getting as said

enhancement:

IF yfuncl EQ char_i.

IF sy-calld EQ space OR sy-binpt = 'X'.

MESSAGE e060(F5) WITH bkpf-belnr bkpf-bukrs.

ELSE.
g_imess = 'X'.
ENDIF.
ELSE.

MESSAGE s092 WITH bkpf-belnr bkpf-bukrs.

ENDIF.

but now when Amount is 1000 and amount in doc currency is 1000,i should get the succes message as 'Document was parked'.

can any on eplease help me out to solve this.

Thanks,

Ramesh