|
View previous topic :: View next topic
|
| Author |
Message |
Rick Walker
New User
Joined: 14 Sep 2009
Posts: 5
Location: Des Plaines, IL.
|
|
|
|
| I need to copy load modules to a flat sequential file, FTP this file to a client site, then create a new PDS and load the modules. |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| IEBCOPY will unload a PDS to a sequential file, along with rebuild it on the other end. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello Rick and welcome to the forum,
At the top of the page is a link to "IBM Manuals". In the second set of manuals (Batch Processing) is the IBM JCL Utilities Guide for DFSMS.
In that manual look at IEBCOPY. You can use this to both unload and subsequently re-load on the target system. |
|
| Back to top |
|
|
Rick Walker
New User
Joined: 14 Sep 2009
Posts: 5
Location: Des Plaines, IL.
|
|
|
|
| Thank you...I'll research IEBCOPY and test it. |
|
| Back to top |
|
|
PeD
Active User
Joined: 26 Nov 2005
Posts: 459
Location: Belgium
|
|
|
|
Here the process ( sourcedsn=your PDS with load modules )
Unload phase
1. On the source MVS.
At a TSO command prompt (option 6 from the main ISPF screen) :
XMIT X.X DA('sourcedsn') OUTDA('tempdsn')
tempdsn is a FB 80 dataset. It can be preallocated or not.
2. On the intermediate platform (Unix, PC, ...).
open FTP connection to the source MVS
BINARY
GET 'tempdsn' 'pcfile'
close FTP connection
Restore phase
1. On the intermediate platform (Unix, PC, ...).
open FTP connection to the target MVS
BINARY
PROMPT OFF
QUOTE SITE FIXRECFM 80
PUT 'pcfile' 'tempdsn'
close FTP connection.
tempdsn is a FB 80 dataset. It can be preallocated or not.
If the transfer abends because tempdsn is too small, either preallocate it
(FB 80) the correct size or type the following commands before PUT... :
BLOCKS
PRI=nnn (with nnn the primary quantity in BLOCKS)
SEC=nnn (with nnn the secondary quantity in BLOCKS)
2. On the target MVS.
At a TSO command prompt (option 6 from the main ISPF screen) :
RECEIVE INDA('tempdsn')
At the prompt, enter :
DS('targetdsn')
That's all folks !!! |
|
| Back to top |
|
|
Rick Walker
New User
Joined: 14 Sep 2009
Posts: 5
Location: Des Plaines, IL.
|
|
|
|
I've run IEBCOPY to copy a couple of load modules to a sequential file. It created the file, but it can't be opened because of an invalid record length. Here is the JCL for the output dataset...
//SYSUT2 DD DSN=output.name,
// DISP=(,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=0,BLKSIZE=23200),
// SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA
IEBCOPY converts to a format of VS, record length of 23216. What needs to be changed? |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| but it can't be opened because of an invalid record length. |
What is failing on the open? |
|
| Back to top |
|
|
Rick Walker
New User
Joined: 14 Sep 2009
Posts: 5
Location: Des Plaines, IL.
|
|
|
|
| When I try to browse the dataset it's not allowed because of an invalid record length. It has a cylinder of space used so there is data in it, but not readable. Load modules are probably variable length records, but load PDS's are defined as RECFM=U, LRECL=0, BLKSIZE=23200. I need this to be a readable, sequential flat file for FTP purposes. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hi Rick,
Yup, kinda what i expected. . .
Suggest you ftp the file as a binary file and continue from there. |
|
| Back to top |
|
|
Rick Walker
New User
Joined: 14 Sep 2009
Posts: 5
Location: Des Plaines, IL.
|
|
|
|
I believe that would be best. Thanks for your time.
RW |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
You're welcome - good luck 
Someone will be here if there are questions or problems,
d |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Quote: |
| I need this to be a readable, sequential flat file for FTP purposes. |
Why? Binary transfers work fine, and unloaded load module PDS are not in a format you'd want to browse, anyway. IEBCOPY has its own internal format for unloaded PDS files and as long as I transfer in binary it can be reconstructed just fine on the other end -- without being able to look at the data. |
|
| Back to top |
|
|
|
|
