Page 1 of 1
REXX to XDC SYSOUT
Posted:
Wed Jan 27, 2021 3:39 pm
by abhsha27
/*****************************REXX************************************/
/*TRACE ?R*/
ADDRESS TSO
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC F(TEMPPRT) DA('MVS004.MVS004.REXX.OUT(SYSLOG)')
OLD SPACE (50 50) CYL DIR(100)"
JOBID = "STC*"
QUEUE "PRE SYSLOG" /* SDSF COMMANDS IN BATCH*/
QUEUE "ST"
QUEUE "FILTER JOBID" JOBID
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT" /* PRINT TO TEMP DATASET */
QUEUE "PRINT 1 999999"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE "EXIT"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++25,80')"/* INVOKE SDSF */
I get error IKJ56246I DATA SET MVS004.MVS004.REXX.OUT NOT ALLOCATED, FILE IN USE
Please let me know what is wrong.
Re: REXX to XDC SYSOUT
Posted:
Wed Jan 27, 2021 6:48 pm
by NicC
Exactly what it says - the dataset is allocated elsewhere - you do not check the return code
Re: REXX to XDC SYSOUT
Posted:
Wed Jan 27, 2021 6:53 pm
by abhsha27
Return code is 12
Re: REXX to XDC SYSOUT
Posted:
Thu Jan 28, 2021 1:14 pm
by willy jensen
You should check the return code and then stop the program right then and there. But the underlying problem remains the same, the dataset is in use so you must find out who the current holder is and politely ask if s/he could free it. Or use another dataset.
Re: REXX to XDC SYSOUT
Posted:
Thu Jan 28, 2021 1:16 pm
by willy jensen
And by the way, you really really should look at using the SDSF API, described in the SDSF Users's Guide.
Re: REXX to XDC SYSOUT
Posted:
Sat Feb 06, 2021 4:56 am
by Pedro
Exactly what it says - the dataset is allocated elsewhere
Actually, it says "FILE IN USE". It could be a different data set allocated to the SYSOUT file name.