RE: Web apps on the AS/400

["Hall, Philip" <phall@xxxxxxxx>]

in ILE/C approx 20 min per pgm, submitted to batch on a 170...

> problem 1)
> 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.

String before : '                                                  '
len(50)
Before : 985035538.499776
After  : 985035538.878712
Diff   : 0.378936
String after  : '                                       test string'


> problem 2)
> Given a string char(50), replace all
> EMBEDDED spaces with underscores,
> but leave leading and trailing spaces alone.
> E.g. "     this is a test      "
> should become   "     this_is_a_test      "

String before : '                this is a test                    '
len(50)
Before : 985035524.11432
After  : 985035524.590832
Diff   : 0.476512
String after  : '                this_is_a_test                    '
+---
| 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
+---