{
{
{ this procedure will store the system file label and associated
{ attributes.
{
{
{  PROCEDURE BAP$PUT_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
{                              from which the system file label will
{                              be written.
{
{
{  STATUS (output): this parameter specifies request status.
{
{
