Ooops I didn't look closely enough at Ragu's first task.

Here is what it should have been to do what he wants in one pass:

INPUT RAGST304
DEF SEQ1,27,4,DISPLAY
EXT REMARK-CAT
EXT SEQ1 = SEQ#    {moves the old X4 into the new Z4 field}
SORT REMARK-CAT
OUT RAGST305,LINK
XEQ

/paul

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *