zOs/REXX/DBXSRCH

$<#[
AC04002W
AX01001W
BV01002W
CD01004C
CD02014W
CD03020W
CD03021C
CZMIX02W
DGMIX01C
DG01049W
DG01050C
DG02008W
DG02009W
DI01001W
DI05009W
DP08012C
DW10004C
ER01033W
ER01034C
EU04002W
EU99001W
FI04052C
FI04053W
GM01008C
KB01004C
KC01009W
MARTIN0W
MARTIN1C
MARTIN2C
MF03003W
MI01019C
NITRIG1C
NI02174C
NI02175C
NI03003W
NI04003C
NI10034C
NI10035W
NI10036C
OS03005C
OZ01009C
PC01032C
RA01001W
RENI001D
RV01009W
SU10001W
SV10016C
TG01012C
TT01002W
TT01003C
TV01001W
UU02011C
VV21005W
VV24001C
WA01038C
WB20003C
WF01024C
WI02033C
WI02034W
WI02035C
WK09901C
WK99101C
WK99501C
WU10010W
WU36001W
WU40018C
WU40019C
WU91001W
WY40001C
XB03051W
XB03052C
XR01023W
XR01024C
YN01003W
$]
$@for w $@[
w = strip(left($w, 7))
call lmm 'dsn.dbx.cdl('w'*)'
$]
$| $@[
qq=''
$@for w $@[
    qq = qq','strip($w)
    if length(qq) > 50 then $@[
        $$- 'SELECT' substr(qq, 2)
        qq=''
        $]
    $]
$$- 'SELECT' substr(qq, 2)
$]
$#out                                              20120824 11:04:22
SELECT AC040020,AX010010,BV010020,CD010040,CD010041,CD020140
SELECT CD020141,CD020142,CD030200,CD030210,CZMIX020,DGMIX010
SELECT DG010490,DG010500,DG020080,DG020090,DI010010,DI050090
SELECT DP080120,DP080121,DP080122,DW100040,ER010330,ER010340
SELECT ER010341,EU040020,EU040021,EU990010,FI040520,FI040530
SELECT GM010080,KB010040,KC010090,KC010091,MARTIN00,MARTIN01
SELECT MARTIN10,MARTIN20,MF030030,MF030031,MF030032,MI010190
SELECT MI010191,MI010192,MI010193,NITRIG10,NI021740,NI021741
SELECT NI021750,NI021751,NI030030,NI030031,NI040030,NI040031
SELECT NI100340,NI100341,NI100342,NI100343,NI100344,NI100345
SELECT NI100346,NI100347,NI100348,NI100350,NI100351,NI100352
SELECT NI100353,NI100354,NI100360,OS030050,OZ010090,PC010320
SELECT RA01001A,RA01001B,RA01001C,RA010010,RA010011,RA010012
SELECT RA010013,RA010014,RA010015,RA010016,RA010017,RA010018
SELECT RA010019,RENI0010,RENI0011,RV010090,SU100010,SV100160
SELECT SV100161,TG010120,TG010121,TT010020,TT010021,TT010030
SELECT TT010031,TV010010,TV010011,UU020110,VV210050,VV240010
SELECT WA010380,WA010381,WB200030,WF010240,WI020330,WI020340
SELECT WI020350,WK099010,WK099011,WK099012,WK991012,WK991013
SELECT WK995010,WU100100,WU100101,WU100102,WU360010,WU360011
SELECT WU400180,WU400181,WU400182,WU400183,WU400190,WU400191
SELECT WU910010,WY400010,XB030510,XB030520,XR010230,XR010240
SELECT YN010030,YN010031,YN010032
$#out                                              20120823 15:40:05
SELECT AC040020,AX010010,BV010020,CD010040,CD020140,CD020141
SELECT CD020142,CD030200,CD030210,DGMIX010,DG010490,DG010500
SELECT DG020080,DG020090,DI010010,DI050090,DP080120,DP080121
SELECT DP080122,DW100040,ER010330,ER010340,ER010341,EU040020
SELECT EU040021,EU990010,FI040520,FI040530,GM010080,KC010090
SELECT KC010091,MARTIN00,MARTIN01,MARTIN10,MARTIN20,MF030030
SELECT MF030031,MF030032,NITRIG10,NI021740,NI021741,NI021750
SELECT NI030030,NI030031,NI040030,NI040031,NI100340,NI100341
SELECT NI100342,NI100343,NI100344,NI100345,NI100346,NI100347
SELECT NI100348,NI100350,NI100351,NI100352,NI100353,NI100354
SELECT NI100360,OS030050,OZ010090,PC010320,RENI0010,RENI0011
SELECT SU100010,SV100160,SV100161,TG010120,TG010121,TT010020
SELECT TT010021,TT010030,TT010031,TV010010,TV010011,UU020110
SELECT VV210050,VV240010,WA010380,WA010381,WB200030,WF010240
SELECT WI020330,WI020340,WI020350,WK099010,WK099011,WK099012
SELECT WK991012,WK991013,WK995010,WU100100,WU100101,WU100102
SELECT WU360010,WU360011,WU400180,WU400181,WU400182,WU400190
SELECT WU400191,WU910010,WY400010,XB030510,XB030520,XR010230
SELECT XR010240,YN010030,YN010031,YN010032
$#out                                              20120823 15:39:36
*** compile error ***
scanErr ending $] expected after [
last token  scanPosition
atEnd after line 85: $$- 'SELECT' substr(qq, 2)
$#out                                              20120823 15:35:33