*DECK CMSALF
          IDENT  CMS.ALF
  
 ERRCK    EQU    1
*CALL ALF 
          END 
