SUBROUTINE REDUCE(RESULT, DA)
* Subroutine to remove intermediate nulls fields, values and subvalues.
LastUpdated... = "Rev: 16:11 16Mar1994 u2443 12 /users/u2443/BP/REDUCE"
 
RESULT = ""
MORE.DA = DA NE ""
LOOP WHILE MORE.DA
   REMOVE ITEM FROM DA SETTING MORE.DA
   IF ITEM EQ "" THEN CONTINUE
   RESULT := ITEM
   IF MORE.DA THEN
      RESULT := CHAR(255 - MORE.DA)
   END
REPEAT
END