Re: Multiple Values within Multi-Value Fields...



ED DICT IC R.CM

001 I
002 RAISE(TRANS(CM,FIELD3DICTNAME,@RECORD,'X'))
003 ...ETC

ED DICT IC WHATEVER

001 I
002 EXTRACT(R.CM,1,2,2)
003 ...ETC

make as many whatevers as you need



Russ wrote:
OK - I think you can stop worrying about me - this is what I wrote:

001 SUBROUTINE HELLO(outp,inp)
002 CM.ITEM = ""
003 OPEN "CM" TO CM.FILE ELSE STOP 201, "CM"
004 CM.ID = inp
005 READ CM.ITEM FROM CM.FILE,CM.ID THEN
006 outp = CM.ITEM<22,2,2>
007 END ELSE
008 END
009 RETURN

and it seems to work just fine.  If you think there's a better way you
can write me back, if not, well all I can say is thank you for all your
help!!!

Russ


.



Relevant Pages