Problem solve Get help with specific problems with your technologies, process and projects.

Where am I--Who am I

Here is a command WW (Where, Who) which gives the essentials information of the session we work with.

We work with many iSeries with many 5250 sessions, logged with different users for security reasons for the same machine, at the same time. It is very important to know easily the mane of the machine, the user etc...

Here is a command WW (Where, Who) which gives the essentials information of the session we work with.


  The command source:

CMD        PROMPT('WW')  /* Where am I ? */ 

the CL source attached

/* variables used */ 

DCL &USER *CHAR 10   
DCL &JOB  *CHAR 10                      
DCL &DATE *CHAR 6 
DCL &TIME *CHAR 6     
DCL &MSG    *CHAR 80 
DCL &NBR    *CHAR 6 
DCL &SYSNAM *CHAR 8 

RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR)
RTVNETA    SYSNAME(&SYSNAM)
RTVSYSVAL QDATE &DATE      
RTVSYSVAL QTIME &TIME 

CHGVAR &MSG VALUE('SYSTEM:' *cat &SYSNAM +    
                  *BCAT 'USER:' *cat &USER +   
                  *BCAT 'SCREEN:' *cat &JOB  +  
                  *BCAT 'JOB:' *cat &NBR  +    
                  *BCAT 'DATE:' *cat &DATE +   
                  *CAT ':' *cat &HEURE)        

/* display the informations */
SNDPGMMSG  MSG(&MSG)

ENDPGM 
This was last published in July 2001

Dig Deeper on RPG iSeries programming

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

  • How do I size a UPS unit?

    Your data center UPS sizing needs are dependent on a variety of factors. Develop configurations and determine the estimated UPS ...

  • How to enhance FTP server security

    If you still use FTP servers in your organization, use IP address whitelists, login restrictions and data encryption -- and just ...

  • 3 ways to approach cloud bursting

    With different cloud bursting techniques and tools from Amazon, Zerto, VMware and Oracle, admins can bolster cloud connections ...

Close