home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / INVENTRY / QRCNTRL.SBP < prev    next >
Encoding:
Text File  |  1989-08-27  |  2.5 KB  |  95 lines
  1. SBP
  2.   ╜ QRCNTRL  Control Updates, Reports  etc
  3.   å £
  4.  errpt% 1: ╜ set error handler parameter to return to top
  5.  
  6.   │ _ werrt
  7.  
  8.   ╜ *************** qr% controls Update, Query or Report ********
  9.   ╜ *************** qr% =-1 >>>> Updates ********
  10.   ╜ *************** qr% = 0 >>>> Queries ********
  11.   ╜ *************** qr% = 1 >>>> Reports ********
  12.  
  13.  
  14. a:  │qr% 2 wgetupd,getquery,getrep: ╜ *** branch *
  15. getout:  ¿"stkcntrl"
  16.  
  17.  
  18. getupd:  ╜ ****** control UPDATES *******************
  19.  
  20.  errpt% 1: ╜ set error handler parameter to resume here
  21.  
  22.   ┬"Select an UPDATE","<CANCEL> for a new one",15,a%,a$
  23.   ía% 0 pqe% 1:qa$ "": ░ ═: wedu
  24.   ¿ ═a$
  25.  
  26.   ╜ ************* strip name down to exclude path *****
  27.  ql%  /(a$) 9
  28.  qi%  ?(ql%,a$,"\"):qa$  ,(a$,qi% 1)
  29.  
  30.   ┬"Edit Update Before Running?","",1,qe%
  31. edu:  íqe% p É ═
  32.  
  33.  errpt% 0: ╜ set error handler parameter to exit
  34.   ═
  35. saveu:  íqe% p ┬"Save This Modified Update?","",1,sq%
  36.   ísq% 0 p wnotheru
  37.   ┬"Enter Update Name","",15,a%,qa$: ía% 0 p wnotheru
  38.   í J(qa$ ".sbu") p ┬qa$ ".SBU Exists","Replace It?"1,a%
  39.   ía% p ┼ ═qa$ ^ wsaveu
  40.  
  41. notheru:  ┬"Another Update?","<CANCEL> to return to Menu",1,a%
  42.   ía% p wgetupd
  43.   wgetout
  44.  
  45.  
  46. getquery:  ╜ ****** control QUERIES *******************
  47.  
  48.  errpt% 1: ╜ set error handler parameter to resume here
  49.  
  50.   ┬"Select a Query","<CANCEL> for a new one",14,a%,a$
  51.   ía% 0 pqe% 1:qa$ "": ░ i: wedq
  52.   ¿ ia$
  53.  
  54.   ╜ ************* strip name down to exclude path *****
  55.  ql%  /(a$) 9
  56.  qi%  ?(ql%,a$,"\"):qa$  ,(a$,qi% 1)
  57.  
  58.   ┬"Edit Query Before Running?","",1,qe%
  59. edq:  íqe% p É i
  60.  
  61.  errpt% 0: ╜ set error handler parameter to exit
  62.  
  63.   ┬"Output to Printer?","",1,a%
  64.   ía% p { i q h: Å; ^ { i
  65.   ╧ ¢3
  66. saveq:  íqe% p ┬"Save This Modified Query?","",1,sq%
  67.   ísq% 0 p wnotherq
  68.   ┬"Enter New Query Name","",14,a%,qa$: ía% 0 p wnotherq
  69.   í J(qa$ ".sbq") p ┬qa$ ".SBQ Exists","Replace It?"1,a%
  70.   ía% p ┼ iqa$ ^ wsaveq
  71.  
  72. notherq:  ┬"Another Query ?","<CANCEL> to return to Menu",1,a%
  73.   ía% p wgetquery
  74.   wgetout
  75.  
  76. getrep:  ╜ ******** select report **********************
  77.   ╜ ***** set up requester for report progs only *******
  78.  
  79.  a$ "rep*.sbp"
  80.  
  81.   ┬"Select Report","<CANCEL> to return to Menu",18,a%,a$
  82.  
  83.   ía% 0 p wgetout
  84.   äa$
  85.   Æ
  86. errt:  íerrpt% 1   & 11 p ya: ╜ handle cancel from update and query requesters
  87.   íerrpt% 0   & 11 p ygetout: ╜ any other stop goes back to menu
  88.  
  89.  
  90.   ┬"ERROR"  ( &,"9999"), (( &),2,a%: ╜ report other errors then to menu
  91.   ygetout
  92.  
  93.  
  94.  
  95.