{
{  The purpose of this request is to read a portion of a record from a record
{        type file.
{
{
{        CYP$GET_PARTIAL_RECORD (RECORD_FILE, POINTER_TO_TARGET,
{              NUMBER_OF_CELLS_READ, LAST_PART_OF_RECORD, STATUS)
{
{
{  RECORD_FILE: (input) This parameter specifies the record file to be read.
{
{  POINTER_TO_TARGET: (input) This parameter specifies the data structure into
{        which data is to be read.
{
{  NUMBER_OF_CELLS_READ: (output) This parameter returns the number of cells
{        actually read.
{
{  LAST_PART_OF_RECORD: (output) This parameter returns a boolean value
{        indicating if the end of the record has been reached.
{
{  STATUS: (output) This parameter specifies the request status.
{        CONDITIONS:
{              cye$file_not_open
{              cye$illegal_input_request
{              cye$illegal_operation
{
