libsim  Versione 7.1.9

◆ dbametaanddatac_extrude()

subroutine dballe_class::dbametaanddatac_extrude ( class(dbametaanddatac), intent(in)  metaanddatac,
type(dbasession), intent(in)  session 
)
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3303 del file dballe_class.F03.

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

Generated with Doxygen.