Hello,

I'm trying to use Ted Ashton's MPE::Image perl module on the hp3000 to
access a particular table in my customer's MPE/Image database.  The
problem is that the key field is a packed decimal field.  The field
looks like:

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

The .ENTITY-ID field is always a "01".  I'm trying to figure out what
the correct perl code is to pack the key so that when I send it to
DbFind() primitive, that I get back data rather than an index error.

I tried doing a pack("H8",$key), where $key is some valid key, but
that doesn't seem to work.

I don't currently have access to my e-mail, so can someone post
replies to the newsgroup?

Thanks,

Braun Brelin
bbrelin at openapp.biz

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