*DECK CMFROS
          IDENT  CMF.ROS
  
 ERRCK    EQU    0
*CALL ROS 
          END 
