File status through JCL

[kirand]

Hi,

I want to know whether a file is open or Closed thru JCL.

i.e. i shud give the file name as input thru JCL and after submitting it , i should get the output saying that " File1 is open/closed "

Please suggest a way to do it..

[Krishna]

using following code you can find whether given file is opened or closed.

Code: Select all

//STEP1 EXEC PGM=IKJEFT1A                                            
//SYSUDUMP DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSTSPRT DD  SYSOUT=*                                                 
//SYSPRINT DD  SYSOUT=*                                                 
//SYSTSIN  DD *                                                         
  WHOHAS 'XXX.YYYY.ZZZZ.DATA'                              
//*                                                                     

Data will be printed in SYSPRINT as below.

Code: Select all

   WHOHAS 'XXX.YYYY.ZZZZ.DATA'                              
*** Not in use ***                         

In addition to above.. step will returns return code of 4.

if you want job to write above information to a dataset.. you output
dataset name for DD name SYSPRINT.

[maheshvamsi]

Krisha,

it looks like, WHOHAS is a site specific.

I got

IKJ56500I COMMAND WHOHAS NOT FOUND

[Anuj Dhawan]

Yes "WHOHAS" is a nicely written REXX and is a site specific utility.

[Anuj Dhawan]

I want to know whether a file is open or Closed thru JCL.

What kind of reqiurement is that?

If a file is open when it is needed by some other JCL, that JOB will go on hold, check the JESMSGLG of JOB you will come to know which file is the culprit.

[kirand]

@anuj...

When we face crisis calls ..
we just want to have a glance on all the important files whether any important file is closed.... and hence we need a report showing only the closed files..
as simple as that ..

@Krishna, thx for the reply ..

it has worked...wonderful.. thx a lot....

READY
WHOHAS 'K11716.ARU040.SETUP'
*** Not in use ***