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

Syntax

AEXIST( array )

Purpose

Array-based variation on EXIST(): verifies that an item exists in the
specified table and optionally execute a function.

Arguments

     aArray -- mapped parallel to EXIST()'s params:

     aArray[1] -- target to validate

     aArray[2] -- character alias of table to search

     aArray[3] -- optional udf to execute

Setup

All array elements and objects they reference are valid. The table to
search is open and indexed on the appropriate key.

Example

     mCust_code = BLANK( CUSTOMER->Cust_code )
     LOCAL array := { "mCust_code", ;
                      "CUSTOMER", ;
                      { || POP_MSG( Company ) } }
     @ 2,2 GET mCust_code VALID AEXIST( array )
     READ_IT()

Returns

.T. if data entered is valid, else .F.

Side Effects

Crash on bad data.

Artful Calls

AFULL

Source File

AA_AXIST.PRG