project BLF > class Persistence (other) > method ExternalControlId

function returns character

Description

Check if a database object is in external control, and return the ID.


Parameters


iiObjectIdinputintegerinternal ID


Internal usage


unused


program code (program1/other.p)

&if defined(DEBUGSQL) > 0 &then
run SqlDebugWrite in {&TARGETPROCEDURE} ("* ":U + program-name(1), 1).
&endif

run SqlExtCtrlGet in {&TARGETPROCEDURE}
   (iiObjectId, output viAddr, output viFcReturnSuper).
if viFcReturnSuper = 0 
then vcValue = <M-1 getString (input  viAddr (iiAddr)) in other>.

return vcValue.