//**** BACKUP OF VOLUME（ＦＪ用）
//BKVOL01 JOB CLASS=A,MSGCLASS=H
//VBKUP EXEC PGM=KBKARCS,REGION=6M
//SYSPRINT DD SYSOUT=*
//DISK DD UNIT=SYSDA,DISP=SHR,VOL=SER=VOL001
//TAPE DD DSN=BACKUP.VOL001,
// UNIT=TAPE,DISP=(NEW,PASS),LABEL=(1,SL),
// VOL=SER=(V00001)
//SYSIN DD *
BACKUP VOLUME,FROM(DD(DISK)),TO(DD(TAPE)),LIST