*DECK CMSDUA
          IDENT  CMS.DUA
  
 ERRCK    EQU    1
*CALL DUA 
          END 
