/****  Type all 'PM_SysPointer' information to the screen  *****/
call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
call sysloadfuncs
call SysIni 'USER', 'PM_SysPointer', 'All:', 'Ptrs.'
if Result = 'ERROR:' then
  Say 'ERROR'
else
  do i = 1 to Ptrs.0
    val = SysIni('USER', 'PM_SysPointer', Ptrs.i)
    say left('PM_SysPointer', 15) left(Ptrs.i, 5),
             'Len=0x'Left(d2x(length(val)),4) left(val, 40)
  end