libsim Versione 7.1.11

◆ dbametaanddatad_extrude()

subroutine 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.