MVSFORUMS.com

[satyenderd]

I want to add line like Author, Creation Dated, etc to all the members of a PDS in a single shot.
Could anyone please help me in this regard? Could anyone please let me know the solution either in FILEAID or in SORT.

THANKS IN ADVANCE.
_________________
Satya

[vivek1983]

satyenderd,

Check the link below:

http://www.mvsforums.com/helpboards/viewtopic.php?t=1097&highlight=insert+line
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[satyenderd]

Thanks VIVEK, for your valuable suggestion.

Vivek I am able to add the lines.
But, I need to add 8 lines.
Could you please let me know whether it is possible to add all 8 lineS in
a single SYSIN DD.

Thanks in advance.


//STEP01 EXEC PGM=FILEAID
//DD01 DD DISP=SHR,DSN=DBASM.NEWDSN.JCL
//NEWDSN DD DISP=SHR,DSN=DBASM.TSOPDS.NEWDSN.JCL
//DD02 DD DISP=SHR,DSN=DBASM.TSOPDS.NEWDSN.JCL
//NEWDSN1 DD DISP=SHR,DSN=DBASM.TSOPDS.NEWDSN1.JCL
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSIN DD *
$$DD01 USER F=JCL,WRITE=NEWDSN,
IF=(1,20,C' JOB '),
MOVE=(1,80C' '),
MOVE=(1,C'//* AUTHOR:SATYENDER'),

WRITE=NEWDSN
$$DD02 USER F=JCL,WRITE=NEWDSN1,
IF=(1,20,C' AUTHOR'),
MOVE=(1,80C' '),
MOVE=(1,C'//* CREATED BY: SATYA'),
WRITE=NEWDSN1
_________________
Satya

[vivek1983]

satyenderd,

you can insert as many lines u need using a single step: