libsim Versione 7.1.11
|
◆ dbametaanddatad_extrude()
put data on DSN
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)
|