Copy all the members of a PDS into a single PS file
Posted: Sun Aug 04, 2024 6:42 pm
I want to copy all the members of a PDS into a single PS file. I am using IEBCOPY but it is giving the PS file output in VS RECFM. How to sloeve this?
Example
Code: Select all
000001 //EPBPTBCH JOB 'Merging PDS members to PS',CLASS=A,
000002 // MSGLEVEL=(1,1),MSGCLASS=X
000003 //*
000004 //SQLTOSEQ EXEC PGM=IEBPTPCH
000005 //SYSPRINT DD SYSOUT=*
000006 //SYSUT1 DD DISP=SHR,DSN=EP10.JCB.SQL
000007 //SYSUT2 DD DISP=OLD,DSN=EP10.JCB.SQL.SEQUENTL <-- lrecl=81
000008 //SYSIN DD *
000009 PUNCH TYPORG=PO,DBCS=YES
000010 /*