On Thu, Oct 19, 2017 at 1:27 PM, PINION, RICHARD W. < [email protected]> wrote:
> I think I know that the answer is "no", but I'll ask anyway in > case it is possible. I have a NEW,CATLG data set that is allocated > to tape via JCL. I have a REXX/CLIST that is running in the step > that has the tape data set. I would like to FREE that data set > from the REXX/CLIST and then allocate a NEW CATALOG of the > same data set name to DASD from the REXX/CLIST. Aside > from using SMS to redirect the allocation to DASD is this > possible? > FIRST TENNESSEE > > I will list my assumptions. First there is a DD of some name, say MYDDN (which is known to the CLIST ), which is allocated to a specific DSN (which is NOT know to the CLIST), say SOME.DATA.SET.NAME. It has a DISP of NEW,CATLG. You would like to FREE the current allocation; delete the tape DSN (if necessary); then allocate the same DSN to UNIT=SYSDA (or other disk). Can it be done? Yes. But I'm not going to write the code. And I don't know CLIST, so my answer is assuming REXX code. First, determine the DSN allocated to MYDDN. The simplest way to do this is with BPXWDYN with an "INFO" request. ref: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxb600/bpx1rx78.htm rc=bpxwdyn("info dd(MYDDN) inrtdsn(DSNAME)") address tso "free ddn(mydsn)" address tso "del '"DSNAME"'" Now allocate the DSNAME using the normal TSO ALLOC or BPXWDYN("ALLOC ...") command. -- I just child proofed my house. But the kids still manage to get in. Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
