di2nam DEPRECATED

	di2nam(device_names.i1a.r, device_indices.i4a.r [,work_area.i1a.r]
	       [,num_devices.i2.r])

	This routine will translate one or more device indices in the
	user array 'device_indices' to one or more device names in the
	variable (or array) 'device_names'.  If more than one device
	index is to be passed to this procedure, 'work_area' AND
	'num_devices' must be specified.

	device_names	returned device name or array of device names
			(dio_get_terse_name_length characters per entry)
	device_indices	device index or array of device indices
	[work_area]	database work area array (only used if more than
			one device is requested)
			(size should be num_devices * 12 + 6 bytes)
	[num_devices]	number of devices (default is 1)

	This function requires the following include files:

	cnsparam_h, clib_h

	Related functions:

	nam2di, dbrdi, dio_get_terse_name_length