*DECK CMFOPA
          IDENT  CMF.OPA
  
 ERRCK    EQU    0
*CALL OPA 
          END 
