// JOB VSB002,,,,,,D
// DVC 20  // LFD PRNTR
// GBL   V=VSBRES
// GBL  VSN=VSBRES
// GBL  P=YES
// GBL DISK=8416
// GBL  D=8416
// GBL T=NO
// GBL TAPE=NO
// GBL I=NO
// GBL  LU=60
// 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 ('&TAPE' EQ 'NO')NOTAPE
//T  JSET  &TAPE
//NOTAPE  NOP
// IF ('&DISK' EQ '8416')CKDISK
//D  JSET  &DISK
//CKDISK  NOP
// IF ('&D' EQ '8418')DSK18
// IF ('&D' EQ '8414')DSK14
// IF ('&D' EQ '8430')DSK30
// IF    ('&D' EQ '8418-2')DSK18-2
// GO CKINSRT
//DSK18 NOP
//LU  JSET  64
// GO CKINSRT
//DSK14 NOP
//LU  JSET  80
// GO CKINSRT
//DSK18-2      NOP
//LU     JSET 67
// GO    CKINSRT
//DSK30  NOP
//LU  JSET  70
// IF ('&P' EQ 'YES')RUNA
// RUN   VSB02D,,P=&P,T=&T,V=&V
// GO END30
//RUNA  NOP
// RUN   VSB02D,,I=&I,T=&T,R=&R
// GO END30
//CKINSRT  NOP
// IF ('&P' EQ 'NO')CKTAPE
// IF ('&I' EQ 'YES')PREP1
// OPR   '*****VSB002*****    -ATT......     &D        DISK-PREP'
// OPR '*****VSB002A -BEGIN FULL DISC-PREP VSN=??????/&VSN'
// OPR  '***** NO INSERT CARDS *****'
// DVC &LU     // VOL VSBRES(NOV)  // LFD DISKIN
// DVC 20  // LFD PRNTR
// OPTION      SUB
// EXEC DSKPRP
/$
         SERNR=&VSN
         PREPT=&R
         TRCON=N
VOL1
INSERT   NONE
/*
// OPR '*****VSB002A -END DISC-PREP NEW VSN=&VSN'
// GO CKTAPE
//PREP1  NOP
// OPR   '*****VSB002*****    -ATT......     &D        DISK-PREP'
// OPR '*****VSB002A -BEGIN FULL DISC-PREP VSN=??????/&VSN'
// OPR  '******  WITH INSERT CARDS  ****'
// DVC &LU     // VOL VSBRES(NOV)  // LFD DISKIN
// OPTION SCAN
// EXEC DSKPRP
/$
         SERNR=&VSN
         PREPT=&R
         TRCON=N
  INSRT=Y
VOL1
// CR
/*
// OPR '*****VSB002A -END DISC-PREP NEW VSN=&VSN'
//CKTAPE NOP
// IF ('&T' EQ 'YES')TAPE
// 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
// GO    CHG
//END NOP
// 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
// OPR '*****VSB002D -END COPY FUNCTION'
//CHG    NOP
// 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 INTERRUPT &VSN'
// OPR '*****VSB*****-DISMOUNT SDI/OS3RES'
// OPR '*****VSB*****-MOUNT ??????/SDIVSB'
// OPR '*****VSB*****-RE-IPL USING &VSN/OS3RES'
// GO ENDEND
//END30  NOP
// OPR  '*****  RUNNING VSB02D DUE TO MEMORY REQUIREMENTS'
//ENDEND  NOP
/&
