Read record from first record.

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi,

I have one question:

If i open one file in INPUT mode in a COBOL program and READ it till EOF. And i want read the same file from first record with out close the file. And i don’t want to close it and open again. . what i need to do?

Note: The file is the flat file and no keys.

Please help me for the Answer.

Regards,
Nath.

Ronald Burr · Posted: Thu Sep 02, 2010 6:44 pm

One possible solution: Allocate the same input file to two different DDNAMES in the JCL ( e.g. INPUT1 and INPUT2 ) and open them both with DISP=SHR. When the first one (INPUT1) hits EOF, switch to reading the other one (INPUT2).

Anuj Dhawan · Posted: Thu Sep 02, 2010 6:46 pm

As worded, I don't see any possibility of doing that. Is it some trick question?

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi Ronald,

your solution is actually good one. but i want to read it several times like that for checking one value in the file.

Hi Anuj,

May be this is a trick question and this is my requirement also.

Regards,
Nath.

Craq Giegerich · Posted: Thu Sep 02, 2010 6:58 pm

Anuj Dhawan · Posted: Thu Sep 02, 2010 7:03 pm

Suggest you tell us what is your requirement. What you tell us sounds like that you already "thought of a solution" and now wants to "fit to the requirement". Hopefully, there can be some alternate solution once the requirement is clear.

There is this existing thread, which is loosly connected to your situation, please have a look.

Robert Sample · Posted: Thu Sep 02, 2010 7:05 pm

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi Craq Giegerich,

Please let me know if you have the answer for any number of records and number of times (its not constant, may be its searching in thousends or lacks or more than) that i want to search it.

Regards,
Nath.

enrico-sorichetti · Posted: Thu Sep 02, 2010 7:20 pm

did You ever hear of sort....

have all the files involved sorted on the <same key>

see the sticky two files match

Your idea is just BAD if You tell more we might come up with better suggestions

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi,

Here i am giving you my requirement.

I am having one file says FILE 1 and another file says FILE 2. in FILE 1 having many records. in FILE 2 also having more records with unique data from 1 to 30 position.

i have to check the each record in FILE 1 with FILE 2 (1 to 30) data and fetch some value from the matched record in FILE 2. if not matched, then read another record in FILE 1 and Read the file FILE 2 again for searching it.

two files are not key indexed files. both are flat files and different record length. And both files are not having constant records.

Regards.
Nath.

Anuj Dhawan · Posted: Thu Sep 02, 2010 7:53 pm

When you say

dneufarth · Posted: Thu Sep 02, 2010 7:54 pm

based on 'your requirement' you are stuck with and open/read/close scenario.

as suggested. sort and use a match/merge(update) as shown in a 'sticky' in this forum

could try to load the lookup file in a table if you want random lookups based on file1.

requirements are one thing; solutions abound

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi,

Thanks for your suggestion !

i will try by uisng sort and merging.

Thanks and Regards,
Nath.

Anuj Dhawan · Posted: Fri Sep 03, 2010 7:51 pm

Good Luck...

dick scherrer · Posted: Fri Sep 03, 2010 11:21 pm

Hello,

Kjeld · Posted: Sat Sep 04, 2010 3:54 am

Actually, I have recently implemented a similar situation where a request file had to be re-read from first record every time there was a date break in a transaction file.

The programme was already coded using IMS checkpoint/restart with GSAM I/O.

Restarting from first record was done by issuing a get unique 'GU' call to the GSAM input file, with a doubleword RBA (relative block address) of fullword 1 followed by a fullword zero binary. This works even if you have reached eof in the file.

santy · New User Joined: 19 Jul 2007 Posts: 22 Location: mumbai

you can do that using cobol code also but for that also you have to use 'key parameter of your files.

open file1 in input mode.
open file2 in input mode.
read file1 using key1 at EOF
read file2 using key2 at EOF
if (KEY1=KEY2) then
display "key1 match found in file2"
else
display "key1 not match into file2"
end-if
close file2.
close file1.

dick scherrer · Posted: Wed Sep 08, 2010 7:16 pm

Hello,

Basically, that "solution" will not work for the requirement. . .

There is no "key" to "use" in a sequential file. . .

Please post only tested solutions that meet the requirement.

Robert Sample · Posted: Wed Sep 08, 2010 7:24 pm

santy, as posted your "solution" reads one record from each file and then closes the files and stops. You have no loop to repeatedly read data. Furthermore, even if a loop is implemented, your code completely ignores the possibility that the two files do not have the same number of records. As Dick mentioned, please do not post code unless you have tested it and made sure it (1) works, (2) solves the requirement, and (3) does not introduce other problems. Your code fails all 3 of these areas.