libsim  Versione 7.1.8

◆ dbametaanddatad_extrude()

subroutine dballe_class::dbametaanddatad_extrude ( class(dbametaanddatad), intent(in)  metaanddatad,
type(dbasession), intent(in)  session 
)
private

put data on DSN

Parametri
[in]sessiondballe session

Definizione alla linea 3265 del file dballe_class.F03.

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

Generated with Doxygen.