*DECK CMFSUA
          IDENT  CMF.SUA
  
 ERRCK    EQU    0
*CALL SUA 
          END 
