Hello,

I'm using a perl program on an HP3000.  This program uses the TurboImage
primitives (wrapped in Ted Ashton's MPE::Image perl module) to retrieve data
from the database.

The problem I'm having is that one of my tables has a key that looks like the
following:

E-PAT-ACCT-NBR                 CHARACTER                 8
   .ENTITY-ID                  CHARACTER                 2
   PAT-ACCT-NBR                PACKED UNSIGNED           6

So, basically, the key consists of a two byte character (which should always
have the value '01') and a packed unsigned field.   I'm trying to figure out
what are the correct values to pass to the Perl builtin function 'pack'.

I tried doing a pack("H8",$key) where $key = <some valid key> and then passing
that to the DbFind() function, but I'm getting back the following error:

'THERE IS NO CHAIN FOR THE SPECIFIED SEARCH ITEM VALUE'

which I take to mean that I'm passing it an invalid key.  I know that the
problem doesn't lie with the perl function per se, as I tested it on a table
that doesn't use a packed decimal key and it worked ok.

Has anyone done this before?  Any help appreciated.

Thanks,

Braun Brelin
[log in to unmask]




-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *