libsim  Versione7.2.3

◆ 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 3308 del file dballe_class.F03.

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)
3319  type is (dbadatar)
3320  ier = idba_enq(session%sehandle, btable,dat%value)
3321  type is (dbadatad)
3322  ier = idba_enq(session%sehandle, btable,dat%value)

Generated with Doxygen.