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 first published in July 2001

Dig deeper on RPG iSeries programming

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close