*COMDECK INT1 
          CONTROL NOLIST;    #INT1# 
          CONTROL EJECT;
  COMMON INTCOMM; 
  BASED 
      ARRAY INT[0:0] S(1);
        BEGIN 
          ITEM IN$INFO U(0,0,60); 
          ITEM IN$PROCNAME U(0,0,1);
          ITEM IN$CODE U(0,1,11); 
          ITEM IN$NAME U(0,12,48);
          ITEM IN$VALUE U(0,12,48); 
          ITEM IN$DNAT  U(0,12,48); 
        END 
          CONTROL LIST;      #INT1# 
