I was recently asked about how to retrieve information about what jobs were locking a particular IFS object which is something we covered in a post back in July 2012. IBM does provide a program which allows you to retrieve information about an IFS object which is then sent to a spooled file for dissemination which we provided information about how to call the program. 

We mentioned that we had found an API that could be used to return such information in what ever form you wanted, so this post is following up on that. We have only supplied the basic information but the bones are there to allow you to extract and use the additional information provided by the API. (we thought about adding a UIM interface in the future to allow you to do something with the output?).

We have provided a command to front the program that takes the path of the object.

/*===================================================================*/
/*  Command name :  DSPIFSLCK                                        */
/*  CPP..........:  DSPIFSLCK                                        */
/*                                                                   */
/*  Author.......:  Chris Hird                                       */
/*  Date created :  September 2018                                   */
/*                                                                   */
/*  Purpose......:  Retrieve IFS locks for path                      */
/*                                                                   */
/*  Revision log.:                                                   */
/*  Date     Author    Revision                                      */
/*                                                                   */
/*  @Copyright Shield Advanced Solutions Ltd. Canada 1997 - 2018     */
/*===================================================================*/

             CMD        PROMPT('Display IFS Locks')
             PARM       KWD(PATH) TYPE(*CHAR) LEN(5002) RSTD(*NO) ALWUNPRT(*NO) ALWVAR(*NO) VARY(*YES *INT2) PROMPT('Path Name') 

The program which is called is as follows.

//
// Copyright (c) 2018 Chris Hird
// All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions
// are met:
// 1. Redistributions of source code must retain the above copyright
//    notice, this list of conditions and the following disclaimer.
// 2. Redistributions in binary form must reproduce the above copyright
//    notice, this list of conditions and the following disclaimer in the
//    documentation and/or other materials provided with the distribution.
//
// Disclaimer :
// This code is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

#include <H/MSGFUNC>                        // Message headers
#include <H/SPCFUNC>                        // User Space functions
#include <H/COMMON>                         // common header file
#include <qp0lror.h>                        // list IFS references

int main(int argc, char **argv) {
int pathLen = 0;                            // path length
int i = 0;                                  // counter
char Spc_Name[20] = "IFSINFO   QTEMP     "; // User space name
char *path_ptr;                             // path ptr
char *space;                                // ptr to usrspc
char *tmp;                                  // temp ptr
Qp0l_RORO0200_Output_T *o2P;                // output ptr
Qp0l_Job_Using_Object_T *jobP;              // job structure ptr
IFS_Info_t pathInfo;                        // nls path struct
Os_EC_t Error_Code;                         // error code struct

Error_Code.EC.Bytes_Provided = _ERR_REC;
// create user space for output _4MB should be plenty
if(Get_Spc_Ptr(Spc_Name,&space,_4MB) != 1)
   exit(-1);
// set up path passed in
tmp = argv[1];
pathLen = *(short int *)argv[1];
tmp += sizeof(short int);
path_ptr = tmp;
o2P = (Qp0l_RORO0200_Output_T *)space;
// set up the path to use
memset(&pathInfo, 0, sizeof(pathInfo));
pathInfo.header.CCSID = 37;
memcpy(pathInfo.header.Country_ID,"US",2);
memcpy(pathInfo.header.Language_ID,"ENU",3);
pathInfo.header.Path_Type = QLG_CHAR_SINGLE;
pathInfo.header.Path_Length = pathLen;
pathInfo.header.Path_Name_Delimiter[0] = '/';
memcpy(pathInfo.path,path_ptr, pathLen);
QP0LROR(space,
        _4MB,
        QP0LROR_RORO0200_FORMAT,
        (Qlg_Path_Name_T *)&pathInfo,
        &Error_Code);
if(Error_Code.EC.Bytes_Available != 0) {
   snd_error_msg(Error_Code);
   return;
   }
// Print some output.
printf("Reference count:  %d\n",o2P->Count);
printf("Jobs returned:    %d\n",o2P->JobsReturned);
//printf("Jobs Offset = %d\n",o2P->JobsOffset);
if(o2P->JobsReturned > 0) {
   tmp = space;
   tmp += o2P->JobsOffset;
   jobP = (Qp0l_Job_Using_Object_T *)tmp;
   for(i = 0; i < o2P->JobsReturned; i++) {
      printf("job: %.10s %.10s %.6s holding lock on path\n",i,jobP->Name,jobP->User,jobP->Number);
      }
   jobP++;
   }
exit(0);
}                                            

When run the program will output the job information for any jobs which have a lock on the objects entered. You can embellish this further to display more information about the job and the type of locks and references to the object.

Not a major piece of code but one I think many will find useful.

Chris…