*DECK CMFGLF
          IDENT  CMF.GLF
  
 ERRCK    EQU    0
*CALL GLF 
          END 
