That's because it is a stem rather than a var. stems hold multiple variables in
lines.1 lines.2 etc. lines.0 holds the number of lines. set. so
say lines
should be
do i = 1 to lines.0
say lines.i
end
Bob Bates
Enterprise Hosting Services
w. (469)892-6660
c. (214) 907-5071
"This message may contain confidential and/or privileged information. If you
are not the addressee or authorized to receive this for the addressee, you must
not use, copy, disclose, or take any action based on this message or any
information herein. If you have received this message in error, please advise
the sender immediately by reply e-mail and delete this message. Thank you for
your cooperation."
________________________________
From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf
Of Sergio Lima
Sent: Wednesday, May 12, 2010 9:15 AM
To: [email protected]
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: [email protected]
Subject: Re: Question About File RDR
To: [email protected]
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
<[email protected]<mailto:[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<mailto:[email protected]>.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:->
