mainframegurukul.com

Hi,
I want to do mass update for all PDS in batch mode.
Example, I want replace 'PGM=X2005' by 'PGM=X2006'.
How to do ?
Where can i have a document for file-aid in batch mode.
Thank advance !

Hi,

If the position of 'PGM=X2005' is constant in all mebers of the PDS
then you can use below FILEAID pgm


//FAIDTSTS JOB (KALIC,TEST),'FAIDTSTS ',MSGCLASS=K,CLASS=C,
// NOTIFY=&SYSUID, REGION=2M
//************************************************************
//FAIDTST EXEC PGM=FILEAID
//************************************************************
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD01 DD DSN=PDS,DISP=SHR
//DD01O DD DSN=PDS,DISP=SHR
//SYSIN DD *
$$DD01 UPDATE IF=(019,EQ,C'PGM=X2005'),REPL=(019,C' 'PGM=X2006')
/*

2) You can get from this Control Card also:
$$01 update ea=(POS,LEN,c'pgm=x2005',c'pgm=x2006')

3) or THRU IEBUPDATE


Thnaks
Kalicharan

Mass Update irrespective of Position using FileAID Edit All option

//FAIDTSTS JOB (KALIC,TEST),'FAIDTSTS ',MSGCLASS=K,CLASS=C,
// NOTIFY=&SYSUID, REGION=2M
//************************************************************
//FAIDTST EXEC PGM=FILEAID
//************************************************************
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD01 DD DSN=PDS,DISP=SHR
//DD01O DD DSN=PDS,DISP=SHR
//SYSIN DD *
$$01 update ea=(01,0,c'pgm=x2005',c'pgm=x2006')
/*


The second paramater 0(zero) points to entire row(search and updates entire row)

Thanks
Kalicharan

Karlicharan,

That is good piece of information and very useful.

Thanks.

hi

I need to change a lot of member in a pdf file. I am using fileaid for the first time and I am getting partial results.

I need to change (sometime it looks like this):
lp_parm.match_key = 'April 2006'
or
CALL PROCESS_LIST1 'April 2006 ~X'

to
lp_parm.match_key = 'October 2006'
CALL PROCESS_LIST1 'October2006 ~X'

When using a bacth job:

your edit profile using the command RECOVERY ON.
//JETTEDC JOB 27200,'JETTED',REGION=2048K,
// USER=JETTED,NOTIFY=JETTED,
// CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1)
/*JOBPARM R=V07B,TIME=99,LINES=5
//OUT1 OUTPUT FORMDEF=0101,PAGEDEF=06061,
// JESDS=ALL,DEFAULT=Y,DEST=P399
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE RH.LT.HIPERT2.SCRIPT.UR88R3.IPR
//BATCH EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*,HOLD=YES
//SYSLIST DD SYSOUT=*,HOLD=YES
//DD01 DD DISP=SHR,DSN=RH.LT.HIPERT2.SCRIPT.UR88R2.IPR
//DD01O DD DISP=(NEW,CATLG,DELETE),
// DSN=RH.LT.HIPERT2.SCRIPT.UR88R3.IPR,
// SPACE=(TRK,(389,250,50)),UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=256)
//SYSIN DD *
$$DD01 COPY REPL=(1,72,C'April 2006',C'October 2006')
/*
//*

I get the following result:
000059 lp_parm.match_key = 'OCTOBER 200 (this one is missing 6')
and
CALL PROCESS_LIST1 'OCTOBER 2006 ~X' (this one is ok)

Any help would be appreciated
Thanks

Hello,

What is the LRECL of your file?

"APRIL 2006" got 10 characters.
"OCTOBER 2006" got 12 characters.

I believe only equal length characters can be replaced. Otherwise, you need to increase the length of the file before you change the content.

Opinions welcome.

Hi Arrbee

Thanks for your response my LRECL is set to 256. I have posted my batch job what would be your suggestion. As I mentionned this my first time using fileaid.

Thanks for your help

I don't know anything about FILEAID.
could you plz help me in this.
tell me the features of fileaid,
where we use ?
why do we use?
how can it is helpful for us

srinivasdasari@ymail.com

Check if this helps:

File-Aid is a versatile utility that is basically used for re-formatting data while copying from another data set. Apart from several usage of this utility like copy data sets, concatenate datasets etc., FILEAID can also be used to check whether a file is empty or not.

And you should start a new thread for a new question.

Also, do not post your personal e-mail IDs.

in file-aid u can have the option f36 or pf36 infront of the pds will update members massively(mass update)

<< Content deleted By Admin >>

<< Content deleted By Admin >>

<< Content deleted By Admin >>

<< Content deleted By Admin >>