Dataset Rename (Option 3.2) From REXX

[Ken MacKenzie]

Hi,

I'm writing an all-singing, all-dancing dataset routine in REXX and I want,
as far as possible, to use standard IBM panels/routines to do the donkey
work.

BUT when trying to invoke panel ISRUARP1 via ISRUDA I am encountering
problems - the "from" dataset doesn't appear on the screen and I get an
S0C6 abend. A snippet of my code follows (variable MYDSN contains the
dataset to be renamed). I have successfully used ISRUDA for other
subroutines within this exec. Does anyone know what I'm doing wrong or can
anyone suggest a different approach.

Thanks,

Ken

Rename:
Trace ?r
dsns = mydsn
zutvol = ''
project = ''
library = ''
type = ''
odsn = mydsn
zrdsn = mydsn
"VPUT ZRDSN PROFILE"
zucat = 0
"VPUT ZUCAT PROFILE"
dsalsel = ''
"VPUT DSALSEL PROFILE"
zalvlnum = 1
"VPUT ZALVLNUM PROFILE"
"VPUT (DSNS ZUTVOL PROJECT LIBRARY TYPE ODSN) PROFILE"
"SELECT PGM(ISRUDA) PARM(ISRUARP1) SUSPEND"
Return rc

[George, William , DHS-ITSD]

I've run across this myself and just 'assumed' that program ISRUDA
internally determines the DSNS value from the input gathered from panel
ISRUDA2S (panel displayed by =3.2, which is the one your bypassing).
Anyone know the internals of what goes on inside of ISRUDA?

FYI: on a side note. You can greatly shorten the number of lines of code
used by using PARSE when you want to initialize a number of variables to the
same value. Plus, combining the VPUTs into one VPUT 'may' help efficiency.

len = Length(mydsn)
Parse Value mydsn With 1 dsns (len) . 1 odsn (len) . 1 zrdsn (len)
Parse Value '' With zutvol project library type dsalsel
zucat = 0
zalvlnum = 1
"VPUT (ZRDSN ZUCAT DSALSEL ZALVLNUM",

"DSNS ZUTVOL PROJECT LIBRARY TYPE ODSN) PROFILE"
"SELECT PGM(ISRUDA) PARM(ISRUARP1) SUSPEND"
Return rc

Bill

[Richards.Bob]

Ken,

Aren't you setting the FROM dataset and the TO dataset to the same value? Maybe it doesn't like that.

Bob

Hi,

*************************************************************************************
The information transmitted is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of or taking action in reliance upon this information by persons or entities other than the intended recipient is prohibited. If you have received this email in error please contact the sender and delete the material from any computer.
*************************************************************************************

[Ken MacKenzie]

You're right. I am. The intention is to have the existing dataset name
there as a "prompt" and the new dataset name there in an input field so
that the user can modify it.

"Richards.Bob"
<Bob.Ri...@SUNTRUST.COM> To: ISP...@listserv.nd.edu
cc:
Sent by: ISPF discussion list Subject: Re: Dataset Rename (Option 3.2) From REXX
<ISP...@listserv.nd.edu>

Wednesday July 16, 2003 03:12 PM
Please respond to ISPF discussion
list

[Oscar Salgado Sanchez]

Hi Ken:

I had a similar problem trying to "clone" option 3.1, after some headaches I
needed to create my own panel (actually, copy the standard an add one line
in the INIT section: VGET(DSN) PROFILE) because ISPF doesn?t pass all the
variables needed.

I suppose your problem is the same.

Hope this help

Oscar Salgado Sanchez

-----Mensaje original-----
De: ISPF discussion list [mailto:ISP...@listserv.nd.edu]En nombre de Ken
MacKenzie
Enviado el: miercoles, 16 de julio de 2003 10:00
Para: ISP...@listserv.nd.edu
Asunto: Dataset Rename (Option 3.2) From REXX

[Gardiner, Roy]

> From: Oscar Salgado Sanchez [SMTP:os...@TID.ES]

>
> I had a similar problem trying to "clone" option 3.1, after some headaches
> I
> needed to create my own panel (actually, copy the standard an add one line
> in the INIT section: VGET(DSN) PROFILE) because ISPF doesn?t pass all the
> variables needed.
>
> I suppose your problem is the same.
>

Exactly so; the variables are there all right but the program does
not retrieve them. By cloning the panel you can retrieve them yourself. I,
too, have done this in creating workbench type tools that allow lists of
datasets to be processed by prefix commands such as 3.1 (and 3.2, 3.3, 3.4,
3.12 etc).

The Royal Bank of Scotland plc ('the Bank') is regulated by the Financial
Services Authority and is a member of The Royal Bank of Scotland Marketing
Group. The only packaged products (life policies, unit trusts and other
collective investment schemes and stakeholder and other pensions) the Bank
advises on and sells are those of the Marketing Group, whose other members
are Royal Scottish Assurance plc and Royal Bank of Scotland Unit Trust
Management Limited, both regulated by the Financial Services Authority.

The Royal Bank of Scotland plc. Registered in Scotland No 90312. Registered
Office: 36 St Andrew Square, Edinburgh EH2 2YB.

Agency agreements exist between members of The Royal Bank of Scotland Group.

This e-mail message is confidential and for use by the addressee only. If
the message is received by anyone other than the addressee, please return
the message to the sender by replying to it and then delete the message from
your computer. Internet e-mails are not necessarily secure. The Royal Bank
of Scotland plc does not accept responsibility for changes made to this
message after it was sent.

Whilst all reasonable care has been taken to avoid the transmission of
viruses, it is the responsibility of the recipient to ensure that the onward
transmission, opening or use of this message and any attachments will not
adversely affect its systems or data. No responsibility is accepted by The
Royal Bank of Scotland plc in this regard and the recipient should carry out
such virus and other checks as it considers appropriate.

[Wells, Daryl]

All I do to rename a dataset is:

ADDRESS "TSO" "RENAME '" || DATASET1 || "' '" || DATASET2 || "'"

Daryl Wells