|
View previous topic :: View next topic
|
| Author |
Message |
Patrick Bacelar
New User
Joined: 05 Sep 2022
Posts: 15
Location: Brazil
|
|
|
|
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 |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany
|
|
|
|
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 |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015
Posts: 712
Location: Denmark
|
|
|
|
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 |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015
Posts: 712
Location: Denmark
|
|
|
|
| Remember that with ADRDSSU you can rename the restored dataset and then copy selected members to the target pds. |
|
| Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2023
Location: USA
|
|
|
|
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 |
|
|
Patrick Bacelar
New User
Joined: 05 Sep 2022
Posts: 15
Location: Brazil
|
|
|
|
| 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 |
|
|
Patrick Bacelar
New User
Joined: 05 Sep 2022
Posts: 15
Location: Brazil
|
|
|
|
| I'll research the options I've been given and come back here to give feedback soon. |
|
| Back to top |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015
Posts: 712
Location: Denmark
|
|
|
|
"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 |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany
|
|
|
|
| Basically you can FTP the DFDSS Dump as well, when size is not a limitation. |
|
| Back to top |
|
|
|
|
