|
View previous topic :: View next topic
|
| Author |
Message |
ilakkia
Warnings : 1
New User
Joined: 17 May 2008
Posts: 28
Location: chennai
|
|
|
|
how to move the members of the PDS into a single PS?
we used the following code but FILEMGR is not support in our system.
//STEP010 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DSN=AAAA.AAA.AAAA,DISP=SHR
//DDOUT DD DSN=AB.ABC.ABCD,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,10),RLSE),
// DCB=(LRECL=80,RECFM=FB,DSORG=PS,BUFNO=18)
//*
Please specify the exact utility that serves my requirement.
Thanks, |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| ilakkia wrote: |
| we used the following code but FILEMGR is not support in our system. |
Then why did you use it?
Anyway, try IEBPTPCH, or write your own program. |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| or use the ispf 3.3 screen, copy the pds(*) to a qsam, define/allocated the qsam as part of 3.3 screen. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| Code: |
// EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=<pds.to.unload>,DISP=SHR PDS INPUT
//SYSUT2 DD DISP=(,CATLG),DSN=<sequential.file>,
// UNIT=SYSDA,SPACE=(CYL,(20,20)),
// DCB=(RECFM=FB,LRECL=81,BLKSIZE=0,DSORG=PS)
//SYSIN DD *
PUNCH TYPORG=PO,MAXFLDS=1
RECORD FIELD=(80)
/* |
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Or depending on the usage of said PS from PDS, like backup, also consider IEBCOPY or ADRDSSU |
|
| Back to top |
|
|
|
|
