No - just add to the spec and parse: 'PIPE CP Q RDR * ALL | DROP FIRST | SPECS W1 1 W10 NW | VAR OUT' Parse VAR out spoolid filename .
The specs say: put word 1 at position 1 of the output. Put word 10 as the next word of the output. So the variable OUT now contains two words. Scott Rohling On Wed, May 12, 2010 at 7:53 AM, Sergio Lima <[email protected]>wrote: > Hello, > > Very good, is working ... > > If We need get other fields, like the number of the file, I need put 2 > specs command ? > > Thanks > > Sergio > > ------------------------------ > Date: Wed, 12 May 2010 07:50:14 -0600 > From: [email protected] > > Subject: Re: Question About File RDR > To: [email protected] > > Put a double quote ( " ) in front of PIPE --- the whole PIPE command > needs to be contained within either double or single quotes. > > Scott Rohling > > On Wed, May 12, 2010 at 7:47 AM, Sergio Lima <[email protected]>wrote: > > Hello, > > First, thanks very much from your help, but may be I do some mistake here, > my REXX now is : > > /* > */ > TRACE > R > DO > FOREVER > 'WAKEUP (RDR > ' > > > IF RC = 4 THEN > DO > /* "CP Q R * ALL" > */ > PIPE CP Q RDR ALL | drop 1 | take 1 | specs w 10 1 | var $name > tracking" > > When try run received this : > > > 3 *-* DO > FOREVER > 4 *-* 'WAKEUP (RDR > ' > >>> "WAKEUP (RDR > " > +++ RC(4) > +++ > 6 *-* IF RC = > 4 > >>> > "1" > *-* > THEN > *-* > DO > 7 *-* /* "CP Q R * ALL" > */ > 8 +++ > ? > DMSREX460E Error 13 running EXPLIST EXEC, line 8: Invalid character in > program > > > Thanks, > > Sergio > > ------------------------------ > Date: Wed, 12 May 2010 09:41:58 -0400 > From: [email protected] > Subject: Re: Question About File RDR > > To: [email protected] > > “PIPE CP Q RDR ALL | drop 1 | take 1 | specs w 10 1 | var $name tracking > “ > > This may work. > > ____________________ > Jim Hughes > 603-271-5586 > "It is fun to do the impossible." > ------------------------------ > *From:* The IBM z/VM Operating System [mailto:[email protected]] *On > Behalf Of *Sergio Lima > *Sent:* Wednesday, May 12, 2010 9:35 AM > *To:* [email protected] > *Subject:* Question About File RDR > > > Hello List, > > I need do a REXX here, and unfortunatelly I forgot how do something. > > The REXX is very easy, and is like this : > > 3 *-* DO > FOREVER > 4 *-* 'WAKEUP (RDR > ' > >>> "WAKEUP (RDR > " > +++ RC(4) > +++ > 6 *-* IF RC = > 4 > >>> > "1" > *-* > THEN > *-* > DO > 7 *-* "CP Q R * > ALL" > >>> "CP Q R * > ALL" > ORIGINID FILE CLASS RECORDS CPY HOLD DATE TIME NAME TYPE > DIST > SUPCICS 0001 A PRT 00000060 001 NONE 05/12 10:23:29 EXPLIST 10885 > SANZ > 8 *-* pull . . . . . . . . . FILENAME > > What I need, is get the field number 10 showed above (EXPLIST), and is not > a PULL rexx command. > > Sorry about ask this very easy question, but really don't have anybody here > that know this. > > Thanks very much, > > > *Sérgio Lima Costa* > > *sergio.co...@*grvsolutions <[email protected]>*.com.br* > > > *Arquitetura e Suporte * > > GRV Solutions > > Tel.: +55 (11) 4152-9398 > > www.grvsolutions.com.br > > > > ------------------------------ > EM 2009 ACONTECERAM 250.362 FRAUDES NA INTERNET. CLIQUE PARA LER DICAS DE > SEGURANÇA.<http://www.microsoft.com/brasil/windows/internet-explorer/features/navegue.aspx?tabid=1&catid=1&WT.mc_id=1565> > > ------------------------------ > QUER NAVERGAR COM MAIS SEGURANÇA? VEJA AS DICAS DO INTERNET EXPLORER > 8.<http://www.microsoft.com/brasil/windows/internet-explorer/features/navegue.aspx?tabid=1&catid=1&WT.mc_id=1565> > > > > ------------------------------ > POR DIA 63.912 COMPUTADORES SÃO INFECTADOS POR VÍRUS. LEIA DICAS DE > SEGURANÇA.<http://www.microsoft.com/brasil/windows/internet-explorer/features/navegue.aspx?tabid=1&catid=1&WT.mc_id=1565> >
