> I am tryin to copy a large pds to 2 smaller pds's. I am trying to > copy all members starting from A to F to one pds and copy the rest > of the members - G to Z - to another pds. Could this be done?
Willie, If your shop has FILE-MANAGER then it is quite simple to copy using MEMSTART and MEMEND. You can find the documentation here https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/dscfun.html Here is an example. //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //SYSIN DD * $$FILEM DSC DSNIN=Your.Large.PDS, $$FILEM MEMSTART=A*, $$FILEM MEMEND=F*, $$FILEM DISP=MOD, $$FILEM REPLACE=YES, $$FILEM DSNOUT=Your.SMALL.PDS1 $$FILEM DSC DSNIN=Your.Large.PDS, $$FILEM MEMSTART=G*, $$FILEM MEMEND=Z*, $$FILEM DISP=MOD, $$FILEM REPLACE=YES, $$FILEM DSNOUT=Your.SMALL.PDS2 /* Thanks, Kolusu ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
