Re: Proposal for New RPG BIF

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

Just for fun ...

dcl-s blanks char(40) Inz;
dcl-s x char(30);
 
x = 'A' + %Left( blanks : 10 ) + 'B';


Jon P.

> On Jul 31, 2024, at 2:46 PM, Justin Taylor <jtaylor.0ab@xxxxxxxxx> wrote:
>
> I ran this completely unscientific comparison.
>
>      startTime = %timestamp();
>      For x = 1 to 1000;
>        gResult = '     ' +  BASE + '     ';
>      Endfor;
>      endTime = %timestamp();
>      charOut = %char( %diff(endTime :startTime :*ms) );
>      Dsply charOut;
>
>      startTime = %timestamp();
>      For x = 1 to 1000;
>        EXEC SQL  set :gResult = space(5) || :BASE || space(5);
>      Endfor;
>      endTime = %timestamp();
>      charOut = %char( %diff(endTime :startTime :*ms) );
>      Dsply charOut;
>
> Results for 2 runs:
> DSPLY  39
> DSPLY  12531
>
> DSPLY  63
> DSPLY  13600
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.