/*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        */