// JOB   CHGVSN                                                         CHG00010
// OPTION SCAN,SUB                                                      CHG00020
// CR                                                                   CHG00030
// WRTBIG '  &OLDVSN. TO ','   &NEWVSN.   '                             CHG00040
// DVC 20      // LFD PRNTR                                             CHG00050
// DSKTYP &TYPE                                                         CHG00060
// VOL   &OLDVSN                                                        CHG00070
// LFD   DISKIN                                                         CHG00080
// OPTION SCAN,SUB                                                      CHG00090
// EXEC  DSKPRP00                                                       CHG00100
/$                                                                      CHG00110
         RPVOL=Y,SERNR=&NEWVSN                                          CHG00120
VOL1                                                                    CHG00130
/*                                                                      CHG00140
/&                                                                      CHG00150
