*DECK CMFUNL
          IDENT  CMF.UNL
  
 ERRCK    EQU    0
*CALL UNL 
          END 
