Read set of records and write to output

raviprabhu · New User Joined: 20 Oct 2006 Posts: 29

Hi,

I have a input file with records as
02 ABCD
03 XYZ
13 hakdjl
45 jshdjf
45 ENDrecordset1
02 USA
03 jlhdfklfj
12 djhfklj
45 fjjfkljs
45 ENDRecordset2
02 UK
04 hjakldfjk
45 ENDRecordset3
:
:
I have to read the first record (02 ABCD) to until record
(45 ENDrecordset1) and process the records (write to output file). Again the next set from (02 USA) to (45 45 ENDRecordset2) and process teh records.
So basically from (02 XXX) to (45 XXX) is a set of record being considered in input file and written to output file.
Please let me know how to do this

Bill Woodger · Posted: Wed Dec 25, 2013 1:16 am

Store all the reocrds for your group in WORKING-STORAGE. Process them when you know you need to, clear the stored records (or ensure they will be). Continue until end-of-file.

Details depend on what you know about the file (how many records, how many different types, is the END always present, etc).

Escapa · Posted: Wed Dec 25, 2013 2:41 am

Terry Heinze · Posted: Wed Dec 25, 2013 3:58 am

Sample expected output would go a long way for anyone to help you out.

raviprabhu · New User Joined: 20 Oct 2006 Posts: 29

Yes..

02 to 45 will be considered as 1 record (but stored as seperate records in file) which will be written in output KSDS file.
Then again read the 02 to 45 records from input file and then write to same KSDS file.
Please let me know the logic

The output will be similar to input

02 ABCD
13 sfkjfn
30 djfkl
45 ENdrecordset1
02 ABCD
13 sfkjfn
33 djfkl
45 ENdrecordset2
:
:
This logic is basically part of requirement to be implemented with other requirement

Terry Heinze · Posted: Thu Dec 26, 2013 8:07 am

Unless I'm missing something, why don't you simply read input file, process the record, write output record, etc. until end of input file? If there's a need to see "previous" records while processing "current" record, do as Bill suggested. Store each group of records in a table, process them, write output records from the table, clear table, read some more.

raviprabhu · New User Joined: 20 Oct 2006 Posts: 29

Can anybody give logic (dont want to use table/array)
Read 1 set (02 to 45) and write to output file and then read 2nd set and write to putput file

Akatsukami · Posted: Thu Dec 26, 2013 8:30 pm

Bill Woodger · Posted: Thu Dec 26, 2013 10:58 pm

You'd better an example of the output you want for the input you've shown. What is the key on the KSDS?

daveporcelan · Posted: Thu Dec 26, 2013 11:06 pm

If you have only one of each record type per set then try this pseudo code:

Robert Sample · Posted: Thu Dec 26, 2013 11:15 pm

raviprabhu, you have not explained much about your "requirement" and hence it is very difficult or impossible to provide you assistance. A KSDS file has a key and so far nothing you have posted indicates anything about the key to be used for that data set. Furthermore, you have not given any reason that a straight copy from the input to the output would not accomplish your goal -- so why use COBOL at all instead of IDCAMS REPRO? Other questions that haven't been addressed include:
- are there records OTHER than the 02 / 45 END combinations in the input?
- why do you not want to use tables?
- do you need all the input records in memory at the same time -- if so, why?
- if there are records besides what you want in the input file, how will you exclude those records?
- are the input records in the correct sequence when the program starts?