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.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.