d getenv pr * extproc('Qp0zGetEnvNoCCSID')
d name * value options(*string)
d p s *
d path S 256A
c eval p = getenv ('PATH')
c if p <> *NULL
c eval path = %str(p)
c endif
Requires Free Membership to View
Register today to access targeted resources from our editorial writers and independent industry experts including news, tips, and advice to help you do your job more efficiently and effectively. Stay informed on the hottest topics and biggest challenges faced by IT professionals working with iSeries products and services.
This was first published in July 2002