FWD » Core Development » Base Language

This test works fine in 4GL:

def var l1 as int extent .
def var l2 like l1[100].
def var l3 like l2[100].

def var v1 as int extent 2.
def var v2 like v1[100].
def var v3 like v2[100].

message l2 l3 v2 v3.  // ? ? 0 0

The difference is that for indeterminate extent, the initial value is unknown, while for the other case, is 0.

For function parameters, the LBRACKET is completely ignored. For procedure parameters, it works as a DEF VAR:

def var j as int extent.

function func1 returns int (input i like l1[100]).
message extent(i). // extent ?
end.

function func2 returns int (output i like v1[100]).
   message extent(i).  // extent 2
end.

func1(j).
func2(j).

procedure proc1.
   def input param p1 like l1[100].
   message extent(p1).  // scalar
end.

procedure proc2.
   def output param p2 like v1[100].
   message extent(p2). // scalar
end.

def var i as int.
run proc1(i).
run proc2(output i).

7199c was merged to trunk rev 14610 and archived