Re: how to copy entire pds to sequential file ?

[Sri h Kolusu]

> hello ,
>
> i want to do this from batch.
>


Weizman,

You can use IEPTPCH+SORT (to remove the carriage control and the header
records)  or if your shop has FILEMANAGER then you can use that to copy the
PDS to a sequential file.

IEPTPCH+SORT solution

//STEP0100 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=SHR,DSN=Your.PDS.to.be.copied
//SYSUT2   DD DSN=&&SOURCE,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//SYSIN    DD *
  PUNCH TYPORG=PO
//*
//STEP0200 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&&SOURCE,DISP=SHR
//SORTOUT  DD DSN=Your.output.Seq.file,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(X,Y),RLSE),
//            RECFM=FB
//SYSIN    DD *
  OPTION COPY
  OMIT COND=(2,11,CH,EQ,C'MEMBER NAME')
  INREC BUILD=(2,80)
/*


File Manager Solution :

//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN     DD DISP=SHR,DSN=Your.PDS.to.be.copied
//DDOUT    DD DSN=Your.output.Seq.file,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(X,Y),RLSE)
//SYSIN    DD *
$$FILEM DSC MEMBER=*
/*


Thanks,
Kolusu

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN