Date: Wed, 22 May 2002 17:58:59 -0500
Reply-To: "Smith, Curtis, Mr, DCAA" <Curtis.Smith@DCAA.MIL>
Sender: "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From: "Smith, Curtis, Mr, DCAA" <Curtis.Smith@DCAA.MIL>
Subject: Re: How do I release that file
Content-Type: text/plain; charset="iso-8859-1"
Here a couple things that might help (although, now that I have moved most of my MVS stuff to a Windows based server, I'm a little MVS rusty). Here is some JCL that I use for a job that uses several SAS data libraries that are stored on tape. I use each one in my program in sequence. I think you are using the tape for external files, but the process should be the same.
//TPCG2000 DD DSN=MDAC.AUDIT.SAS.WIPMON.CG200012,
// UNIT=(TAPE80,,DEFER),VOLUME=(,,,15),
// DISP=(NEW,CATLG,DELETE),LABEL=(1,SL,EXPDT=2005/365),
// DCB=(RECFM=U,LRECL=32756,BLKSIZE=32760)
//TPAG2000 DD DSN=MDAC.AUDIT.SAS.WIPMON.AG200012,
// VOLUME=(,,,15),UNIT=AFF=TPAC2000,
// DISP=(NEW,CATLG,DELETE),LABEL=(1,SL,EXPDT=2005/365),
// DCB=(RECFM=U,LRECL=32756,BLKSIZE=32760)
As was previously mentioned, the unit=aff= sub parameter says to mount the tape on the same actual drive as the tape referenced in the unit=aff=. The defer sub parameter says to not mount the tape unit the program opens the file. Check your SAS Companion manual for MVS to determine if all the sub parameters you need are available in SAS code. If so, you can program this in SAS rather than using JCL. Finally, within your SAS program you can issue a Libname or Filename statement followed by the Libref or Fileref to release the file that was open.
-----Original Message-----
From: Pleasant, David (CAP, CARD) [mailto:David.Pleasant@GECAPITAL.COM]
Sent: Wednesday, May 22, 2002 11:51 AM
To: SAS-L@LISTSERV.UGA.EDU
Subject: Re: How do I release that file
Ok, I need to clarify. The file I need to release is on Tape. When these jobs are running the can bring down the whole system. I need to make them flow better.
Thank you for your help.
Thanks and Regards
GE Card Services ____________________________________________________________________________
___________________________________________
> David Pleasant
> Programmer Analyst
> GE Card Services
> 4500 Munson Street N.W.
> Canton, OH 44718
> Phone: (330) 433-5816 Dial Comm 360-5816
> Fax: (330) 433-5602 Dial Comm 360-5602
> E-Mail: David.Pleasant@gecapital.com
>
> "This email message is for the sole use of the intended recipient(s)
> and
may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message."
-----Original Message-----
From: Peter Crawford [mailto:peter.crawford@db.com]
Sent: Wednesday, May 22, 2002 12:32 PM
To: Pleasant, David (CAP, CARD)
Cc: SAS-L@LISTSERV.UGA.EDU
Subject: RE: How do I release that file
change your code so that the file is allocated with parameter
disp=shr
as in jcl like
//FILEX DD DSN=AAA.BBB.CCCCCCC.DD,DISP=SHR
or in sas code like
filename filex 'aaa.bbb.ccccccc.bb' disp=shr ;
This parameter acts like it sounds
.........for "shr" think "share"
Any number of os/390 tasks or jobs can allocate the file this way. concurrently! Of course concurrent access performance won't be any good it this file is on tape, but you understood that any way !
I do not know how you might release a file allocated in jcl, but if it is allocated by a sas filename statement, it can be released with another filename statement...... like
filename filex clear;
or even just
filename filex ;
good luck
Peter Crawford
Datum: 22/05/2002 16:23
An: SAS-L@LISTSERV.UGA.EDU
Antwort an: "Pleasant, David (CAP, CARD)" <David.Pleasant@GECAPITAL.COM>
Betreff: How do I release that file
Nachrichtentext:
My group just received several programs that each pulls in the same 27 month end files containing over 100mm records each. I run SAS 6.? on a mainframe using JCL to load the files. My question is, once I read the data into a temporary dataset, how can I release the file, so another job can access that file.
I ultimately will make these job more efficient by reading the data only once and manipulating the same temporary dataset for each of the programs. Right now, I just want to get their programs to run with out keeping everyone else from hitting these important files.
Thank you for your help.
Thanks and Regards
GE Card Services ____________________________________________________________________________
___________________________________________
> David Pleasant
> Programmer Analyst
> GE Card Services
> 4500 Munson Street N.W.
> Canton, OH 44718
> Phone: (330) 433-5816 Dial Comm 360-5816
> Fax: (330) 433-5602 Dial Comm 360-5602
> E-Mail: David.Pleasant@gecapital.com
>
> "This email message is for the sole use of the intended recipient(s)
> and may contain confidential and privileged information. Any
> unauthorized review, use, disclosure or distribution is prohibited.
> If you are not the intended recipient, please contact the sender by
> reply email and destroy all copies of the original message."
>
--
Diese E-Mail enthält vertrauliche und/oder rechtlich geschützte Informationen. Wenn Sie nicht der richtige Adressat sind oder diese E-Mail irrtümlich erhalten haben, informieren Sie bitte sofort den Absender und vernichten Sie diese Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser Mail ist nicht gestattet.
This e-mail may contain confidential and/or privileged information. If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and destroy this e-mail. Any unauthorized copying, disclosure or distribution of the material in this e-mail is strictly forbidden.
| 
