Hi Pamela,

Personally, I would setup a SUBR type dict and then just do a loop:

SUBROUTINE SUB.GET.NBR(RETURN.VALUE, DATA.ITEM)
C = DCOUNT(DATA.ITEM,@VM)
RETURN.VALUE = ""
FOR I = 1 TO C
  IF DATA.ITEM<1,I>[1,8] = "COMBO YS" THEN
    RETURN.VALUE = FIELD(DATA.ITEM<1,I>,' ',3)
    RETURN
  END
NEXT I
RETURN

I'm sure there's probably a way to do it with the REUSE stuff but due to
development time I avoid those, as the above took me about 90
seconds.....clients like that.....

hth,


Allen E. Elwood
www.tortillafc.com

Quality Code Since 1978

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Pamela J Robbins
Sent: Wednesday, June 28, 2006 12:01
To: [email protected]
Subject: [U2] Question about a dictionary item


Hi,

I have a multi-value attribute that's made up of free text remarks.
However, we put a couple of system messages there as well.   I need to
extract the 6 digit number that follows the "COMBO YS " in the line
below, but I'm having trouble setting up the conversion code in the
dictionary.

Misc Text}Misc Text}COMBO YS 073102}Misc Text

Could someone give me some suggestions?

--
Pamela J Robbins             New Bolton Center
Senior Programmer Analyst    School of Veterinary Medicine
[EMAIL PROTECTED]       University of Pennsylvania
610-925-6438
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to