IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to copy a PDS to a PS and then copy this PS to a PDS?


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Patrick Bacelar

New User


Joined: 05 Sep 2022
Posts: 3
Location: Brazil

PostPosted: Mon Sep 05, 2022 11:58 pm
Reply with quote

Hi, I'm trying to transmit a partition from one partition of my mainframe to another, so I assumed that first, I need to copy it to a sequential and then, after it is transmitted, copy it again to a PDS.

The first part of copying it from PDS to PS I already managed with help from this forum in another thread, it was like this:

Code:
000001 //BTPOPCPY JOB ...     
000002 //*                                                     
000003 //STEP001 EXEC PGM=IEBPTPCH                           
000004 //SYSUT1 DD DSN=pds_file,DISP=SHR
000005 //SYSUT2 DD DSN=ps_file
000006 // DISP=(,CATLG,DELETE),UNIT=SYSDA,         
000007 // SPACE=(TRK,(350,350),RLSE)               
000008 //SYSPRINT DD SYSOUT=*                                 
000009 //SYSIN DD *                                         
000010 PUNCH TYPORG=PO                                       
000011 /*                                                     
000012 //*


I am trying to do the opposite now, any suggestions?

Thanks!
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 905
Location: Bamberg, Germany

PostPosted: Tue Sep 06, 2022 1:46 am
Reply with quote

The opposite is IEBUPDTE.

PS: If you have BDT/NJE available for use, try XMIT command. Otherwise, ADRDSSU (DFSMSdss) is always a good choice for transferring data.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 628
Location: Denmark

PostPosted: Tue Sep 06, 2022 2:41 am
Reply with quote

For one or two PDSs I would recommend TSO XMIT / RECEIVE regardless of means of transportation. Using XMIT you can fairly easily transport a member or an entire PDS.
For many datasets, PDS or otherwise, I would use ADRDSSU. Note that the ADRDSSU output dataset can be XMITed and RECEIVEd.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 628
Location: Denmark

PostPosted: Tue Sep 06, 2022 2:47 am
Reply with quote

Remember that with ADRDSSU you can rename the restored dataset and then copy selected members to the target pds.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1614

PostPosted: Tue Sep 06, 2022 4:47 am
Reply with quote

Both IEBPTPCH, and IEBUPDTE do support only RECFM=FB,LRECL=80

An alternative option could be IEBCOPY; it supports unloading any PDS to a PS dataset, and loading it back to PDS. Including load libraries, etc.
Back to top
View user's profile Send private message
Patrick Bacelar

New User


Joined: 05 Sep 2022
Posts: 3
Location: Brazil

PostPosted: Sat Sep 10, 2022 7:05 am
Reply with quote

Joerg.Findeisen wrote:
The opposite is IEBUPDTE.

PS: If you have BDT/NJE available for use, try XMIT command. Otherwise, ADRDSSU (DFSMSdss) is always a good choice for transferring data.


In this specific case, I'm trying to transfer it to another partition so I can later download it via ftp. How could ADRDSSU be useful?
Back to top
View user's profile Send private message
Patrick Bacelar

New User


Joined: 05 Sep 2022
Posts: 3
Location: Brazil

PostPosted: Sat Sep 10, 2022 7:07 am
Reply with quote

I'll research the options I've been given and come back here to give feedback soon.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 628
Location: Denmark

PostPosted: Sat Sep 10, 2022 3:15 pm
Reply with quote

"How could ADRDSSU be useful"
You can combine backup of several datasets into backup dataset, then XMIT the backup dataset to a transport dataset, which can be FTPd.
You can use the AMATERSE batch pgm as an alternative to XMIT, i.e.
Code:
//T1       EXEC PGM=AMATERSE,PARM='PACK'                         
//SYSPRINT DD SYSOUT=*                                           
//SYSUT1   DD DISP=SHR,DSN=xx.BACKUP                       
//SYSUT2   DD DSN=xx.BACKUP.AMATERSE,   *FB/1024*           
//            UNIT=SYSDA,DISP=(,CATLG),SPACE=(TRK,(150,150),RLSE)

Unpack sample
Code:
//T2       EXEC PGM=AMATERSE,PARM='UNPACK'         
//SYSPRINT DD SYSOUT=*                             
//SYSUT1   DD DISP=OLD,DSN=xx.BACKUP.AMATERSE             
//SYSUT2   DD UNIT=SYSDA,DISP=(,PASS),DSN=new.LOADLIB,
//            DCB=(xx.LIB.LOADLIB),             
//            SPACE=(TRK,(8,8,8))
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 905
Location: Bamberg, Germany

PostPosted: Tue Sep 13, 2022 11:50 am
Reply with quote

Basically you can FTP the DFDSS Dump as well, when size is not a limitation.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Copy few lines from SYSOUT of 10 mill... All Other Mainframe Topics 5
No new posts Replace a string in a VB file and cop... DFSORT/ICETOOL 2
No new posts Copy next subsquent records based on ... DFSORT/ICETOOL 5
No new posts selectively copy based on condition DFSORT/ICETOOL 3
No new posts copy all members in a roscoe library ... TSO/ISPF 9
Search our Forums:

Back to Top