*DECK CMSROS
          IDENT  CMS.ROS
  
 ERRCK    EQU    1
*CALL ROS 
          END 
