> -----Original Message-----
> Behalf Of Richard Troth
> Sent: Friday, March 21, 2003 2:49 PM
>
> > Dave Jones of Sine Nomine has written an EXEC that will do
> > just what you want, in the guest's CMS startup phase:
> > http://www.sinenomine.net/downloads/SWAPGEN.EXEC
>
> Mr. Nit Picky sez that Jones' EXEC does exactly the right thing.
> <snip>
> -- RMT
I humbly offer a minor code simplification/performance tweek to
SWAPGEN.EXEC. <ramble>It doesn't change the outcome one speck, and thus
probably isn't worth changing since it isn't an exec that's called a
zillion times a day. But it's all I've got to offer tonight - please
forgive if this is impertinent. In more frequently used code and/or
longer strings, this change would be more worthy of consideration.
Somewhat more consequential than my LCD-on-a-toaster idea.</ramble>
swap_blk = ''
do i = 1 to 1027
swap_blk = swap_blk || d2c(0)
end
can be replaced with...
swap_blk = left('',1027,'00'x) /* pad-->1027 */
and similarily:
do i = 1033 to 4086
swap_blk = swap_blk || d2c(0)
end
can be replaced with...
swap_blk = left(swap_blk,4086,'00'x) /* pad-->4086 */
And at this time of night, I haven't much self control, so I can't help
but offer...
swap_blk = ''
do i = 1 to 1027
swap_blk = swap_blk || d2c(0)
end
pages = trunc((blks * 512)/4096) - 1
swap_blk = swap_blk || d2c(1)
swap_blk = swap_blk || d2c(pages,4)
do i = 1033 to 4086
swap_blk = swap_blk || d2c(0)
end
swap_blk = swap_blk || sig
could be reduced (at great risk of obfuscation) to...
swap_blk = left(right('01'x || d2c(trunc((blks * 512)/4096) -
1,4),,
1032,'00'x),,
4086,'00'x) || sig
/* geez I hope I coded that right! */
-jcf
Code tweeked while-u-wait.
No charge for Rexx.
