libsim  Versione6.3.0

◆ dbametaanddatab_extrude()

subroutine dballe_class::dbametaanddatab_extrude ( class(dbametaanddatab), intent(in)  metaanddatab,
type(dbasession), intent(in)  session 
)
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3271 del file dballe_class.F03.

3271  end do
3272 
3273  ! load metadata
3274  call metaanddata%metadata%dbaenq(session)
3275  ! load curret metadata
3276  call metadata%dbaenq(session)
3277 
3278  ! if current metadata is equal to metadata
3279  do while ( metaanddata%metadata == metadata )
3280  ier = idba_enq(session%sehandle,"var",btable)
3281  do i=1,size(metaanddata%dataattrv%dataattr)
3282  if (metaanddata%dataattrv%dataattr(i)%dat%btable == btable) then
3283 
3284  select type ( dat => metaanddata%dataattrv%dataattr(i)%dat )
3285  type is (dbadatai)

Generated with Doxygen.