Back|Forward

DCL:MATH1:SYSLIB : Internal Variable Management and Message Output:Explanation of Subroutines

2.4.2 GLCGET/GLCSET(GLCSTX)

1.

Functions

Inquires/changes character-type internal variables used in MATH1.(GLCSTX  allows changes through runtime options.) 

2.

Call

CALL GLCGET(CP,CPARA)
CALL GLCSET(CP,CPARA)
CALL GLCSTX(CP,CPARA)

3.

Explanation of Parameters

CP	(C*8)	Name of an internal variable
CPARA	(C*(*))	Value of a character-type internal variable

The following is a list of names that can be specified as CP.

'DCLRC'	(C)	Name of an external file that is read for runtime options. (Takes the value value .dclrc. in the standard library). However, the value of this internal variable is not used directly as the file name. See notes for detail.
'DUPATH'	(C)	Pathname under which various database files for the user are placed. The initial value in the standard library is ' ' . (Blank: represents current directory).
'DSPATH'	(C)	Pathname under which various database files provided by the system is placed. In the standard library, it takes the value specified by $(DCLDBASE) upon installation.

4.

Notes

(a)

The following subroutines are available for managing internal variables.

GLCQNP(NCP)	Calculates the total number NCP of internal variables.
GLCQID(CP,IDX)	Determines the position IDX of an internal variable CP
GLCQCP(IDX,CP)	Inquires the name CP of  an internal variable at position IDX
GLCQVL(IDX,CPARA)	Inquires the value IPARA of an internal variable at position IDX
GLCSVL(IDX,CPARA)	Changes the value IPARA of an internal variable at position IDX

(b)

The GLCGET calls the above GLCQID to determine the position of an internal variable, and inquires about the value by  GLCQVL.  GLCSET calls GLCQID to determine the position of an internal variable and changes the value by  GLCSVL. Therefore, if the specified internal variable is not found, the error message GLCQID is printed. 

(c)

The name of an internal variable  is checked by the character function LCHREQ that compares character strings (case non-sensitive). Therefore, if  LCHREQ is correctly installed, small-case letters can be used for specification.

(d)

The internal variable managed by this routine cannot be changed by runtime options through external files. (This is because the program will enter a  recursive loop.)

(e)

The value of the internal variable specified by 'DCLRC' is not directly used as the file name. The actual file name is determined by GLQFNM. In the standard library, the current directory will be searched first. Then it will search the directory specified by the internal variable 'DUPATH' (pass name specified by user).  Finally, it will search the directory specified by the internal variable 'DSPATH' (provided by the system).