|
View previous topic :: View next topic
|
| Author |
Message |
paragars
Warnings : 1
New User
Joined: 15 Feb 2007
Posts: 4
Location: Pune
|
|
|
|
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 |
|
 |
guptae
Moderator
Joined: 14 Oct 2005
Posts: 1209
Location: Bangalore,India
|
|
|
|
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 |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
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 |
|
|
ghanshyam
New User
Joined: 06 Aug 2006
Posts: 3
Location: delhi
|
|
|
|
//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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
