Append Data in all PDS member
Moderators: Frank Yaeger, Moderator Group
Append Data in all PDS member
Hi,
I have a requirement to append same text in all all members of a PDS dataset.
Is this possible to append data either as header or trailer in all members.
Can someone tell me how to proceed further in this.
Any help would be great.
Best Regards,
Harikrishnan
I have a requirement to append same text in all all members of a PDS dataset.
Is this possible to append data either as header or trailer in all members.
Can someone tell me how to proceed further in this.
Any help would be great.
Best Regards,
Harikrishnan
Hi,
I have a PDS and that PDS contains around 700 members.
Now my requirement is to append a single record @ top and bottom of all members.
For Example:
PDS name : MYPDS.TEST.DEC23
1st member name : TEST001
2nd member name : TEST002
.
.
.
.
Last member name : TEST700
Below is the sample JCL which I in my 1st member and have shown before and after change details.
Before Change:
//JOBNAME JOB (U),TEST1,MSGCALSS=0,CLASS=0,NOTIFY=@
//
.
.
.
.
//*
After Change:
//* XXXXXXXXXX APPLICATION !!!!!!!!
//JOBNAME JOB (U),TEST1,MSGCALSS=0,CLASS=0,NOTIFY=@
//
.
.
.
.
//*
//* END OF PROCESSING!!!!!
Do let me know if you need any further informations.
Any help would be great !!!!
Best Regards,
Harikrishnan
I have a PDS and that PDS contains around 700 members.
Now my requirement is to append a single record @ top and bottom of all members.
For Example:
PDS name : MYPDS.TEST.DEC23
1st member name : TEST001
2nd member name : TEST002
.
.
.
.
Last member name : TEST700
Below is the sample JCL which I in my 1st member and have shown before and after change details.
Before Change:
//JOBNAME JOB (U),TEST1,MSGCALSS=0,CLASS=0,NOTIFY=@
//
.
.
.
.
//*
After Change:
//* XXXXXXXXXX APPLICATION !!!!!!!!
//JOBNAME JOB (U),TEST1,MSGCALSS=0,CLASS=0,NOTIFY=@
//
.
.
.
.
//*
//* END OF PROCESSING!!!!!
Do let me know if you need any further informations.
Any help would be great !!!!
Best Regards,
Harikrishnan
A simple process:
Code: Select all
//S1 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=MYPDS.TEST.DEC23(TEST001)
//SORTOUT DD DSN=&&T1,DISP=(,PASS),UNIT=VIO,
// SPACE=(CYL,(10,10))
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL HEADER1=('//* XXXXXXXXXX APPLICATION !!!!!!!!'),REMOVECC,
TRAILER1=('//* END OF PROCESSING!!!!!')
/*
//*
//S2 EXEC PGM=SORT
//SORTIN DD DSN=&&T1,DISP=(OLD,DELETE)
//SORTOUT DD DISP=SHR,DSN=MYPDS.TEST.DEC23(TEST001)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/*
//*
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
Harikrishnan, I've asked you more than once to provide the details of how you want to do this, what you'll use, what software you might have available to help, what language(s) you might use, etc. So far you've provided nothing, so it's really hard to give you a response. Logically, to apply the exact same change to a bunch of members, I'd think you'd want to write a small ISPF Edit Macro and just call it once for each member you want to change. Quick, easy, efficient, but I don't know why you're not already considering that option.
Anyway, maybe you can consider this option (which I've already mentioned):
1. Convert the PDS to a sequential dataset (using IEBPTPCH).
2. Reformat the data, and add the HEADER and TRAILER records (using DFSORT).
3. Create the new PDS (using IEBUPDTE).
Anyway, maybe you can consider this option (which I've already mentioned):
1. Convert the PDS to a sequential dataset (using IEBPTPCH).
2. Reformat the data, and add the HEADER and TRAILER records (using DFSORT).
3. Create the new PDS (using IEBUPDTE).
MrSpock,
Thanks for your information, will try the above option.
As requested, below are the information's I have:
1) I need this to be done through Sort
2) I have Syncsort
3) I want the above SORT to be integrated for all 700 members in my PDS.
To be open, I've no knowledge in REXX, let me try through googling it....
Best Regards,
Harikrishnan
Thanks for your information, will try the above option.
As requested, below are the information's I have:
1) I need this to be done through Sort
2) I have Syncsort
3) I want the above SORT to be integrated for all 700 members in my PDS.
To be open, I've no knowledge in REXX, let me try through googling it....
Best Regards,
Harikrishnan
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