17 lines
639 B
Rexx
17 lines
639 B
Rexx
/*REXX*/
|
|
|
|
sysuid = sysvar("sysuid")
|
|
syspref = sysvar("syspref")
|
|
sysproc = sysvar("sysproc")
|
|
if syspref = "" then syspref="**NOPREFIX**"
|
|
say " userid="sysuid", syspref="syspref", proc="sysproc
|
|
terminal = gettrid()
|
|
say " VTAM Terminal ID="terminal
|
|
|
|
/* LOCATION -- TELLS USER WHERE LOGGEDON ON */
|
|
/* SYSUID -- USER'S IDENTIFICATION */
|
|
/* SYSPREF -- DATA SET NAME PREFIX WHICH THE USER SETS */
|
|
/* USING THE PROFILE COMMAND */
|
|
/* SYSPROC -- LOGON PROCEDURE NAME */
|
|
/* TERMINAL-- VTAM TERMINAL ID AS FOUND BY GETTRID */
|