*DECK CMSOPB
          IDENT  CMS.OPB
  
 ERRCK    EQU    1
*CALL OPB 
          END 
