*COMDECK RAPLUSC
          CONTROL  LIST;     #RAPLUSC#
          COMMON RAPLUSC; 
              BASED ARRAY RAPLUSARRAY [0:0] S(1); 
                  ITEM  RAPLUS       I(0, 0,60);
  
          CONTROL  LIST;     #RAPLUSC#
