MVS Jan 2005.p65 - CBT Tape

This dataset can then be used as input to the DSS JCL shown
below:
//JXB7884D JOB (JXB),'J.BRADLEY',CLASS=L
//*
//* *************************************************************
//* * *
//* * DSS VERSION OF FDRMOVE. *
//* * *
//* * CONTROL CARD INPUT FROM DATASET *
//* * *
//* * LOGINDDNAME(DISK1) - *
//* * SELECTMULTI(ANY) - *
//* * *
//* *************************************************************
//*
//SØ1Ø EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//FILTERDS DD DSN=JXB7884.SYSIN2,
// DISP=SHR
//SYSIN DD *
COPY DATASET(FILTERDD(FILTERDS)) -
CANCELERROR -
CATALOG -
DELETE
/*
The MKCARDS edit macro looks like:
/* REXX */
/* ************************************************************/
/* * */
/* * MACRO NAME: MKCARDS */
/* * */
/* * PURPOSE: TO FORMAT FDREPORT OUTPUT TO EXCLUDE */
/* * ***VTOC, SYS1.VTOCIX, AND SYS1, VVDS */
/* * DATASETS. */
/* * */
/* * THEN TO RENAME ANY DB2 DATA COMPONENT */
/* * NAMES TO CLUSTER NAME. */
/* * */
/* * THEN ADRDSSU STATEMENTS ARE ADDED SO FILE */
/* * CAN BE USED AS INPUT TO A DSS MOVE JOB. */
/* * */
/* * PROGRAMMER: JOHN BRADLEY. */
/* * */
/* ************************************************************/
VARINC = "'INC ( '" /* SETUP VARIABLE FOR 1ST LINE CONTENT.*/
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
9