*DECK CMFALF
          IDENT  CMF.ALF
  
 ERRCK    EQU    0
*CALL ALF 
          END 
