home *** CD-ROM | disk | FTP | other *** search
/ ftp.robelle3000.ai 2014 / 2014.06.ftp.robelle3000.ai.tar / ftp.robelle3000.ai / newsletter / 1991 / w1991-06.txt < prev    next >
Text File  |  1994-04-12  |  22KB  |  537 lines

  1.  
  2.         What's Up DOCumentation
  3.  
  4.  
  5.  
  6.        Robelle Consulting Ltd.
  7.        Unit 201, 15399-102A Ave.
  8.        Surrey, B.C.  Canada  V3R 7K1
  9.        Phone:  (604) 582-1700
  10.        Fax:  (604) 582-1799
  11.  
  12. Date:  October 14, 1991
  13.  
  14. From:  Robert M. Green, CEO
  15.        David J. Greer, President
  16.        Michael Shumko, Customer Support
  17.  
  18. To:    Users of Robelle Software
  19.  
  20. Re:    News of the HP 3000, 1991 #6
  21.  
  22.      What You Will Find in This News Memo:
  23.  
  24.        News Tidbits
  25.        Technical Tips
  26.        About Robelle
  27.        Beware: This Is a Qedit Ad!
  28.        Robelle Products:  Problems, Solutions, and Suggestions
  29.        Fortune Cookie of the Month
  30.  
  31.  
  32.                                  News Tidbits
  33.  
  34. New Robelle Dealers.
  35.  
  36. Robelle Consulting Ltd. now has local representation in Asia.  We are happy to
  37. announce  our  two new dealers: Hewlong Information Corporation in Taiwan, and
  38. Unionrich Consultants Ltd. in Hong Kong.
  39.  
  40. Hewlong Information Corporation is the
  41.  
  42. premier HP VAD dealer in Taiwan, and is partially owned  by  Hewlett  Packard.
  43. The company name comes from combining HP with the name of one of the company's
  44. founders.  Bob Green, CEO of Robelle, cemented our relationship  with  Hewlong
  45. in  traditional Robelle fashion; he and the president of Hewlong, Mr. Ho, went
  46. to the opening of the first waterslide park in Taiwan.  You can reach  Hewlong
  47. Information  Corporation  at  +886 2 322 2166.  Ask for our contact there, Ms.
  48. Asta Chen.
  49.  
  50. Unionrich Consultants Ltd. of Hong Kong is a small and flexible
  51.  
  52. company of about  11  people,  rather  like  Robelle  itself.   The  marketing
  53. director,  Stewart Cheung, has lived in Canada and maintains numerous Canadian
  54. contacts.  Our contact there is Tim  Leung,  a  former  employee  of  Northern
  55. Telecom  in  Ontario.  Tim is also an experienced salesman of PowerHouse tools
  56. and can be reached at +852 892 0993.
  57.  
  58. Both companies represent Robelle's software  products,  Qedit,  Suprtool,  and
  59. Xpress.   Qedit is a full-screen text editor, Suprtool is a database tool, and
  60. Xpress is an electronic mail package.  Robelle's other dealers include  Co-Cam
  61. in  Australia, Samco in the Netherlands, Clive Oldfield in the UK, Ole Nord in
  62. Scandinavia, SWS  SoftWare  Systems  in  Germany,  Austria,  and  Switzerland,
  63. Synergy  in South Africa, and Ares in France.  Robelle's galactic headquarters
  64. is located near  Vancouver,  Canada,  and  markets  Robelle  products  to  all
  65. locations not listed above.
  66.  
  67. Review of Xpress Electronic Mail.
  68.  
  69. The  September  1991  issue  of  HP  Professional  has  a review of our Xpress
  70. electronic mail product.  If you're in the market  for  electronic  mail,  the
  71. article provides a good overview of Xpress.
  72.  
  73. New Object Oriented Database.
  74.  
  75. HP  is  announcing  "real soon now", possibly by the time you read this, a new
  76. object oriented database called Open-ODB, which will be available on HPUX  and
  77. MPE  XL.   Initially  it will run on the Allbase core, which is what HP SQL is
  78. built on, but it is designed to run on  top  of  other  relational  databases,
  79. e.g.,  Informix.  One of the features will be the ability to attach code to an
  80. object or a field, and store the code in the database.  For instance,  storing
  81. a  picture  as  an  object,  along will the code that manipulates the picture.
  82. Open-ODB has been in development since 1983 (under  the  code  name  Iris,  we
  83. think).
  84.  
  85.  
  86.                                 Technical Tips
  87.  
  88. MPE XL Can Leave Files Open.
  89.  
  90. The MPE XL Copy command can leave a file open if it has  trouble  closing  it.
  91. The only workaround is to logoff and logon again.  For example,
  92.  
  93.    copy foo.pub.sys,xyz
  94.  
  95. If  Xyz  exists,  Copy  will ask if it can purge it to replace it with the new
  96. file.  But if the group security is messed up, Copy may be able  to  open  the
  97. file but not close it.  In that case, the file will remain open by the Command
  98. Interpreter.  You must logoff to get the CI to release files it has open.   An
  99. example of messed-up group security would be
  100.  
  101.    altgroup pub;access=(r,x,l:any)
  102.  
  103. which, by not specifying the Write, Append and Save access modes, sets them to
  104. <null>.  This means that nobody but the account manager can  purge  or  create
  105. files in this group.  [Glenn Cole]
  106.  
  107. Not All DATs Are Created Equal.
  108.  
  109. One  of  our demo users inherited an interesting hardware configuration at his
  110. site.  He has a Micro XE with a Bering DAT drive (8mm, like HP, but more  tape
  111. per  cartridge).   He  can't  connect his reel-to-reel drive to the system any
  112. more.  The Bering drive was purchased  because  it  holds  2.5  gigabytes  and
  113. allows  unattended  backup.   He can't access any of his archived data on tape
  114. reels and he couldn't load his Suprtool demo, even though it came on  DAT  (it
  115. was  an  HP  Dat!).   He is exploring daisy chaining his old tape drive to the
  116. Bering drive.  In the meantime we sent him a Suprtool demo on diskette.
  117.  
  118. PCTOOLS Warning.
  119.  
  120. Users of the new PCTools version 7 beware.  Don't use the Compress function  -
  121. it  can  wipe  out  all  your  files!  The files cannot be retrieved using the
  122. PCTools undelete or MS-DOS 5 undelete functions, but  they  can  be  retrieved
  123. using  DR-DOS.   Central Point is shipping updates now to all registered users
  124. of PCTools 7.  [Ray Kelley]
  125.  
  126. DR-DOS.
  127.  
  128. One of DR-DOS's features is that it configures DOS for you.  Most people don't
  129. have any clue what all that stuff in Autoexec.Bat and Config.Sys does.  DR-DOS
  130. can configure it for you, and tell you all about it while it  does  it.   [Ray
  131. Kelley]
  132.  
  133.  
  134.                                 About Robelle
  135.  
  136. UK Conference.
  137.  
  138. Clive Oldfield, our dealer in the UK, will be exhibiting the  fine  family  of
  139. Robelle  products  at  Forum/HP,  being held at the NOVOTEL Exhibition Centre,
  140. Hammersmith, London on the 30th and 31st of October.
  141.  
  142. Mr. LaserJet Speaks.
  143.  
  144. Our own Ken Robertson, aka Mr. LaserJet, will be giving a talk called LaserJet
  145. Lustre  -  Making  Your  HP  3000 Reports Shine at the Mississauga, Ontario HP
  146. office on November 12th.
  147.  
  148.  
  149.                          Beware: This Is a Qedit Ad!
  150.  
  151.       The  following  letter  was sent by Vesoft to their customers.  We
  152.       like it so much we're reprinting it here for the  benefit  of  our
  153.       customers  who  may  not yet have Qedit, or who may have forgotten
  154.       about some of Qedit's powerful features.
  155.  
  156. Dear MPEX, SECURITY, and/or VEAUDIT users:
  157.  
  158. We know that as a VESOFT customer,  you  appreciate  the  value  of  flexible,
  159. well-designed tools.  We'd like to take this opportunity to tell you about one
  160. of the most useful tools available on MPE systems (one  that  we  use  heavily
  161. here at VESOFT): QEDIT, by Robelle Consulting Ltd.
  162.  
  163. QEDIT  provides  so many advantages to EDITOR/3000 that it would take hundreds
  164. of pages to describe them all; however, it still manages to be incredibly easy
  165. to  use.   For example, to list all of the lines in your file that contain the
  166. string "procedure", you simply say:
  167.  
  168.    /LIST "PROCEDURE"     or     /L "PROCEDURE"
  169.  
  170. (Most  commands will be abbreviated throughout the rest of this letter.) Think
  171. some of them might be in lowercase?  Try:
  172.  
  173.    /L "PROCEDURE" (U)
  174.  
  175. (The  "U"  means  "Upshift").   Want  to delete all the lines that contain the
  176. string "SYS"?  Just say:
  177.  
  178.    /D "SYS"
  179.  
  180. And  to  modify  all  of the lines that contain the string "RUN", you just say
  181. (you guessed it):
  182.  
  183.    /M "RUN"
  184.  
  185. Don't  be  fooled by the fact that the Modify command has the same name as the
  186. EDITOR/3000 Modify command -- it is much more powerful.   In  fact  (not  even
  187. counting  the  full-screen visual mode), there are three different ways to use
  188. the Modify command:
  189.  
  190. 1) you can use the normal EDITOR/3000-like D-I-R-U edits (but there is no good
  191.    reason to do so);
  192.  
  193. 2) you  can  use Control codes (e.g., type control-D under the first character
  194.    to delete, then space over until  you  are  under  the  last  character  to
  195.    delete);
  196.  
  197. 3) (the  best way) you can use the visual-line-mode editing (called QZMODIFY),
  198.    which is quite similar to VESOFT's VEMODIFY (but  with  a  number  of  very
  199.    useful enhancements)!
  200.  
  201. Want  a  full-screen  editor?  QEDIT's visual mode takes full advantage of the
  202. capabilities of HP terminals (and, of course, emulators  like  Reflection  and
  203. AdvanceLink)  to  give  you the best in full-screen editing on the HP3000.  It
  204. will even use 132-column mode if your terminal supports it.
  205.  
  206. In full-screen mode, you can cut and paste marked blocks of text.  Since we do
  207. a  lot  of document editing here (have you seen our 600+ page reference manual
  208. lately?), this has been a great time-saving feature.  You simply type "MM" (to
  209. move)  or  "CC" (to copy), or even "DD" (to delete) next to the first and last
  210. line of the block you want to move, copy, or delete, and  press  ENTER.   Then
  211. you  type  "B"  for "Before" or "A" for "After" next to the destination of the
  212. move or copy, and press ENTER.  Voila! You can also enter  any  commands  that
  213. you  can  enter  in line mode (this includes QEDIT and MPE commands, UDCs, and
  214. MPEX commands!).
  215.  
  216. The "List" command lets you list a file (kind of obvious).  But, not just  the
  217. file you are currently working on: you can type:
  218.  
  219.    /LJ MYPROGB
  220.  
  221. to take a quick look at the file MYPROGB while you  are  working  on  MYPROGA!
  222. What  does  the "J" mean in "LJ"?  It stands for List Jump, which simply means
  223. pause at the end of each screenfull until you press RETURN.  No more trying to
  224. hit CTRL-S/CTRL-Q over and over.
  225.  
  226. Do  you  have  a  LaserJet?   Want  to  print  your  source  listings  in  two
  227. 80-character columns per page?  You know the LaserJet will do it, but  (unless
  228. you  buy some expensive third-party formatting software), you can't do it from
  229. MPE.  Well, QEDIT can!  Just say:
  230.  
  231.    /SET LIST PCL10
  232.    /L $LP MYPROG.SOURCE
  233.  
  234. ("$LP" means list to the line printer.) Even better, try this:
  235.  
  236.    /SET LIST PCL10
  237.    /L $LP $INCLUDE MYPROG.SOURCE
  238.  
  239. This lists not only the file MYPROG.SOURCE, but any $INCLUDE  files  (embedded
  240. in the listing where the $INCLUDE line is).  Very handy.
  241.  
  242. COBOL  programmers  who use COPYLIBs instead of $INCLUDEs will be glad to know
  243. there is a way to list and  modify  COPYLIB  members  without  having  to  run
  244. COBEDIT:
  245.  
  246.    /L (custrec) COPYLIB.TEST.DEVELOP
  247.  
  248. There are a lot of other great features for COBOL programmers,  but  since  we
  249. don't program in COBOL here, we don't know all of them.
  250.  
  251. QEDIT  can  work  with  "flat"  files  through  its "Text" and "Keep" commands
  252. (which, like EDITOR/3000, make a copy of the file you want to work on  --  but
  253. QEDIT  uses  MR  NOBUF  and so is much faster), or you can convert your source
  254. files to QEDIT format (using MPEX, of course!)@ QEDIT  format  files  take  up
  255. less  disc space, and within QEDIT you can "Open" and "Shut" them (much faster
  256. than "Text" and "Keep" because QEDIT doesn't make a copy of the file).   QEDIT
  257. provides  a  facility  that enables your compilers to read QEDIT-format source
  258. files.
  259.  
  260. System managers note: if you "HOOK" QEDIT (via the MPEXHOOK facility), you can
  261. actually "/KEEP" files into other accounts.  Re-logging on as MANAGER.SECURITY
  262. to make changes to the SECURCON, TERMCON,  LOGOFF,  or  STREAMX  configuration
  263. files is a thing of the past!
  264.  
  265. VESOFT  tech  support  and development consists of several fairly opinionated,
  266. independent people.  One of the blessings  of  QEDIT  is  that  it  is  highly
  267. customizable.   Each of us has it configured to work in a different way within
  268. our own sessions (and each of us is absolutely positive that OUR  way  is  the
  269. best,  most  efficient,  most reliable, etc.!).  I won't go into details about
  270. what particular things can be changed, but the "/SET" command (which  you  use
  271. to  make  most  configuration  changes) has more than 75 options...  Sound too
  272. complicated?  Don't worry about it, all of the defaults provide a good working
  273. environment, too!
  274.  
  275. Since  you can do virtually anything within QEDIT that you can do from the MPE
  276. ":" prompt, including UDCs, MPE/XL command files, and all  MPEX  commands  (by
  277. preceding them with a "%") most of us actually "live" in QEDIT all day.
  278.  
  279. Finally,  one  of  the greatest benefits of buying any Robelle product is that
  280. you  get  a  "free  subscription"  to  the  Robelle  newsletter   "What's   Up
  281. DOCumentation?",  one  of  the  best  sources of information, tips, ideas, and
  282. opinions about the HP3000 world  in  general  (it's  not  just  about  Robelle
  283. products).   Instead  of  the long articles you never get around to reading in
  284. "Interact", "SuperGroup", "HP Professional", and "HP Chronicle", you get short
  285. (usually 1 paragraph) nuggets of golden information (sorry about that pun).
  286.  
  287. We  at  VESOFT  would  hate  to  have  to work on an HP3000 without QEDIT.  We
  288. frequently have to dial-in to sites that don't have it, and are forced to  try
  289. and  do  things  with  EDITOR/3000,  MPE's  equivalent to MS DOS's "wonderful"
  290. EDLIN.  If you're still suffering this agony, why  not  give  Robelle  a  call
  291. (604-582-1700)  or  fax (604-582-1799) and ask for a free demo?  You'll wonder
  292. how you've lived without it!
  293.  
  294. Michael D.  Hensley, VESOFT Technical Support
  295.  
  296. P.S. Sneak  preview:  I'm not allowed to tell you what new features are in the
  297.      next release, but we've been beta-testing  it  and  it  has  some  really
  298.      fantastic stuff in it!
  299.  
  300.  
  301.            Robelle Products:  Problems, Solutions, and Suggestions
  302.  
  303. Qedit Version 3.9.1.
  304.  
  305. A Command File.
  306.  
  307. One of our users called to tell us about a UDC he had put together to  load  a
  308. message  into  a  file along with a timestamp.  This is used to log job status
  309. messages.  The UDC does a showjob, which includes the date and  time,  into  a
  310. temporary  file.   Then  it  runs Qedit to massage the temporary file into one
  311. line with the text he wants to log.  Finally  it  runs  Fcopy  to  append  the
  312. resulting file to a permanent message log.
  313.  
  314.    appmsg p1
  315.    purge x,temp
  316.    file x;rec=-80,16,f,ascii;nocctl;temp
  317.    showjob exec;*x
  318.    reset x
  319.    run qedit.pub.robelle;parm=128;&
  320.      info="t x;dq 2/last;cq 30/80,'!p1',first;k,y"
  321.    file msg=msglog;acc=append
  322.    fcopy from=x;to=*msg
  323.    reset msg
  324.    ***
  325.  
  326. It would be invoked in a job like this:
  327.  
  328.    !appmsg "MM020 job successful"
  329. which would append to the Msglog file the message:
  330.  
  331.    THU, OCT 10, 1991,  7:23 PM  MM020 job successful
  332.  
  333. On MPE XL the whole UDC could be replaced by a much simpler command file:
  334.  
  335.    parm p1
  336.    file msg=msglog,old
  337.    echo !hpdatef, !hptimef  !p1 >>*msg
  338.    reset msg
  339.  
  340. Help!  I Typed CI!
  341.  
  342. If you make a typo and accidentally type CI instead of VI when you want to get
  343. into Visual mode, a new copy of the MPE XL Command Interpreter (CI) is started
  344. inside  Qedit,  and you end up at the MPE prompt.  This can be very confusing,
  345. especially since it looks just like you pressed Break.  What happens  is  that
  346. "CI"  is  interpreted  by  Qedit  as  an implied :run command because there is
  347. program called CI.PUB.SYS, which is the MPE XL command  interpreter.   To  get
  348. back  to Qedit, do not run Qedit again.  The correct thing to do at that point
  349. is to type EXIT or a colon, which will get you out  of  the  CI  and  back  to
  350. Qedit.   (To  check  to see if you are in this second command interpreter, you
  351. can SHOWVAR HPCIDEPTH.  If you ran Qedit from the MPE prompt, this value  will
  352. now  be  2.)   This  weird situation can be avoided by doing what we did here:
  353. create a command file called CI which doesn't do anything.  Then when you type
  354. CI,  instead  of starting a new command interpreter, Qedit will simply execute
  355. the command file.  We coded the CI command file to do the following:
  356.  
  357.    parm p1=" ",p2=" ",p3=" "
  358.    echo You typed CI.  Possibly you typed this accidentally,
  359.    echo and really meant to type VI.  If you really want to
  360.    echo execute the Command Interpreter, type CI.PUB.SYS.
  361.  
  362. MPEX Listf,Qedit.
  363.  
  364. VESOFT has written an MPEX %LISTF format for Qedit  files.   It  displays  the
  365. record  length,  language, number of lines, number of blocks, percentage full,
  366. and disc space utilization statistics:
  367.  
  368.      /%listf q ,qedit
  369.                             MPEX %LISTF q    PAGE 1
  370.                JIM,MGR.TECHSUP,JIM   MON, JUL  8, 1991,  7:54 AM
  371.  
  372.      ACCOUNT=  TECHSUP     GROUP=  JIM
  373.  
  374.      FILENAME  ---LOGICAL RECORD---   -------BLOCKS-------   ----SPACE----
  375.                 SIZE   TYPE   LINES    USED    MAX   %FULL   SECTORS X MX
  376.  
  377.      QACC        72B   SPL       97       7    401    1.7%        32  2 27
  378.      QBENCH1    256B   TEXT      20       4     34   11.8%        32  1  3
  379.      QBENCH2     80B   JOB       33       5     41   12.2%        16  1  3
  380.      QBENCH3     80B   JOB       83      12     41   29.3%        32  2  3
  381.      QCOMPXL     72B   PASC    1640     106    641   16.5%       224  8 31
  382.      QCOPYD36    80B   JOB     1541     132    271   48.7%       272  3 19
  383.      QEDITMGR    72B   SPL       14       1    401    0.2%        16  1 27
  384.      QWORK       74B   COBX     443      32    283   11.3%        80  3 20
  385.  
  386.      GROUP    TOTAL:     8 FILES                                704 SECTORS
  387.  
  388. Because  most  of  this information is stored in userlabels in the Qedit file,
  389. the %LISTF program must Fopen  each  file,  which  unfortunately  changes  the
  390. access date and time.  Vesoft expects to fix this in the next MPEX release.
  391.  
  392. %LISTF,QEDIT  is  available  on  VESOFT's VECSL tape, along with lots of other
  393. goodies, for a nominal charge.
  394.  
  395. Suprtool Version 3.3
  396.  
  397. Calling Suprtool2 from Transact.
  398.  
  399. In the Calling Suprtool manual we include an example of how to call  Suprtool2
  400. from  a  Transact program.  The example uses a version 2 workspace definition.
  401. Here is a new example by Mike Parker at Arcadian Corporation that shows how to
  402. call  Suprtool2  from Transact using the latest workspace definition.  It also
  403. shows how to use Suprtool's Total function to return totals  to  the  Transact
  404. program:
  405.  
  406. SYSTEM SUPREX;
  407.  
  408. SET(OPTION) NOHEAD;
  409. DEFINE(ITEM) SUPR-CONTROL    X (582):
  410.              SUPR-VERSION    I (4,0,2) = SUPRCONTROL(1):
  411.              SUPR-STATUS     I (4,0,2) = SUPRCONTROL(3):
  412.              SUPR-CMD        X (256)   = SUPRCONTROL(5):
  413.              SUPR-PRI        X (2)     = SUPRCONTROL(261):
  414.              SUPR-MAXDATA    I (9,0,4) = SUPRCONTROL(263):
  415.              SUPR-PRINT      X (2)     = SUPRCONTROL(267):
  416.              SUPR-TOT-TYPE   X (2)     = SUPRCONTROL(269):
  417.              SUPR-OTHER      X (18)    = SUPRCONTROL(271):
  418.              SUPR-TOTALS   15X (18)    = SUPRCONTROL(289):
  419.              SUPR-OUT-COUNT  I (9,0,4) = SUPRCONTROL(559):
  420.              SUPR-WORKSPACE  X (20)    = SUPRCONTROL(563):
  421.  
  422.              TOTAL-REDO      X (18):
  423.              TOTAL-NUM       9 (17)    = TOTAL-REDO(1):
  424.              TOTAL-SIGN      X (1)     = TOTAL-REDO(18):
  425.  
  426.              INT-TOTAL1      I (9,0,4),  EDIT = "^^^^^^^^^":
  427.              INT-TOTAL2      I (9,0,4),  EDIT = "^^^^^^^^^":
  428.              INT-GR-TOTAL    I (9,0,4),  EDIT = "^^^^^^^^^";
  429.  
  430. LIST SUPR-CONTROL:
  431.      TOTAL-REDO,             INIT:
  432.      INT-TOTAL1,             INIT:
  433.      INT-TOTAL2,             INIT:
  434.      INT-GR-TOTAL,           INIT;
  435.  
  436.      << Initialize Suprtool values >>
  437.  
  438. LET  (SUPR-VERSION) = 4;
  439. LET  (SUPR-STATUS) = 0;
  440. MOVE (SUPR-CMD) = " ";
  441. MOVE (SUPR-PRI) = " ";
  442. LET  (SUPR-MAXDATA) = 0;
  443. MOVE (SUPR-PRINT) = "ER";
  444. MOVE (SUPR-TOT-TYPE) = "CO";   << Use COBOL format to right justify >>
  445.                                << number and sign.                  >>
  446.                                << Transact data type 'X' MUST be    >>
  447.                                << used for SUPR-TOTALS array.  Type >>
  448.                                << '9' will allow positive values    >>
  449.                                << only and type 'Z' requires am     >>
  450.                                << overpunched sign.                 >>
  451.  
  452. MOVE (SUPR-OTHER) = " ";
  453. MOVE (SUPR-TOTALS) = " ";
  454. LET  (SUPR-OUT-COUNT) = 0;
  455. MOVE (SUPR-WORKSPACE) = " ";
  456.  
  457. MOVE (SUPR-CMD) = "BASE INVDB.DATABASE,5,READ";
  458. PERFORM CALL-SUPRTOOL2;
  459.  
  460. MOVE (SUPR-CMD) = "GET STOCK-DETAIL";
  461. PERFORM CALL-SUPRTOOL2;
  462.  
  463. MOVE (SUPR-CMD) = "EXTRACT STK-LOCATION(1), STK-NO, STK-QTY-ON-HAND";
  464. MOVE (SUPR-CMD) = (SUPR-CMD) + ",PHYSICAL-COUNT";
  465. PERFORM CALL-SUPRTOOL2;
  466.  
  467. MOVE (SUPR-CMD) = "TOTAL STK-QTY-ON-HAND";
  468. PERFORM CALL-SUPRTOOL2;
  469.  
  470. MOVE (SUPR-CMD) = "TOTAL PHYSICAL-COUNT";
  471. PERFORM CALL-SUPRTOOL2;
  472.  
  473. MOVE (SUPR-CMD) = "OUTPUT CYCLFILE,TEMP";
  474. PERFORM CALL-SUPRTOOL2;
  475.  
  476. MOVE (SUPR-CMD) = "EXIT";
  477. PERFORM CALL-SUPRTOOL2;
  478.  
  479. DISPLAY "SUPR-OUT-COUNT = ", LINE = 3: SUPR-OUT-COUNT, JOIN = 1,
  480.                              EDIT = "^^^^^^^^^";
  481.  
  482. MOVE (TOTAL-REDO) = (SUPR-TOTALS(1));        << Strip the sign >>
  483. IF (TOTAL-SIGN) = "-" THEN
  484.    LET (INT-TOTAL1) = (TOTAL-NUM) * -1
  485. ELSE
  486.    LET (INT-TOTAL1) = (TOTAL-NUM);
  487.  
  488. MOVE (TOTAL-REDO) = (SUPR-TOTALS(2));
  489. IF (TOTAL-SIGN) = "-" THEN
  490.    LET (INT-TOTAL2) = (TOTAL-NUM) * -1
  491. ELSE
  492.    LET (INT-TOTAL2) = (TOTAL-NUM);
  493.  
  494. LET (INT-GR-TOTAL) = (INT-TOTAL1) + (INT-TOTAL2);
  495.  
  496. DISPLAY "TOTAL STK-QTY-ON-HAND =", LINE = 2: INT-TOTAL1, JOIN = 1:
  497.         "TOTAL PHYSICAL-COUNT  =", LINE = 1: INT-TOTAL2, JOIN = 1:
  498.         "GRAND TOTAL           =", LINE = 1: INT-GR-TOTAL, JOIN = 1;
  499.  
  500. EXIT;
  501.  
  502. CALL-SUPRTOOL2:
  503.  
  504.   PROC SUPRTOOL2((SUPR-CONTROL));
  505.   IF (SUPR-STATUS) <> 0 THEN
  506.      DISPLAY "SUPRTOOL2 INTERFACE ERROR ", LINE = 2:
  507.              SUPR-STATUS, JOIN = 1:
  508.              SUPR-CMD, LINE = 1;
  509.   RETURN;
  510.  
  511. END SUPREX;
  512.  
  513. Cookie
  514.  
  515. Looking For Fortune Cookies.
  516.  
  517. The Cookie Monster wants you! At the  Boston  Interex  conference  last  year,
  518. someone  gave  us a tape with some `animated' fortune cookies.  At the time we
  519. didn't have a 6250 bpi tape drive, so we just put the tape  on  a  shelf.   We
  520. finally  got  a  6250 tape drive, but when we tried to load the cookie tape we
  521. discovered that the tape was  blank.   Either  it  got  zapped  going  through
  522. airport  security, or somebody here did a tapetest on it.  We ask that whoever
  523. submitted that tape to us send us another, please.  Thanks.
  524.  
  525.  
  526.    Fortune Cookie of the Month
  527.  
  528.    THREE PROPOSITIONS
  529.  
  530.    1. Software engineering is like looking for a black cat in a dark room.
  531.  
  532.    2. Systems engineering is like looking for a black cat in a dark room in
  533.       which there is no cat.
  534.  
  535.    3. Knowledge  engineering is like looking for a black cat in a dark room
  536.       where there is no cat and someone yells, "I got it!".
  537.