'PIPE CP QUERY RDR * ALL | DROP FIRST | SPECS w10 1 | STEM FILENAMES.' If rc <> 0 Then Return
Do i = 1 to filenames.0 filename = filenames.i /* do whatever here */ End This handles more than one file being in the reader too... Scott Rohling On Wed, May 12, 2010 at 7:34 AM, Sergio Lima <[email protected]>wrote: > > 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> >
