HP Integrity Virtual Machines Version 4.2 Release Notes

$len=f$len(uuid)
$if (len .eq. 32)
$then
$ part1 = f$fao("!AS",f$ext(24,8,uuid))
$ part2 = f$fao("!AS",f$ext(20,4,uuid))
$ part3 = f$fao("!AS",f$ext(16,4,uuid))
$ part4 = f$fao("!AS!AS",f$ext(14,2,uuid),f$ext(12,2,uuid))
$ part5 = f$fao("!AS!AS!AS!AS!AS!AS", -
f$ext(10,2,uuid),f$ext(8,2,uuid), -
f$ext(6,2,uuid),f$ext(4,2,uuid), -
f$ext(2,2,uuid),f$ext(0,2,uuid))
$ pr_uuid = f$edit("''part1'-''part2'-''part3'-''part4'-''part5'", -
"lowercase")
$
$ write sys$output "SYSTEM_UUID=''pr_uuid'"
54 Installing Guests