Search Batch file-aid help
Moderators: Anuj Dhawan, Moderator Group
Search Batch file-aid help
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 !
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 !
- Kalicharan
- Moderator
- Posts: 31
- Joined: Wed Feb 08, 2006 1:51 pm
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
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
- Kalicharan
- Moderator
- Posts: 31
- Joined: Wed Feb 08, 2006 1:51 pm
Mass Update irrespective of Position -- FileAID
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
//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
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
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.
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.
Arr Bee
-------------
?My joy in learning is partly that it enables me to teach? - Seneca(Roman philosopher, mid-1st century AD)
-------------
?My joy in learning is partly that it enables me to teach? - Seneca(Roman philosopher, mid-1st century AD)
-
- Member
- Posts: 1
- Joined: Sat Oct 02, 2010 7:34 pm
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
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
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
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.
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.
Regards,
Anuj
Anuj
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
-
- Member
- Posts: 6
- Joined: Fri Jul 05, 2013 7:52 pm
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page