MVSFORUMS.com

[i_suman]

Hi
Iam submitting the rexx program following way from ISPF option 6
ex 'QATT.ST.SPEC.REXX(P38XCLNP)' 'IS1234.REXX.UPSM.BKCFILE','A','IS1234'

and P38XCLNP has following code (i only pasted required)

/* PUT DS NAMES FROM THE LIST INTO THE ISPF TABLE */
/*------------------------------------------------*/
DO UNTIL RCODE = 8
"LMDLIST LISTID("@DSLID") OPTION(LIST) DATASET(DSNAME) STATS(YES)"
RCODE = RC
SELECT
WHEN RCODE = 8 THEN SAY 'END OF LMDLIST'
WHEN RCODE >= 4 THEN
DO
IF RCODE = 4 THEN RCODE = 5 /* MAKE RC=4 UNACCEPTABLE IN THIS CASE *
SAY 'LMDLIST FAILED'
ZISPFRC = RCODE
"VPUT (ZISPFRC)"
EXIT RCODE
END
OTHERWISE
DO
COUNT = COUNT + 1
DSNKEY = DSNAME
"VPUT (DSNKEY COUNT JOBCNT) SHARED"
"ISPEXEC TBADD DSNLIST"
END
END
END

The above rexx program will call JCL which has a recall step and another rename step (IDCAMS).

//RENAME EXEC PGM=IDCAMS
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
)DOT DSNLIST
ALTER '&DSNKEY' +
NEWNAME('&DSNKEY..P1')
)ENDDOT
/*

When i'm running the rexx program as mentioned above its throwing an IDCAMS RC=12
ALTER 'IS1234.REXX.UPSM.BKCFILE' +
NEWNAME('"IS1234.REXX.UPSM.BKCFILE.."')

IDC3203I ITEM '"IS1234.REXX.UPSM.BK' DOES NOT ADHERE TO RESTRICTIONS

IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12

I couldn't find out how double quotes are coming around the dataset.

I want the dataset to renamed to IS1234.REXX.UPSM.BKCFILE.P1

Could any one tell where I am going wrong? and also help me with the fix.

FYI, when run the same rexx is run through batch mode its running fine.

[semigeezer]

Read about TSO naming conventions, particularly the use of single quotes (actually, your code seems OK there, that is mainly for others reading this in the future). Is it possible that the value in the table has them in which case you'd need to strip them off? Maybe a Say or Trace I statement might help.

It may also be some idiosyncrasy of FTINCL where quotes and substitution don't play well together (though it worked for me). You might want to use ISRDDN to see what is getting generated (ddname ISPCTL1 or similar if they are preallocated).
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.