Hi All,
I have here again a problem!!!!
1.Used the command "HLIST LEVEL(DSLEVEL) BCDS ODS('DSN')" where DN has been allocated in the REXX itself . But I get the below error
RACF1LVL.DSN CL(DATASET ) VOL( )
DEFINE - RESOURCE NOT PROTECTED
ARC0141I ERROR ALLOCATING OUTPUT DATA SET
2. Used the command HLIST DSNAME('"DSN"') BCDS
where I am getting the o/p but I amd not able to save the output. Will the data not saved to some system varible like(ZDSCDATE) . Pls tell me knwo if there is any variable for HLIST?
3 Used the command HLIST DSNAME('"DSN"') BCDS ODS('DSN')"
RACF1LVL.DSN CL(DATASET ) VOL( )
DEFINE - RESOURCE NOT PROTECTED
ARC0141I ERROR ALLOCATING OUTPUT DATA SET
NOW WITH COMMAND BACKDATE
Here is the code:
/* REXX */
DUH_USER = USERID()
DSN=DUH_USER'.DATASET.LIST'
Y = DSNCKC(DSN)
ADDRESS TSO
"ALLOC F(OUT) DA('"DSN"') NEW TRACKS SPA(60 45) " ,
" LRECL(80) RECFM(F B) BLKSIZE(9040) DSORG(PS)"
IF RC > 0 THEN
DO
SAY 'ALLOCATION FAILED RC=:' RC
ADDRESS TSO 'FREE F(OUT)'
EXIT
END
SAY "ENTER HLQ"
PARSE UPPER PULL DSN1
ADDRESS TSO
"HLIST DSNAME('"DSN1"') BCDS ODS('DSN')"
SAY 'NOW WITH COMMAND ' BACKDATE
IF RC > 0 THEN
SAY 'YOUR O/P IS WRITTEN TO THE FILE ' DSN
ELSE
SAY 'SORRY SOME ERROR HAS OCCURED' RC
EXIT
DSNCKC: PROCEDURE
PARSE ARG DSN
DSN = "'"DSN"'"
ADDRESS TSO
X = SYSDSN(DSN)
IF X ¬= 'OK' THEN RETURN DSN
ELSE
DO
ADDRESS TSO DELETE DSN
IF RC = 0 THEN SAY 'DELETED'
ELSE SAY 'NOT DELETED'
RETURN DSN
END
Hope someone helps me to solve the issue???
Please dnt close this topic. I have been trying in all the ways and as do as much as I can do..I just need small help or advice? pls