libsim Versione 7.1.11
|
◆ dbadataattrv_extrude()
put data on DSN
Definizione alla linea 1587 del file dballe_class.F03. 1588if (.not. c_e(data%btable)) return
1589ier = idba_set(session%sehandle,data%btable,data%value)
1590end subroutine dbadatar_set
1591
1593subroutine dbadatar_display(data)
1594class(dbadatar), intent(in) :: data
1595print *,"Btable: ", t2c(data%btable,miss="Missing")," Value: ", t2c(data%value,miss="Missing value")
1596end subroutine dbadatar_display
1597
1598
1600subroutine dbadatad_set(data,session)
1601class(dbadatad), intent(in) :: data
1602type(dbasession), intent(in) :: session
1603integer :: ier
1604if (.not. c_e(data%btable)) return
1605ier = idba_set(session%sehandle,data%btable,data%value)
|