C C *** / A T T B L E / *** C C BUFFER TO HOLD ONE PAGE FROM THE ATTRIBUTE RELATION C COMMON /ATTBLE/ ATTBUF(1024), X CANAME,CRNAME,CRSTRT,CROW,LROW,NAROW,ATTMOD,APBUF INTEGER ATTBUF REAL*8 CANAME REAL*8 CRNAME INTEGER CRSTRT INTEGER CROW INTEGER ATTMOD INTEGER APBUF INTEGER ATTBLE(9,113) EQUIVALENCE (ATTBUF(2),ATTBLE(1,1)) C C VARIABLE DEFINITIONS: C ATTBUF--BUFFER FOR ONE PAGE FROM THE ATTRIBUTE RELATION C ATTBLE--EQUIVALENCE ARRAY FOR EASIER USE OF ATTBUF C CANAME--CURRENT ATTRIBUTE NAME C CRNAME--CURRENT RELATION NAME C CRSTRT--CURRENT START IN ATTBUF FOR CRNAME C CROW----NEXT ROW IN ATTBLE TO GET C LROW----LAST ROW SENT IN TUPLEA C NAROW---NEXT AVAILABLE ROW FOR ADDING A TUPLE C ATTMOD--MODIFICATION FLAG - O MEANS NO, 1 MEANS YES C APBUF---ATTRIBUTES PER ATTBUF PAGE C