You say "in JCL". The only way that I can think of, off hand, is to run an 
IEFBR14 step at the beginning of the job similar to:

//STEP0001 EXEC PGM=IEFBR14
//DD1 DD DSN=first.file,DISP=(MOD,CATLG),
// UNIT=SYSDA,SPACE=(TRK,1),
// DCB=(...dcb parameters,DSORG=PS)
//DD2 DD DSN=second.file,DISP=(MOD,CATLG),
// UNIT=SYSDA,SPACE=(TRK,1),
// DCB=(...dcb parameters,DSORG=PS)

As I understand it anymore, if the dataset does not exist, this will allocate 
it, catalog it, AND write an EOF record on it. If the dataset already exists, 
it just allocates it, but does nothing else. The writing of the EOF record for 
a new allocation may require that the dataset be SMS managed. I forget if that 
is still a requirement. We do this all the time here. 

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
[email protected] * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

> -----Original Message-----
> From: IBM Mainframe Discussion List 
> [mailto:[email protected]] On Behalf Of Hilario G.
> Sent: Thursday, July 14, 2011 7:40 AM
> To: [email protected]
> Subject: How to control in an JCL that a file is empty or not exist ?
> 
> Hello folks,
> 
> I have several batch processes that contain empty files or 
> files that do not exist. 
> 
> I need to control the execution of certain programs based on 
> the existence of these files (including files created empty).
> 
> I try to used IDCAMS but didn't work in my tests. 
> 
> Thank you very much everyone. 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
> 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to