Hi,
I have written a REXX to purge few jobs but I am getting an error as RC-3(
which means host command not found)
/*REXX*/
ADDRESS TSO
"ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
"ALLOC DA('A251804.SPOOL(SOUT)') F(ISFOUT) SHR REU"
ADDRESS SDSF "ISFEXEC SR"
IF RC=0 THEN
DO
ADDRESS CONSOLE
"CONSOLE ACTIVATE NAME(A251)"
"CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO) SOLNUM(300) UNSOLNUM(300)"
"ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
"ALLOC DA('A251804.SPOOL(SOUT)') F(ISFOUT) SHR REU"
"EXECIO * DISKR ISFOUT (STEM LINES. FINIS"
DO K = 1 TO LINES.0 IF (WORDPOS('SHORTAGE',LINES.K) ¬= 0) THEN
DO
ADDRESS CONSOLE
"$P JOBQ,HOURS>15"
SAY "THE COMMAND $P JOBQ,HOURS>15 EXECUTED"
ADDRESS TSO
"FREE F(SIN)"
"FREE F(SOUT)"
"CONSOLE DEACTIVATE"
EXIT
END
ND
SAY "NO RESOURCE SHORTAGE"
ADDRESS TSO
"FREE F(SIN)"
"FREE F(SOUT)"
"CONSOLE DEACTIVATE"
Could anyone please guide me or advise me regarding the above code
Regards,
Jags
----------------------------------------------------------------------
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
