*DECK CMFCSF
          IDENT  CMF.CSF
  
 ERRCK    EQU    0
*CALL CSF 
          END 
