3271 call metadata%dbaenq(session)
3274 do while ( metaanddata%metadata == metadata )
3275 ier = idba_enq(session%sehandle,
"var",btable)
3276 do i=1,
size(metaanddata%dataattrv%dataattr)
3277 if (metaanddata%dataattrv%dataattr(i)%dat%btable == btable)
then 3279 select type ( dat => metaanddata%dataattrv%dataattr(i)%dat )
3281 ier = idba_enq(session%sehandle, btable,dat%value)
3283 ier = idba_enq(session%sehandle, btable,dat%value)