UA Developer: Clarion FAQ

  MAP
    NewMembersList(),*TMembersQueue
  END

TMembersQueue  QUEUE,TYPE
Name             STRING(60)
Desc             STRING(100)
Index            LONG
               END

MembersList    &TMembersQueue

  CODE
  ...
  MembersList &= NewMembersList()
  IF ~(MembersList &= Null)
    LOOP Mem# = 1 TO RECORDS(MembersList)
      GET(MembersList,Mem#)
      MESSAGE('Name : '&MembersList.Name& |
              'Desc : '&MembersList.Desc& |
              'Index: '&MembersList.Index)
    END
  END
  ...
  IF ~(MembersList &= Null)
    DISPOSE(MembersList)
  END
  RETURN

NewMembersList   PROCEDURE

NewList          &TMembersQueue

  CODE
  NewList &= NEW(TMembersQueue)
  IF ~(NewList &= Null)
    ... ! Filling new queue
  END
  RETURN NewList