Re: Web apps on the AS/400

on my 150 box it takes (with full optimization)
twice as long as the MI-version 2.5 secs versus 1.3
Now, let's see a C, C++, and Java version
COBOL anybody?

----- Original Message -----
From: <Ken.Slaugh@cm-inc.com>
To: <MIDRANGE-L@midrange.com>
Sent: Sunday, March 18, 2001 10:25 PM
Subject: Re: Web apps on the AS/400


>
> Leif
>
>      Any idea how much slower this would be in RPG?
>
> d TheString       s             50
> d TheShorter      s             50    inz('TEST STRING')
> d Nbr             s              6s 0
>
> c                   do        100000        Nbr
> c                   evalr     TheString = %trim(TheShorter)
> c                   enddo
>
> c                   return
>
>
> Ken Slaugh  (707) 795-1512 x118
> Chouinard & Myhre, Inc.
> AS/400 Professional Administrator/MSE
> Client Access Specialist
> http://www.cm-inc.com/
>
>
>
>                     "Leif Svalgaard"
>                     <leif@leif.org>            To:
<MIDRANGE-L@midrange.com>
>                     Sent by:                   cc:
>                     owner-midrange-l@mi        Subject:     Re: Web apps on
the AS/400
>                     drange.com
>
>
>                     03/18/01 06:20 PM
>                     Please respond to
>                     MIDRANGE-L
>
>
>
>
>
> From: Leif Svalgaard <leif@leif.org>
> > From: Nathan M. Andelin <nathanma@haaga.com>
> > > >Java is better for vector and string manipulation than RPG...
> > > I don't disagree with the above statement.  It's just that it's ealily
> > > remedied
> >
> > These blanket statements are hard to accept at face value.
> > The only way to verify this is to solve the same string problem
> > in different languages and them to time the following things:
> > 1) how long did it take to solve the problem
> > 2) how fast does it run. (do it 100,000 times)
> >
> > So here is a sample problem:
> >
> > Given a string of length 50, move a shorter string to it,
> > e.g. "test string", finally right-justify the string, so that it
> > now holds:
> > "                                       test string"
> > The shorter string is not known at compile time.
> >
> > Once we have a solution to that in several languages
> > we can make meaningful comparisons. If the language
> > or a subroutine library already has a function that solves
> > the problem, you are not allowed to use it.
> > This later restriction is somewhat dubious: imagine
> > you had a language that had a built-in solution to
> > every problem your are likely to encounter, it is
> > hard to disqualify using it.
> >
>
> Here is one solution (in MI on a 150 box):
> time to write: 4 min
> time to run 100,000 times through the loop: 1.3 secs
> code:
> DCL DD THE-STRING  CHAR(50);
> DCL DD THE-SHORTER CHAR(50);
> DCL DD SIZE  BIN(2);
> DCL DD START BIN(2);
> DCL DD NBR   BIN(4);
>     CPYBLAP     THE-SHORTER, "TEST STRING", " ";
>     CPYNV       NBR, 100000;
> AGAIN:
>     TRIML       SIZE,  THE-SHORTER, " ";
>     CMPNV(B)    SIZE,  0/HI(=+2);
>     CPYNV       SIZE,  50;:
>     SUBN        START, 51, SIZE;
>     CPYBRAP     THE-STRING (START:SIZE), THE-SHORTER, " ";
>     SUBN(SB)    NBR, 1/POS(AGAIN);
>
>     RTX      *;
>
>
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>
>
>
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---