/****************************** Module Header *******************************
*
* Module Name: getmode.erx
*
* Copyright (c) Netlabs EPM Distribution Project 2002
*
* $Id: getmode.erx 4481 2021-04-30 16:44:57Z aschn $
*
* ===========================================================================
*
* This file is part of the Netlabs EPM Distribution package and is free
* software.  You can redistribute it and/or modify it under the terms of the
* GNU General Public License as published by the Free Software
* Foundation, in version 2 as it comes in the "COPYING" file of the
* Netlabs EPM Distribution.  This library is distributed in the hope that it
* will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
* General Public License for more details.
*
****************************************************************************/
/* EPM REXX                                                                */
/* This is an example how to query array vars from EPM REXX.               */
/*                                                                         */
/* You may want to call it from your own EPM REXX macros with              */
/*                                                                         */
/*    Mode = GetMode()                                                     */
/*                                                                         */
/* to get the mode for the current file. The mode in uppercase letters     */
/* will be returned, e.g. 'REXX' or 'CONFIGSYS'.                           */
/*                                                                         */
/* Following E commands, defined as an interface for REXX, are used:       */
/*                                                                         */
/*    SaveUserstring       Save the current value for the ".userstring"    */
/*                         field var.                                      */
/*    RestoreUserstring    Restore the old value for the ".userstring"     */
/*                         field var.                                      */
/*    FileAVar2Userstring <arrayvarname>                                   */
/*                         Query the value for the array var               */
/*                         "fid.<arrayvarname>" (fid = fileid), e.g.       */
/*                         fid'.mode.'.                                     */
/*                         The ".userstring" field var is set to this      */
/*                         value to make it querible from REXX with the    */
/*                         "extract" command.                              */
/*                                                                         */
/* Background: Field vars (starting with a '.') are defined internally.    */
/*             Since we extended file-specific settings, we have to use    */
/*             array vars (containing the fileid) for that. Using          */
/*             ".userstring" for that is not a quite good idea, because it */
/*             must be parsed before its value gets usable and maybe users */
/*             even replace its value with their own stuff instead of      */
/*             extending it (maybe with a key1="value1";... list).         */
/*                                                                         */
/* More related E commands:                                                */
/*                                                                         */
/*    AVar2Userstring <arrayvarname>                                       */
/*                         Query the value for the array var               */
/*                         "<arrayvarname>", e.g. 'menulist'.              */
/*                         The ".userstring" field var is set to this      */
/*                         value to make it querible from REXX with the    */
/*                         "extract" command.                              */
/*                                                                         */
/*    SetAVar <arrayvarname> <value>                                       */
/*                         Set "<arrayvarname>" to the value "<value>",    */
/*                         e.g. 'SetAVar menulist newmenu stdmenu feshmnu  */
/*                                                ovshmenu mymenu'         */
/*                                                                         */
/* Compared to universal vars, array vars are accessable via REXX when     */
/* these interface commands are used.                                      */
/*                                                                         */
/* Names for array vars are internally converted to lowercase.             */
/*                                                                         */

'SaveUserstring'
'FileAVar2Userstring mode'
'extract /userstring/filename'
Mode = userstring.1
'RestoreUserstring'

'sayerror Mode for "'filename.1'" = 'Mode
return Mode