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

Syntax

EXEC_RELAT( cAlias, bcUdf )

Purpose

Set a relational state for a particular table (using relation information
from the application dictionary for that particular table), execute a code
block or udf, then restore the current relational state.

Arguments

     cAlias -- table for which relational state will be set

     bcUdf -- a code block to evaluate or a string to be macro-expanded
                  once the relational state has been set.

Setup

The application dictionary and cAlias must be open.

Example

     CHK_DICT( "AAI_DICT" )
     * EXEC_RELAT() doesn't make these, so do it:
     PRIVATE is_append := .F., ;
             screen_no := 1, ;
             no_screens := 1
     EXEC_RELAT( "CUSTOMER", { || GET_STD2( 0 ) } )

Returns

.T.

Side Effects

Nothing, or just about anything, depending on what you do in bcUdf.

Artful Calls

PUSH/POP_REL, SET_RELAT, DICTFIND, MACROBLOCK, AAEXECUTE

Source File

AA_RELAT.PRG