libsim Versione 7.2.1
|
◆ dbasession_ingest_metaanddatal()
Get data fron DSN; ingest metaanddata list.
Definizione alla linea 3684 del file dballe_class.F03. 3685 session%count=session%count-1
3686end if
3687end subroutine dbasession_ingest_metaanddatar
3688
3689
3691subroutine dbasession_ingest_metaanddatarv(session,metaanddatav)
3692class(dbasession), intent(inout) :: session
3693type(dbametaanddatar), intent(inout),allocatable :: metaanddatav(:)
3694
3695integer :: i
3696
3697call session%ingest_metaanddatar()
3698if (c_e(session%count)) then
3699 allocate(metaanddatav(session%count))
3700 i=0
3701 do while (session%count >0)
3702 i=i+1
3703 call session%ingest_metaanddatar(metaanddatav(i))
3704 end do
3705else
3706 allocate(metaanddatav(0))
3707end if
3708end subroutine dbasession_ingest_metaanddatarv
3709
3710
3711
3713subroutine dbasession_ingest_metaanddatac(session,metaanddata)
3714class(dbasession), intent(inout) :: session
3715type(dbametaanddatac), intent(inout),optional :: metaanddata
3716
3717integer :: ier
3718character(len=9) :: btable
3719character(len=255) :: value
3720
3721if (.not. present(metaanddata)) then
3722 ier = idba_voglioquesto(session%sehandle, session%count)
3723else
3724 ier = idba_dammelo(session%sehandle, btable)
3725 ier = idba_enq(session%sehandle, btable,value)
3726 metaanddata%dbadatac=dbadatac(btable,value)
|