XWP pager, config saver. By Valerius

/* rexx */

parse arg app key

crlf = '0d 0a'x


app = 'XWorkplace:Hook'
key = 'PagerConfig'

/*
app = 'PM_Workplace:WindowListPos'
key = 'SavePos'
*/

strlen = 24

x = sysini('USER', app, key)
len = length(x)

say "/* rexx */"
say
say "call RxFuncAdd 'SysIni', 'rexxutil', 'SysIni'"
say
say "cfg = ,"

pos = 0
do forever
  str = ''''
  do i = 1 to strlen
    pos = pos + 1
    if pos > len then leave
    byte = c2x(substr(x, pos, 1))
    str  = str || byte

    if i < strlen & pos < len then
      str = str || ' '
  end
  call charout, str
  if pos > len then do
    call charout,  '''x' || crlf
    leave
  end; else
    call charout, '''x,' || crlf
end

say
say "call sysini 'USER', '" || app || "', '" || key || "', cfg"
say