*COMDECK PARSCOM
  
          COMMON PARSCOM; 
              BEGIN 
              ARRAY [0:7] S(1); 
                  ITEM  PARSCOMWORD   C(0,0,10);
              END 
  
