2536 logical,
intent(in),
optional :: noattr
2537 type(dbafilter),
intent(in),
optional :: filter
2538 character(len=*),
intent(in),
optional :: template
2540 type(dbafilter) :: myfilter
2542 myfilter=dbafilter(filter=filter,contextana=.false.)
2543 call extrude(metaanddatav,session,noattr,myfilter,template)
2545 myfilter=dbafilter(filter=filter,contextana=.true.)
2546 call extrude(metaanddatav,session,noattr,myfilter,template)
2550 subroutine extrude(metaanddatav,session,noattr,filter,template)
2551 class(dbametaanddatav),
intent(in) :: metaanddatav
2552 type(dbasession),
intent(in) :: session
2553 logical,
intent(in),
optional :: noattr
2554 type(dbafilter),
intent(in) :: filter
2555 character(len=*),
intent(in),
optional :: template
2557 if (.not. filter == metaanddatav%metadata)
return 2559 call session%set(metadata=metaanddatav%metadata)
2563 call metaanddatav%datav%extrude(session,noattr,filter,template)
2565 print*,
"dbaana_metaanddatav" 2567 call session%close_message(template)
2569 end subroutine extrude
2570 end subroutine dbametaanddatav_extrude
2574 subroutine dbametaanddatal_extrude(metaanddatal,session,noattr,filter,attronly,template)
2575 class(dbametaanddatalist),
intent(inout) :: metaanddatal
2576 class(dbasession),
intent(in) :: session