SUB BZENQ. (C%,ZU%,ZN%) {FCSCOM.B4S} CALL C.(C%) ADR%=FDBADR%(C%-.ZERO.CNL%) CALL WORDAT BY REF (ADR%+.F.NRBD%,ZN%) CALL WORDAT BY REF (ADR%+.F.URBD%,ZU%) SUBEND