pkmurali Warnings : 1 Active User
Joined: 15 Dec 2005 Posts: 271
|
|
|
|
Hi,
I have an input file as mentioned below,
aaaa
bbbb
cccc
dddd
eeee
ffff
gggg
i need an output as mentioned below
cccc
dddd
eeee
the requirement is to find c'cccc' and write next 2 records. it is not like copy if=(1,eq,c'cccc'),and=(1,eq,c'dddd'),and=(1,eq,c'eeee').
Please send the control card for the above requirement.
Regards,
Murali. |
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi Murali,
hereunder is an example that should work
Code: |
//FILEAID1 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD *
AAAA
BBBB
CCCC
DDDD
EEEE
FFFF
GGGG
//DD01O DD SYSOUT=*
//SYSIN DD *
$$DD01 SPACE STOP=(01,EQ,C"CCCC")
$$DD01 COPY OUT=3
|
Gerry |
|