{
{
{ this procedure will return the system file label and associated
{ attributes.
{
{
{  PROCEDURE BAP$GET_SYSTEM_LABEL (LOCAL_FILE_NAME, SYSTEM_FILE_LABEL,
{                                  STATUS)
{
{
{  LOCAL_FILE_NAME (input) this parameter specifies the name by
{                          wich the file is known to the system.
{
{
{  SYSTEM_FILE_LABEL (output): this parameter specifies an array
{                              to which the system file label will
{                              be returned.
{
{
{  STATUS (output): this parameter specifies request status.
{
{
