Get data fron DSN; ingest metaanddata list.
3718 subroutine dbasession_ingest_metaanddatac(session,metaanddata)
3719 class(dbasession),
intent(inout) :: session
3720 type(dbametaanddatac),
intent(inout),
optional :: metaanddata
3723 character(len=9) :: btable
3724 character(len=255) :: value
3726 if (.not.
present(metaanddata))
then 3727 ier = idba_voglioquesto(session%sehandle, session%count)
3729 ier = idba_dammelo(session%sehandle, btable)
3730 ier = idba_enq(session%sehandle, btable,
value)
3731 metaanddata%dbadatac=dbadatac(btable,
value)
3732 call metaanddata%metadata%dbaenq(session)
3733 session%count=session%count-1
3735 end subroutine dbasession_ingest_metaanddatac
3739 subroutine dbasession_ingest_metaanddatacv(session,metaanddatav)
3740 class(dbasession),
intent(inout) :: session
3741 type(dbametaanddatac),
intent(inout),
allocatable :: metaanddatav(:)
3745 call session%ingest_metaanddatac()
3746 if (
c_e(session%count))
then 3747 allocate(metaanddatav(session%count))
3749 do while (session%count >0)
3751 call session%ingest_metaanddatac(metaanddatav(i))
3754 allocate(metaanddatav(session%count))
3756 end subroutine dbasession_ingest_metaanddatacv