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