prangya Currently Banned New User
Joined: 12 Jul 2008 Posts: 7 Location: pune
|
|
|
|
Hi,
Our requirement details are following.
The control card looks like as belows:
FV1111@YYY.COM
NH1111@YYY.COM
SA1111@YYY.COM
DHANARAJAN_R@XXX.COM
ABILASHA_KRISHNAN@XXX.COM
ANANDKUMAR_S@XXX.COM
We needs the output control cards look as follows:
KN1111@YYY.COM
CJ1111@YYY.COM
DB1111@YYY.COM
AA-BBB-CC@ZZZ.COM
Rules: 'FV' will be replaced by 'KN'
'SA' will be replaced by 'CJ'
So 2nd,4th,5th & 6th lines of input file needs to be removed & the extra two mail ids needs to be added(DB1111@YYY.COM
AA-BBB-CC@ZZZ.COM).
So output look like as follows.
KN1111@YYY.COM
CJ1111@YYY.COM
DB1111@YYY.COM
AA-BBB-CC@ZZZ.COM
Needs a file aid JCL
Thanks |
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
try this
Code: |
//FILEAID EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD *
FV1111@YYY.COM
NH1111@YYY.COM
SA1111@YYY.COM
DHANARAJAN R@XXX.COM
ABILASHA KRISHAN.@XXX.COM
ANANDKUMAR S@XXX.COM
/*
//DD02 DD *
DB1111@YYY.COM
AA-BBB-CC@ZZZ.COM
/*
//OUTFILE DD SYSOUT=*
//SYSIN DD *
$$DD01 USER OUT=0,PADCHAR=C' ',
IF=(001,EQ,C"FV"),REPL=(001,C'KN'),
ORIF=(001,EQ,C"SA"),REPL=(001,C'CJ'),
WRITE=OUTFILE
$$DD02 USER OUT=0,PADCHAR=C' ',
WRITE=OUTFILE
/*
|
Gerry |
|