If a DBCLOSE mode 3 did not exist, this could be a good method also, except
that everything is transitory in IMAGE, especially when it comes to MASTER
datasets. Even if the first entry you read did not get deleted, it could be
part of a synonym chain and could be moved if the primary were to be
deleted.
Denys
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Wyell Grunwald
Sent: Friday, January 14, 2005 12:42 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] DBGET serial read - reset pointers
You could save the record number after the very first DBGET, and do a
calculated DBGET (master) to return to the first record. This is
providing that the master is not having DBPUT's and DBDELETE's going on
in the mean time !
[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][]
[]
[] Wyell Grunwald
[] Senior Technical Analyst
[] Geisinger Health System
[] Information Technology
[] Mail Code 30-33
[] 100 North Academy Avenue
[] Danville, Pennsylvania 17822
[] Phone: 570-271-7342
[] Fax: 570-271-5162
[] e-mail: [log in to unmask]
[] Web: www.geisinger.org
[]
[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][]
>>> Connie Sellitto <[log in to unmask]> Friday, January 14, 2005 1:36:29 PM
>>>
Hello Listers,
I have a COBOL program that reads a small (1500 records) Master
dataset in serial mode ('2'), and may have occasion to re-read it
several times in the program. After doing a 'DBGET' and getting an
EOF condition ('11'), is there a simple way to reset the record
pointer
back to the beginning of the set, other than a DBCLOSE and
DBOPEN? I was thinking of alternating modes on the DBGET
between 2 and 3 (backwards serial read) for each subsequent pass,
since the program will select just a few records and sort them
according to user specifications.
Thank you for any suggestions,
Connie
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
IMPORTANT WARNING: The information in this message (and the documents
attached to it, if any) is confidential and may be legally privileged. It is
intended solely for the addressee. Access to this message by anyone else is
unauthorized. If you are not the intended recipient, any disclosure,
copying, distribution or any action taken, or omitted to be taken, in
reliance on it is prohibited and may be unlawful. If you have received this
message in error, please delete all electronic copies of this message (and
the documents attached to it, if any), destroy any hard copies you may have
created and notify me immediately by replying to this email. Thank you.
* 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 *
|
