MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
R15 EQU 15<br />
IHAPSA<br />
IHASTCB<br />
IKJTCB<br />
END<br />
David Harou<br />
Systems Programmer (France) © Xephon 2005<br />
Edit macro to build ADRDSSU control card input<br />
The following is a very simple ISPF edit macro that will format<br />
a list of dataset names and add the necessary formatting to<br />
allow them to be used as input to a standard IBM DSS move<br />
job.<br />
At the installation where I work, I have to regularly produce<br />
lists of DB2 datasets that we then must move to new volumes.<br />
We normally use FDREPORT actually to PUNCH the dataset<br />
names to a standard PS dataset for volumes where the DB2<br />
datasets reside.<br />
Below is the JCL for the FDREPORT job. It will look at all our<br />
volumes that start with DB2 and list all datasets on those<br />
volumes.<br />
//JXB7884R JOB (JXB),'J.BRADLEY',CLASS=A,NOTIFY=JXB7884<br />
//*<br />
//* *************************************************************<br />
//* * *<br />
//* * FDRREPORT TO PUNCH DATASET NAMES FOR INCLUSION IN *<br />
//* * FDRCOPY. *<br />
//* * *<br />
//* *************************************************************<br />
//*<br />
//STEP1 EXEC PGM=FDREPORT,REGION=2M<br />
//SYSUDUMP DD SYSOUT=*<br />
//SYSPRINT DD SYSOUT=*<br />
//ABRMAP DD SYSOUT=*<br />
//ABRSUM DD SYSOUT=*<br />
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.<br />
7