At 10:05 AM 03/17/2004, you wrote:
Cannot EXECUTE or PERFORM selectlists from within subroutines called from I-Desc. Assuming X.MAMSI.ID is indexed, user the basic command SELECTINDEX to acquire your list. Make sure you use a numbered select list other than 0, or your list statement will weird out, as it is using select list 0 (normally).
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Gordon Glorfield Sent: Monday, March 15, 2004 3:30 PM To: 'U2 Users Discussion List' Subject: RE: Strange results from I Descriptor
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
-- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
-- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
