2558 call metaanddatav%datav%extrude(session,noattr,filter,template)
2560 print*,
"dbaana_metaanddatav"
2562 call session%close_message(template)
2564 end subroutine extrude
2565 end subroutine dbametaanddatav_extrude
2569 subroutine dbametaanddatal_extrude(metaanddatal,session,noattr,filter,attronly,template)
2570 class(dbametaanddatalist),
intent(inout) :: metaanddatal
2571 class(dbasession),
intent(in) :: session
2572 logical,
intent(in),
optional :: noattr
2573 type(dbafilter),
intent(in),
optional :: filter
2574 type(dbametaanddata) :: metaanddata
2575 logical,
intent(in),
optional :: attronly
2576 character(len=*),
intent(in),
optional :: template
2578 call metaanddatal%rewind()
2579 do while(metaanddatal%element())
2581 metaanddata=metaanddatal%current()
2582 call metaanddata%extrude(session,noattr,filter,attronly,template)
2583 call metaanddatal%next()
2586 end subroutine dbametaanddatal_extrude
2590 subroutine displaydbametaanddatai(this)
2591 class(dbametaanddataiList),
intent(inout) :: this
2592 type(dbametaanddatai) :: element
2595 do while(this%element())
2596 print *,
"index:",this%currentindex(),
" value:"
2597 element=this%current()
2598 call element%display()
2601 end subroutine displaydbametaanddatai
2604 type(dbametaanddatai) function currentdbametaanddatai(this)
2605 class(dbametaanddataiList) :: this
2606 class(*),
pointer :: v
2608 v => this%currentpoli()
2610 type is (dbametaanddatai)
2611 currentdbametaanddatai = v
2613 end function currentdbametaanddatai
2617 subroutine dbasession_ingest_metaanddatail(session,metaanddatal,filter)
2618 class(dbasession),
intent(inout) :: session
2619 type(dbametaanddatailist),
intent(inout) :: metaanddatal
2620 type(dbafilter),
intent(in),
optional :: filter
2622 type(dbametaanddatai) :: element
2625 if (session%memdb .and. .not. session%loadfile)
then
2627 do while (session%messages_read_next())
2628 call session%set(filter=filter)
2629 call session%ingest_metaanddatai()
2630 call session%ingest_metaanddatai(element)