libsim Versione 7.1.11

◆ dbametaanddatac_extrude()

subroutine 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.