S
PL_
PL_
PL_PUTVAR{%}IN{%}{WTHEN\ELSE}
*
      LOCATE({%2},VAR$NAMES;T$$$) ELSE
         VAR$NAMES<-1> = {%2}
         VAR$CNT = VAR$CNT + 1
      END
      LOCATE({%2},VAR$NAMES;T$$$) THEN
         IF VAR$CNT <= 500 THEN
            VAR$VALS(T$$$) = {%1}
         END ELSE
            VAR$VALS(MOD(T$$$-1,500)+1)<INT( ( T$$$ - 1 ) / 500 ) + 1 > = {%1}
         END
      END ELSE
         T$$$ = 0
      END
*
      IF T$$$ {%3}
