Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ISPF Dialog Error

Status
Not open for further replies.

LouPelagalli

Programmer
Sep 24, 2001
6
US
Hi,

I have several Rexx programs that create JCL, but I'm force to used the same Data Set name for all the Rexx Jobs that create JCL because I receive the error message.

* ISRD028

* Data set not cataloged
* 'TRNLDP.TEMP.JCL2' was not found in catalog.

* Current dialog statement:
* EDIT DATASET(TEMP.JCL2)

Here's my offending code from one of my Rexx jobs using a my forced standard Dataset Name.
x = outtrap(junk.)
address TSO "DELETE TEMP.JCL scratch nonvsam"
address TSO "alloc FILE(JCLout) DA(TEMP.JCL)
DSORG(PS) SPACE(1,1) TRACKS LRECL(80)
RECFM(F,B) UNIT(DISK) NEW"
address TSO "EXECIO * DISKW JCLout (STEM JCL. FINIS"
x= outtrap('OFF')
address ISPEXEC "EDIT DATASET(TEMP.JCL)"

What can I do so that I can use a different Data Set Name for each of my Rexx jobs instead of 'TEMP.JCL' for all?

Thank you in advance for your help,

Lou
 
' First of all the ISRD028 message indicates the dataset is not catalogued.
* ISRD028

* Data set not cataloged
* 'TRNLDP.TEMP.JCL2' was not found in catalog.
Without actually debugging the program (sorry dont have time today), it appears that the delete statement is complaining that the dataset is not catalogued
Look into the SYSDSN function,this will tell you if the datasets is catalogued.
If the dataset is catalogued then you could issue the delete
Or you could get rid of the delete stmt and try using a SHR REU parameter on your allocate statement.

* Current dialog statement:
* EDIT DATASET(TEMP.JCL2)

Here's my offending code from one of my Rexx jobs using a my forced standard Dataset Name.
x = outtrap(junk.)
address TSO "DELETE TEMP.JCL scratch nonvsam"
address TSO "alloc FILE(JCLout) DA(TEMP.JCL)
DSORG(PS) SPACE(1,1) TRACKS LRECL(80)
RECFM(F,B) UNIT(DISK) NEW"
address TSO "EXECIO * DISKW JCLout (STEM JCL. FINIS"
x= outtrap('OFF')
address ISPEXEC "EDIT DATASET(TEMP.JCL)"

What can I do so that I can use a different Data Set Name for each of my Rexx jobs instead of 'TEMP.JCL' for all?

As for using a different name instead of 'temp.jcl' you could build a variable name or something and plug that in, you must double up quotes and apply the variable name.

P.S. when you say TEMP.JCL like that, you are prepending a dataset prefix (looks like TRNLDP, you could explicitly specify a dataset here.

Thank you in advance for your help,

Lou
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top