next up previous 372
Next: Getting values from the Noticeboard
Up: Examples of Using the NBS Routines
Previous: Finding the Noticeboard

Putting Values into the Noticeboard

We can now put values into primitive items.

      INTEGER   CONID                   ! CURRENT_CONFIG ID
      INTEGER   STAID                   ! CURRENT_STATUS ID
      INTEGER   FIBID                   ! FIBRE_PARAMETERS ID
      INTEGER   MATID                   ! COORD_MATRIX ID

      CHARACTER STRING*(*)              ! String to write to CURRENT_CONFIG
      PARAMETER (STRING=`CURRENT.FIB')
      INTEGER   MATRIX(2,2)             ! Matrix to write to COORD_MATRIX
      DATA      MATRIX /1,0,0,1/

Get the IDs for all the items we want to write to.

      NBS_FIND_ITEM (TOPID,`CURRENT_CONFIG  ',CONID,STATUS)
      NBS_FIND_ITEM (TOPID,`CURRENT_STATUS  ',STAID,STATUS)
      NBS_FIND_ITEM (TOPID,`FIBRE_PARAMETERS',FIBID,STATUS)
      NBS_FIND_ITEM (FIBID,`COORD_MATRIX    ',MATID,STATUS)

Put values to some of them.

      NBS_PUT_CVALUE (CONID,0,STRING,STATUS)
      NBS_PUT_VALUE  (MATID,0,16,MATRIX,STATUS)
      NBS_PUT_VALUE  (CONID,0,LEN(STRING),%REF(STRING),STATUS)



next up previous 372
Next: Getting values from the Noticeboard
Up: Examples of Using the NBS Routines
Previous: Finding the Noticeboard

NBS The Noticeboard System
Starlink User Note 77
D.J. Allan
11 September 1995
E-mail:ussc@star.rl.ac.uk