How do I declare and define constants in one kl file and access it another?

ashwinmudigonda · Mar 8th 2018

I am trying to create a single file for all the constants I'll need and refer to them in all the other files.

I created a GlobalVars.kl file that looks like

Code

PROGRAM GlobalVars

	VAR
		maxSize	 : INTEGER

	BEGIN
		maxSize = 125
END GlobalVars

I created a QuickTest.kl that looks like:

Code

PROGRAM QuickTest

	VAR
                maxSize FROM GlobalVars : INTEGER

	BEGIN
		WRITE('maxSize: ',maxSize,CR)		
END QuickTest

Both files compile fine, but when I run quicktest.pc, I get:

Intp-311 (Quick_Test, 7) uninitialized data is used.....abort all

How do I accomplish this?

linuxsand · Mar 9th 2018

try:

Code

PROGRAM GlobalVars
	CONST
		maxSize = 125
END GlobalVars

inusO · Mar 9th 2018

To have global constants I suggest creating the file myconst.kl

Code

CONST1 = 1
CONST2 = 2

and then include it in CONST field of all programs that need it

Code

PROGRAM prog
    CONST
        %INCLUDE myconst
    VAR
        myint : INTEGER
    BEGIN
        myint = CONST1
        WRITE(myint,CR)
END prog

Advertising from our partners