MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Download All members of a PDS to workstation
Goto page 1, 2  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Other Technical Topics
View previous topic :: View next topic  
Author Message
rajvasan
Beginner


Joined: 10 Dec 2002
Posts: 14
Topics: 4

PostPosted: Tue Dec 10, 2002 10:48 pm    Post subject: Download All members of a PDS to workstation Reply with quote

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
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Tue Dec 10, 2002 11:12 pm    Post subject: Reply with quote

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
View user's profile Send private message Send e-mail Visit poster's website
Manas Biswal
Intermediate


Joined: 29 Nov 2002
Posts: 382
Topics: 27
Location: Chennai, India

PostPosted: Wed Dec 11, 2002 5:59 am    Post subject: Reply with quote

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
View user's profile Send private message Send e-mail Yahoo Messenger
faisal
Beginner


Joined: 05 Dec 2002
Posts: 8
Topics: 1

PostPosted: Wed Dec 18, 2002 1:29 pm    Post subject: Reply with quote

or better still use "PROMPT OFF" before doing a mget. then you won't be prompted for every member
Back to top
View user's profile Send private message
zatlas
Beginner


Joined: 17 Dec 2002
Posts: 43
Topics: 4

PostPosted: Wed Dec 18, 2002 3:14 pm    Post subject: Reply with quote

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
View user's profile Send private message
Manas Biswal
Intermediate


Joined: 29 Nov 2002
Posts: 382
Topics: 27
Location: Chennai, India

PostPosted: Thu Dec 19, 2002 3:16 am    Post subject: Reply with quote

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
View user's profile Send private message Send e-mail Yahoo Messenger
Premkumar
Moderator


Joined: 28 Nov 2002
Posts: 77
Topics: 7
Location: Chennai, India

PostPosted: Thu Dec 19, 2002 4:14 am    Post subject: Reply with quote

To XMIT a PDS from mainframe to PC,


  1. Allocate a FB flat file of same LRECL as your PDS.
  2. XMIT the PDS to the flat file using TSO XMIT command as follows.
    XMIT node.userid DA('your.pds') OUTDA('your.ps')
  3. Download the file in binary mode to your PC as a .XMI file.
  4. Use XmitManager to view or extract the members in the file.
Back to top
View user's profile Send private message Send e-mail
Manas Biswal
Intermediate


Joined: 29 Nov 2002
Posts: 382
Topics: 27
Location: Chennai, India

PostPosted: Thu Dec 19, 2002 5:57 am    Post subject: Reply with quote

Thanks Premkumar,
I tried the same successfully. And XMIT Manager is great. It's look and feel is great.

Regards,
Manas
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
rajvasan
Beginner


Joined: 10 Dec 2002
Posts: 14
Topics: 4

PostPosted: Fri Dec 20, 2002 2:55 am    Post subject: Reply with quote

Kolusu/Prem/ZAtlas/Manas

Thanks for all your solutions.
Back to top
View user's profile Send private message
rajvasan
Beginner


Joined: 10 Dec 2002
Posts: 14
Topics: 4

PostPosted: Fri Dec 20, 2002 2:56 am    Post subject: Reply with quote

Faisal,
I inadvertently missed your name. Thanks a lot
Back to top
View user's profile Send private message
patnekar
Beginner


Joined: 27 Jan 2003
Posts: 41
Topics: 16

PostPosted: Tue Jan 28, 2003 2:24 am    Post subject: Reply with quote

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
View user's profile Send private message Yahoo Messenger
mly
Beginner


Joined: 26 Dec 2002
Posts: 7
Topics: 3

PostPosted: Fri Jan 31, 2003 9:05 pm    Post subject: Reply with quote

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
View user's profile Send private message
Spolacek
Beginner


Joined: 17 Dec 2002
Posts: 17
Topics: 2
Location: NJ, USA

PostPosted: Fri Jan 31, 2003 11:46 pm    Post subject: Reply with quote

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
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Sat Feb 01, 2003 12:37 am    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
Ashish Jain
Beginner


Joined: 09 Dec 2002
Posts: 15
Topics: 0
Location: India

PostPosted: Mon Feb 03, 2003 8:01 am    Post subject: Reply with quote

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
View user's profile Send private message Send e-mail Visit poster's website Yahoo Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Other Technical Topics All times are GMT - 5 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group