Rexx/400 and CL was Encryption packages and Encryption Algorithm

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