home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d143 / rim.lha / Rim / RimSrcAmi.Arc / WHCOM.BLK < prev   
Text File  |  1988-01-05  |  2KB  |  34 lines
  1. C
  2. C  *** / W H C O M / ***
  3. C
  4. C  WHERE CLAUSE COMMON BLOCK
  5. C
  6.       COMMON /WHCOM/ NBOO,BOO(10),KATTP(10),KATTL(10),KATTY(10),
  7.      1    KOMTYP(10),KOMPOS(10),KOMLEN(10),KOMPOT(10),KSTRT,MAXTU
  8.      2   ,LIMTU,WHRVAL(300),WHRLEN(100)
  9.       INTEGER BOO
  10.       INTEGER WHRVAL,WHRLEN
  11. C
  12. C  VARIABLE DEFINITIONS:
  13. C              NBOO----NUMBER OF SIMPLE BOOLEAN CONDITIONS (MAX 5)
  14. C              BOO-----ARRAY OF CONDITION AND/OR CONNECTORS (3HAND,2HOR)
  15. C              KATTP---ARRAY OF ATTRIBUTE COLUMN NUMBERS
  16. C                      (0 IF "TUPLE" WHERE CLAUSE)
  17. C              KATTL---ARRAY OF ATTRIBUTE LENGTHS IN WORDS EXCEPT TEXT
  18. C                      IS IN CHARACTERS (0 IF "TUPLE" WHERE CLAUSE)
  19. C              KATTY---ARRAY OF ATTRIBUTE TYPES
  20. C                      (0 IF "TUPLE" WHERE CLAUSE)
  21. C              KOMTYP--ARRAY OF BOOLEAN COMPARISON INTEGER IDENTIFIERS
  22. C              KOMPOS--ARRAY OF POSITION POINTERS IN WHRVAL
  23. C                      FOR THE START OF THE VALUE LIST
  24. C                      OR THE COLUMN NUMBER OF THE SECOND ATTRIBUTE
  25. C              KOMLEN--ARRAY INDICATING THE NUMBER OF ITEMS IN THE
  26. C                      VALUE LIST
  27. C              KOMPOT--ARRAY OF POINTERS TO WHRLEN
  28. C              KSTRT---RECORD NUMBER OF THE STARTING NODE IN THE
  29. C                      B-TREE IF KEY PROCESSING IS USED
  30. C              MAXTU---MAXIMUM TUPLE NUMBER REQUESTED OR 0
  31. C              LIMTU---MAXIMUM NUMBER OF TUPLES TO ACTUALLY PROCESS
  32. C              WHRVAL--ARRAY OF VALUES POINTED TO BY KOMPOS
  33. C              WHRLEN--ARRAY OF "ATTLEN" STYLE INFORMATION
  34.