× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



That reminded me of this gem from midrange computing<rip>

/* CRTCMD CMD(XCALC)                      */
/*       PGM(*REXX)                       */
/*       SRCFILE(library/QCMDSRC)         */
/*       SRCMBR(XCALC)                    */
/*       REXSRCFILE(library/QREXSRC)      */
/*       REXSRCMBR(XCALC)                 */

              CMD        PROMPT('Expression Calculator')
              PARM       KWD(EXP) +
                         TYPE(*CHAR) +
                         LEN(128) +
                         MIN(1) +
                         PROMPT('Mathmatical expression')



/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/*                     Expression Calculator                     */
/* _____________________________________________________________ */
/*                                                               */
/*  Yet another *FREEWARE* utility from Prime Suspect Software,  */
/*        creating slightly above average products for the       */
/*                enlightened masses since 1982.                 */
/* _____________________________________________________________ */
/*                                                               */
/*  REXX Program Name... XCALC                                   */
/*  Programmer.......... Matt Sargent                            */
/*  Internet Address.... M.SARGENT@GENIE.GEIS.COM                */
/*                                                               */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
signal on syntax
parse arg string
parse value space(string) with "'"expression"'"
interpret 'answer =' expression
answer = strip(expression) '=' answer
'SNDPGMMSG MSG(&answer)'
exit
syntax:
  syntaxerr = errortext(rc)
  'SNDPGMMSG MSG(&syntaxerr)'

======================================

There also was a help uim screen, but I could not find the source (looking
for tapes...)
Here is part of the Rexx reference
http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/qbkauv00/4.3

some of the neat built in functions:
d2x() is the REXX function to convert Decimal to heXdecimal.  The
data conversions available in the AS400 implementation of REXX are:
b2x()  binary    to hex
x2b()  hex       to binary
c2d()  character to decimal     (EBCDIC)
d2c()  decimal   to character   (EBCDIC)
c2x()  character to hex         (EBCDIC)
x2c()  hex       to character   (EBCDIC)
d2x()  decimal   to hex
x2d()  hex       to decimal
Mixed conversion functions are also supported.  For example, to
multiply hexdecimal 8F times decimal 19 and receive the answer in
hexdecimal format, enter the following:
XCALC 'd2x(x2d(8F) * 19)'
which will return the completion message:
d2x(x2d(8F) * 19) = A9D


-------------------------
 Bryan Dietz
3X Corporation
=====================================================================

From: "Norbut, Jim" <Jim.Norbut@Grubb-Ellis.com>
> I thought there was a shareware program out
> there somewhere that would let my brain cpu
> cycles not get so taxed.





As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.