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.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.
--
Mark Pace
Mainline Information Systems
1700 Summit Lake Drive
Tallahassee, FL. 32317
_________________________________________________________________
DEIXE SUAS CONVERSAS MAIS DIVERTIDAS. TRANSFORME AQUI SUAS FOTOS EM EMOTICONS,
É GRÁTIS.
http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline
