Farley, Peter x23353
2004-05-14 23:05:37 UTC
Hi all,
I guess senility is setting in, but I thought for sure there was a way
(other than IEHPROGM and IKJEFT01/RENAME) to rename or delete PDS members
from a batch job. Problem with IEHPROGM is that it is, of course,
restricted use -- and I'm not on that authorization list. IKJEFT01/RENAME
is OK, I guess, but that's not really a batch utility, and you can't delete
members with TSO DELETE, just datasets. At least, that's what TSO HELP
says.
I've looked high and low in the manuals, and I can't seem to find anything
else, which is what leads me to suspect senility and/or blindness.
Outside of using IEHPROGM or IKJEFT01 and doing it as a series of TSO RENAME
commands, is there any other way (using IBM STANDARD utilities only -- i.e.,
not ISV, not CBT) to rename PDS members? (BTW, I have absolutely nothing
against CBT utilities, just a need to use only standard utilities in this
particular case.) And is there any way at all to delete PDS members?
TIA for helping out these old gray cells.
Peter
P.S. -- I did some more research in the ISPF manuals, and the ISPEXEC LM...
Services seem to have what I need, but I'm having some trouble invoking them
from batch with IKJEFT01 and a REXX exec. Here's what I've got so far. Any
help on setting it up correctly (i.e, so it works...) would be appreciated.
JCL:
//RENMTEST EXEC PGM=IKJEFT01
//TESTLIB2 DD DISP=OLD,DSN=userid.TEST.TESTLIB2
//STEPLIB DD DISP=SHR,DSN=SYS1.SISPLOAD
//SYSEXEC DD DISP=SHR,DSN=userid.TEST.EXEC
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE MSGID
EXEC TEST(ISPFTEST) EXEC
//*
Contents of userid.TEST.EXEC(ISPFTEST):
/* REXX */
address ISPEXEC
'ISPEXEC LMINIT DATAID(TLIB2) DDNAME(TESTLIB2) '
'ISPEXEC LMOPEN DATAID(TLIB2) OPTION(OUTPUT) '
'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM1) '
'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM2) '
'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM3) '
'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(DTSTMEM1) NEWNAME(ZTSTMEM1)'
'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(OMTABLE1) NEWNAME(ZTSTMEM2)'
'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(RTSTMEM3) NEWNAME(ZTSTMEM3)'
'ISPEXEC LMCOMP DATAID(TLIB2) '
'ISPEXEC LMCLOSE DATAID(TLIB2) '
'ISPEXEC LMFREE DATAID(TLIB2) '
return 0
Results on SYSTSPRT listing (sorry if this wraps):
1READY
PROFILE MSGID
READY
EXEC TEST(ISPFTEST) EXEC
3 *-* 'ISPEXEC LMINIT DATAID(TLIB2) DDNAME(TESTLIB2)
'
+++ RC(-3) +++
4 *-* 'ISPEXEC LMOPEN DATAID(TLIB2) OPTION(OUTPUT)
'
+++ RC(-3) +++
5 *-* 'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM1)
'
+++ RC(-3) +++
6 *-* 'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM2)
'
+++ RC(-3) +++
7 *-* 'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM3)
'
+++ RC(-3) +++
8 *-* 'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(DTSTMEM1)
NEWNAME(ZTSTMEM1)'
+++ RC(-3) +++
9 *-* 'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(OMTABLE1)
NEWNAME(ZTSTMEM2)'
+++ RC(-3) +++
10 *-* 'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(RTSTMEM3)
NEWNAME(ZTSTMEM3)'
+++ RC(-3) +++
11 *-* 'ISPEXEC LMCOMP DATAID(TLIB2)
'
+++ RC(-3) +++
12 *-* 'ISPEXEC LMCLOSE DATAID(TLIB2)
'
+++ RC(-3) +++
_
This message and any attachments are intended only for the use of the addressee and
may contain information that is privileged and confidential. If the reader of the
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
I guess senility is setting in, but I thought for sure there was a way
(other than IEHPROGM and IKJEFT01/RENAME) to rename or delete PDS members
from a batch job. Problem with IEHPROGM is that it is, of course,
restricted use -- and I'm not on that authorization list. IKJEFT01/RENAME
is OK, I guess, but that's not really a batch utility, and you can't delete
members with TSO DELETE, just datasets. At least, that's what TSO HELP
says.
I've looked high and low in the manuals, and I can't seem to find anything
else, which is what leads me to suspect senility and/or blindness.
Outside of using IEHPROGM or IKJEFT01 and doing it as a series of TSO RENAME
commands, is there any other way (using IBM STANDARD utilities only -- i.e.,
not ISV, not CBT) to rename PDS members? (BTW, I have absolutely nothing
against CBT utilities, just a need to use only standard utilities in this
particular case.) And is there any way at all to delete PDS members?
TIA for helping out these old gray cells.
Peter
P.S. -- I did some more research in the ISPF manuals, and the ISPEXEC LM...
Services seem to have what I need, but I'm having some trouble invoking them
from batch with IKJEFT01 and a REXX exec. Here's what I've got so far. Any
help on setting it up correctly (i.e, so it works...) would be appreciated.
JCL:
//RENMTEST EXEC PGM=IKJEFT01
//TESTLIB2 DD DISP=OLD,DSN=userid.TEST.TESTLIB2
//STEPLIB DD DISP=SHR,DSN=SYS1.SISPLOAD
//SYSEXEC DD DISP=SHR,DSN=userid.TEST.EXEC
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE MSGID
EXEC TEST(ISPFTEST) EXEC
//*
Contents of userid.TEST.EXEC(ISPFTEST):
/* REXX */
address ISPEXEC
'ISPEXEC LMINIT DATAID(TLIB2) DDNAME(TESTLIB2) '
'ISPEXEC LMOPEN DATAID(TLIB2) OPTION(OUTPUT) '
'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM1) '
'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM2) '
'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM3) '
'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(DTSTMEM1) NEWNAME(ZTSTMEM1)'
'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(OMTABLE1) NEWNAME(ZTSTMEM2)'
'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(RTSTMEM3) NEWNAME(ZTSTMEM3)'
'ISPEXEC LMCOMP DATAID(TLIB2) '
'ISPEXEC LMCLOSE DATAID(TLIB2) '
'ISPEXEC LMFREE DATAID(TLIB2) '
return 0
Results on SYSTSPRT listing (sorry if this wraps):
1READY
PROFILE MSGID
READY
EXEC TEST(ISPFTEST) EXEC
3 *-* 'ISPEXEC LMINIT DATAID(TLIB2) DDNAME(TESTLIB2)
'
+++ RC(-3) +++
4 *-* 'ISPEXEC LMOPEN DATAID(TLIB2) OPTION(OUTPUT)
'
+++ RC(-3) +++
5 *-* 'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM1)
'
+++ RC(-3) +++
6 *-* 'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM2)
'
+++ RC(-3) +++
7 *-* 'ISPEXEC LMMDEL DATAID(TLIB2) MEMBER(ZTSTMEM3)
'
+++ RC(-3) +++
8 *-* 'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(DTSTMEM1)
NEWNAME(ZTSTMEM1)'
+++ RC(-3) +++
9 *-* 'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(OMTABLE1)
NEWNAME(ZTSTMEM2)'
+++ RC(-3) +++
10 *-* 'ISPEXEC LMMREN DATAID(TLIB2) MEMBER(RTSTMEM3)
NEWNAME(ZTSTMEM3)'
+++ RC(-3) +++
11 *-* 'ISPEXEC LMCOMP DATAID(TLIB2)
'
+++ RC(-3) +++
12 *-* 'ISPEXEC LMCLOSE DATAID(TLIB2)
'
+++ RC(-3) +++
_
This message and any attachments are intended only for the use of the addressee and
may contain information that is privileged and confidential. If the reader of the
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html