View previous topic :: View next topic |
Author |
Message |
rajvasan Beginner
Joined: 10 Dec 2002 Posts: 14 Topics: 4
|
Posted: Tue Dec 10, 2002 10:48 pm Post subject: Download All members of a PDS to workstation |
|
|
Dear All,
Is it possible to download all the members of a PDS to your PC workstation in a single shot. If its possible, How do we go about doing it
Expecting your replies.
Thanks
Rajvasan |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
|
Posted: Tue Dec 10, 2002 11:12 pm Post subject: |
|
|
Rajvasan,
You can flatten your PDS into a sequential file using IEBPTPCH. With this it will append all the members of your pds into 1 single sequential file.IEBPTPCH inserts a "divider" between members that looks like this:
Code: |
MEMBER NAME XXXXXXXX
|
IEBPTPCH puts a one byte control character(carriage control) in the 1st byte.We remove that in step0200 using sort utitlity. The final output can then be downloaded to the pc.
Code: |
//STEP0100 EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=YOUR PDS,
// DISP=SHR
//SYSUT2 DD DSN=&T,DISP=(,PASS),SPACE=(CYL,(10,10),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PUNCH TYPORG=PO
//*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&T,DISP=(OLD,PASS)
//SORTOUT DD DSN=DOWNLOAD FLAT FILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE)
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(2,80) $ TO REMOVE ANSI CHARACTER
/*
|
Hope this helps...
cheers
kolusu |
|
Back to top |
|
|
Manas Biswal Intermediate
Joined: 29 Nov 2002 Posts: 382 Topics: 27 Location: Chennai, India
|
Posted: Wed Dec 11, 2002 5:59 am Post subject: |
|
|
Hi rajvasan,
When I need to download all the members of a PDS into my workstation, I use FTP from my command prompt. Upon connection to the mainframe, I then issue a mget.
Code: |
mget your.pds.name(*)
|
FTP will prompt you before downloading each member. You jusy have to type 'Y' on each prompting.
Regards,
Manas |
|
Back to top |
|
|
faisal Beginner
Joined: 05 Dec 2002 Posts: 8 Topics: 1
|
Posted: Wed Dec 18, 2002 1:29 pm Post subject: |
|
|
or better still use "PROMPT OFF" before doing a mget. then you won't be prompted for every member |
|
Back to top |
|
|
zatlas Beginner
Joined: 17 Dec 2002 Posts: 43 Topics: 4
|
Posted: Wed Dec 18, 2002 3:14 pm Post subject: |
|
|
Hi
The best way to handle it besides flattening the file as was suggested by kolusu is to XMIT the entire PDS, ZIP the result if your shop has a ZIP package and FTP it to your PC. On your PC you should use the free program XMIT Manager, avalable at the CBT Tape site:
[url]www.cbttape.org
Once you do that, you will be able to view your PDS almost as is on the PC and you will be able to extract the individual members.
You should issue TSO HELP XMIT to see how to do that.
ZA[/url] |
|
Back to top |
|
|
Manas Biswal Intermediate
Joined: 29 Nov 2002 Posts: 382 Topics: 27 Location: Chennai, India
|
Posted: Thu Dec 19, 2002 3:16 am Post subject: |
|
|
Hi Faisal,
Thanx for the PROMPT OFF suggestion. I did not know that you could use that in mget.
Zatlas -> Can you please elaborate a little on how to xmit a pds from mainframe to a PC. We use XMIT here generally to transfer files from one region to another.
Regards,
Manas |
|
Back to top |
|
|
Premkumar Moderator
Joined: 28 Nov 2002 Posts: 77 Topics: 7 Location: Chennai, India
|
Posted: Thu Dec 19, 2002 4:14 am Post subject: |
|
|
To XMIT a PDS from mainframe to PC,
- Allocate a FB flat file of same LRECL as your PDS.
- XMIT the PDS to the flat file using TSO XMIT command as follows.
XMIT node.userid DA('your.pds') OUTDA('your.ps')
- Download the file in binary mode to your PC as a .XMI file.
- Use XmitManager to view or extract the members in the file.
|
|
Back to top |
|
|
Manas Biswal Intermediate
Joined: 29 Nov 2002 Posts: 382 Topics: 27 Location: Chennai, India
|
Posted: Thu Dec 19, 2002 5:57 am Post subject: |
|
|
Thanks Premkumar,
I tried the same successfully. And XMIT Manager is great. It's look and feel is great.
Regards,
Manas |
|
Back to top |
|
|
rajvasan Beginner
Joined: 10 Dec 2002 Posts: 14 Topics: 4
|
Posted: Fri Dec 20, 2002 2:55 am Post subject: |
|
|
Kolusu/Prem/ZAtlas/Manas
Thanks for all your solutions. |
|
Back to top |
|
|
rajvasan Beginner
Joined: 10 Dec 2002 Posts: 14 Topics: 4
|
Posted: Fri Dec 20, 2002 2:56 am Post subject: |
|
|
Faisal,
I inadvertently missed your name. Thanks a lot |
|
Back to top |
|
|
patnekar Beginner
Joined: 27 Jan 2003 Posts: 41 Topics: 16
|
Posted: Tue Jan 28, 2003 2:24 am Post subject: |
|
|
Hi,
You can download PDSs to ur pc using the following 2 methods
1. Use the ftp macro in Extra Personal Client. This will read a text file from you pc and download the members from the PDS as specified. This will not prompt for any inputs once the download /upload starts.
However the drawback is that you emulator will be locked for the duration that the download proceeds. Thus submit such jobs at EOD and sleep away;-)
2. If you wish to download in the background, you can try out Bluezone FTP. I do not know whether a trial version of this is available. But this is really fast and convinient.
Let me know if you need more info.
Cheers!!
Puru |
|
Back to top |
|
|
mly Beginner
Joined: 26 Dec 2002 Posts: 7 Topics: 3
|
Posted: Fri Jan 31, 2003 9:05 pm Post subject: |
|
|
HI,
XMIT node.userid DA('your.pds') OUTDA('your.ps')
Please, could anybody help me how/where I can find out the "node" to execute this command?
Thanks a lot,
mly |
|
Back to top |
|
|
Spolacek Beginner
Joined: 17 Dec 2002 Posts: 17 Topics: 2 Location: NJ, USA
|
Posted: Fri Jan 31, 2003 11:46 pm Post subject: |
|
|
Mly:
Log on to TSO and go to option 7.3 (dialog test, variable). Scroll down the list until you come to a variable called ZSYSNODE. The value of ZSYSNODE is the 'node' of your system.
Also, if your shop uses JES2 you could look at the top of any joblog. The JES Joblog should display the system and node. |
|
Back to top |
|
|
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Sat Feb 01, 2003 12:37 am Post subject: |
|
|
You don't need to know the node. Any fake node and userid will work if you are using the OUTDA() parameter, eg:
XMIT junk.garbage da('my.dsn') outda('my.dsn.xmi') NON NOL
(non nol means nolog nonotify, useful for this type of operation) |
|
Back to top |
|
|
Ashish Jain Beginner
Joined: 09 Dec 2002 Posts: 15 Topics: 0 Location: India
|
Posted: Mon Feb 03, 2003 8:01 am Post subject: |
|
|
To know the node...
Go on the STATUS on the action bar on primary ISPF panel. Choose SESSION option from there. Now the details about your session will appear in the status area.
There is point-and-shoot text "System ID" in the status area.
Click on it and you'll get to know your SYSNODE |
|
Back to top |
|
|
|
|