*DECK CMFGBI
          IDENT  CMF.GBI
  
 ERRCK    EQU    0
*CALL GBI 
          END 
