Yes to "So if you write X records and determine you need a different lrecl?"
I will try your suggestions: An IF Statement with a different ALLOC statement with REUSE or MOD might do it. Or you may need to FREE and ALLOC as needed. Tim -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Lizette Koehler Sent: Tuesday, 01 March, 2016 9:40 AM To: [email protected] Subject: Re: rexx and tso alllocate ** THIS IS AN EXTERNAL EMAIL ** Use caution before opening links / attachments. Never supply UserID/PASSWORD information. I am not clear on the question. You can change the attributes (with REXX, IEBGENER, IEBCOPY, Home grown program) when you open and update the file then close it with different LRECL/BLKSIZE. This is how a PDS can be damaged using IEBGENER without specifying a member. Does that answer your question? If not, could you provide more details? So if you write X records and determine you need a different lrecl? Is that the question? So I would think yes. An IF Statement with a different ALLOC statement with REUSE or MOD might do it. Or you may need to FREE and ALLOC as needed. It would help to understand your process better. You might also try the TSO-REXX list as they might have samples already. To join, if you have not done so, go to this URL (bottom of Webpage) TSO REXX https://urldefense.proofpoint.com/v2/url?u=http-3A__www2.marist.edu_htbin_wlvindex-3FTSO-2DREXX&d=BQICAg&c=BY0WRPt8vrhqs_gNwjcMsqT0O3k78MJMGj95ah0eDEA&r=zOHsw49ELZowM6Rv-ZAKUiUor2SACQLxb608FGcJw4s&m=bM0NTXdwW9eabn9mdvuu-6MP8KRnnsfwabTXcgeapQA&s=PlDsZ-ErvHWkoKKFXePJ8Tur6Y-zcKecaxSDIVGfJN8&e= Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of Tim Brown > Sent: Tuesday, March 01, 2016 7:31 AM > To: [email protected] > Subject: rexx and tso alllocate > > In a rexx program I have an allocate, Can the DCB be changed after all > the records are written to it, If I know there are not any records in > it up to a certain size. > > 'ALLOC DA('PDSNF') F ('DDJOB') > SP (40,5) CYLINDERS UNIT(3390) VOLUME(WRK007) RELEASE > DSORG(PS) RECFM( V B A ) LRECL(304) BLKSIZE(27900)' > > Thanks, > Tim Brown ---------------------------------------------------------------------- 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
