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