libsim  Versione7.2.1

◆ dbasession_ingest_metaanddatal()

subroutine dballe_class::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 3695 del file dballe_class.F03.

3695 integer :: i
3696 
3697 call session%ingest_metaanddatar()
3698 if (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
3705 else
3706  allocate(metaanddatav(0))
3707 end if
3708 end subroutine dbasession_ingest_metaanddatarv
3709 
3710 
3711 
3713 subroutine dbasession_ingest_metaanddatac(session,metaanddata)
3714 class(dbasession), intent(inout) :: session
3715 type(dbametaanddatac), intent(inout),optional :: metaanddata
3716 
3717 integer :: ier
3718 character(len=9) :: btable
3719 character(len=255) :: value
3720 
3721 if (.not. present(metaanddata)) then
3722  ier = idba_voglioquesto(session%sehandle, session%count)
3723 else
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
3729 end if
3730 end subroutine dbasession_ingest_metaanddatac
3731 
3732 
3734 subroutine dbasession_ingest_metaanddatacv(session,metaanddatav)
3735 class(dbasession), intent(inout) :: session
3736 type(dbametaanddatac), intent(inout),allocatable :: metaanddatav(:)

Generated with Doxygen.