*DECK CMSSLF
          IDENT  CMS.SLF
  
 ERRCK    EQU    1
*CALL SLF 
          END 
