Re: Users Signing onto PeopleSoft System

["Weaver, Judith R" <WeaverJR@USAFOO.UNITEDSPACEALLIANCE.COM>]

Van
You can use a variation of the included procedures.  The table
'ps_n_locator' is a custom table we created that includes workplace info.

! --------------------------------------------------!
!  PROCEDURE:  Main-Process                         !
! --------------------------------------------------!
begin-procedure Main-Process

   begin-select

osuser
username
terminal
status
machine
program
lockwait
type

      let $osuser    = upper(&osuser)
      let $username  = &username
      let $terminal  = &terminal
      let $status    = &status
      let $machine   = &machine
      let $program   = &program
      let $lockwait  = &lockwait

                display &osuser noline
                display ' ' noline
                display &type

                do Get-Oprid
                do Get-Empl-Info
                do Print-Detail-Line

      from  v$session
      where type= 'USER'
      order by 1
   end-select

end-procedure Main-Process

! --------------------------------------------------!
! PROCEDURE: Get-Oprid                              !
! --------------------------------------------------!
Begin-Procedure Get-Oprid


        begin-select
o.oprid
o.emplid

      let $oprid     = &o.oprid
      let $emplid       = &o.emplid

        from    psoprdefn o
        where upper(o.oprid) = $osuser

        end-select

End-Procedure Get-Empl-Info

! --------------------------------------------------!
! PROCEDURE: Get-Empl-Info                          !
! --------------------------------------------------!
Begin-Procedure Get-Empl-Info

   let $name      =  ' '
   let $phone     =  ' '

        begin-select
p.name
l.phone

        let $name = substr(&p.name,1,25)
        let $phone = &l.phone

        from    ps_personal_data p,
                        ps_n_locator l
        where p.emplid(+) = $emplid
          and l.emplid(+) = $emplid

        end-select

End-Procedure Get-Empl-Info


Judy Weaver
United Space Alliance
Application Engineering Services
WeaverJR@usafoo.unitedspacealliance.com
Phone: (407) 799-6019       Fax: (407) 799-5970

> ----------
> From:         Dang, Van N[SMTP:vdang@KPMG.COM]
> Reply To:     SQR-USERS@USA.NET
> Sent:         Thursday, October 29, 1998 2:17 PM
> To:   Multiple recipients of list SQR-USERS
> Subject:      Users Signing onto PeopleSoft System
>
> Hello group:
>
> How do you tell who is currently signed onto the PeopleSoft system?
>
> Thank you.
>
> Van.
>