DSPOBJD OBJ(targetlib/*ALL) OBJTYPE(*ALL)
OUTPUT(*OUTFILE) OUTFILE(userlib/outfile)

Then query outfile:

SELECT *
FROM userlib/outfile
WHERE ODCRTU = ‘userid’

I haven’t tried it, but I’d look into the !expression operator, possibly combined with the expression -and expression. You might try “-user uname -and !-path /QNTC/*” or some more involved construct. I’m not sure what Qshell find will need to process everything in i5/OS terms rather than Unix terms.

The API will work better though. It’s really not too bad to extend the example.

Tom

The -type f shall not be included.
My current solution is therefore this:

STRQSH CMD('find /   -user userid >           
 /qsys.lib/mylib.lib/myfile.file/myfile.mbr') 

I would like to include an option to omit , so fx /QNTC was not searched. I do not yet know if this can be acomplished…

This IBM manual on Qshell (page 62)
http://publib.boulder.ibm.com/iseries/v5r1/ic2924/info/rzahz/rzahz.pdf
describes the options for the find command, and I am especially looking into the [expression] part to solve my requirementfor omissions. Comments on this are welcome.

DanF

Tom

Remember, a database file is an example of something that doesn’t match -type f, although each member will. Source files tend to give a lot of “files”.

Tom

CRTPF QRPLOBJ/MYFILE  RCDLEN(200)
SBMJOB CMD(STRQSH CMD('find / -type f -user userid  > 
                       /qsys.lib/qrplobj.lib/myfile.file/myfile.mbr'))

This seems to satisfy my need for a batch-processed solution, BUT……
my ‘small-scale’ test-results does not always compare to the result of the interactive WRKOBJOWN command., and that puzzles me.
For one test-user the result showed both elements from IFS and objects rom libraries presented as ‘qsys.lib/mylib.lib….’. For another test-user I only got the elemnts from IFS, and NOT this users owned objects in libraries.
I wonder if the cause for this is related to some security issue..
I currently try to work out sample tests to understand this behaviour.

Any thoughts on this is most velcome.

DanF

Tom

I originally created the example when I wanted to see what the API put into the user space, but I didn’t need anything more from it. The actual code that I’ve used in production can’t be supplied unfortunately, since it’s not mine.

The example accepts a user profile as a parm. It calls the API twice for the two separate lists, extracts the counts from the lists and then dumps its variables. I can answer questions about extending the example.

pgm     ( +
          &pUsrPrf     +
        )

   dcl    &pUsrPrf         *char      10


   dcl    &UsrPrf          *char      10

   dcl    &UsrSpc          *char      10     value( 'LOBJOWN   ' )

   dcl    &qusrspc         *char      20

   dcl    &ErrCod          *char       4
   dcl    &hCont           *char      20


   dcl    &us_hdr          *char     150   /* Space header      */
   dcl    &l_hdr           *char      34   /* List header       */

/* Loop checking...                                                 */
   dcl    &LoopChk         *dec       11     value( 0 )

/* Total objects...                                                 */
   dcl    &tObjOwn         *dec       11     value( 0 )
   dcl    &tObjOwn2        *dec       11     value( 0 )


/* General fields for RUSGENHDR...                                  */
   dcl    &nbrlste         *int
   dcl    &ists            *char       1
   dcl    &offshdr         *int


   chgvar            &UsrPrf                  &pUsrPrf
   chgvar            &hCont                   ' '
   chgvar            &qusrspc               ( &UsrSpc *cat 'QTEMP' )

   call    QUSCRTUS   ( +
                        &qusrspc                +
                        'TMPLST    '            +
                        x'00001000'             +
                        X'00'                   +
                        '*ALL      '            +
                        'Temp list obj owned    ' +
                        '*YES      '            +
                        x'0000000000000000'     +
                      )


QFS_obj:

   dountil  ( &ists *ne 'P' )

      call    QSYLOBJA   ( +
                           &qusrspc                +
                           'OBJA0100'              +
                           &UsrPrf                 +
                           '*ALL      '            +
                           '*OBJOWN   '            +
                           &hCont                  +
                           x'0000000000000000'     +
                         )

/*  Retrieve the initialization data...                             */

      call    QUSRTVUS   ( +
                           &qusrspc                +
                           x'00000001'             +
                           x'00000096'             +
                           &us_hdr                 +
                         )

      chgvar         &nbrlste           %bin( &us_hdr    133 4 )
      chgvar         &ists              %sst( &us_hdr    104 1 )
      chgvar         &offshdr           %bin( &us_hdr    117 4 )

      chgvar         &offshdr               ( &offshdr + 1 )

      call    QUSRTVUS   ( +
                           &qusrspc                +
                           &offshdr                +
                           x'00000022'             +
                           &l_hdr                  +
                         )

      chgvar         &hCont             %sst( &l_hdr  11  20 )

dmpclpgm

      if  ( &nbrlste *eq 0 )     do
         sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                      msgdta( 'No objects listed' )
         leave
      enddo

/* Add this count to our total...                            */

      chgvar         &tObjOwn               ( &tObjOwn  + &nbrlste )
      chgvar         &LoopChk               ( &LoopChk  + 1 )

   enddo

   chgvar        &hCont            ' '

IFS_obj:

   dountil  ( &ists *ne 'P' )

      call    QSYLOBJA   ( +
                           &qusrspc                +
                           'OBJA0110'              +
                           &UsrPrf                 +
                           '*ALL      '            +
                           '*OBJOWN   '            +
                           &hCont                  +
                           x'0000000000000000'     +
                         )

/*  Retrieve the initialization data...                             */

      call    QUSRTVUS   ( +
                           &qusrspc                +
                           x'00000001'             +
                           x'00000096'             +
                           &us_hdr                 +
                         )

      chgvar         &nbrlste           %bin( &us_hdr    133 4 )
      chgvar         &ists              %sst( &us_hdr    104 1 )


      if  ( &nbrlste *eq 0 )     do
         sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                      msgdta( 'No IFS objects listed' )
         leave
      enddo

/* Add this count to our total...                            */

      chgvar         &tObjOwn2              ( &tObjOwn2 + &nbrlste )
      chgvar         &LoopChk               ( &LoopChk  + 1 )

   enddo


Clean_up:

   dltusrspc   QTEMP/&UsrSpc
dmpclpgm

   return

endpgm

It should compile and run on any V5R3 or later system.

Tom

Did you come up with a solution to get the list of owned objects in the IFS ?

I would be interested in the solution.

Thanks,
Bill Poulin