multivalue..

hi all..

can i remove multivalue through routine ??

thanks and regards
Mr_x

ya you can remoFN.MUTHU.FILE="FBNK.MUTHU.PARAM"
read the record in the file. delete the multivalue using DEL command. and write the record back to the file with corresponding ID.

you can understand it from the following program.

007 FN.MUTHU.FILE="FBNK.MUTHU.PARAM"
0008 F.MUTHU.FILE=""
0009 OPEN FN.MUTHU.FILE TO F.MUTHU.FILE ELSE CRT "OPEN ERROR"
0010 READ R.REC FROM F.MUTHU.FILE,"SYSTEM" ELSE CRT "READ ERROR"
0011 DEL R.REC<1,4> ; *1 field no, 4 is the multivalue that is removed
0012 WRITE R.REC TO F.MUTHU.FILE,"SYSTEM" ON ERROR CRT " WRITE ERROR"
0013 STOP

Hi,

Your query is not clear.It would be of great help for all if you can throw some light and deliberate it in detail.

regards
dj

thanks @muthu84mca and @thisisavin for your response

but i want to remove multivalue in version...
this is the example routine:

$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.LD.LOANS.AND.DEPOSITS

CALL GET.LOC.REF("LD.LOANS.AND.DEPOSITS","IS.DEL.REF",IS.DEL)

R.NEW(LD.AMOUNT)=COMI
FOR I = 1 TO COMI
R.NEW(LD.LOCAL.REF)<1,IS.DEL,I> = COMI
NEXT I
CALL REBUILD.SCREEN
RETURN
END

output:

---

amount : 4 (i input in this field)

IS.DEL.REF : 4
IS.DEL.REF : 4
IS.DEL.REF : 4
IS.DEL.REF : 4

---

then if i reinput field to 3, then the output:

---

amount : 3 (i input in this field)

IS.DEL.REF : 3
IS.DEL.REF : 3
IS.DEL.REF : 3
IS.DEL.REF : 4 ---> this multivalue still appear

---

how can i remove that multivalue ??

thanks
mr_x