{}
{   The purpose of this request is to open a scratch segment using a unique
{ filename and create an SCL variable whose value is that unique name.
{}
{      OCP$OPEN_SCRATCH_SEGMENT (SCL_VAR, FID, SEG_P)
{}
{ SCL_VAR: (input) This parameter specifies the SCL variable name.
{}
{ FID: (output) This parameter specifies the file_identifier.
{}
{ SEG_P: (output) This parameter specifies the segment pointer to the file.
{}
