DCL “Arrays”

DCL does not support arrays in the usual

sense. However, you can use a counter

within a loop to create a list of variables:

$ CNTR = 0

$LOOP:

$ CNTR = CNTR + 1

$ FIELD_’CNTR’ = vbl

$ IF CNTR .LE. 12 THEN -

$ GOTO LOOP

Previous slide

Next slide

Back to first slide

View graphic version

While DCL does not support arrays in the sense of subscripted variables as one might find in a 3GL, a counter can be used to sequentially create variables with a number appended to the variable name. This can be done using symbol substitution to create a target variable name, as shown the example.