[Info-vax] Help with DECBasic: reading a record in an INDEX SEQ file using a compound key

[Neil Rieck]

On Jan 6, 8:01 am, thick_guy_9 <jose.santos.mouri... at gmail.com> wrote:
> All
> I need some help with DECBasic. All the examples in the BASIC USER
> GUIDE use a simple key.
>
> This is how I open the file:
>
> OPEN sFILENAME  AS FILE #1  &
> ,access         modify      &
> ,allow          modify      &
> ,map            REC_MAP         &
> ,organization   indexed     &
> ,primary        (PAN, DOB)  ! <======= NOTE &
> ,alternate      LAST  duplicates changes &
> ,alternate      FIRST duplicates changes
>
> FIND #1, KEY #0 EQ "sMyPAN,sDOB", REGARDLESS
> GET #1
> The above Get command gives me a "RECORD NOT FOUND" error.
>
> Did I get the syntax correctly?
>
> Thanks!

Lots of others have already given you the correct solution (I just
flew in from Cancun so have been off-line for the past 9 days) but if
you need more information then check out my OpenVMS Programming Demos
area here:

http://www3.sympatico.ca/n.rieck/links/openvms_demos.html (then look
at the first four demos)

Neil Rieck
Kitchener / Waterloo / Cambridge,
Ontario, Canada.
http://www3.sympatico.ca/n.rieck/OpenVMS.html
http://www3.sympatico.ca/n.rieck/links/openvms_demos.html
http://www3.sympatico.ca/n.rieck/links/openvms_resources.html