*DECK CMFAGR
          IDENT  CMF.AGR
  
 ERRCK    EQU    0
*CALL AGR 
          END 
