libsim Versione 7.1.11

◆ dbasession_ingest_metaanddatal()

subroutine dbasession_ingest_metaanddatal ( class(dbasession), intent(inout)  session,
type(dbametaanddatalist), intent(out)  metaanddatal,
logical, intent(in), optional  noattr,
type(dbafilter), intent(in), optional  filter 
)
private

Get data fron DSN; ingest metaanddata list.

Parametri
[out]metaanddatalingestd data
[in]noattrset to .true. to get data only (no attribute)
[in]filteruse this to filter wanted data

Definizione alla linea 3690 del file dballe_class.F03.

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)
3727 call metaanddata%metadata%dbaenq(session)
3728 session%count=session%count-1
3729end if
3730end subroutine dbasession_ingest_metaanddatac
3731
3732

Generated with Doxygen.