MVSFORUMS.com

Sarangadhar · Posted: Thu Nov 18, 2004 3:59 am Post subject: Rexx renaming rc=8

I have a RExx prog. that renames all the files that starts with the given qualifiers to the given qualifiers. It was working daily till 3 days back. From 3 days it ADDRESS TSO RENAME command is returning RC=8. Files are not getting renamed.
JCL:
S010 EXEC PGM=IKJEFT1B
SYSPROC DD DSN=sourcerexx(REXXTT),DISP=SHR
SYSTSPRT DD SYSOUT=*
SYSTSIN DD *
%REXXTT NAME TSOID.NAME1
************************** Bottom of Data *****************
/*Rexx prog:*/
arg qual1 qual2
qual1 = strip(qual1)
qual2 = strip(qual2)
qual2 = "'" || qual2 || "'"
rnmcnt = 0
emptcnt = 0
x = outtrap(xyz.)
"listcat level ("qual2")"
x = outtrap(off)
total = xyz.0
totf = 0
j = 1
do i = 1 to total
parse var xyz.i var1 var2 var3
var1 = strip(var1)
var3 = strip(var3)
if var1 = 'NONVSAM' then
do
totf = totf + 1
abc.j = var3
j = j + 1
end
end
say 'rename existing datasets' totf
do p = 1 to totf
psn1 = QUAL1||.KRIS.NOTICE.USER||p
psn2 = abc.p
address tso "rename psn2 psn1"
if rc = 0 then
do
say 'OLD FILE:' psn2 '-----> NEW FILE:' psn1
rnmcnt = rnmcnt + 1
end
end
end

Why RC=8, this had been working for the past 2 years, but not from last 3 days.
_________________
Thanks

Phantom · Posted: Thu Nov 18, 2004 4:08 am Post subject:

Sarangadhar,

Did u make sure that ur dataset name (passed to the TSO RENAME) is enclosed within single quotes. Check ur profile to see whether u have ur prefix turned on.

On any command line in any ISPF panel type

Sarangadhar · Posted: Thu Nov 18, 2004 4:18 am Post subject:

Phantom,
My profile has not been changed, I checked.

But this will do nothing with profile, right? (enclosing in quotes)
address tso "rename ' "psn2" ' ' "psn1" ' "--This is also not working(RC=8).
_________________
Thanks

Sarangadhar · Posted: Thu Nov 18, 2004 4:31 am Post subject:

RC is 8, its typing mistake.

Phantom · Posted: Thu Nov 18, 2004 5:58 am Post subject:

Sarangadhar,

Sarangadhar · Posted: Thu Nov 18, 2004 7:12 am Post subject:

Sorry to bother u Phantom, Thanks for prompt replies:
I asked in previous mail:
But this will do nothing with profile, right?-- after changing into quotes only.

address tso "rename ' "psn2" ' ' "psn1" ' "--This also is not working. (rc=8 is not for file not found I think in this case).
_________________
Thanks