Certainly "interesting", I'll give you that. :-) Do you use this in production jobs? Is it clearly understood by others?
It seems to work. The (,,RLSE) mentioned elsewhere is not allowed, but (1,1,RLSE) is: //ALLOC JOB ,'FILE ALLOCATIONS',NOTIFY=&SYSUID //MAIN EXEC PGM=IDCAMS //ALLOC DD DSN=DVFJS.MY.FILE, // SPACE=(CYL,(10,1)), // DISP=(MOD,CATLG) //INFILE DD * THIS IS A TEST //MYFILE DD DISP=OLD,DSN=*.ALLOC, // VOL=REF=*.ALLOC, // SPACE=(1,1,RLSE), // LRECL=80,RECFM=FB //SYSPRINT DD SYSOUT=* //SYSIN DD * REPRO INFILE(INFILE) OUTFILE(MYFILE) /* Frank >________________________________ > From: Paul Gilmartin <paulgboul...@aim.com> >To: IBM-MAIN@bama.ua.edu >Sent: Friday, February 24, 2012 8:06 PM >Subject: Re: Thought: new DISP "status" function > >On Fri, 24 Feb 2012 15:48:57 -0800, Frank Swarbrick wrote: > >>I'm not clear on what you are doing here. Are you saying this is somehow a >>replacement for this? > >//REUSE EXEC PGM=IEFBR14 >//MYFILE DD DSN=MY.FILE,SPACE=(0,0),DISP=(MOD,DELETE) >//MYPGM EXEC PGM=MYPGM >//MYFILE DD DSN=MY.FILE,SPACE=(CYL,(100,10),RLSE),DISP=(NEW,CATLG) > >Yes, provided you're willing/intending to reuse the data set if it exists >rather than deleting and reallocating. > >How would this look using your method? > >//MYPGM EXEC PGM=MYPGM >//ALLOC DD DSN=MY.FILE,SPACE=(CYL,(100,10)),DISP=(MOD,CATLG) /* UNIT= or >SMS? */ >//MYFILE DD DISP=OLD,DSN=*.ALLOC,VOL=REF=*.ALLOC > >(From memory; not lately tested.) > >(I don't know how to deal with the RLSE option.) > >-- gil > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
