View previous topic :: View next topic
|
Author |
Message |
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
Hi,
Please advice whats wrong in my code, it is not writing in file.. But displaying
Code: |
/* REXX */
"ALLOC F(DDIN) DS('XXXX.SRCHFOR.LIST3') SHR REUSE"
"EXECIO * DISKR DDIN (FINIS STEM IN."
"FREE F(DDIN)"
I = 0
J = 1
DO I = 1 TO IN.0
IF POS("--------- STRING(S)",IN.I) > 0 THEN
DO
J = J + 1
E = WORD(IN.I,1)
END
IF WORD(IN.I,2) = 'MADHU' THEN
DO
E = E ' ' WORD(IN.I,3)
OU.J = E
SAY OU.J
END
END
"ALLOC F(DDOU) DS('XXXX.SRCHFOR.LIST5') SHR REUSE"
"EXECIO * DISKW DDOU (FINIS STEM OU."
"FREE F(DDOU)"
|
The above code has SAY statement which is displaying the output while execution but when i check the output file, i can find those statements. |
|
Back to top |
|
|
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
input and output data for your reference
Code: |
XXXXXXXX --------- STRING(S) FOUND ---------------
3 MADHU 20 10) -
18 MADHU 20 10) -
ZZZZZZZZ --------- STRING(S) FOUND ---------------
13 MADHU 20 50) CISZ(12288) -
DDDDDDDD --------- STRING(S) FOUND ---------------
13 MADHU 100 1000) CISZ(12288) -
PPPPPPPP --------- STRING(S) FOUND ---------------
|
SAY statement displayed
Code: |
XXXXXXXX 20
XXXXXXXX 20 20
ZZZZZZZZ 20
***
DDDDDDDD 100
***
|
|
|
Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
Your data is such that J is incremented to 2 before the first assignment, leaving OU.1 uninitialized. As the fine manual says:
Quote: |
When EXECIO writes an arbitrary number of lines from a list of compound variables, it stops when it reaches a null value or an uninitialized variable (one that displays its own name). |
So, your exec writes nothing. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
Back to top |
|
|
magesh23586
Active User
Joined: 06 Jul 2009 Posts: 213 Location: Chennai
|
|
|
|
Thanks Akatsukami, You solution is working good,also thanks to Enrico for the kind advice.
Regards,
Magesh |
|
Back to top |
|
|
|