*DECK CMFTY4
          IDENT  CMF.TY4
  
 ERRCK    EQU    0
*CALL TY4 
          END 
