/* Enumerate printer ports */

call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

ok = SysIni('SYSTEM', "PM_SPOOLER_PORT", 'ALL:', 'ports.') 

ok = SysStemSort('ports.','A')

do I = 1 to ports.0
    say ports.I
end
exit 0