CLALONG (four-byte signed integer)

Top  Previous  Next

 

label

CLALONG([initial value])

[,DIM( )] [,NAME( )] [,EXTERNAL] [,DLL] [,STATIC]

 

 

[,THREAD] [,AUTO] [,PRIVATE] [,PROTECTED]

CLALONG

A four-byte signed integer.

 

Format: ± magnitude

| |................... |

Bits: 31 30 0

Range: -2,147,483,648 to 2,147,483,647

 

initial value

A numeric constant. If omitted, the initial value is zero, unless the AUTO attribute is present.

DIM

Dimension the variable as an array.

NAME

Specify an alternate, "external" name for the field.

EXTERNAL

Specify the variable is defined, and its memory is allocated, in an external library. Not valid within FILE, QUEUE, or GROUP declarations.

DLL

Specify the variable is defined in a .DLL. This is required in addition to the EXTERNAL attribute.

STATIC

Specify the variable's memory is permanently allocated.

THREAD

Specify memory for the variable is allocated once for each execution thread. Also implicitly adds the STATIC attribute on Procedure Local data.

AUTO

Specify the variable has no initial value.

PRIVATE

Specify the variable is not visible outside the module containing the CLASS methods. Valid only in a CLASS.

PROTECTED

Specify the variable is not visible outside base CLASS and derived CLASS methods. Valid only in a CLASS.

 

CLALONG declares a four-byte signed integer, using the Intel 8086 long integer format. The high-order bit is the sign bit (0 = positive, 1 = negative). Negative values are represented in standard two's complement notation.

Example:

Count1 CLALONG                         !Declare four-byte signed integer

Count3 CLALONG,DIM(4)                  !Declare it an array of 4 CLALONGs

Count4 CLALONG(5)                      !Declare with initial value

Count5 CLALONG,EXTERNAL                !Declare as external

Count6 CLALONG,EXTERNAL,DLL            !Declare as external in a .DLL

Count7 CLALONG,NAME('SixCount')        !Declare with external name

ExampleFile FILE,DRIVER('Clarion')  !Declare a file

Record       RECORD

Count8        CLALONG,NAME('Counter')  !Declare with external name

            END

           END