ANSI redirection problem

[Robert Prins]

I've got this little piece of code, that just collects some data from a file,
and it's supposed to print it in sorted order. It just doesn't, all cn. stem
values come out as the highest value in the nc. stem.

What am I doing wrong?

regina: REXX-Regina_3.9.3(MT) 5.00 5 Oct 2019 (64 bit). All rights reserved.

OS: W7-Pro 64.


/* REXX */
address system "type lift.dat" with output stem l.

naco = ''
nc. = ''
!nc = 0

do ! = 1 to l.0
if substr(l.!, 66, 1) = '!' |, -- 4125
left(l.!, 1) = '{' |, -- 3917
l.! = '' |, -- 3692
substr(l.!, 66, 1) = '#' then -- 428
iterate !

nat = left(strip(space(substr(l.!, 43, 4), 0), 'T', ','), 5, '.')
cnty = left(strip(space(substr(l.!, 54, 3), 0), 'T', ','), 5, '.')

if pos(nat, naco) = 0 then
do
naco = naco || nat
!nc = !nc + 1
nc.!nc = nat
end

if cnty \= '*....' &,
pos(cnty, naco) = 0 then
do
naco = naco || cnty
!nc = !nc + 1
nc.!nc = cnty
end
end

nc.0 = !nc

address path "sort.exe" with input stem nc. output stem cn.

do ! = 1 to !nc
say right(!, 3) cn.!nc
end

[Robert Prins]

Stupid me, forget it, should have been "say right(!, 3) cn.!"

Apologies, mea maxima culpa.

Robert

Post by Robert Prins
I've got this little piece of code, that just collects some data from a file,
and it's supposed to print it in sorted order. It just doesn't, all cn. stem
values come out as the highest value in the nc. stem.
What am I doing wrong?
regina: REXX-Regina_3.9.3(MT) 5.00 5 Oct 2019 (64 bit). All rights reserved.
OS: W7-Pro 64.
/* REXX */
address system "type lift.dat" with output stem l.
naco  = ''
nc.   = ''
!nc   = 0
do ! = 1 to l.0
  if substr(l.!, 66, 1) = '!' |,   -- 4125
     left(l.!, 1)       = '{' |,   -- 3917
     l.!                = ''  |,   -- 3692
     substr(l.!, 66, 1) = '#' then --  428
    iterate !
  nat  = left(strip(space(substr(l.!, 43, 4), 0), 'T', ','), 5, '.')
  cnty = left(strip(space(substr(l.!, 54, 3), 0), 'T', ','), 5, '.')
  if pos(nat, naco) = 0 then
    do
      naco   = naco || nat
      !nc    = !nc + 1
      nc.!nc = nat
    end
  if cnty           \= '*....' &,
     pos(cnty, naco) = 0 then
    do
      naco   = naco || cnty
      !nc    = !nc + 1
      nc.!nc = cnty
    end
end
nc.0 = !nc
address path "sort.exe" with input stem nc. output stem cn.
do ! = 1 to !nc
  say right(!, 3) cn.!nc
end