SP_SREC_LOCK

SREC_LOCK()

  Short:
  ------
  SREC_LOCK() Attempts to lock a record

  Returns:
  --------
  <lSuccess> => success

  Syntax:
  -------
  SREC_LOCK(nTries,lAskMore,cMoreMessage)

  Description:
  ------------
  Attempts to lock current record. Tries <nTries> times
  and then allows user to retry or not based on <lAskMore> by
  giving message <cMoreMessage> and asking YES/NO.

  Examples:
  ---------
   IF SREC_LOCK(5,.T.,"Unable to lock record. Try again?")
       REPLACE XXX WITH YYY, ZZZ WITH BBB
       UNLOCK
   ELSE
       LOOP
   ENDIF

  Source:
  -------
  S_SRECLO.PRG

 

SP_SADD_REC

SADD_REC()

  Short:
  ------
  SADD_REC() Attempts to append a blank record

  Returns:
  --------
  <lSuccess> => success

  Syntax:
  -------
  SADD_REC([nTries],[lAskMore],[cAskMessage])

  Description:
  ------------
  Attempts to append a blank record. Tries [nTries]
  times and then allows user to retry or not if [lAskMore] by
  giving message [cAskMessage] and asking YES/NO.

  Examples:
  ---------
   IF SADD_REC(5,.T.,"Unable to ADD,Try again?")

       IF SREC_LOCK(5,.T.,"Unable to lock, Try again?")
         REPLACE XXX WITH YYY, ZZZ WITH BBB
         UNLOCK
       ENDIF
   ENDIF

  Source:
  -------
  S_SADDR.PRG