*DECK CMSUNL
          IDENT  CMS.UNL
  
 ERRCK    EQU    1
*CALL UNL 
          END 
