Replace "Say lines" with
Do i=1 to Lines.0 Say Lines.i End Frank M. Ramaekers Jr. ________________________________ From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Sergio Lima Sent: Wednesday, May 12, 2010 9:15 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Question About File RDR Hello Mark, Yes, you correct. This is like the "old" method that I used years ago. But still have a little problem, look please : 3 *-* DO FOREVER 4 *-* 'WAKEUP (RDR ' >>> "WAKEUP (RDR " +++ RC(4) +++ 6 *-* IF RC = 4 >>> "1" *-* THEN *-* DO 8 *-* 'EXECIO * CP (STRING QUERY RDR * ALL STEM LINES.' >>> "EXECIO * CP (STRING QUERY RDR * ALL STEM LINES." +++ RC(1003) +++ 10 *-* say lines >>> "LINES" LINES Can you help please ? Sergio ________________________________ Date: Wed, 12 May 2010 09:44:07 -0400 From: mpac...@gmail.com Subject: Re: Question About File RDR To: IBMVM@LISTSERV.UARK.EDU 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 <mailto:marcelo.quei...@grvsolutions.com.br> .com.br <http://com.br/> Arquitetura e Suporte GRV Solutions Tel.: +55 (11) 4152-9398 www.grvsolutions.com.br <http://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 ________________________________ USE O MESSENGER DENTRO DO HOTMAIL SEM PRECISAR INSTALAR NADA. CLIQUE PARA VER COMO. <http://www.windowslive.com.br/public/product.aspx/view/1?cname=webmessenger&ocid=Hotmail:MSN:Messenger:Tagline:1x1:webmessenger:-> _____________________________________________________ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@ailife.com.
