libsim  Versione6.3.0

◆ dbametaanddatar_extrude()

subroutine dballe_class::dbametaanddatar_extrude ( class(dbametaanddatar), intent(in)  metaanddatar,
type(dbasession), intent(in)  session 
)
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3309 del file dballe_class.F03.

3309 
3310  if (c_e(session%count) .and. session%count > 0) then
3311 
3312  ier = idba_voglioancora(session%sehandle, acount)
3313  do k =1,acount
3314  ier = idba_ancora(session%sehandle, btable)
3315  ier = idba_enq(session%sehandle, btable,value)
3316 
3317  do j=1,size(metaanddata%dataattrv%dataattr(i)%attrv%dcv)
3318 
3319  if (metaanddata%dataattrv%dataattr(i)%attrv%dcv(j)%dat%btable == btable) then
3320 
3321  select type ( dat => metaanddata%dataattrv%dataattr(i)%attrv%dcv(j)%dat )
3322  type is (dbadatai)
3323  ier = idba_enq(session%sehandle, btable,dat%value)

Generated with Doxygen.