zOs/SQL/YDIT002

$#@
call sqlConnect dbof
$;
$<=[
with s as
(
select distinct DI00202, DI00205, row_number() over () r
     FROM oa1p.VDI002A1A
     where di00203 = ''
)
select DI00202, DI00205 from s
     order by mod(r, 223)
$]
$@..[sqlRdr()$]
$|
call fTabAuto
$#out                                              20140707 14:09:06
DI DI00
 2 USD
 1 0236