Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Find DD Name from JOB log in REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
shr_amar
Warnings : 2

Active User


Joined: 02 May 2005
Posts: 128
Location: UK

PostPosted: Thu Jun 25, 2009 4:52 pm    Post subject: Find DD Name from JOB log in REXX
Reply with quote

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
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Jun 25, 2009 7:49 pm    Post subject:
Reply with quote

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

O.
Back to top
View user's profile Send private message
shr_amar
Warnings : 2

Active User


Joined: 02 May 2005
Posts: 128
Location: UK

PostPosted: Fri Jun 26, 2009 11:15 am    Post subject:
Reply with quote

So if there are 10 jobs we have to read ISFOUT 10 times.
Back to top
View user's profile Send private message
shr_amar
Warnings : 2

Active User


Joined: 02 May 2005
Posts: 128
Location: UK

PostPosted: Fri Jun 26, 2009 11:49 am    Post subject:
Reply with quote

Hi Ofer ,

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

Rgerads
Back to top
View user's profile Send private message
shr_amar
Warnings : 2

Active User


Joined: 02 May 2005
Posts: 128
Location: UK

PostPosted: Fri Jun 26, 2009 1:53 pm    Post subject:
Reply with quote

"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
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us