set a pointer to const

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

When a procedure argument is const, a pointer cannot be set to the argument.
Is it possible to declare a pointer as const in order for the pointer to be
set?

here is an example:

  ** declare a ds called "Address"
  d Address         ds                  qualified
  d  Street                       30a   varying
  d  City                         30a   varying
  d  State                         2a
  d  Zip                          10a

  ** proc to print the address
  pPrintAddress     b
  dPrintAddress     pi
  d InAddress                           const likeds(Address)

  d pStreet         s               *
   /free
      pStreet = %addr(InAddress.Street) ;
      RplUnprintableChars( pStreet: %size(InAddress.Street)) ;
   /end-free
  p                 e

the pointer pStreet cannot be set to InAddress because InAddress is const.

thanks,

Steve Richter