Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 4650
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: 6968
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: 8165
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
No new posts More than 1 Include criteria for sing... Roy Ware SYNCSORT 6 Wed Sep 13, 2017 11:45 pm
No new posts Historical/statistical details for me... elixir1986 TSO/ISPF 13 Wed Aug 30, 2017 9:02 pm
No new posts Move from Comp3 variable to Edited Va... sreekusr COBOL Programming 8 Thu Aug 10, 2017 4:20 pm
No new posts Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us