
{ COMMON DECK CMHSDF }

{   The purpose of this request is to store information from a bam segment
{ access file on a named device file on the system device.  If the device
{ file currently exists, it will write over the old data.  If the device file
{ does not exist, it will create one.
{
{       CMP$SAVE_DEVICE_FILE (DEVICE_FILE_NAME, SEGMENT_FILE_FID, STATUS)
{
{ DEVICE_FILE_NAME: (input)  This parameter specifies the name of the
{       device file to be written.
{
{ SEGMENT_FILE_FID: (input)  This parameter specifies the segment_access file
{       identifier that contains the data to be stored in the device file.
{       The file is treated as a sequence.
{
{ STATUS: (output)  This parameter sepecifies the request status.
{
