On Thu, 31 Mar 2011 23:50:43 -0500, Paul Gilmartin <[email protected]>
wrote:
>A recent thread here mentioned "atomic rename" of Classic data sets.
>I don't think there is such a thing, but I tried to synthesize it
>with:
>
I've run your example here and it behaves exactly as I expected:
- the allocate dd(atomic) new delete dsn(TEMP.DUP1) fails because the
dataset already exists.
- the delete TEMP.DUP1 simply deletes it.
- the rename TEMP.DUP2 TEMP.DUP1 renames...
- the free dd(atomic) fails because it was never allocated.
ICH70001I JANTJE LAST ACCESS AT 11:17:35 ON MONDAY, APRIL 4, 2011
IEF236I ALLOC. FOR JANTJEM RENAME
IEF237I JES2 ALLOCATED TO SYSTSPRT
IEF237I JES2 ALLOCATED TO SYSTSIN
IGD103I SMS ALLOCATED TO DDNAME SYS00001
IGD104I JANTJE.TEMP.DUP1 RETAINED,
DDNAME=SYS00001
IGD103I SMS ALLOCATED TO DDNAME SYS00002
IGD104I JANTJE.TEMP.DUP2 RETAINED,
DDNAME=SYS00002
IEF142I JANTJEM RENAME - STEP WAS EXECUTED - COND CODE 0012
IEF285I JANTJE.JANTJEM.JOB24384.D0000102.? SYSOUT
IEF285I JANTJE.JANTJEM.JOB24384.D0000101.? SYSIN
IEF373I STEP/RENAME /START 2011094.1222
IEF374I STEP/RENAME /STOP 2011094.1222 CPU 0MIN 00.03SEC SRB
0MIN 00.00SEC V
IEF202I JANTJEM ENQ - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I JANTJEM ENQ - STEP WAS NOT EXECUTED.
IEF373I STEP/ENQ /START 2011094.1222
IEF374I STEP/ENQ /STOP 2011094.1222 CPU 0MIN 00.00SEC SRB 0MIN
00.00SEC V
IEF375I JOB/JANTJEM/START 2011094.1222
IEF376I JOB/JANTJEM/STOP 2011094.1222 CPU 0MIN 00.03SEC SRB
0MIN 00.00SEC
READY
allocate dd(atomic) new delete dsn(TEMP.DUP1)
IKJ56893I DATA SET JANTJE.TEMP.DUP1 NOT ALLOCATED+
IGD17101I DATA SET JANTJE.TEMP.DUP1
NOT DEFINED BECAUSE DUPLICATE NAME EXISTS IN CATALOG
RETURN CODE IS 8 REASON CODE IS 38 IGG0CLEH
READY
delete TEMP.DUP1
IDC0550I ENTRY (A) JANTJE.TEMP.DUP1 DELETED
READY
rename TEMP.DUP2 TEMP.DUP1
READY
free dd(atomic)
IKJ56247I FILE ATOMIC NOT FREED, IS NOT ALLOCATED
READY
END
Cheers,
Jantje.
----------------------------------------------------------------------
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
