If I understand what you want

'EXECIO * CP (STRING QUERY RDR * ALL STEM LINES.'

Then do loop through the stem lines.

On Wed, May 12, 2010 at 9:34 AM, Sergio Lima <sergiovm...@hotmail.com>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 <marcelo.quei...@grvsolutions.com.br>*.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>
>



-- 
Mark Pace
Mainline Information Systems
1700 Summit Lake Drive
Tallahassee, FL. 32317

Reply via email to