         PROC  P,0                                                      COS00010
COS1PREP NAME  1                                                        COS00020
COS2PREP NAME  2                                                        COS00030
// OPTION SCAN,SUB                                                      COS00040
//       GBL   TYPE,VSN                                                 COS00050
// CR                                                                   COS00060
// DSKTYP &TYPE                                                         COS00070
// VOL   &VSN                                                           COS00080
// LFD   DISKIN                                                         COS00090
// EXEC  DSKPRP00                                                       COS00100
/$                                                                      COS00110
         ILOPT=&P(0)                                                    COS00120
         SERNR=&VSN                                                     COS00130
         RPVOL=Y                                                        COS00140
VOL1                                                                    COS00150
/*                                                                      COS00160
         END                                                            COS00170
