home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKDN.SBP < prev    next >
Encoding:
Text File  |  1989-09-14  |  1.6 KB  |  91 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKDN
  4.   ╜   Enter Certificate Numbers
  5.   ╜   Last updated Sep 14, 89
  6.   ╜   -----------------------------------------
  7.  
  8.  ms1$ "Is entry correct?"
  9.   Γ e: │ _ wm99
  10.   ┤ Ö"trans"
  11.   ú"Transaction ref"
  12.   ╔ ╨Trans_Type  "b"  Cert_Sent_yn "n"
  13.   ┤ £"stkdn":frow% 10
  14.  
  15. m0: ╜ Display from first record
  16.   ╔ b:lkey% Transaction ref.TRANS
  17.   ╔ `:fkey% Transaction ref.TRANS:ckey% fkey%
  18.  
  19. m01: ╜ Display from ckey%
  20.   vs1
  21.  
  22. m1: ╜ Wait here for a push button to be clicked
  23.   £: ╧ ▀
  24.   wm1
  25.  
  26. m22: ╜ Edit record
  27.  r$  (1,1,0)
  28.  
  29. m221: 
  30.   ┬"Enter line to be edited","",4,a%,r$,2
  31.   ía% 0 p wm223
  32.  r%  0(r$)
  33.   ír% 
  34. 1 p wm221
  35.   ír% lrec% p wm221
  36.  
  37. m222: 
  38.   öCertificate_No.TRANS "r%
  39.   ┬ms1$,"",1,a%: ía% 0 p wm222
  40.   ╠
  41.   ír% 10 p wm221
  42.   ír% 9 pr$  (10,2,0) ^r$  (r% 1,1,0)
  43.   wm221
  44.  
  45. m223:  ╜ Redisplay existing screen
  46.  ckey% pfkey%
  47.   wm01
  48.  
  49. m24: ╜ Next page
  50.   ílkey% plkey% p wm1
  51.   ╔ Ñplkey%
  52.   ╔ ▒:ckey% Transaction ref.TRANS
  53.   wm01
  54.  
  55. m25: ╜ Prev page
  56.   ífkey% pfkey% p wm1
  57.   ╔ Ñpfkey%
  58.   ¢i% 1 qfrow%
  59.   ╔ g
  60.   ▒i%
  61.  ckey% Transaction ref.TRANS
  62.   wm01
  63.  
  64. m26:  ╜ Exit
  65.   å £
  66.  ret% 1: ä"stkm"
  67.  
  68. s1: ╜ Displays page of records starting with ckey$
  69.  ╜ Returns first and last keys and number of records for page
  70.   ü £
  71.   ╔ Ñckey%
  72.  pfkey% Transaction ref.TRANS
  73.   ¢i% 1 qfrow%
  74.  ═ £ "i%
  75.  íTransaction ref.TRANS lkey% p ws11
  76.  íi% 
  77. frow% p ╔ ▒
  78.   ▒i%
  79.  
  80. s11: 
  81.  plkey% Transaction ref.TRANS
  82.   íi% frow% 1 plrec% frow% ^lrec% i%
  83.   ├
  84.  
  85. m99:  ╜ Error conditions
  86.   ┬ (( &),"Press OK to make another selection",1,a%
  87.   ía% 1 p wm1 
  88.   Æ
  89.  
  90.  
  91.