(saveFormat "2.0")
(date "Tue 19/Dec/1995 09:22:39 MST")
(veerev "3.2")
(platform "HP9000s700")
(SaveCF no)
(filterNAN 0)
(component 0 ROOTCONTEXT
 (name "Using Records in Expressions")
 (implementation
  (retainGlobals YES)
  (locked no)
  (trigMode deg)
  (nextID 12)
  (component 0 TORECORD
   (interface
	(input 1
	 (name "Name")
	 (optional yes)
	)
	(input 2
	 (name "Empl_no")
	 (optional yes)
	)
	(output 1
	 (name "Record")
	 (tag "Record")
	 (lock constraints)
	)
   )
   (implementation
	(outputType scalar)
   )
  )
  (component 1 LITERALCONSTANT
   (name "Text")
   (interface
	(output 1
	 (name "Text")
	 (lock name constraints)
	)
   )
   (implementation
	(value Text
	 (numDims 1)
	 (size 10)
	 (data 
	   [ "John Doe" "Sue Smith" "Richard Roe" "John Johnson" "Barbara Brown" "Sally Jones" "Paul McCall" "Linda Green" "Albert Hall" "Paula Brown" ]
	 )
	)
	(initValue Text
	 (data  "")
	)
   )
  )
  (component 2 CONSTANT
   (name "Integer")
   (interface
	(output 1
	 (name "Int32")
	 (lock name constraints)
	)
   )
   (implementation
	(value Int32
	 (numDims 1)
	 (size 10)
	 (data 
	   [ 111222 111223 111224 111225 111226 111227 111228 111229 111230 111231 ]
	 )
	)
	(initValue Int32
	 (data  0)
	)
   )
  )
  (component 3 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 5 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 7 FORMULA
   (interface
	(input 1
	 (name "A")
	 (optional yes)
	)
	(output 1
	 (name "Result")
	 (lock name constraints)
	)
   )
   (implementation
	(expr 1 "A.Name[7]")
   )
  )
  (component 8 FORMULA
   (interface
	(input 1
	 (name "A")
	 (optional yes)
	)
	(output 1
	 (name "Result")
	 (lock name constraints)
	)
   )
   (implementation
	(expr 1 "A.Empl_no[7]")
   )
  )
  (component 9 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 10 NOTE
   (implementation
   )
  )
  (component 11 NOTE
   (name "Information")
   (implementation
	(text2 5
	  "This example shows how to access a field in "
	  "a record by using an expression in a Formula"
	  "object.  For further information, see \"To "
	  "Use a Record in an Expression\" in your \"How"
	  "to Use HP VEE\" manual."
	)
   )
  )
  (configuration
   (connect D1:1 D0:1)
   (connect D2:1 D0:2)
   (connect D0:1 D3:1)
   (connect D5:1 D4:1)
   (connect D0:1 D5:1)
   (connect D0:1 D6:1)
   (connect D6:1 D7:1)
  )
 )
 (viewFor -1
  (active detail)
  (detail
   (geometry 0 53 900 447)
   (configuration
	(viewFor 0
	 (active detail)
	 (icon
	  (iconImage "build.icn")
	 )
	 (detail
	  (geometry 304 337 102 67)
	 )
	 (terminals on)
	)
	(viewFor 1
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 31 190 178 180)
	 )
	)
	(viewFor 2
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 41 418 139 184)
	  (showFormat int)
	 )
	)
	(viewFor 3
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 507 287 346 66)
	 )
	)
	(viewFor 5
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 665 482 171 36)
	 )
	)
	(viewFor 7
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 466 484 109 32)
	 )
	 (terminals on)
	)
	(viewFor 8
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 466 574 128 32)
	 )
	 (terminals on)
	)
	(viewFor 9
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 675 572 171 36)
	 )
	)
	(viewFor 10
	 (active icon)
	 (icon
	  (geometry 31 86 338 48)
	  (iconImage "disclaim.icn")
	  (label off)
	 )
	 (detail
	  (geometry 830 250 200 100)
	  (editing enabled)
	 )
	)
	(viewFor 11
	 (active detail)
	 (icon
	  (geometry 0 0 77 0)
	  (iconImage "notepad.icn")
	 )
	 (detail
	  (geometry 422 80 436 121)
	  (editing disabled)
	 )
	 (title off)
	)
	(connect D1:1 D0:1
	 (points 4 211 280 220 280 220 350 231 350)
	)
	(connect D2:1 D0:2
	 (points 4 182 510 200 510 200 390 231 390)
	)
	(connect D0:1 D3:1
	 (points 4 468 370 480 370 480 320 504 320)
	)
	(connect D5:1 D4:1
	 (points 2 627 500 662 500)
	)
	(connect D0:1 D5:1
	 (points 6 468 370 490 370 490 430 410 430 410 500 433 500)
	)
	(connect D0:1 D6:1
	 (points 6 468 370 490 370 490 430 410 430 410 590 433 590)
	)
	(connect D6:1 D7:1
	 (points 2 646 590 672 590)
	)
   )
   (stackingOrder 2 8 3 1 5 6 7 4 9 0)
  )
  (titleBg "Gray")
  (titleFg "Black")
  (numberFormats
   (realFormat standard)
   (realSigDigits 6)
   (realRadixSpec 4)
   (integerBase decimal)
  )
 )
)
