BLOCK DATA
    
      INTEGER     ECODE 
      INTEGER     CMCHAN
      INTEGER     RBCHAN
      INTEGER     OBCHAN
      INTEGER     MPCHAN
      INTEGER     DBCHAN
      INTEGER     TTYIN 
      INTEGER     TTYOUT
      COMMON      /IODEFN/ ECODE
      COMMON      /IODEFN/ CMCHAN   
      COMMON      /IODEFN/ RBCHAN   
      COMMON      /IODEFN/ OBCHAN   
      COMMON      /IODEFN/ MPCHAN   
      COMMON      /IODEFN/ DBCHAN   
      COMMON      /IODEFN/ TTYIN
      COMMON      /IODEFN/ TTYOUT   
      DATA     CMCHAN      /1/  
      DATA     RBCHAN      /2/  
      DATA     OBCHAN      /3/  
      DATA     MPCHAN      /4/  
      DATA      TTYIN      /5/  
      DATA      TTYOUT      /6/ 
      DATA     DBCHAN      /7/  
      END