zOs/SQL/YVV326WY

$#@                                                                     00010000
$** say "sql1='"$sql1"'"                                                00011000
$=cnt=15000                                                             00020001
call sqlConnect dbof                                                    00020100
m.timing_say = 1                                                        00020200
call timing , , 'start'                                                 00021000
call sql2St  "select temp_dbKey" ,                                      00022000
                 "from A540769.qzScanKey where partition_number = 7 " , 00023000
                 "fetch first" $cnt "rows only",                        00024000
           , ii, ':m.dst'                                               00025000
call sqlQueryPrep 7, $sql1                                              00025100
call timing , , 'fetched' m.ii.0                                        00025200
cSel = 0                                                                00025300
do ix=1 to m.ii.0                                                       00026000
 $**say ix m.ii.ix                                                      00027000
    call sqlQueryArgs 7, m.ii.ix                                        00027100
    do fx=1 while sqlFetch(7, ff)                                       00027200
        cSel = cSel + 1                                                 00027300
  $**   say ix fx m.ff.instrumentid                                     00027400
        end                                                             00027500
    call sqlClose 7                                                     00027600
    end                                                                 00028000
call timing , , 'selected'  cSel',' m.ii.0 'open/close'                 00071600
                                                                        00071700
$ct $=-=/sql1/                                                          00072000
SELECT                 INSTRUMENTID                                     00072300
       ,'CH                            '                                00072400
       ,ROWSTATUS_FLTSYMB                                               00072500
       ,SYMBOLCSFI,SYMBOLCH                                             00072600
       ,SYMBOLISIN                                                      00072700
       ,SYMBOLUS                                                        00072800
       ,SYMBOLGB                                                        00072900
       ,SYMBOLDE,CATEGORYVDPS,CATEGORYCSGTA,CSSTATUSTYPE_FLTSYMB        00073000
       ,CSRISKINDIDSYMBOL,CSRISKINDSCHEMESYM,CSRISKINSTGRPIDSYM         00073100
       ,CSRISKINSGRPSCHSYM,CSRISKCURRENCY_I1,CSRISKCURRENCY_I2          00073200
       ,CSRISKCURRENCY_WS80,CSRISINSTRUMENT_CH                          00073300
       ,CSRISKCOUNTRY_A2                                                00073400
       ,CSRISKCOUNTRY_WS80,UNDERINSTRUMENT_CH                           00073500
       ,UNDERINSTRUMENT_ISIN                                            00073600
       ,UNDERINSTRUMENT_CSFI,ORIGINALISSUER_GK                          00073700
       ,ISSUER_GK,COMMISSIONCODETYPE                                    00073800
       ,CSFUNDTYPE,NAME45_G,NAME45_E,NAME45_F,NAME45_I                  00073900
       ,NAME45_N                                                        00074000
       ,STATUSTYPE_ORG_ISSUER,INDUSTRYCS_ORG_ISSUER                     00074100
       ,INDUSTRYTKBN_ORG_ISSUER                                         00074200
       ,INDUSTRYMSCI_ORG_ISSUER,SHORTNAME_G_ORG_ISSUER                  00074300
       ,SHORTNAME_E_ORG_ISSUER,SHORTNAME_F_ORG_ISSUER                   00074400
       ,SHORTNAME_I_ORG_ISSUER                                          00074500
       ,SHORTNAME_N_ORG_ISSUER,STATUSTYPE_ISSUER,INDUSTRYMSCI_ISSUER    00074600
       ,SHORTNAME_G_ISSUER                                              00074700
       ,SHORTNAME_E_ISSUER,SHORTNAME_F_ISSUER                           00074800
       ,SHORTNAME_I_ISSUER,SHORTNAME_N_ISSUER,CSPRODUCTCATEGORY         00074900
       ,UPDATETIMESTAMP_INSTR,ISCSRISKASPECTOTC                         00075000
       ,ISCSRISKASPECTCOMMODITIES                                       00075100
       ,ISCSRISKASPECTREALESTATE,ISCSRISKASPECTEM                       00075200
       ,RISKINADVICEDSERVICE                                            00075300
  from        OA1P.VVV_IDS_VINOP9000                                    00075500
     where    OA1P.VVV_IDS_VINOP9000.INSTRUMENTID = ?                   00075600
WITH UR                                                                 00075900
FOR FETCH ONLY                                                          00076000
$/sql1/                                                                 00085000
$#out                                              20140511 12:21:46    00085101