/* rexx */
prof = getprof(prof)         /* Get current prefix */
say "Value of prof="Prof     /* Show answer        */
"Profile noprefix"           /* Profile NOPREFIX   */
prof = getprof(prof)         /* Get current prefix */
say "Value of prof="Prof     /* Show answer        */
"Profile PREFIX("userid()")" /* Set to our userid  */
prof = getprof(prof)         /* Get current prefix */
say "Current profile "prof   /* Show answer        */
"Profile noprefix"           /* Set NOPREFIX       */
"Profile"                    /* Show our profile   */
say
say "Value of prof="Prof     /* Show answer        */
say
if Prof/='N' then do         /* Prof = our userid  */
   "Profile PREFIX("Prof")"  /* Reset it           */
end
"Profile"                    /* Show our profile   */
exit