There's a program on one of the CBTTape site "tapes" (I'm sure someone will jump in with the number of the tape) called UPDTE that can handle any LRECL, been using it for years.
Robert On Thu, 20 Apr 2023 at 15:46, Lennie Dymoke-Bradshaw < [email protected]> wrote: > This is a good solution but I have a feeling this only works with certain > DCBs. I think it is limited to a maximum LRECL of 80 bytes. > Lennie > > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On Behalf > Of Wendell Lovewell > Sent: 20 April 2023 15:18 > To: [email protected] > Subject: Re: Rexx Exec to Build 10,000 PDS Members: ALLOC vs ISPF Services > vs ? > > I don't know about the logic required to create a member -- Kolusu might > have the best idea. But creating one long sequential file with all the > members and using IEBUPDTE is pretty simple: > > //STEP1 EXEC PGM=IEBUPDTE,PARM=MOD > //SYSPRINT DD SYSOUT=* > //SYSUT1 DD DISP=OLD,DSN=SOME.PDSE > //SYSUT2 DD DISP=OLD,DSN=SOME.PDSE > //SYSIN DD DATA > ./ ADD NAME=BLUE1 > > The sky appears blue because of a > phenomenon called Rayleigh scattering. > > ./ ADD NAME=BLUE2 > > When sunlight enters the Earth's > atmosphere, it is scattered in all > directions by the gases and particles in the air. > > ./ ADD NAME=BLUE3 > > Blue light has a shorter > wavelength and is more easily scattered > than other colors, which is why we see > the sky as blue during the day. > > /* > // > > (I've included blank lines around the text for clarity here. All that's > needed between members is the ./ ADD NAME=membername.) > > This assumes you want to recreate the PDSE each time. "Monica" says > IEBUPDTE won't delete from a PDSE like it will from a PDS. (I've not found > "Monica" to be all that accurate so far though.) > > Hth, > > Wendell > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Robert AH Prins robert(a)prino(d)org The hitchhiking grandfather <https://prino.neocities.org/index.html> Some REXX code for use on z/OS <https://prino.neocities.org/zOS/zOS-Tools.html> ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
