Click above to get retro games delivered to your door ever month!

Syntax

AGET( aRa_name, nLmnt_no, nRow, nCol[, cData_pic[, bData_ok ]] )

Purpose

GET an element in an array.

Arguments

     aRa_name -- array of variables to GET

     nLmnt_no -- index of array element to GET

     nRow -- row on which to perform the GET

     nCol -- column at which to perform the GET

     cData_pic  -- PICTURE clause to use (defaults to a call to
                       GEN_PIC() if none specified)

     bData_ok   -- optional VALIDation clause, specified as a code
                       block or character expression to be macro-expanded

Setup

None

Returns

.T.

Side Effects

The GET variable is pending until processed by a READ
command.

Example

     LOCAL i, field_names, no_fields := FCOUNT()
     field_names := ARRAY( no_fields )
     AFIELDS( field_names )
     FOR i = 1 to no_fields
          AGET( field_names, i, i, 10 )
     NEXT i
     READ

Artful Calls

GEN_PIC, MACROBLOCK

Source File

AA_AGET.PRG