Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Move the members of the PDS into a single PS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
ilakkia
Warnings : 1

New User


Joined: 17 May 2008
Posts: 28
Location: chennai

PostPosted: Mon Jun 23, 2008 5:13 pm    Post subject: Move the members of the PDS into a single PS
Reply with quote

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

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Mon Jun 23, 2008 5:30 pm    Post subject: Re: PDS to PS
Reply with quote

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

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Mon Jun 23, 2008 5:38 pm    Post subject:
Reply with quote

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

Global Moderator


Joined: 06 Jun 2008
Posts: 8055
Location: East Dubuque, Illinois, USA

PostPosted: Mon Jun 23, 2008 5:43 pm    Post subject:
Reply with quote

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

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jun 23, 2008 9:49 pm    Post subject:
Reply with quote

Or depending on the usage of said PS from PDS, like backup, also consider IEBCOPY or ADRDSSU
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. SDSF multiple spool datasets extracte... PJAlarcon CLIST & REXX 1 Fri Apr 21, 2017 10:50 pm
No new posts Data replication from multiple Db2 ta... kishpra DB2 9 Mon Mar 27, 2017 9:58 pm
No new posts Splitting of single report to seperat... abdulrafi TSO/ISPF 7 Mon Mar 27, 2017 3:59 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us