|
Howard: On Thu, 17 January 2002, "Weatherly, Howard" wrote: > I want to look into the QREXXQ API, Coincidentally, I looked into QREXQ a while back and used a simple random number function while testing. REXX and CL follows: /********************************************************/ /* Procedure: REXXQ - Send stuff to REXX external queue */ /********************************************************/ /* Generate a 5 digit random number */ RN=RANDOM(0,99999) /* Push the result onto the REXX external data queue */ PUSH FORMAT(RN,5,0) exit and: pgm dcl &Func *char 1 value( 'P' ) dcl &Buff *char 256 dcl &BuffLen *char 4 value( X'00000100' ) dcl &Flag *char 2 value( X'0000' ) dcl &RtnCde *char 2 value( X'0000' ) /* Start the REXX procedure */ strrexprc srcmbr( REXXQ ) srcfile( MyLib/QREXSRC ) /* Pull the result from the REXX data queue */ call QREXQ ( + &Func + &Buff + &BuffLen + &Flag + &RtnCde + ) dmpclpgm endpgm >From those, you should be able to figure the rest. Tom Liotta -- Tom Liotta The PowerTech Group, Inc. 19426 68th Avenue South Kent, WA 98032 Phone 253-872-7788 Fax 253-872-7904 http://www.400Security.com ___________________________________________________ The ALL NEW CS2000 from CompuServe Better! Faster! More Powerful! 250 FREE hours! Sign-on Now! http://www.compuserve.com/trycsrv/cs2000/webmail/
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.