Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-crg!mordor!sri-spam!nike!ucbcad!ucbvax!CLVMS.BITNET!$ABS
From: $ABS@CLVMS.BITNET (Art Stine)
Newsgroups: mod.computers.vax
Subject: Reply to: LIB$ routine fails
Message-ID: <8608132158.AA00795@ucbjade.Berkeley.Edu>
Date: Wed, 13-Aug-86 17:14:00 EDT
Article-I.D.: ucbjade.8608132158.AA00795
Posted: Wed Aug 13 17:14:00 1986
Date-Received: Thu, 14-Aug-86 20:27:58 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 20
Approved: info-vax@sri-kl.arpa

The problem is that the CONTEXT parameter cannot be a constant, as it
expects to be able to modify it. The correct program should look like:


C       TEST OF LIB$FIND_FILE.
        CHARACTER*255 EXP
        CHARACTER*255 SPEC
        INTEGER LIB$FIND_FILE,context
        SPEC = '*.CHR'
        IDUMMY = LIB$FIND_FILE(SPEC,EXP,context)
        PRINT *,EXP(1:78)
        STOP
        END


Art Stine
Systems Programmer
Clarkson University

BITNET: $ABS@CLVMS