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:
Denys Beauchemin <[log in to unmask]>
Reply To:
Date:
Thu, 2 May 2002 09:20:37 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines)
You are going to have to define H-SSN as a 10 or 12 character field.  Use 10
for 9 with a blank or 12 for 9 plus the 2 dashes and a trailing blank.

The subitemcount is basically an array construct:  address 4X10:  Gives you
a 40 character storage space where you can reference address(1)..address(4)
as independent values of X10 each in Query and other such things but the
data is really stored as X40.  For characters (X, U, etc) the product of aXb
must be even  (5X6 is valid, 5X5 is not.)  In you case 1X9 is not valid.


Denys

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On Behalf Of
Lynn Price
Sent: Thursday, May 02, 2002 9:24 AM
To: [log in to unmask]
Subject: Adager - SubItemCount

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 *

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

ATOM RSS1 RSS2