*COMDECK  COMSET
          TITLE  COMSET - SET UP FET POINTERS 
          SB1    1           B1=1 THROUGHOUT CCL
          B1=1
 OSNOS    IFNE   HOST,SC2 
*         SET UP THE FIRST, IN, OUT, AND LAST POINTERS IN THE FETS
  
          SX7    CIOPS
          SX6    CIOPS+CIOPSL 
          SA1    FILEPS+1 
          RJ     CIOSET 
  
          SX7    CIODS
          SX6    CIODS+CIODSL 
          SA1    FILEDS+1 
          RJ     CIOSET 
  
          SX7    CIODF
          SX6    CIODF+CIODFL 
          SA1    FILEDF+1 
          RJ     CIOSET 
  
          SX7    CIOPC
          SX6    CIOPC+CIOPCL 
          SA1    FILEPC+1 
          RJ     CIOSET 
  
          SX7    CIOIO
          SX6    CIOIO+CIOIOL 
          SA1    FILEIO+1 
          RJ     CIOSET 
  
          SX7    CIOHP
          SX6    CIOHP+CIOHPL 
          SA1    FILEHP+1 
          RJ     CIOSET 
  
          SX7    CIOIN
          SX6    CIOIN+CIOINP 
          SA1    I+1
          RJ     CIOSET 
  
          SX7    CIOOU
          SX6    CIOOU+CIOOUT 
          SA1    O+1
          RJ     CIOSET 
  
 OSNOS    ENDIF 
