
{   This procedure provides a catalog function for a CYBER 170 file which
{ is stored on NOS/VE. The file must have been moved to NOS/VE by the
{ GET_MULTI_RECORD_FILE utility. The list output produced is an emulation
{ of the output of the NOS GENCAT utility.
{}
{       PROCEDURE RAP$CATALOG_170_FILE(FILE,LIST,LIST_OPTION,USER_LIBRARY,STATUS)
{}
{ FILE: (input) This parameter passes the reference for the file to be cataloged.
{}
{ LIST: (output) This parameter passes the reference for the list output file
{       to be produced. If not supplied the parameter defaults to $LIST.
{}
{ LIST_OPTION: (input) This parameter specifies the type of list output to be
{       produced. The detailed description may be found in the documentation
{       with the NOS GENCAT command. If not supplied it defaults to LONG.
{}
{ USER_LIBRARY: (input) This parameter specifies whether user libraries found
{       are to be expanded (TRUE) or not (FALSE). If not supplied it defaults
{       to FALSE.
{}

