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
 
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Table(Unicode(Graphic) table) loading... muralikrishnan_new DB2 0 Thu Oct 05, 2017 5:10 pm
No new posts XMITIP sends it out. Can it copy on l... Rommel Dayon Rustia IBM Tools 0 Tue Sep 05, 2017 10:16 am
No new posts Unable to copy data from spool in a d... srikant314 JCL & VSAM 8 Fri Jul 28, 2017 9:10 pm
No new posts How to Use DebugTool CodeCoverage Uti... neo4u IBM Tools 0 Thu Jun 22, 2017 6:38 pm

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