Howard -
This would be an excellent place to use a PIPE assuming that your using REXX.
You would not have to worry about specifying a buffer size.
/* * * * Format of Query RDR:
ORIGINID FILE CLASS RECORDS CPY HOLD DATE TIME NAME TYPE DIST
SMTP 4773 A PUN 00000092 001 NONE 06/04 22:02:07 OWNER-IB NOTE SRU
* * * */
'PIPE CP QUERY RDR ALL',
'| DROP FIRST 1', /* Drop header line */
'| STEM RDR.'
Do i = 1 to rdr.0 /* rdr.0 has line count */
Parse Var rdr.i origin spoolid class . . . . . fn ft .
/* Do something here */
End i
/Fran Hensler at Slippery Rock University of Pennsylvania USA for 46 years
mailto:f...@zvm.sru.edu http://zvm.sru.edu/~fjh +1.724.738.2153
"Yes, Virginia, there is a Slippery Rock"
--------------------------------------------------------------------------
On Thu, 4 Jun 2009 19:01:03 -0700 Howard Rifkind said:
>Thanks Neal, this is just about what I did only 'queue rdr all'
>
>--- On Thu, 6/4/09, Neal Scheffler <n...@chrysler.com> wrote:
>
>From: Neal Scheffler <n...@chrysler.com>
>Subject: Re: EXECIO COMMAND HELP
>To: IBMVM@LISTSERV.UARK.EDU
>Date: Thursday, June 4, 2009, 4:36 PM
>
>You might try something like this:
>
>'EXECIO * CP (BUFFER 65536 STRING QUERY RDR SYSTEM ALL'
>
>Neal Scheffler
>
>
