campo2 cstring(5)
campo3 cstring(5)
campo4 cstring(1024)
Loc:DataSize long
iUserName='logintest'
iUserPass='test'
Loc:DataSize=LEN(clip(iUserName))
peek(address(Loc:DataSize),campo2)
Loc:DataSize=LEN(clip(iUserPass))
peek(address(Loc:DataSize),campo3)
campo4 = campo2 & clip(iUserName) & campo3 & clip(iUserPass)
SQLPG{PROP:SQL}= 'insert into "table"("campo1","campo2","Data") values(1,1, ' & '''' & campo4 & '''' & '::bytea' & ')'