*DECK CMSSFF
          IDENT  CMS.SFF
  
 ERRCK    EQU    1
*CALL SFF 
          END 
