*DECK CMSOPA
          IDENT  CMS.OPA
  
 ERRCK    EQU    1
*CALL OPA 
          END 
