RE: 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 ]
Thanks Simon,

That's exactly what I found about return, too big! But I did find a solution
that will work in this situation, 'SNDDTAQ DTAQ(HGR0093/RAND) ENTLEN(6)
ENTRY(&RNBR)' and then RCVDTAQ DTAQ(HGR0093/RAND) ENTLEN(&L) ENTRY(&MAXD) on
the outside. Odd about that RTNVAL(*YES), tried that as well to no avail!

In reality, that was mostly an exercise to reacquaint myself with Rexx and
getting my mind set to convert the VB program, I choose Rexx because I
figured there would be a better corollary with the VB program (which does
some very unusual things! and because here there is no other choice, the C
compiler while here is only used when all else fails!). Also there was the
added bonus of being able to see the results *now* vs. after a compile. I
think in the end I will make this a command since I can fake out returning
data to the outside world but I want to look into the QREXXQ API, I was sort
of taken back when I pushed data onto the Q and when the Rexx program ended
NADA! I expected to see a flood of useless error messages saying like *No
such command you idiot!* but nothing, guess the Queue data just goes off
into the bit bucket.

"
2/ Put the return value on the Rexx queue (using PUSH) and retrieve it
using the QREXQ API.

Since Rexx can be the CPP for a CL command it would be nice if we could
use RTNVAL(*YES) for the parameter and code something like:

CMD        PROMPT('Test Rexx Command')

PARM       KWD(RANDOM) TYPE(*CHAR) LEN(6) RTNVAL(*YES)

however RTNVAL(*YES) is not supported when Rexx is used as the CPP.
"