*DECK CMFGOS
          IDENT  CMF.GOS
  
 ERRCK    EQU    0
*CALL GOS 
          END 
