*DECK CMSTY4
          IDENT  CMS.TY4
  
 ERRCK    EQU    1
*CALL TY4 
          END 
