CREATE TABLE QTEMP/REFZON AS
( Select WHLIB AS Lib, WHFILE AS File,
SUBSTR(WHFTYP, 1, 1) as F,
(WHFLDN + 0) as NbZon,
(WHRLEN + 0) as LgRcd,
SUBSTR(WHFLDI, 1, 10) as Zone,
SUBSTR(WHFLDT, 1, 1) as Typ,
(WHFLDB + 0) as Long,
(WHFLDP + 0) as Dec,
(WHIBO + 0) as Deb,
(WHIBO + WHFLDB - 1) as Fin,
SUBSTR(WHFTXT, 1, 20) as Description
From QTEMP/DSPFFD )
With DATA