forum.clarionlife.net

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

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)

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

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

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

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