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

##############################################################################
###+-----------+##############################################################
#+-| SET ALIAS |-----------------------------------+##########################
#| +-----------+ The SET ALIAS command establishes |##########################
#|               a file name for an alias          |##########################
#+-------------------------------------------------+##########################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------+#####################################
#|     SET ALIAS <Alias> TO <C-exp>     |#####################################
#+--------------------------------------+#####################################
##############################################################################
##############################################################################
#######+---| Description |---------------------------------------------+######
#######| SET ALIAS defines the correspondence between an index or      |######
#######| database alias and a file name.                               |######
#######| ------------------------------------------------------------- |######
#######| When a DBFDEF or INDEXDEF is compiled, the default filenames  |######
#######| corresponding to the aliases are derived from the alias name. |######
#######| For example, if a DBFDEF is defined as:                       |######
#######|                                                               |######
#######|       DBFDEF abc                                              |######
#######|            {...}                                              |######
#######|       ENDDEF                                                  |######
#######|                                                               |######
#######| then the default filename for the alias will be abc.dbf.      |######
#######| Likewise for an INDEXDEF, except an index file as a .fdx      |######
#######| extension.                                                    |######
#######| ------------------------------------------------------------- |######
#######| To use a different filename than the one derived by default   |######
#######| from the alias name, use the SET ALIAS command.               |######
#######| ------------------------------------------------------------- |######
#######| To get the current filename associated with an alias, use     |######
#######| the dbf() or fdx() functions.                                 |######
#######+---------------------------------------------------------------+######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Use the same database alias for two                 |#########
#########| *    different files, (only one may be open at one time) |#########
#########|                                                          |#########
#########| DBFDEF a_database_alias                                  |#########
#########|     CHAR(40)  b1                                         |#########
#########|     CHAR(3)   b2                                         |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|                                                          |#########
#########|     SET ALIAS a_database_alias TO "z1.dbf"               |#########
#########|     DO work_on_dbf                                       |#########
#########|     SET ALIAS a_database_alias TO "z2.dbf"               |#########
#########|     DO work_on_dbf                                       |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    The SET ALIAS command allows for long filenames.    |#########
#########|                                                          |#########
#########| SET ALIAS b TO "c:\acct\data\backup\g.dbf"               |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 3 |-------------------------------------------+#########
#########| *    Make sure a database and index file exist           |#########
#########| *    in the same directory.                              |#########
#########|                                                          |#########
#########| DBFDEF bg                                                |#########
#########|     CHAR(30)    lastname                                 |#########
#########|     CHAR(20)    firstname                                |#########
#########|     DATE        sdate                                    |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| INDEXDEF                                                 |#########
#########|     CHAR(30)    nindex    bg->lastname                   |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########|     {...}                                                |#########
#########|                                                          |#########
#########|   *--- if the database is x.dbf...make the               |#########
#########|   *    index file be x.fdx                               |#########
#########|                                                          |#########
#########|     SET ALIAS nindex TO substr( a_dbf(bg);               |#########
#########|               ,1,at(".",a_dbf(bg)))+"fdx"                |#########
#########+----------------------------------------------------------+#########
##############################################################################