{}
{     The purpose of this request is to do the boundary processing required to
{ access the start of a 170 record in a file. The 170 descriptor following a NOS/VE
{ end-of-partition is read and analysed and the resulting 170 file position
{ is returned in nos_fp.
{   The procedure assumes that the file is positioned at the beginning of a
{ NOS/VE partition containing a 170 record. If this is not the case an error
{ status will be returned.
{}
{        RAP$GET_170_RECORD (FID, FP, NOS_RECORD, NOS_FP, STATUS)
{}
{FID: (input) This parameter specifies the identifier of the 170 library.
{}
{FP: (input, output) This parameter specifies a pointer to the current file
{        position of the 170 library.
{}
{NOS_RECORD: (output) This parameter specifies the next record found on the library.
{}
{NOS_FP: (output) This parameter specifies a pointer to the next record's position.
{}
{STATUS: (output) This parameter specifies any resulting errors.
{}
