Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Fileaid JCL require

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
prangya
Currently Banned

New User


Joined: 12 Jul 2008
Posts: 7
Location: pune

PostPosted: Mon Aug 04, 2008 3:19 pm    Post subject: Fileaid JCL require
Reply with quote

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
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Mon Aug 04, 2008 4:10 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Require help in DB2 Query Shruti Takkar DB2 3 Wed Aug 03, 2016 10:57 pm
No new posts Using Field names in FILEAID Batch CO... Atul Banke Compuware & Other Tools 2 Wed Jun 29, 2016 9:54 pm
No new posts FileAid to compare(logical operations... anand1204 Compuware & Other Tools 3 Wed Apr 06, 2016 2:55 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us