*COMDECK RCT
          CONTROL NOLIST;    #RCT#
          CONTROL EJECT;
          COMMON RCTCOMM; 
          BASED ARRAY RCT[0:0] S(1);
          ITEM RCT$ENTRY; 
          CONTROL LIST;      #RCT#
