Rexx/400 and CL was Encryption packages and Encryption Algorithm

["Weatherly, Howard" <hweatherly@xxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
First, Thanks to all who had information on Encryption packages and / or
algorithms, all very useful info, unfortunately the way things go around
this place you feel like you doing the back stroke upstream in a whitewater
river.

The good folks in the security are decided (and probably wisely) that we
should use the same algorithm that is used on the web page, this means I
need to convert a VB program to speak AS/400!

This seems ok, so I decided to use CL and Rexx.

All of the examples in the books show me how to get variables into Rexx, but
either I am blind or brain-dead, but I can not get Rexx to pass a variable
back into the CL, here is what I am doing, a bit jumbled at the moment out
of frustration. How do I get the result back into the CL?


/*                 */
             PGM        PARM(&SEED) <-- Will eventually be the return from
the Rexx code.
             DCL        VAR(&SEED) TYPE(*CHAR) LEN(6)
             STRREXPRC  SRCMBR(RANDOM) SRCFILE(HGR0093/QREXSRC) +
                          PARM(&SEED)
             RETURN

/*                 */
trace ?r
ARG(SEED)
RNBR=SUBSTR(TIME(L),10,6)
SEED=RANDOM(RNBR)
RETURN SEED
exit