GroupRef

  PROGRAM

  MAP
  END

	INCLUDE('debuger.inc'),ONCE
DBG         Debuger	

          
SourceQ                       QUEUE
A                               LONG
                              END
TargetQ                       QUEUE
SourceG                         GROUP(SourceQ).
                              END
G                             &GROUP
F                             ANY

  CODE
  DBG.MG_Init('GroupRef')  
  DO FillSourceQ
  GET(SourceQ, 11)               ; ASSERT(0,eqDBG&'GET(SourceQ,11)             TargetQ.SourceG.A['& TargetQ.SourceG.A &'] SourceQ.A['& SourceQ.A &']')  
  TargetQ.SourceG :=: SourceQ    ; ASSERT(0,eqDBG&'TargetQ.SourceG :=: SourceQ TargetQ.SourceG.A['& TargetQ.SourceG.A &'] SourceQ.A['& SourceQ.A &']')  
  G &= TargetQ.SourceG           ; ASSERT(0,eqDBG&'WHO(G,1)[' & WHO(G, 1) &']  =?=  WHO(SourceQ,1)['& WHO(SourceQ,1) &']')  !Shows 'A' which is correct  
  F &= WHAT(G, 1)                ; ASSERT(0,eqDBG&'F is WHAT(G,1) F['& F & ']')  !Shows 111, which is correct
                                   ASSERT(0,eqDBG&'-{47}')
  SourceQ.A = 222                ; ASSERT(0,eqDBG&'SourceQ.A = 222')
  G :=: SourceQ                  ; ASSERT(0,eqDBG&'G :=: SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')
  G  =  SourceQ                  ; ASSERT(0,eqDBG&'G  =  SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')
  G :=: SourceQ                  ; ASSERT(0,eqDBG&'G :=: SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')
                                   ASSERT(0,eqDBG&'-{47}')
  SourceQ.A = 333                ; ASSERT(0,eqDBG&'SourceQ.A = 333')
  G  =  SourceQ                  ; ASSERT(0,eqDBG&'G  =  SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')
  G :=: SourceQ                  ; ASSERT(0,eqDBG&'G :=: SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')
                                   ASSERT(0,eqDBG&'-{47}')
  SourceQ.A = 444 ;ADD(SourceQ)  ; ASSERT(0,eqDBG&'SourceQ.A = 444; ADD(SourceQ)')
  G :=: SourceQ                  ; ASSERT(0,eqDBG&'G :=: SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')
  G  =  SourceQ                  ; ASSERT(0,eqDBG&'G  =  SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')
  G :=: SourceQ                  ; ASSERT(0,eqDBG&'G :=: SourceQ   TargetQ.SourceG.A['& TargetQ.SourceG.A &']')

  
FillSourceQ	ROUTINE
  LOOP 20 TIMES
    SourceQ.A = 101 + RECORDS(SourceQ)
    ADD(SourceQ)
   END