CHKUSRACT:  CMD        PROMPT('Check user active?')

             PARM       KWD(USRPRF) TYPE(*NAME) LEN(10) MIN(1) +
                          EXPR(*YES) PROMPT('User activity to check +
                          for')

Compile this CL as the command processing program:

pgm    ( +
         &pChkUsr      +
       )


   dcl   &pChkUsr       *char       10


   dcl   &usrspc        *char      10  VALUE( '#$CHKUSRAC' )
   dcl   &usrspclib     *char      10  VALUE( 'QTEMP     ' )

   dcl   &qusrspc       *char      20

   dcl   &us_hdr        *char     150   /* Space header      */


/* Number of list entries: Listed jobs...                           */

   dcl   &NbrLstE       *dec      (7)


/*  The qualified search job name...                                */
   dcl   &SchJob        *char     26


   chgvar    &qusrspc        ( &usrspc *cat &usrspclib )


/*  Create a usrspc to hold the job list data from this usrprf...   */

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



/*                                                                  */
/*  Populate the usrspc with appropriate job list data...           */
/*                                                                  */

   chgvar    &SchJob         ( +
                               '*ALL      ' *cat         +
                               &pChkUsr     *cat         +
                               '*ALL      '              +
                             )

   call  QUSLJOB          ( +
                            &qusrspc                +
                            'JOBL0100'              +
                            &SchJob                 +
                            '*ACTIVE   '            +
                            x'0000000000000000'     +
                            'I'                     +
                            x'00000000'             +
                            x'00000000'             +
                          )


/*  Retrieve the header data...                                     */

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

   chgvar    &NbrLstE        %bin( &us_hdr    133 4 )


   if ( &NbrLstE *eq 0 )  do
      sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                   msgdta( 'No active jobs found' )
   enddo

   else  if ( &NbrLstE *eq 1 )  do
      sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                   msgdta( 'Exactly one job found' )
   enddo

   else  +
      sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                   msgdta( 'Multiple jobs found' )


Clean_up:

   dltusrspc   &usrspclib/&usrspc

   return

endpgm

The command accepts a user profile name. The program asks the system for a list of *ACTIVE jobs for that user, restricting the list to ‘I’nteractive jobs only. When the list is returned, the number of list entries is extracted.

The number is tested for zero, 1 or more jobs, and a message is sent based on the result. Just be aware that the count isn’t a count of “logins”. The WRKACTJOB command won’t tell you about logins either, so it doesn’t matter.

Tom

…As far as you know.

Granted, it is possible to have it work nearly flawlessly; but if it’s true for you, then you have an extremely atypical system and your method won’t work for most other systems.

You must:

• ,,,nor run any host servers (or reject every logon attempt through them),
• not run any TCP servers except telnet (or reject every logon through them)
• don’t allow logons through Windows networking,
• no DDM nor remote SQL,
• no Management Central,
• no iSeries Navigator,
• strict menu security, so only green-screen processing with no or extremely limited command-line access and tight control over commands, eliminating group jobs and a couple others,
• and all users running in QINTER.

It’s certainly possible, but I’d guess you’re close to unique.

If any of those are used, then your system is handing out logons and you’re missing them.

Tom

Can you be more specific about what you are tyring to accomplish?

Funny, I’ve been using it for just that purpose for a couple of years now and it works flawlessly.

Tom

Do you want users who are logged into the *DATABASE server? The *DTAQ server? The *FILE server? FTP? Telnet? There are a lot of ways to “login” as a user.

Tom