*DECK CMSCSF
          IDENT  CMS.CSF
  
 ERRCK    EQU    1
*CALL CSF 
          END 
