(saveFormat "2.0")
(date "Tue 19/Dec/1995 09:22:37 MST")
(veerev "3.2")
(platform "HP9000s700")
(SaveCF no)
(filterNAN 0)
(component 0 ROOTCONTEXT
 (name "Using Set Field")
 (implementation
  (retainGlobals YES)
  (locked no)
  (trigMode deg)
  (nextID 9)
  (component 0 RECCONST
   (name "Record")
   (interface
	(output 1
	 (name "Record")
	 (lock name constraints)
	)
   )
   (implementation
	(value Record
	 (schema
	  (numFields 2)
	  (fieldName "Name"
	   (type Text)
	  )
	  (fieldName "Empl_no"
	   (type Real)
	  )
	 )
	 (data 
	  (record
	   ( "Name" "Text field")
	   ( "Empl_no" 1.25)
	  )
)
	)
   )
  )
  (component 1 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 2 SETVALUE
   (name "Set Field")
   (interface
	(input 1
	 (name "Rec")
	 (optional yes)
	)
	(input 2
	 (name "A")
	 (optional yes)
	)
	(output 1
	 (name "Rec")
	 (lock constraints)
	)
   )
   (implementation
	(expr1 1 "Rec.Name")
	(expr2 1 "A")
   )
  )
  (component 3 SETVALUE
   (name "Set Field")
   (interface
	(input 1
	 (name "Rec")
	 (optional yes)
	)
	(input 2
	 (name "A")
	 (optional yes)
	)
	(output 1
	 (name "Rec")
	 (lock constraints)
	)
   )
   (implementation
	(expr1 1 "Rec.Empl_no")
	(expr2 1 "A")
   )
  )
  (component 4 LITERALCONSTANT
   (name "Text")
   (interface
	(output 1
	 (name "Text")
	 (lock name constraints)
	)
   )
   (implementation
	(value Text
	 (data  "John Doe")
	)
	(initValue Text
	 (data  "")
	)
   )
  )
  (component 5 CONSTANT
   (name "Integer")
   (interface
	(output 1
	 (name "Int32")
	 (lock name constraints)
	)
   )
   (implementation
	(value Int32
	 (data  111222)
	)
	(initValue Int32
	 (data  0)
	)
   )
  )
  (component 6 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 7 NOTE
   (implementation
   )
  )
  (component 8 NOTE
   (name "Information")
   (implementation
	(text2 5
	  "This example shows how to use the Set Field"
	  "object to change fields in a record.  For"
	  "further information, see \"To Change a Field"
	  "in a Record\" in your \"How to Use HP VEE\""
	  "manual."
	)
   )
  )
  (configuration
   (connect D0:1 D1:1)
   (connect D0:1 D2:1)
   (connect D4:1 D2:2)
   (connect D2:1 D3:1)
   (connect D5:1 D3:2)
   (connect D3:1 D6:1)
  )
 )
 (viewFor -1
  (active detail)
  (detail
   (geometry 0 53 900 447)
   (configuration
	(viewFor 0
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 29 271 183 98)
	  (formatters
	  )
	 )
	)
	(viewFor 1
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 254 274 192 33)
	 )
	)
	(viewFor 2
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 295 355 190 50)
	 )
	 (terminals on)
	)
	(viewFor 3
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 596 385 209 50)
	 )
	 (terminals on)
	)
	(viewFor 4
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 70 426 140 29)
	 )
	)
	(viewFor 5
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 412 455 96 30)
	  (showFormat int)
	 )
	)
	(viewFor 6
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 667 506 207 29)
	 )
	)
	(viewFor 7
	 (active icon)
	 (icon
	  (geometry 521 126 338 48)
	  (iconImage "disclaim.icn")
	  (label off)
	 )
	 (detail
	  (geometry 830 250 200 100)
	  (editing enabled)
	 )
	)
	(viewFor 8
	 (active detail)
	 (icon
	  (geometry 0 0 77 0)
	  (iconImage "notepad.icn")
	 )
	 (detail
	  (geometry 27 89 447 123)
	  (editing disabled)
	 )
	 (title off)
	)
	(connect D0:1 D1:1
	 (points 4 214 320 230 320 230 290 251 290)
	)
	(connect D0:1 D2:1
	 (points 4 214 320 230 320 230 370 252 370)
	)
	(connect D4:1 D2:2
	 (points 4 212 440 230 440 230 390 252 390)
	)
	(connect D2:1 D3:1
	 (points 4 527 380 540 380 540 400 553 400)
	)
	(connect D5:1 D3:2
	 (points 4 510 470 530 470 530 420 553 420)
	)
	(connect D3:1 D6:1
	 (points 6 847 410 870 410 870 460 640 460 640 520 664 520)
	)
   )
   (stackingOrder 0 4 8 6 7 1 5 2 3)
  )
  (titleBg "Gray")
  (titleFg "Black")
  (numberFormats
   (realFormat standard)
   (realSigDigits 6)
   (realRadixSpec 4)
   (integerBase decimal)
  )
 )
)
