by seemapandian » Mon Oct 24, 2011 10:10 am
I have tried the below code.
/*REXX */
ADDRESS TSO
"ALLOC F(ISFIN) TRACKS SPACE(1) REU"
"ALLOC F(ISFOUT) NEW DELETE REU " ,
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"
"ALLOC F(TEMPPRT) DA('F5910DM.REXX.OUT') SHR"
/* SAY "ENTER THE JOBNAME NAME " */
PARSE UPPER PULL QUEUE "PRE "
QUEUE "PRE F5910DM*"
QUEUE "ST"
/* QUEUE "FILTER JOBID EQ " JOB22664 */
/* QUEUE "FILTER OWNER EQ " F5910EK */
/* QUEUE "FILTER JOBNAME EQ " F5910REX */
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT "
QUEUE "PRINT 1 999999"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE "EXIT"
SAY SPOOL BACKUP DONE
"EXECIO" QUEUED()" DISKW ISFIN (FINIS"
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++32,255')"
EXIT
When i execute this REXX, I faced the below error.
IKJ56246I DATA SET F5910DM.REXX.OUT1 NOT ALLOCATED, FILE IN USE
Can anyone help me to solve this error.