My DISP=MOD was simpler.
//IEBGENER EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=X
//SYSIN DD DUMMY
//SYSUT1 DD *
Add this line
add this one too
//SYSUT2 DD DISP=MOD,DSN=SOMEPDS(MEMBER)
The MOD was an attempt to append to the end of the dataset. It would work with
just a dataset but not a PDS or library. I forgot about the nature of PDS's
that you don't really modify members, you create new ones each time when you
modify one.
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
Haynes, Stan
Sent: Tuesday, February 15, 2011 8:50 AM
To: [email protected]
Subject: Re: Adding Lines to End of Member
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
----------------------------------------------------------------------
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
