*DECK CMFDUA
          IDENT  CMF.DUA
  
 ERRCK    EQU    0
*CALL DUA 
          END 
