libsim  Versione6.3.0

◆ 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 3715 del file dballe_class.F03.

3715 
3716 
3718 subroutine dbasession_ingest_metaanddatac(session,metaanddata)
3719 class(dbasession), intent(inout) :: session
3720 type(dbametaanddatac), intent(inout),optional :: metaanddata
3721 
3722 integer :: ier
3723 character(len=9) :: btable
3724 character(len=255) :: value
3725 
3726 if (.not. present(metaanddata)) then
3727  ier = idba_voglioquesto(session%sehandle, session%count)
3728 else
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
3734 end if
3735 end subroutine dbasession_ingest_metaanddatac
3736 
3737 
3739 subroutine dbasession_ingest_metaanddatacv(session,metaanddatav)
3740 class(dbasession), intent(inout) :: session
3741 type(dbametaanddatac), intent(inout),allocatable :: metaanddatav(:)
3742 
3743 integer :: i
3744 
3745 call session%ingest_metaanddatac()
3746 if (c_e(session%count)) then
3747  allocate(metaanddatav(session%count))
3748  i=0
3749  do while (session%count >0)
3750  i=i+1
3751  call session%ingest_metaanddatac(metaanddatav(i))
3752  end do
3753 else
3754  allocate(metaanddatav(session%count))
3755 end if
3756 end subroutine dbasession_ingest_metaanddatacv

Generated with Doxygen.