Because I won't know if the dataset will be cataloged or not, hence the use of IDCAMS to avoid a JCL error.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of McKown, John Sent: Friday, December 04, 2009 11:39 AM To: [email protected] Subject: Re: IDCAMS Delete via DD Why do you even want to do that??? Use IEFBR14 instead, with DISP=(MOD,DELETE). Or, as I do: //STEP1 EXEC PGM=IKJEFT01, // PARM='DEL &DSN' //SYSTSIN DD DUMMY //SYSTSPRT DD SYSOUT=* If your reason is to pass the DSN via a PROC parm or a JCL SET symbol. Use IKJEFT1B if you want a return code from the DEL. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell [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 George.William > Sent: Friday, December 04, 2009 1:34 PM > To: [email protected] > Subject: IDCAMS Delete via DD > > I'm drawing a blank here; > > when deleting sequential files (non-vsam) is it possible to use a DD > reference in the IDCAMS cards instead of coding the actual > dataset name > in the DELETE statement? The example below doesn't seem to work for > me. > > Note: it's been awhile since I've had to use IDCAMS and a look at the > guide seems to show it is NOT possible but dang... I swear this was > possible. Sigh, how quickly one forgets things. > > > > //STEP01 EXEC PGM=IDCAMS,REGION=4096K > > //SYSPRINT DD SYSOUT=* > > //INDD01 DD DSN=Q6498.TEST.DATASET, > > // DISP=(MOD,PASS), > > // UNIT=SYSDA,SPACE=(TRK,(60,5),RLSE) > > //SYSOUT DD SYSOUT=* > > //SYSIN DD * > > DELETE INFILE(INDD01) PURGE > > SET MAXCC = 0 ---------------------------------------------------------------------- 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
