*DECK CMFDOE
          IDENT  CMF.DOE
  
 ERRCK    EQU    0
*CALL DOE 
          END 
