{   This procedure compares two Cyber 170 files held in NOS/VE format
{ and generates a difference file and a LIBEDIT input directive file
{ which will enable LIBEDIT to transform the old file to the new file.
{ The difference file operates on a Cyber 170 logical record basis.
{   The files to be compared are subject to certain constraints as documented
{ here. The first constraints concern each file in isolation and are designed
{ to ensure that the generated LIBEDIT directives are meaningful.
{
{  1) The file is a simple multi-record file with no ulib or opld records.
{  2) The file is a multi-record file with a single trailing opld record.
{  3) The file is a single user library with a leading ulib record and a
{     trailing opld record of the same name.
{
{   In addition to these basic file structure constraints certain file
{ dependancy constraints are enforced between the two files. These constraints
{ are designed to enable the program to ensure that the comparasin will
{ yield meaningful results, and that the following LIBEDIT run will be able
{ to perform the required transformation.
{
{  1) If the old file is a user library file the new file must also be a
{     user library file of the same name.
{  2) If the old file is a multi-record file with a trailing opld record,
{     the new file must be of the same structure with the same name opld
{     record.
{}
{       PROCEDURE RAP$GENERATE_170_MODSET(OLD_LFN,OLD_NAME,NEW_LFN,NEW_NAME,LGO_LFN,
{                                         DIR_LFN,COMPARE_EQUAL,STATUS)
{}
{ OLD_LFN: (input) This parameter passes the file name for the old file.
{}
{ OLD_NAME: (input) This parameter passes the file path name for the old file.
{       This path name is used for error reporting if required.
{}
{ NEW_LFN: (input) This parameter passes the file name for the new file.
{}
{ NEW_NAME: (input) This parameter passes the file path name for the new file.
{       The path name is used for error reporting if required.
{}
{ LGO_LFN: (input) This parameter passes the file name for the differences file.
{}
{ DIR_LFN: (input) This parameter passes the file name for the LIBEDIT
{       directives file.
{}
{ COMPARE_EQUAL: (output) This is a boolean flag which returns the result of
{       the file compare.
{}
{ STATUS: (output) Status return parameter.
{}
