// JOB VSB02D
// DVC 20  // LFD PRNTR
// GBL T=NO
// GBL  D=8430
// GBL  LU=70
// GBL  I=NO
// GBL VSN=VSBRES
// GBL   V=VSBRES
// GBL P=YES
// GBL   R=C
// IF    ('&VSN' EQ 'VSBRES')CKV
//V      JSET  &VSN
// GO    START
//CKV    NOP
// IF    ('&V' EQ 'VSBRES')START
//VSN    JSET &V
//START  NOP
// IF ('&P' EQ 'NO')CKTAPE
// IF ('&I' EQ 'NO')PREP1
// OPR  '**** PREP 8430  WITH INSERT CARDS ****'
// DVC 20  // LFD PRNTR
// DVC &LU     // VOL VSBRES(NOV)       // LFD DISKIN
// OPTION SCAN
// EXEC DSKPRP
/$
         SERNR=&VSN
         PREPT=&R
         INSRT=Y
VOL1
// CR
/*
// OPR '*****VSB002A -END DISC-PREP NEW VSN=&VSN'
// GO CKTAPE
//PREP1 NOP
// OPR  '**** PREP 8430  NO INSERT CARDS ****'
// DVC 20  // LFD PRNTR
// DVC &LU     // VOL VSBRES(NOV)       // LFD DISKIN
// OPTION      SUB
// EXEC DSKPRP
/$
         SERNR=&VSN
         PREPT=&R
         TRCON=N
VOL1
INSERT   NONE
/*
// OPR '*****VSB002A -END DISC-PREP NEW VSN=&VSN'
//CKTAPE NOP
// IF ('&T' EQ 'YES')TAPE
// OPR '*****VSB002D -BEGIN DUMP/RESTORE (COPY DISC TO DISC)'
// DVC RES  // LFD DISCIN
// DVC &LU     // VOL VSBRES(NOV)       // LFD DISCOT
// EXEC DMPRST
// PARAM IN=DISC
// PARAM OUT=DISC
// GO END
//TAPE NOP
// OPR '*****VSB002B -BEGIN DUMP/RESTORE (DUMP DISC TO TAPE)'
// OPTION DUMP
// DVC RES  // LFD DISCIN
// DVC 90 // VOL SP0000(PREP) // LFD TAPEOT
// DVC 91 // VOL SP0001(PREP) // LFD TAPEOT01
// EXEC DMPRST
// PARAM IN=DISC
// PARAM OUT=TAPE
// OPR '*****VSB002B -END DUMP FUNCTION'
// OPR '*****VSB002C -BEGIN DUMP/RESTORE (RESTORE TAPE TO DISC)'
// OPTION DUMP
// DVC 90  // VOL SP0000(NOV) // LFD TAPEIN
// DVC 91 // VOL SP0001(NOV)  // LFD TAPEIN01
// DVC &LU     // VOL VSBRES(NOV)       // LFD DISCOT
// EXEC DMPRST
// PARAM IN=TAPE
// PARAM OUT=DISC
// OPR   '*****VSB***** COPY COMPLETE'
// OPR   '*****VSB***** BEGIN DISK-PREP CHANGE VSN TO &VSN   '
//END NOP
// DVC 20  // LFD PRNTR
// DVC &LU     // VOL VSBRES(NOV)       // LFD DISKIN
// OPTION      SUB
// EXEC  DSKPRP
/$
         SERNR=&VSN
         RPVOL=Y
VOL1
/*
// OPR   '*****VSB*****-NEW OS3RES COPIED ON &VSN    '
// OPR   '          ATTENTION INTERUPT &VSN   '
// OPR '*****VSB*****-DISMOUNT SDI/OS3RES'
// OPR '*****VSB*****-MOUNT ??????/SDIVSB'
// OPR '*****VSB*****-RE-IPL USING &VSN/OS3RES'
/&
