00010002 /*REXX*/ 00010000 00011002 sysuid = sysvar("sysuid") 00020000 00012002 syspref = sysvar("syspref") 00030000 00013002 sysproc = sysvar("sysproc") 00040000 00014002 if syspref = "" then syspref="**NOPREFIX**" 00050000 00020002 say " userid="sysuid", syspref="syspref", proc="sysproc 00060000 00032002 terminal = gettrid() 00070000 00033002 say " VTAM Terminal ID="terminal 00080000 00090000 00040002 /* LOCATION -- TELLS USER WHERE LOGGEDON ON */ 00100000 00050002 /* SYSUID -- USER'S IDENTIFICATION */ 00110000 00060002 /* SYSPREF -- DATA SET NAME PREFIX WHICH THE USER SETS */ 00120000 00061002 /* USING THE PROFILE COMMAND */ 00130000 00070002 /* SYSPROC -- LOGON PROCEDURE NAME */ 00140000 00080002 /* TERMINAL-- VTAM TERMINAL ID AS FOUND BY GETTRID */ 00150000