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

##############################################################################
###+---------+################################################################
#+-| M_CLOSE |--------------------------------------------------------+#######
#| +---------+ Closes the file buffers associated with the memo_field |#######
#+--------------------------------------------------------------------+#######
##############################################################################
##############################################################################
#+--| Summary |--------------+################################################
#|     #INCLUDE memo.hdr     |################################################
#+---------------------------+################################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------+######################################
#|     PROCEDURE m_close PROTOTYPE     |######################################
#|      PARAMETERS MEMO memo_field     |######################################
#+-------------------------------------+######################################
##############################################################################
##############################################################################
#######+---| Description |--------------------------------------------+#######
#######| The m_close procedure closes the file buffers associated     |#######
#######| with the memo_field, returning the DOS file handle that has  |#######
#######| been allocated for the memo_field to DOS.                    |#######
#######| ------------------------------------------------------------ |#######
#######| Data can be lost if a memo field is not closed before the    |#######
#######| record pointer is moved.                                     |#######
#######| ------------------------------------------------------------ |#######
#######| When closed, all buffers associated with the memo are        |#######
#######| flushed and therefore any changes in the memo field are      |#######
#######| reflected in the memo file.                                  |#######
#######| ------------------------------------------------------------ |#######
#######| FORCE library supports up to 255 open files at one time.     |#######
#######| Use the procedure more_handles to allocate DOS file handles. |#######
#######+--------------------------------------------------------------+#######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Insert a message into a memo field.                 |#########
#########|                                                          |#########
#########| text = "Informed about Friday meeting" + dtoc(today())   |#########
#########|                                                          |#########
#########| m_open( database->memofield, &F_APPEND )                 |#########
#########| m_putln( database->memofield, text )                     |#########
#########| m_close( database->memofield )                           |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Write a generic routine that inserts a header       |#########
#########| *    line "---Industry Co.---" in each memo field.       |#########
#########|                                                          |#########
#########| DBFDEF i1                                                |#########
#########|     MEMO     i1memo                                      |#########
#########|     {...}                                                |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| DBFDEF i2                                                |#########
#########|     MEMO     i2memo                                      |#########
#########|     {...}                                                |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| PROCEDURE insert_line                                    |#########
#########|  PARAMETERS ALIAS a, MEMO info_field                     |#########
#########|                                                          |#########
#########|     DO WHILE .NOT. a_eof( a )                            |#########
#########|         m_open( info_field, &F_CREATE )                  |#########
#########|         m_putln( info_field, "--Industry Co.--" )        |#########
#########|         m_close( info_field )                            |#########
#########|         !a SKIP                                          |#########
#########|     ENDDO                                                |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|                                                          |#########
#########|     USE i1 ALIAS i1                                      |#########
#########|     insert_line( i1, i1memo )                            |#########
#########|     USE i2 ALIAS i2                                      |#########
#########|     insert_line( i2, i2memo )                            |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################