I just reviewed the Application Programmer section in z/OS DFSMS Using the New Functions SC26-7473-11 for FREEVOL.
The primary application programming task for this support is coding the new JCL parameter: FREEVOL=EOV to allow different systems in the sysplex to read multivolume tape files more efficiently. Specifying FREEVOL=EOV in JCL results in dequeueing of the tape volume serial number and in demounting the volume when it is read, which then makes the volume available to another system. Note: FREEVOL=EOV performs a similar function to the Deq at Demount facility but with these differences: FREEVOL=EOV does not require APF authorization, and since it is implemented in the JCL, no changes to the application are required. FREEVOL=EOV is honored only for input processing. EOV and CLOSE volume disposition processing will unload the volume when the disposition would otherwise be REWIND. For an input specific mount request and when FREEVOL=EOV is requested, OPEN and EOV issue the following abends if the task using the same JCL DD statement attempts to reprocess a previously DEQ'd volume serial number: OPEN: IEC145I 413-60 EOV: IEC026I 637-C0 It does state "different systems" so I would concur that if you only have SYST it probably will not work. If you had a job on SYST and one on SYSA then it should work. Lizette -----Original Message----- >From: Mary Anne Matyaz <[email protected]> >Sent: Jan 8, 2013 10:48 AM >To: [email protected] >Subject: Re: FREEVOL=EOV on R1.13 > >I believe the jobs need to be on different systems...doc seems to indicate >that. > >MA > >On Tue, 8 Jan 2013 11:45:29 -0600, Mark Zelden <[email protected]> wrote: > >>I haven't tried it. Are you sure it wasn't processing? Note the list in >>"JOB 2" did not >>include H38479 which had already been dismounted when the job started. >>H25146, >>the 2nd volume was dismounted at 23:10, but someone already replied "NO" to >>IEF235D which canceled JOB 2. >> >>-- >>Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >>mailto:[email protected] >>Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html >>Systems Programming expert at http://expertanswercenter.techtarget.com/ >> >> >> >>On Tue, 8 Jan 2013 17:27:21 +0000, Mingee, David >><[email protected]> wrote: >> >>>Yes, see below: >>>JOB 1 >>>23.01.48 JOB25740 $HASP373 DRAHDLM2 STARTED - INIT 5 - CLASS 3 - SYS >>>SYST >>>23.01.48 JOB25740 IEF403I DRAHDLM2 - STARTED - TIME=23.01.48 >>> >>>23.01.48 JOB25740 IEF233A M >>>0A94,H38479,,DRAHDLM2,S04,ICAS.CAD.PREMS.THRU1212.V1TAPE >>>23.05.24 JOB25740 IEC502E K >>>0A94,H38479,SL,DRAHDLM2,S04,ICAS.CAD.PREMS.THRU1212.V1TAPE >>>23.05.24 JOB25740 TMS014 IEC502E K >>>0A94,H38479,SL,DRAHDLM2,S04,ICAS.CAD.PREMS.THRU1212.V1TAPE >>>23.05.24 JOB25740 IEC501A M >>>0A94,H25146,SL,COMP,DRAHDLM2,S04,ICAS.CAD.PREMS.THRU1212.V1TAPE >>>23.10.18 JOB25740 IEC502E K >>>0A94,H25146,SL,DRAHDLM2,S04,ICAS.CAD.PREMS.THRU1212.V1TAPE >>>23.10.18 JOB25740 TMS014 IEC502E K >>>0A94,H25146,SL,DRAHDLM2,S04,ICAS.CAD.PREMS.THRU1212.V1TAPE >>>23.10.19 JOB25740 IEC501A M >>>0A94,H25696,SL,COMP,DRAHDLM2,S04,ICAS.CAD.PREMS.THRU1212.V1TAPE >>> >>>//S04 EXEC PGM=EZTPA00 >>>//SYSPRINT DD SYSOUT=H >>>//SYSSNAP DD SYSOUT=H >>>//SYSOUT DD SYSOUT=H >>>//SYSUDUMP DD SYSOUT=H >>>//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//EZTVFM DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//FILEA DD DSN=ICAS.CAD.PREMS.THRU1212.V1TAPE,DISP=SHR, >>>// FREEVOL=EOV >>>//FILEC DD DSN=GRT.GIOIDXM.PREMS.THRU1212.V1, >>>// DISP=(NEW,DELETE),DATACLAS=DSORGPSE, >>>// DCB=(RECFM=VB,LRECL=1078,BLKSIZE=0), >>>// UNIT=DISK,SPACE=(CYL,(3300,1100),RLSE) >>> >>>JOB 2 >>>23.06.07 JOB25741 $HASP373 DRAHDLM3 STARTED - INIT 7 - CLASS 3 - SYS >>>SYST >>>23.06.07 JOB25741 IEF403I DRAHDLM3 - STARTED - TIME=23.06.07 >>> >>>23.06.07 JOB25741 IEF690I FOLLOWING VOLUMES UNAVAILABLE TO DRAHDLM3 S04 >>>192 >>> 192 IEF690I H25146 H25696 H26646 H26772 H39385 H46181 H27224 >>> H28986 >>>23.06.07 JOB25741 *166 IEF235D DRAHDLM3 S04 WAITING FOR VOLUMES. TO CANCEL >>>WAIT REPLY 'NO' >>>23.07.12 JOB25741 R 166,NO >>> >>>23.07.12 JOB25741 IEF251I DRAHDLM3 JOB CANCELLED >>> >>>23.07.12 JOB25741 - -----TIMINGS >>>(MINS.)------ >>>23.07.12 JOB25741 -STEPNAME PROCSTEP RC EXCP CONN TCB >>>SRB CLOCK >>> >>>//S04 EXEC PGM=EZTPA00 >>>//SYSPRINT DD SYSOUT=H >>>//SYSSNAP DD SYSOUT=H >>>//SYSOUT DD SYSOUT=H >>>//SYSUDUMP DD SYSOUT=H >>>//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//EZTVFM DD UNIT=DISK,SPACE=(CYL,(50,100),RLSE) >>>//FILEA DD DSN=ICAS.CAD.PREMS.THRU1212.V1TAPE,DISP=SHR >>>//FILEC DD DSN=GRT.GIOIDXM.PREMS.THRU1212.V2, >>>// DISP=(NEW,DELETE),DATACLAS=DSORGPSE, >>>// DCB=(RECFM=VB,LRECL=1078,BLKSIZE=0), >>>// UNIT=DISK,SPACE=(CYL,(4000,1100),RLSE) >>> >>> >>> >>>-----Original Message----- >>>From: IBM Mainframe Discussion List [mailto:[email protected]] On >>>Behalf Of Lizette Koehler >>>Sent: Tuesday, January 08, 2013 11:41 AM >>>To: [email protected] >>>Subject: Re: FREEVOL=EOV on R1.13 >>> >>>Could you provide the JCL you are using? >>> >>>Lizette >>> >>>> -----Original Message----- >>>> From: IBM Mainframe Discussion List [mailto:[email protected]] >>>> On >>>Behalf >>>> Of Mingee, David >>>> Sent: Tuesday, January 08, 2013 9:38 AM >>>> To: [email protected] >>>> Subject: FW: FREEVOL=EOV on R1.13 >>>> >>>> Hi SME's >>>> ��������� Has anyone successfully used the new KEYWORD FREEVOL=EOV on >>>> z/OS R1.13.� I read the manuals and must be missing something as I >>>> cannot get 2 >>>jobs to >>>> read the same input multi volume tape. �The second job waits on the >>>> tape >>>as in the >>>> past. �I would greatly appreciate advice. >>> ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
