Subject: | |
From: | |
Reply To: | |
Date: | Thu, 9 Oct 2003 17:54:28 +0100 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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 *
|
|
|