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 to add 1 line of JCL to the top of x members

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

New User


Joined: 14 Mar 2006
Posts: 8
Location: Liverpool

PostPosted: Mon Nov 05, 2007 8:41 pm    Post subject: FILEAID to add 1 line of JCL to the top of x members
Reply with quote

Does anyone know if you can use fileaid to insert 1 line of code into a range of members within 1 dataset.

e.g.

Dataset: deypm1.test.jobs
Range: MADDKTA0 - MADDKTK1 (102 members in total)
Line of code: //*%PREP RUNS_ON DEV1

If so can someone provide a sample?

Thanks,
Paul
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Tue Nov 06, 2007 7:54 am    Post subject: Reply to: FILEAID to add 1 line of JCL to the top of x membe
Reply with quote

Hi,
I know the subject mentions adding 1 line of JCL to the top of X members.

I have an example below on how to insert a line after the string "EXEC" is found. (i know this is not what you asked for but it may assist, I have not ben able to insert at the top)


Gerry
Code:
//STEP0001 EXEC PGM=FILEAID                                             
//SYSPRINT DD SYSOUT=*                                                 
//DD01     DD DSN=INPUT-PDS,                                           
//            DISP=SHR                                                 
//DD01O    DD DSN=OUTPUT-PDS,                                           
//            DISP=(,CATLG,DELETE),                                     
//            UNIT=SYSDA,                                               
//            SPACE=(TRK,(10,5,5),RLSE),                               
//            DCB=(RECFM=FB,LRECL=80)                                   
//SYSIN    DD *                                                         
$$DD01 USER   WRITE=DD01O,PADCHAR=C' ',                                 
              IF=(1,0,C'EXEC'),                                         
              MOVE=(1,C'//*%PREP RUNS_ON DEV1'),                       
              WRITE=DD01O,PADCHAR=C' '                                 
//*                                                                     
//**********************************************************************
Back to top
View user's profile Send private message
maddop

New User


Joined: 14 Mar 2006
Posts: 8
Location: Liverpool

PostPosted: Tue Nov 06, 2007 2:03 pm    Post subject:
Reply with quote

Hi Gerry,

Many thanks for you reply but I have been able to add a line after EXEC...

Unfortunately nobody appears to know if it is possible to add a line at the top...

I guess I will have to try do it the long way - manually!!! damn!

Thanks anyway...

Paul.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Nov 08, 2007 10:27 am    Post subject:
Reply with quote

It doesn't look like I appended the code correctly.


Gerry
Code:
//**********************************************************************
//FILEAID1 EXEC PGM=FILEAID                                             
//SYSPRINT DD SYSOUT=*                                                 
//DD01     DD DSN=CSCSGLC.IBM(A),DISP=SHR                               
//DD01O    DD DSN=CSCSGLC.IBM.OUT(A),DISP=SHR                           
//SYSIN    DD *                                                         
$$DD01 USER   MOVE=(1,080C' '),                                         
              MOVE=(1,C'//*%PREP RUNS_ON DEV1'),                       
              WRITE=DD01O,OUT=1,                                       
              MOVE=(1,80,1),                                           
              WRITE=DD01O                                               
$$DD01 USER   MOVE=(1,80,1),                                           
              WRITE=DD01O                                               
//**********************************************************************
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 Insert Lines in JCL with Rexx after a... Willy Jensen CLIST & REXX 3 Tue Aug 30, 2016 4:18 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 Single step utility for compare and u... ramprakashn JCL & VSAM 5 Fri Apr 29, 2016 3:43 pm
No new posts FileAid to compare(logical operations... anand1204 Compuware & Other Tools 3 Wed Apr 06, 2016 2:55 am
No new posts Differences between copying members b... E.LAI TSO/ISPF 8 Wed Mar 30, 2016 12:35 pm


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