View previous topic :: View next topic
|
Author |
Message |
satyanarayana.mutyala
New User
Joined: 20 Jun 2007 Posts: 2 Location: Chennai
|
|
|
|
hi,
I am not an expert in Rexx coding, I am doing some automation using Rexx. In my way i come across a probelm that a piece of code which is pasted below is not woking which is worked earlier.
Code: |
"LIBDEF ISPSLIB DATASET ID('"SourceSkltn"') UNCOND"
if rc /= 0 then
do
say 'lIBDEF error'
end
address ispexec "ftopen"
if rc /= 0 then
do
say 'Report file not opened'
end
/* ADDING THE HEADER FROM THE SKEL */
address ispexec "ftincl "REPV2
rept = 'report'
num = 2
do l = 1 to 10
Line = Line_Data.l
say Line
end
/*address ispexec "ftincl "REPV2 */
num = 3
address ispexec "ftincl "REPV2
address ispexec "ftclose name("Rept")"
Say "RC for ftclose:"RC
return
|
now it is giving RC:20 for the ftclose function
but before this code worked well.
Can any body please help me in this issue. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Try to add the following statement after each ISPEXEC service:
Code: |
SAY ZERRSM; SAY ZERRLM |
This mught give you more information.
O. |
|
Back to top |
|
|
satyanarayana.mutyala
New User
Joined: 20 Jun 2007 Posts: 2 Location: Chennai
|
|
|
|
thank you ofer71,
i got the error and cleared my requirement.
thanks for your assistance |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
satyanarayana.mutyala wrote: |
i got the error and cleared my requirement. |
Hi,
Good to know , still would like to know what was the solution, can you please share? |
|
Back to top |
|
|
|