Yes, I'm doing that. Here is the code for the subroutine:
SUBROUTINE FIND.TERM.DIR (RESULT)
COMMON /FIND.TERM.DIR/ F.DIR, THIS.ACCT
* MOD1 03/15/2004 GJG Change to use select rather than trust PROV<71>.
*****
IF THIS.ACCT # @WHO THEN
OPEN 'PROV.DIR.DB' TO F.DIR ELSE
PRINT "CANNOT OPEN PROV.DIR.DB"
RETURN
END
[EMAIL PROTECTED]
END
*****
RESULT=""
*MOD1*
[EMAIL PROTECTED]<71>
@SELECTED = 0
SEL.LIT = 'SELECT PROV.DIR.DB WITH X.MAMSI.ID EQ "':@ID:'" TO 2'
PERFORM SEL.LIT ;*<------------------------I get the error here.
READLIST DIRS FROM 2 ELSE DIRS = ''
*END MOD1*
MAX=DCOUNT(DIRS,@VM)
FOR IDX=1 TO MAX
D.ID=DIRS<1,IDX>
READ RCD FROM F.DIR,D.ID THEN
IF RCD<28>#"" THEN
RESULT="1"
EXIT
END ELSE
LOCATE @ID IN RCD<52> SETTING POS THEN
IF RCD<54,POS>#"" THEN
RESULT="1"
EXIT
END
END
END
END
NEXT IDX
*****
RETURN
Gordon J. Glorfield
Sr. Applications Developer
MAMSI (A UnitedHealth Company)
301-360-8839
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Mike Randall
Sent: Monday, March 15, 2004 4:25 PM
To: 'U2 Users Discussion List'
Subject: RE: Strange results from I Descriptor
Not sure what you are doing but since it's in an i-descriptor and being used
as part of another listing, I'd use numbered selects in my subroutine to
make sure it doesn't bump heads with the current listing that's using the
i-descriptor.
HTH
Mike R.
[snip]
Notice of Confidentiality: The information included and/or attached in this
electronic mail transmission may contain confidential or privileged
information and is intended for the addressee. Any unauthorized disclosure,
reproduction, distribution or the taking of action in reliance on the
contents of the information is prohibited. If you believe that you have
received the message in error, please notify the sender by reply
transmission and delete the message without copying or disclosing it.
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users
