Find DD Name from JOB log in REXX

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Dear friends ,

I want to XDC a DD from JOB log for which i have created a REXX which is given below .

"DROPBUF"
QUEUE "OWNER" IBMAS1BD
QUEUE "PREFIX *"
QUEUE "ST"
QUEUE "SELECT "IBMAS1BD JOB30694
QUEUE "AFD REFRESH"
QUEUE "FIND "JOB30694
QUEUE "++?"
QUEUE "FIND NSFPR01"
QUEUE "++S"
QUEUE 'PRINT ODSN "BLYAS1.SDSF.PRT1(TES2)" * shr'
QUEUE 'PRINT 1 9999'
QUEUE 'PRINT CLOSE'
QUEUE 'END'
QUEUE 'EXIT'
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC FI(ISFOUT) DSN('"BLYAS1.SDSF.PRT"') SHR REUSE"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */
"CALL *(ISFAFD) ' ++132,255'"

I want to check if this job have NSFPR01 DD is it possible to put If condition .

Regards

ofer71 · Posted: Thu Jun 25, 2009 7:49 pm

You can try and read ISFOUT, and look if there is an error message for your "FIND NSFPR01" command.

O.

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

So if there are 10 jobs we have to read ISFOUT 10 times.

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

Hi Ofer ,

I have looked into ISFOUT . but there is no error msg coming if condition not found .

Rgerads

shr_amar · Active User Joined: 02 May 2005 Posts: 128 Location: UK

"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* Used by SDSF
ALLOC F(ISFOUT) NEW DELETE REU " ,
"ALLOC F(TEMPPRT) DA('SDSF.PRT2(NBFPR01)') SHR REUSE"
QUEUE "OWNER" BLYAS1BD
QUEUE "PREFIX *"
QUEUE "ST"
QUEUE "SELECT "BLYAS1BD JOB30694
QUEUE "AFD REFRESH"
QUEUE "FIND "JOB30694
QUEUE "++?"
QUEUE "FIND NBFPR01"
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT " /* Print to temp datas
QUEUE "PRINT 1 999999"
QUEUE "PRINT CLOSE"
QUEUE 'END'
QUEUE 'EXIT'

I have tried to lookn into ISFOUT but there is no error found in case of string is not matched infact JESMSGLG get in to the TEMPPRT in case of string not found.

Is there any other way we can check if particular DD name is present or not .

Regards