IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Copy PDS to PS using IEBCOPY utility


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
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
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: 1208
Location: Bangalore,India

PostPosted: Mon Feb 19, 2007 3:09 pm
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: 3156
Location: Tucson AZ

PostPosted: Mon Feb 19, 2007 4:49 pm
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
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

Moderator Emeritus


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

PostPosted: Tue Feb 20, 2007 8:44 am
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

Moderator Emeritus


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

PostPosted: Tue Feb 20, 2007 8:48 am
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts VB to VB copy - Full length reached SYNCSORT 8
No new posts REASON 00D70014 in load utility DB2 6
No new posts Need COBOL COPY Help in MVS Environment COBOL Programming 4
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
No new posts DB2 Table - Image copy unload IBM Tools 2
Search our Forums:

Back to Top