Michael and the list,
I don't remember seeing this, but it's been years since I used the old
CK intrinsics.
(Side note. The CK intrinsics were a temporary solution after the
introduction of KSAM/3000, before HP COBOL provided language support for
indexed files. Their use is discouraged. If you're using COBOL, I
strongly recommend using the COBOL verbs instead. If you're not using
COBOL, call the regular file system intrinsics.)
Here is some information that might be useful for us to know. Are you
using the old CM KSAM, or native mode KSAM/XL, or KSAM 64? From your
description, I assume you have opened the file in sequential mode (not
random or dynamic). Is that right? I assume you are reading
sequentially on the primary key, and that the primary key allows
duplicates. Is that right? Are there any alternate keys? If so, do
they allow duplicates? Does your CKREWRITE change the value of any of
the alternate keys?
There are situations where, instead of a CKREWRITE, it's better to do a
CKDELETE followed by a CKWRITE. That might be what you are looking for.
Please let us know what you come up with.
P.S. Even my spell checker doesn't like using CKREWRITE. Instead, it
suggests that you CEREBRATE. Maybe it has something there. :-)
Walter
Walter J. Murray
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Michael Caplin
Sent: Friday, August 13, 2010 4:20 AM
To: [log in to unmask]
Subject: [HP3000-L] CK intrinsics problem
I've seen this before, I just don'rt remember how I dealt with it.
A ksam file (NM) has the following keys:
AAA
BBB
CCC
CCC
CCC
DDD
EEE
If a CKSTART is done on CCC and then subsequest CKREADS, all 3 of
the CCCs are read.
If there is a CKREWRITE after each CKREAD, the subsequesnt CKREAD
goes back to the first one in the chain.
I've tried a CKREADBYKEY as the method to establish the chain head
but that makes no difference.
Has anoyome seen this ?
TIA,
Mike
* 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 *
|
