*COMDECK CLPARRA
#CLPARRA# COM         # CLP ARRAY DECLARATIONS                         #
  
          ARRAY TOKEN$[0:0] S(2); 
              BEGIN 
              ITEM TOKEN$CVAL     C(0,0,11);     # CHARACTER VALUE     #
              ITEM TOKEN$TYPE     S:TYP(1,6,27);
              ITEM TOKEN$PRVT     S:TYP(1,33,27);# PREVIOUS TOKEN TYPE #
              END 
          DEF TOKENC      #TOKEN$CVAL[0]#;
          DEF TOKENTYPE   #TOKEN$TYPE[0]#;
          DEF TOKENPRVT   #TOKEN$PRVT[0]#;
  
  
          ARRAY COL$[0:0] S(1); 
              BEGIN 
              ITEM COL$CURRENT     I(0,0,30); 
              ITEM COL$PREVIOUS    I(0,30,30);
              END 
          DEF COL     #COL$CURRENT[0]#; 
          DEF PREVCOL #COL$PREVIOUS[0]#;
  
#CLPARRA# ENDCOM
