/* GETVAR.SPF  Sample Macro for SPF/PC                             */
/*             This macro serves as a sample on how to get an OS   */
/*             environmental variable from an SPF/PC macro.        */
/*                                                                 */
/* Note:       By using a different environment name, this macro   */
/*             works in both DOS and OS/2.                         */

'isredit macro(parms)'

'ISPEXEC VGET (ZOS)'
if (ZOS="OS2") then
   do
      menviron = "OS2ENVIRONMENT"
   end
else
   do
      menviron = "CMD"
   end

/*-------------------------------------------------------*/
/* try to use the TEMP environment variable if specified */
/*-------------------------------------------------------*/
tmppath = value(parms,, menviron)
say tmppath