This worked for me: //ADDLINES PROC M= //GENER EXEC PGM=IEBGENER //SYSUT1 DD DSN=SZH120.PLAY.CNTL(&M),DISP=OLD // DD DSN=SZH120.TEST.CNTL(TWOLINES),DISP=SHR //SYSUT2 DD DSN=SZH120.PLAY.CNTL(&M),DISP=OLD //SYSPRINT DD DUMMY //SYSIN DD DUMMY // PEND //* //S1 EXEC ADDLINES,M=J
Why use DISP=MOD ? You're not adding members, you're replacing them, so DISP=OLD is indicated (SHR works too). Stan mailto:[email protected] (613) 941-8091 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Eric Verwijs Sent: February 15, 2011 8:40 AM To: [email protected] Subject: Re: Adding Lines to End of Member I tried using DISP=MOD but it failed with SB14-04. Duplicate name in the directory. I suppose that will happen no matter which utility you use, IEBGENER, IDCAMS or your own program. Oh well. I didn't know you couldn't use DISP=MOD for a PDS or library. Regards, Eric Verwijs Programmer Analyst | Programmeur-analyste CPP/ OAS/ IA Production Support Team | Équipe de soutien à la production RPC / SV / IA [email protected] Telephone | Téléphone 613-941-7492 Facsimile | Télécopieur 613-941-4234 National Headquarters | Administration Centrale Human Resources and Skills Development Canada | Ressources humaines et Développement des compétences Canada Government of Canada | Gouvernement du Canada -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Adam Johanson Sent: Monday, February 14, 2011 1:12 PM To: [email protected] Subject: Re: Adding Lines to End of Member >Not very pretty.... >//COPSTEP EXEC PGM=IEBGENER >//SYSPRINT DD SYSOUT=* >//SYSIN DD DUMMY >//SYSUT1 DD DISP=SHR,DSN=my.pds(MEMBERNAME) >// DD * > Some kind of junk > More junk >//SYSUDUMP DD SYSOUT=* >//SYSUT2 DD DISP=(SHR),DSN= my.pds(MEMBERNAME) Ah yeah, good thought. That works; thanks. - Adam ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
