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



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.