C CHANQU    SOURCE    CHAT      05/01/12    21:55:49     5004           
      SUBROUTINE CHANQU                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      CALL LIROBJ ('MAILLAGE',IRET,1,IRETOU)
      IF(IERR.NE.0) RETURN
      IRETOU=IRET
      CALL DEMCHA( IRET,IRETOU)
      CALL ECROBJ ('MAILLAGE',IRETOU)                                             
      RETURN                                                                    
      END