Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 1203
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: 19254
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: 19254
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 IEBCOPY - wild-card for member copies??? JPVRoff JCL & VSAM 2 Fri Nov 15, 2019 3:58 am
No new posts adrdssu for copy all data robyjhl JCL & VSAM 5 Tue Nov 12, 2019 11:17 pm
No new posts IEBGENER to copy from FB to VB and re... Mike.Fulton All Other Mainframe Topics 3 Sat Aug 24, 2019 7:20 am
No new posts Copy physical Tape files to a Mainfra... Dadi Krishna Teja JCL & VSAM 11 Thu May 16, 2019 10:25 pm
No new posts How to copy\replace the members in pr... abdulrafi JCL & VSAM 6 Fri Mar 22, 2019 7:02 pm

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