*DECK CMFCOE
          IDENT  CMF.COE
  
 ERRCK    EQU    0
*CALL COE 
          END 
