| View previous topic :: View next topic |
| Author |
Message |
kctechpro
Beginner
Joined: 27 Aug 2008
Posts: 6
Topics: 1
|
 Posted: Thu Aug 28, 2008 4:07 pm Post subject: Multiple PDS to PC |
 |
|
I already use XMIT Manager. It works great to move stuff one-at-a-time. Due to a large project, I have several PDS libraries I need to copy to the PC. It seems like there ought to be a way of stacking the files like we used to do with tape. I tried using XMIT and IEBGENER to build a PDS of Libraries but I lost the XMIT header record along the way.
I was wondering if anyone has moved multiple libraries in one action. |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12380
Topics: 75
Location: San Jose
|
| Posted: Thu Aug 28, 2008 4:44 pm Post subject: |
|
|
kctechpro,
use PGM=FTP with the following sysin cards
| Code: |
<IP address>
<User id>
<Pasword>
CD <Directory1>
MPUT 'your first pds(*)'
CD <Directory2>
MPUT 'your second pds(*)'
CD <Directory3>
MPUT 'your third pds(*)'
...
..
QUIT
|
Kolusu |
|
| Back to top |
|
|
kctechpro
Beginner
Joined: 27 Aug 2008
Posts: 6
Topics: 1
|
| Posted: Fri Aug 29, 2008 11:09 am Post subject: |
|
|
| This kind of misses the point. I would like the transfer to be just one file. Also, if I remember using FTP introduces character translation, which can be bed news if not controlled. |
|
| Back to top |
|
|
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Sat Aug 30, 2008 11:59 pm Post subject: |
|
|
Xmit, IEBGENER (with disp=mod) and binary transfers should work fine, though you need to break them into separate XMIT files before using xmit manager anyway so why not just download the individual XMIT files? The easiest way is to write a quick exec to do the xmits to names of some standard convention of your own choice, and then use ISPF's workstation agent to transfer the files to the PC. This code is what I use. Use it as an model for your own code if you want, but I guarantee nothing. You may need to alter the naming convention for the XMI files since I add 8 characters and also there is no error checking here. | Code: | /* Rexx - download 1 or more pds files in xmit format */
Parse Arg pattern
If pattern = "" Then
pattern = "user1.private.c*"
Address "ISPEXEC" "ISPEXEC LMDINIT LISTID(LISTID) LEVEL("pattern")"
ds = ""
Do Until listrc > 0
Address "ISPEXEC" "ISPEXEC LMDLIST LISTID(&LISTID) OPTION(LIST)",
"DATASET(DS) STATS(YES)"
listrc = rc
If listrc = 0 & zdlmigr <> "YES" & substr(zdldsorg,1,2) = "PO" Then
Do
host = "XMI."ds".XMI"
Say left(ds" ",78,"-")
Say " Creating XMIT file..."
Call msg "off"
Address tso ,
"XMIT A.A DA('"ds"') OUTDA("host") NON NOL SYSOUT(X)"
Call msg "on"
ws = "c:\temp\"host
Say " Sending to "ws"..."
Address ispexec "FILEXFER HOST(HOST) WS(WS) TO(WS) BINARY"
Say " Deleting "host"..."
Address tso "ALLOC FI(BYE) DA("host") OLD DEL REUSE"
Address tso "FREE FI(BYE)"
End
End
Address "ISPEXEC" "ISPEXEC LMDFREE LISTID("listid")" |
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html. |
|
| Back to top |
|
|
kctechpro
Beginner
Joined: 27 Aug 2008
Posts: 6
Topics: 1
|
| Posted: Fri Sep 05, 2008 10:26 am Post subject: |
|
|
Thanks!  If my client wasn't running the system in the stone ages your idea would be great. These guys only allow inbound FTP. All outbound is locked by security protocols.
AND you should have seen the response when I asked them to unlock the port for workstation agent. 
This stuff makes me wish I'd taken a career in security hacking. 
I'll have to write two scripts, one on the big box to XMIT the libraries and one on the PC to FTP/GET the files. 
Thanks again! |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
