home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST121.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  826 b   |  37 lines
  1. ********************
  2.  
  3. PROCEDURE Replarray
  4.  
  5.    PARAMETERS _repla, _replb, _replc, _repld, _reple
  6.  
  7.    * _repla is the name of the array to work with
  8.    * _replb is the name of the database or work area to work with
  9.    * _replc is the record number to work with; 0 means to APPEND BLANK
  10.    * _repld is the field number to begin to work with
  11.    * _reple is the number of fields to perform this operation with.
  12.  
  13.    DO CASE
  14.    CASE PCOUNT() = 4
  15.       _reple = 0
  16.    CASE PCOUNT() = 3
  17.       _repld = ""
  18.       _reple = 0
  19.    CASE PCOUNT() = 2
  20.       _replc = 0
  21.       _repld = ""
  22.       _reple = 0
  23.    CASE PCOUNT() = 1
  24.       _replb = ""
  25.       _replc = 0
  26.       _repld = ""
  27.       _reple = 0
  28.    OTHERWISE
  29.       RETURN
  30.    ENDCASE
  31.  
  32.    R_S_ARRAY(.T., _repla, _replb, _replc, _repld, _reple)
  33.  
  34. * End of File
  35.  
  36.  
  37.