How to Transfer multiple files from OMVS to MVS using a rexx routine?

Kiran Kumar Reddi

unread,

May 2, 2003, 3:25:22 AM5/2/03

to

Hello List

Can i get some info of how to transfer files from OMVS to MVS using a rexx routine?

Thanks & Regards,
Reddi Kiran Kumar
Migration Tools Group
Tata Consultancy Services
21,Industrial Estate
Ambattur-600058
Ph No:044-26256437 x212

"Walls,
Lucious G." To: TSO-...@VM.MARIST.EDU
<ASI097@BUPERS cc:
.NAVY.MIL> Subject: How to create an ISPF panel library?
Sent by: TSO
REXX
Discussion
List
<TSO-REXX@VM.M
ARIST.EDU>

05/01/2003
02:03 AM
Please respond
to TSO REXX
Discussion
List

Hello List:

I'm attempting to create a dialog panel for the first time. I'm having
problem allocating the library that will contain my panel definitions. When
I issue the command - libdef ispplib dataset id('user.panels') on the -
Invoke Dialog Service screen (ISPF option 7.6), I get the error message -

ISPD014

Data set not cataloged
'USER.PANELS' was not found in catalog.

I realize that I must issue an allocate command to create the 'user.panels'
library but I don't know which operands and values to use on the ALLOCATE
command. Can someone send me an example or explain to me the correct way to
create a user ISPF panel library? We're using ISPF Version 5.0 at how
installation.

Thanks,

Lucious Walls
SPAWAR ITC (Washington)
asi...@bupers.navy.mil
703-693-3036 DSN 223-3036

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

***The information contained in this message is legally privileged and confidential
information intended only for the use of the addressed individual or entity indicated in
this message (or responsible for delivery of the message to such person). It must not be
read, copied, disclosed, distributed or used by any person other than the addressee.
Unauthorised use, disclosure or copying is strictly prohibited and may be unlawful.
Opinions, conclusions and other information on this message that do not relate to the
official business of any of the constituent companies of the TATA CONSULTANCY SERVICES
shall be understood as neither given nor endorsed by the Group. If you have received this
message in error, you should destroy this message and kindly notify the sender by e-mail.
Thank you.***

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

InterScan_Disclaimer.txt

Bob Stark

unread,

May 2, 2003, 6:23:28 AM5/2/03

to

Hi Reddi,

You have many choices, depending (somewhat) on whether your REXX routine
runs in TSO/E rexx or in the shell. Basic choices are:

1. Use OGET and OPUT TSO commands:
/* Copy from UNIX to MVS PDS */
ADDRESS TSO "OGET '/u/userid/totals/oct17' 'WORKLOAD.TOTALS(OCT17)'"

/* Copy from MVS PDS to UNIX: */
ADDRESS TSO "OPUT 'WORKLOAD.TOTALS(OCT17)' '/u/userid/totals/oct17'"

2. Use the OCOPY TSO command (goes either direction, using DD cards)

