
{ COMMON DECK CMHGUT }

{   The purpose of this request is to return the cm unit type, the io
{ unit type, and the unit class based on a product identifier.  If no
{ unit matches the product identifier, a flag is returned indicating so.
{
{       CMP$GET_UNIT_TYPE (PRODUCT_ID, CM_UNIT_TYPE, IO_UNIT_TYPE,
{         UNIT_CLASS, FOUND)
{
{ PRODUCT_ID: (input)  This parameter specifies the product identification
{       code of the unit.
{
{ CM_UNIT_TYPE: (output)  This parameter specifies the configuration
{       management unit type.
{
{ IO_UNIT_TYPE: (output)  This parameter specifies the I/O unit type.
{
{ UNIT_CLASS: (output)  This parameter specifies the classification of
{       the unit.
{
{ FOUND: (output)  This parameter specifies if the product identification
{       code was found.
{
