If you really wanted to get fancy with it, you could execute the
SENDFILE from within the same Pipe:
"PIPE <" fn ft fm "locate /INVALID/ | >" fn "INVALID A3 | hole | append
literal" fn 'INVALID A3 | state nodetails | spec /EXEC SENDFILE/1 w1.3
nw /"userid"/ nw | command"
By making the filemode A3, the file will be erased after it is sent, so
two rocks are killed by one bird. The STATE stage will prevent
attempting to send a file that does not exist. If you do not care
whether or not SENDFILE results in error messages when the file does not
exist, all stages beginning with the "append literal" stage can be
replaced with one stage, "append command EXEC SENDFILE' fn 'INVALID A3'
userid"
"PIPE <" fn ft fm "locate /INVALID/ | >" fn "INVALID A3 | hole | append
command EXEC SENDFILE" fn 'INVALID A3" userid
Regards,
Richard Schuh
________________________________
From: The IBM z/VM Operating System
[mailto:[EMAIL PROTECTED] On Behalf Of Colin Allinson
Sent: Tuesday, April 15, 2008 7:17 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: REXX Queue function
Tim Joyce <[EMAIL PROTECTED]> wrote :-
> I have a question about the QUEUE function in REXX. I created
an exec that uses the QUEUE function to
> XEDIT the operator log issue a "ALL / INVALID" and put the
results into a file:
> Queue "XEDIT "FN FT FM
> Queue "ALL /INVALID"
> Queue "SET SHADOW OFF"
> Queue "PUT * = INVALID A1"
> Queue "QQ"
Why not try the simpler :-
"PIPE <" Fn Ft Fm "| LOCATE /INVALID/ | >" fn "INVALID A1"
Colin Allinson
Amadeus Data Processing GmbH
