subroutine id
***********************************************************************
* Display system identification information
***********************************************************************
*
* [00] 20Oct97 jr Initial Creation
include wbp w3Include
execute "!hostname" capturing name returning x
subs = ""
subs<1> = "!!NAME!!" :@VM:name
subs<2> = "!!DATA!!":@VM:system(100)
call w3HTMLInit("","") ;* use default system.headfoot.htm
call w3HtmlInsert("id.stats", subs) ;* insert data & boiler plate
call w3HTMLFooter("","") ;* close and done
return