HP3000-L Archives

May 2002, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Tom Brandt <[log in to unmask]>
Reply To:
Tom Brandt <[log in to unmask]>
Date:
Thu, 2 May 2002 10:20:37 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (36 lines)
All IMAGE items must be defined as an even number of bytes. The length of
an X field is expressed in bytes, so X2, X4, X6, etc., are legal, X1, X3,
etc. are not.

For your SSN field, you should define it as an X10. Your COBOL program
should define the field as PIC X(10).

Sub-items are not an issue here. Sub-items are the components of a compound
item. For example, you could set up an array of five social security
numbers by setting up a compound item as follows: H-SSN, 5X10, but that's
not what I think you want to do.

At 09:23 AM 5/2/2002 -0500, Lynn Price wrote:
>I am trying to add a new dataset and have a question. When I try to define
>the Item "H-SSN", I am using X9 as my definition. I get the message that
>an "X-Type must have an even number of total bytes". I am not sure what
>the SubItemCount is, but I assumed it was the order of my field in the
>dataset (which should be 1st). I haven't found anything in the Adager
>Guide about SubItemCount (perhaps I am missing it). Can anyone clear this
>up for me? I know that my definition (SubItemCount * SubItemLength) must
>be even, but I am not sure how to define a "PIC X(9)" field in my COBOL
>Progam to match this field in my dataset AND get an even #.
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

--------------------------------
Tom Brandt
Northtech Systems, Inc.
313 N. 1st Street
Ann Arbor, MI 48103
http://www.northtech.com/

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

ATOM RSS1 RSS2