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
