Get по очереди и передача параметров

StillZero

что то я наверное многого хочу... вроде ранее как то делал это...

есть очередь

MyQueue QUEUE
MyField    LONG
        END

хочу передать очередь и поле в процедуру

Код: Выделить всё

MyProc PROCEDURE(*QUEUE inQ,*ANY inF)
loc:Q ANY
loc:F ANY
 code
 loc:Q &= inQ
 loc:F &= inF

 loc:F = 10
 get(loc:Q,loc:F) ! вот здесь хочу, чтобы get был аналогичен get(MyQueue,MyQueue.MyField)
                  ! а работает как get(MyQueue,10)

StillZero

да вообщем то разрулил
пропуская подробности примерно так

Код: Выделить всё

loc:FieldName STRING(50)
 code
 loc:FieldName = WHO(loc:Q,WHERE(loc:Q,loc:F))
 get(loc:Q,clip(loc:FieldName))

ru_alex

А вот так не катит?

Код: Выделить всё

MyProc PROCEDURE(*QUEUE inQ,*ANY inF) 
loc:Q ANY 
loc:F ANY 
code 
 loc:Q &= inQ 
 p# = WHERE(loc:Q,inF)
if p#
 loc:F &= WHAT(loc:Q,p#)
   loc:F = 10 
   get(loc:Q,loc:F) 
end