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
 

 

Copy PDS to PS using IEBCOPY utility

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
paragars
Warnings : 1

New User


Joined: 15 Feb 2007
Posts: 4
Location: Pune

PostPosted: Mon Feb 19, 2007 2:28 pm    Post subject: Copy PDS to PS using IEBCOPY utility
Reply with quote

Hi All,
I want to copy a PDS to PS file. I used IEBCOPY utility but I got the output in VS format and record lenght as 516. The jcl I have used is

//STEP020 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PDS.FILE, ***********PDS
// DISP=SHR
//SYSUT2 DD DSN=PROCLIB.TEST3, **********PS
// UNIT=SYSDA,
// SPACE=(CYL,(5,15),RLSE),
// DCB=(RECFM=FB,BLKSIZE=500,LRECL=50),
// DISP=(MOD,CATLG,DELETE)
//SYSIN DD *
COPY OUTDD=SYSUT2,INDD=SYSUT1
/*
Can we convert the VS file to FB file of record lemgth 50?


Also I have tried with the IEBPTPCH, the jcl i have used is
//STEP020 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PDS.FILE,
// DISP=SHR
//SYSUT2 DD DSN=PROCLIB.TEST1,
// UNIT=SYSDA,
// SPACE=(CYL,(5,15),RLSE),
// DCB=(RECFM=FB,BLKSIZE=500,LRECL=50),
// DISP=(NEW,CATLG,DELETE)
//SYSIN DD *
PRINT TYPORG=PS
/*

I got an error for above is:
PRINT/PUNCH DATA SET UTILITY
PRINT TYPORG=PS
EOF ON SYSIN
IEB421I I/O ERROR ,AB3771CP,STEP020 ,CBB9,D,SYSUT1 ,GET ,WRNG.LEN.RECORD,0000063C000000,QSAM

Can anyone help me out to copy PDS to PS file.
Back to top
View user's profile Send private message

guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Feb 19, 2007 3:09 pm    Post subject:
Reply with quote

Hi There,

What is Record format & length of ur i/p file ?
If it is not 50 then which bytes u want to copy ?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Feb 19, 2007 4:49 pm    Post subject:
Reply with quote

Why are you trying to copy a entire PDS to a PS?
Which member of the PDS are you trying to copy?
Back to top
View user's profile Send private message
ghanshyam

New User


Joined: 06 Aug 2006
Posts: 3
Location: delhi

PostPosted: Mon Feb 19, 2007 6:02 pm    Post subject: Re: Copy PDS to PS.
Reply with quote

//jobx job notify=&sysuid
//* this jcl is use for copy from pds to another ps file
//step1 exec pgm=iebgener
//sysut1 dd dsn=inputfilename(member-name),disp=shr
//sysut2 dd dsn=outputpsfile,disp=shr
//sysprint dd sysout=*
//sysin dd *
/*
//
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Feb 20, 2007 8:44 am    Post subject:
Reply with quote

Hello,

If you want to copy all of the members of a pds to a single sequential file you can use:
Code:

//IEBPTPCH EXEC PGM=IEBPTPCH
//SYSUT1    DD DSN=your.pds,DISP=SHR
//SYSUT2    DD DSN=your.ps.file,DISP=(,CATLG,DELETE),UNIT=SYSDA,
//                     SPACE=(CYL,(pri,sec),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN      DD *
  PUNCH TYPORG=PO
/*


This will create a PS file that has each member name and the contents of that member.

You can specify SYSOUT=* instead of a PS dsn if you just want to print them.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Feb 20, 2007 8:48 am    Post subject:
Reply with quote

Hello,

You'll need to move the SPACE parameter back to col 16. The DDs should be in col 12. Sorry 'bout that.

This 3270 emulator doesn't support copy/paste. . . .

Meant to preview, but clicked submit - oops.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 1 Mon Jan 02, 2017 11:16 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm


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