getting FILE IN USE error while creating a new DS in REXX

rajat_gupta · New User Joined: 05 Apr 2007 Posts: 15 Location: india

Hi I am copying an existing DS attributes to create a new DS.
But it is showing file in use for the old one.

/* thru this i am getting the name of an existing DS
"ISPEXEC LMDINIT LISTID(DSLIST) LEVEL(&HLQ)"
"ISPEXEC LMDLIST LISTID(&DSLIST)",
"DATASET(DSNVAR) OPTION(LIST) STATS(YES)"
TEMP=DSNVAR

/* thru it i am copying those attributes to create a new DS
"ALLOC DA('"TEMP"') F(DATAIN) SHR REUSE"
"ALLOC DA('"NEWHLQ"') F(DATAOUT) LIKE('"TEMP"') NEW"

If anyone has an idea ,as to how solve this problem then pls help me ASAP.

prasadvrk · Posted: Mon Apr 09, 2007 12:42 pm

I am not very familiar with REXX but try freeing the DSNVAR before creating the new one

expat · Posted: Mon Apr 09, 2007 1:07 pm

Perhaps another job has the file DISP=OLD

dick scherrer · Posted: Mon Apr 09, 2007 11:40 pm

Hello,

I suspect that if you are trying to copy the dataset, you need 2 different names. . . .

jz1b0c · Posted: Tue Apr 10, 2007 3:03 am

TRY THE FOLLOWING BY replacing the datasets with your one

/* REXX */

HLQ = "JZ1B0C.JCLLIB"
"ISPEXEC LMDINIT LISTID(DSLIST) LEVEL(&HLQ)"
"ISPEXEC LMDLIST LISTID(&DSLIST)",
"DATASET(DSNVAR) OPTION(LIST) STATS(YES)"
"ISPEXEC LMDFREE LISTID(&DSLIST)"
TEMP=DSNVAR
say temp
NEWHLQ="JZ1B0C.JCLLIB.NEW"
"ALLOC DA('"TEMP"') F(DATAIN) SHR REUSE"
"ALLOC DA('"NEWHLQ"') F(DATAOUT) LIKE('"TEMP"') NEW"

EXIT