home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PDXOS2-1.ZIP / SAMPLE / BORROW0.SC < prev    next >
Encoding:
Text File  |  1988-12-29  |  1.5 KB  |  61 lines
  1. ; Variables Saved Using Savevars Command
  2.  
  3. MaxFields = 22
  4. Array FieldName[57]
  5. FieldName[1] = "RECORD NUMBER"
  6. FieldName[2] = "Invoice Number"
  7. FieldName[3] = "Date"
  8. FieldName[4] = "Customer ID"
  9. FieldName[5] = "Discount"
  10. FieldName[6] = "Ship Via"
  11. FieldName[7] = "Quan1"
  12. FieldName[8] = "Part1"
  13. FieldName[9] = "Quan2"
  14. FieldName[10] = "Part2"
  15. FieldName[11] = "Quan3"
  16. FieldName[12] = "Part3"
  17. FieldName[13] = "Quan4"
  18. FieldName[14] = "Part4"
  19. FieldName[15] = "Quan5"
  20. FieldName[16] = "Part5"
  21. FieldName[17] = "Quan6"
  22. FieldName[18] = "Part6"
  23. FieldName[19] = "Quan7"
  24. FieldName[20] = "Part7"
  25. FieldName[21] = "Quan8"
  26. FieldName[22] = "Part8"
  27. FieldName[23] = "Desc1"
  28. FieldName[24] = "Price1"
  29. FieldName[25] = "Extd1"
  30. FieldName[26] = "Desc2"
  31. FieldName[27] = "Price2"
  32. FieldName[28] = "Extd2"
  33. FieldName[29] = "Desc3"
  34. FieldName[30] = "Price3"
  35. FieldName[31] = "Extd3"
  36. FieldName[32] = "Desc4"
  37. FieldName[33] = "Price4"
  38. FieldName[34] = "Extd4"
  39. FieldName[35] = "Desc5"
  40. FieldName[36] = "Price5"
  41. FieldName[37] = "Extd5"
  42. FieldName[38] = "Desc6"
  43. FieldName[39] = "Price6"
  44. FieldName[40] = "Extd6"
  45. FieldName[41] = "Desc7"
  46. FieldName[42] = "Price7"
  47. FieldName[43] = "Extd7"
  48. FieldName[44] = "Desc8"
  49. FieldName[45] = "Price8"
  50. FieldName[46] = "Extd8"
  51. FieldName[47] = "Subtotal"
  52. FieldName[48] = "Discount $"
  53. FieldName[49] = "Tax"
  54. FieldName[50] = "Total"
  55. FieldName[51] = "Last Name"
  56. FieldName[52] = "First Name"
  57. FieldName[53] = "Address"
  58. FieldName[54] = "City"
  59. FieldName[55] = "State"
  60. FieldName[56] = "Zip"
  61. FieldName[57] = "Telephone"