MVSFORUMS.com

nadh · Intermediate Joined: 08 Oct 2004 Posts: 192 Topics: 89

Hi,

I have a file in that around 1.5lac records are there. My requirement is to extract a group of records from that file. the records are as below.

0f--header record.
:
:
:
1JEMPRSBLKEM650XE03XFIST1C
1TAN651NCE423
1TAN652NCE423
1TAPE01NCE423
1TAR078NCE423
1TAR078NCE423
1TAR080NCE423
1TAR100NCE423
1TARB49NCE423
1TARB49NCE423
1TAT136NCE423
1TAT143NCE423
1TAT151NCE423
1TAT159NCE423
1TAT159NCE423
1JEMPRSBLKEM650XE04XFIST1C
:
:

from this data i want the records only with E03 (which is in bold) and the below records till E04. the records are around 82000. pls suggest me the solution.

Thanks
nadh

shekar123 · Posted: Fri Jun 09, 2006 5:00 am Post subject:

Nadh,

Try this code if my understanding of your input records is correct:

nadh · Intermediate Joined: 08 Oct 2004 Posts: 192 Topics: 89

Shekar,

In input file E03 will be in only one record. I want that record plus all the records under it till next E04 record. I think you have understood that every record contains E03, but only header record contains E03. and next header record contains E04. I want to extract all the records between E03 plus E03 record(header) into new file.

ThanQ
nadh

nadh · Intermediate Joined: 08 Oct 2004 Posts: 192 Topics: 89

Shekar,

I got it. I used repro command of idcams,
REPRO -
INFILE(INFILE) -
OUTFILE(OUTFILE) -
SKIP(40000) -
COUNT(82000)

I got the solution using above commands in jcl.

ThanQ
nadh

Cheers!!!

Frank Yaeger · Posted: Fri Jun 09, 2006 10:08 am Post subject:

nadh,

Are the relative record numbers of the E03 and E04 records always the same or will they change from run to run? If they're always the same, then hardcoding the SKIP and COUNT values would make sense. But if they're not always the same, I would think you'd want a solution that finds the first E03 record wherever it is and then copies the records up to but not including the E04 record. If that's what you want, the "Include or omit groups of records" Smart DFSORT Trick shows a way to do that kind of thing. See:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

nadh · Intermediate Joined: 08 Oct 2004 Posts: 192 Topics: 89

Frank,

That's exactly my requirement. Thank you very much.

Cheers!!!

Nadh.