3. Use the BPXCOPY MVS utility program (I believe you would launch it with
ADDRESS LINK,
ADDRESS LINKMVS, or ADDRESS LINKPGM

4. Execute the UNIX cp command with the extended syntax which allows access
to MVS datasets. You could do this from the TSO side via the BPXBATCH
utility, or even easier, via the OSHELL REXX exec. The cp command can copy
in either direction. An example of the cp syntax is:
$ cp "//'WORKLOAD.TOTALS(OCT18)'" /u/userid/oct18

5. You can script your way through FTP with REXX by writing the FTP
commands to an input dataset, allocating a temporary output dataset, then
launching FTP via:
ADDRESS TSO "FTP hostname"
In this approach, you would be FTPing to yourself, but on the other side of
the box; For example, your command stream would have a:
cd /u/userid/totals
lcd 'WORKLOAD.TOTALS'
put OCT19

Hope that helps.

Regards,

Bob Stark [ProTech - When you're serious about Systems Management]
www.protechpts.com 800-373-9188 x150

At 03:25 AM 5/2/2003, you wrote:

>Can i get some info of how to transfer files from OMVS to MVS using a rexx
>routine?
>
>Thanks & Regards,
>Reddi Kiran Kumar

----------------------------------------------------------------------

Kiran Kumar Reddi

unread,

May 2, 2003, 8:29:59 AM5/2/03

to

Thank you bob.

But Can i know if we can transfer multiple files from OMVS to MVS? Like,i need some 10
files from a Unix dir to be transferred to PDS.
I would be very happy if u could provide me with a solution.

Thanks & Regards,
Reddi Kiran Kumar

Migration Tools Group
Tata Consultancy Services
21,Industrial Estate
Ambattur-600058
Ph No:044-26256437 x212

Bob Stark
<bstark@PROTEC To: TSO-...@VM.MARIST.EDU
HPTS.COM> cc:
Sent by: TSO Subject: Re: How to Transfer multiple files from OMVS to MVS using a
REXX rexx routine?
Discussion
List
<TSO-REXX@VM.M
ARIST.EDU>

05/02/2003
03:53 PM

Please respond
to TSO REXX
Discussion
List

Hi Reddi,

Hope that helps.

Regards,

* * * The information contained in this message is legally privileged and confidential

information intended only for the use of the addressed individual or entity indicated in
this message (or responsible for delivery of the message to such person). It must not be
read, copied, disclosed, distributed or used by any person other than the addressee.
Unauthorised use, disclosure or copying is strictly prohibited and may be unlawful.
Opinions, conclusions and other information on this message that do not relate to the
official business of any of the constituent companies of the TATA CONSULTANCY SERVICES
shall be understood as neither given nor endorsed by the Group. If you have received this
message in error, you should destroy this message and kindly notify the sender by e-mail.
Thank you. * * *

InterScan_Disclaimer.txt

Steve Comstock

unread,

May 2, 2003, 8:41:21 AM5/2/03

to

In a message dated 5/2/2003 6:30:01 AM Mountain Daylight Time,
rk_k...@CHENNAI.TCS.CO.IN writes:

> Thank you bob.
>
> But Can i know if we can transfer multiple files from OMVS to MVS? Like,i
> need some 10
> files from a Unix dir to be transferred to PDS.
> I would be very happy if u could provide me with a solution.

He gave you five alternatives. What do you want? He can't do your work for
you.

One more: look up OPUTX, OGETX.

James Melin

unread,

May 2, 2003, 9:32:07 AM5/2/03

to

Sounds to me like the question really is, how do you, in one fell swoop,
much like the ftp command 'MPUT filemask*.*', using rexx, move a group of
files, or possibly the contents of an entire directory into a PDS where the
files in that directory could then become members of a PDS.

|---------+---------------------------->
| | Steve Comstock |
| | <SCom...@AOL.CO|
| | M> |

| | <TSO-...@VM.MARI|
| | ST.EDU> |
| | |
| | |
| | 05/02/2003 07:40 |
| | AM |

|---------+---------------------------->
>------------------------------------------------------------------------------------------------------------------------------|
| |
| To: TSO-...@VM.MARIST.EDU |
| cc: |
| Subject: Re: How to Transfer multiple files from OMVS to MVS using a rexx routine? |
>------------------------------------------------------------------------------------------------------------------------------|

Kiran Kumar Reddi

unread,

May 2, 2003, 9:34:58 AM5/2/03

to

Yah! is there any way i can get out from this?

Thanks & Regards,
Reddi Kiran Kumar
Migration Tools Group
Tata Consultancy Services
21,Industrial Estate
Ambattur-600058
Ph No:044-26256437 x212

James Melin
<Jim....@CO.HENNE To: TSO-...@VM.MARIST.EDU
PIN.MN.US> cc:
Sent by: TSO REXX Subject: Re: How to Transfer multiple files from OMVS to MVS using a
Discussion List rexx routine?
<TSO-...@VM.MARIST
.EDU>

05/02/2003 07:01 PM

* * * The information contained in this message is legally privileged and confidential
information intended only for the use of the addressed individual or entity indicated in
this message (or responsible for delivery of the message to such person). It must not be
read, copied, disclosed, distributed or used by any person other than the addressee.
Unauthorised use, disclosure or copying is strictly prohibited and may be unlawful.
Opinions, conclusions and other information on this message that do not relate to the
official business of any of the constituent companies of the TATA CONSULTANCY SERVICES
shall be understood as neither given nor endorsed by the Group. If you have received this
message in error, you should destroy this message and kindly notify the sender by e-mail.
Thank you. * * *

InterScan_Disclaimer.txt

Paul Lautman

unread,

May 2, 2003, 9:58:49 AM5/2/03

to

Couldn't you use FTP then CD to the PDS and use MPUT?

----- Original Message -----
From: "Kiran Kumar Reddi" <rk_k...@CHENNAI.TCS.CO.IN>
To: <TSO-...@VM.MARIST.EDU>
Sent: Friday, May 02, 2003 2:37 PM
Subject: Re: How to Transfer multiple files from OMVS to MVS using a rexx
routine?

>

Robin Murray

unread,

May 2, 2003, 10:16:02 AM5/2/03

to

i have some crude but effective rexx's that will do that. i use it to
recieve maintenance from ca. they package up the fixes into a zip file
which i extract to a directory, then run the rexx to go get all the fixes
to a pds. doc from the command:

/*********************************************************************/
/* this rexx will copy a directory to a pds. a profile holds the */
/* parms for the ftp transfer. the following parms are in this prof: */
/* Host = "10.1.20.136" * host name */
/* User = "ma133" * user name */
/* Mail = "robin_...@maritimelife.ca" * email addr for anonymous*/
/* RDir = "C:\Jclcheck\Unzip" * remote directory */
/* LPds = "FTP.TESTPDS" * the local pds */
/* Exit = "FTPPDS1" * the dsn exit */
/* Each = "APARSTRP" * run this afterwards */
/* 'Exit' specifies a rexx exec to be called for each of the members */
/* of a directory. it's purpose is to parse the file name into a */
/* valid member name and set the transfer mode to text or binary. */
/* 'Each', if specified, is a rexx exec to be run on all the members */
/* of the new pds as a 'post-processing' action. */
/*********************************************************************/

i can package it up and send it along to anyone who's interested.

James Melin
<Jim....@CO.HENN To: TSO-...@VM.MARIST.EDU
EPIN.MN.US> cc:

Sent by: TSO REXX Subject: Re: How to Transfer multiple files from OMVS to MVS

Discussion List using a rexx routine?
<TSO-...@VM.MARIS
T.EDU>

02/05/2003 10:31

AM
Please respond to
TSO REXX
Discussion List

Sounds to me like the question really is, how do you, in one fell swoop,

much like the ftp command 'MPUT filemask*.*', using rexx, move a group of
files, or possibly the contents of an entire directory into a PDS where the
files in that directory could then become members of a PDS.

In a message dated 5/2/2003 6:30:01 AM Mountain Daylight Time,
rk_k...@CHENNAI.TCS.CO.IN writes:

> Thank you bob.
>
> But Can i know if we can transfer multiple files from OMVS to MVS? Like,i
> need some 10
> files from a Unix dir to be transferred to PDS.
> I would be very happy if u could provide me with a solution.

He gave you five alternatives. What do you want? He can't do your work for
you.

One more: look up OPUTX, OGETX.

----------------------------------------------------------------------

James Melin

unread,

May 2, 2003, 10:25:36 AM5/2/03

to

Hell, just for the geek factor, I'd like to see it, but the fellow that
needs it is here: rk_k...@CHENNAI.TCS.CO.IN

| | 05/02/2003 11:14 AM|

|---------+------------------------------>
>------------------------------------------------------------------------------------------------------------------------------|
| |
| To: TSO-...@VM.MARIST.EDU |
| cc: |

| Subject: Re: How to Transfer multiple files from OMVS to MVS using a rexx routine? |
>------------------------------------------------------------------------------------------------------------------------------|

Ronald Wells

unread,

May 2, 2003, 10:35:43 AM5/2/03

to

I'd be interested >>

Imbriale, Donald , Exchange

unread,

May 2, 2003, 12:00:05 PM5/2/03

to

At this point you should begin to do some reading of the various manuals
that describe the functions which have been suggested as alternatives. You
will learn a lot more by doing some of your own research rather than just
relying on some quick answers from others on this list. If after your
reading and attempts to implement you still have problems or questions, then
post back again.

Don Imbriale
dimb...@bear.com <mailto:dimb...@bear.com>

-----Original Message-----
From: Kiran Kumar Reddi [SMTP:rk_k...@CHENNAI.TCS.CO.IN]
Sent: Friday, May 02, 2003 9:37
To: TSO-...@VM.MARIST.EDU
Subject: Re: How to Transfer multiple files from OMVS to MVS using a
rexx routine?

Yah! is there any way i can get out from this?

****************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************