Eric,
Using FDR to flash the volume.
//FLASH EXEC PGM=FDRABR,REGION=0M,COND=(0,NE)
//TAPE1 DD DUMMY,LABEL=RETPD=15
//TAPE2 DD DUMMY,LABEL=RETPD=15
//SYSPRIN1 DD SYSOUT=*
//SYSPRIN2 DD SYSOUT=*
//SYSPRIN3 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
FCOPY TYPE=FDR,VERIFYVOLSER=NO,CONFMESS=NO
MOUNT VOL=DB2E49,FLASHUNIT=628B
Then to backup from the flashed volume to tape
//STEP010 EXEC PGM=FDRABR
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=R,HOLD=YES
//TAPE1 DD DSN=FDRABR.PROD.DBE1001,
// DISP=(NEW,KEEP),
// UNIT=MAGTAPE,
// VOL=(,,,50)
//SYSIN DD *
DUMP TYPE=FDR,DSNENQ=NONE,PRINT=ABR,BUFNO=MAX,RTC=YES,
ENQERR=NO,TAPERRCD=NO,SELTERR=NO,RTC=YES,FCOPY=(USE,REL)
MOUNT VOL=DB2E*
/*
Jerry
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
