Groups | Search | Server Info | Login | Register
Groups > comp.os.os2.apps > #1374
| From | "A.D. Fundum" <what.ever@neverm.ind> |
|---|---|
| Message-ID | <o8uYFJ3iqTdG-pn2-dBBdHt1W4d78@localhost> (permalink) |
| Newsgroups | comp.os.os2.apps |
| Subject | Re: Stock exchange-related data |
| References | (11 earlier) <Mhkkr.15338$FQ1.224@newsfe12.iad> <o8uYFJ3iqTdG-pn2-nVT9nLP6xu2F@localhost> <ChYkr.26131$JR1.22705@newsfe06.iad> <o8uYFJ3iqTdG-pn2-yUDd5mzdNSOO@localhost> <o8uYFJ3iqTdG-pn2-TRikRtLInHsw@localhost> |
| Organization | Xennanews |
| Date | 2012-08-29 14:21 +0200 |
>>> http://moneytide.com/hans/index.asp
>> Releasing Rexx apps, as-is, is no problem. The main
>> issue is that they'll be unclear, e.g. the auctoin hunter
>> doesn't output anything if there's no market order at
>> the moment. So if you'ld download and try it, it may
>> be a disappointing experience.
> The auction hunter, which may stop working as we speak
> because it seems the "redisgned" website used is about
> to be rererererereleased.
I've attached the "rererereredesigned" app I've posted earlier. It
requires WGETSSL.EXE and assumes the use of
"europeanequities.nyx.com"-markets. Below is an example of its output.
If the value of Goodyear shares is considered to be about EUR 9.40,
then this could be an opportunity for a value investor (or a trader)
to buy 319 Goodyear shares at EUR 8.70 (or 320 at EUR 8,71). That's a
discount of about 7.45%, i.e a possibly attractive void, thanks to the
seller's market order.
Order book 30/71 of: GT (BE0004359916)
Last: 9.40 (27/08/2012)
1 130 MKT MKT 450 1
1 996 8.70 9.25 20 1
1 327 7.50 9.60 300 1
9.80 300 1
9.89 250 1
10.00 300 1
10.20 300 1
10.40 300 1
10.45 315 1
10.50 45 1
Order book 31/71 of: HITT (NL0000358158)
Last: 7.00 (29/08/2012)
1 98399 7.00 MKT 35 1
2 10200 6.60 7.00 3500 1
2 72427 6.56 7.15 5000 1
2 130000 6.55 7.25 2000 1
2 40672 6.54 7.26 7148 2
1 24278 6.45 7.40 210 1
1 189 6.36 7.44 255 1
1 1000 5.30 7.45 2000 1
7.50 100 1
7.99 1500 1
Order book 57/71 of: SER (BE0003677888)
Last: 12900.00 (29/08/2012)
1 2 12851.00 MKT 2 1
1 2 12850.50 12850.00 11 1
1 1 12850.01 13200.00 1 1
3 3 12850.00 13249.99 1 1
1 1 12803.00 13250.00 5 2
1 1 12801.00 13500.00 10 5
5 8 12800.00 13613.00 1 1
1 1 12755.00 13750.00 1 1
1 1 12600.00 13842.00 1 1
1 5 12502.00 14000.00 2 1
Order book 58/71 of: SOLV (BE0003545531)
Last: 99.00 (28/08/2012)
1 100 98.55 MKT 30 1
2 1250 98.50 99.98 100 1
1 300 98.25 101.85 100 1
1 500 98.00 102.00 265 2
1 50 97.50 104.88 75 1
2 250 97.00 104.90 50 1
2 192 95.00 104.95 697 1
1 100 94.00 105.00 675 3
1 76 93.40 105.50 500 1
2 210 93.00 106.00 100 1
--
/* Auction.CMD */
CALL RxFuncAdd 'SysFileDelete','RexxUtil','SysFileDelete'
SIGNAL ON Halt
isin.0=71
isin.1='NL0010070777 XAMS' /* 1NOMY */
isin.2='CWN001011006 XAMS' /* AMIGO */
isin.3='FR0004166155 XBRU' /* ART */
isin.4='BE0003856730 XBRU' /* ASC */
isin.5='BE0004608494 XBRU' /* BAB */
isin.6='DE0008600966 XAMS' /* BACFP */
isin.7='BE0004601424 XBRU' /* BAM */
isin.8='US0737301038 TNLA' /* BEAM */
isin.9='BE0020575115 XBRU' /* BELR */
isin.10='BE0003723377 XBRU' /* BELU */
isin.11='NL0000285278 XAMS' /* BEVER */
isin.12='US0970231058 TNLA' /* BOEI */
isin.13='BE0003825420 XBRU' /* CAMB */
isin.14='BE0004610516 XBRU' /* CATER */
isin.15='US1667641005 TNLA' /* CHTEX */
isin.16='BE0003304061 XBRU' /* CIM */
isin.17='BE0003811289 XBRU' /* COFP1 */
isin.18='BE0003813301 XBRU' /* COFP2 */
isin.19='BE0003624351 XBRU' /* DEFB */
isin.20='XS0138973010 XAMS' /* DEPCF */
isin.21='NL0009733351 XAMS' /* DICO */
isin.22='BE0004594355 XBRU' /* DOWB */
isin.23='NL0009901610 XBRU' /* ENVI */
isin.24='BE0004571122 XBRU' /* F */
isin.25='BE0003215143 XBRU' /* FLOB */
isin.26='US3448491049 TNLA' /* FOOTL */
isin.27='BE0003752665 XBRU' /* FOU */
isin.28='BE0004609500 XBRU' /* GEBC */
isin.29='NL0000440824 XAMS' /* GROHA */
isin.30='BE0004359916 XBRU' /* GT */
isin.31='NL0000358158 XAMS' /* HITT */
isin.32='ANN4327C1303 XAMS' /* HUNDP */
isin.33='NL0009391242 XAMS' /* HYDRA */
isin.34='US4592001014 TNLA' /* IBMA */
isin.35='US4595061015 TNLA' /* IFF */
isin.36='BE0003893139 XBRU' /* IMMOU */
isin.37='BE0004602430 XBRU' /* IMO */
isin.38='IL0010846314 XBRU' /* MEDV */
isin.39='BE0003731453 XBRU' /* MIKO */
isin.40='NL0000488153 XBRU' /* MOP */
isin.41='NL0000488161 XBRU' /* MOPF */
isin.42='BE0003602134 XBRU' /* MOUR */
isin.43='US5658491064 TNLA' /* MROIL */
isin.44='BE0003680916 XBRU' /* NEU */
isin.45='NL0009822014 XAMS' /* NSE */
isin.46='US6745991058 TNLA' /* OCPET */
isin.47='IL0010830391 XBRU' /* PAY */
isin.48='BE0003503118 XBRU' /* PCBB */
isin.49='US7134481081 TNLA' /* PEP */
isin.50='NL0000378669 XAMS' /* PORF */
isin.51='NL0009875483 XAMS' /* PREVA */
isin.52='US74928K2087 XAMS' /* RBST5 */
isin.53='US74928M2044 XAMS' /* RBST6 */
isin.54='US74928P2074 XAMS' /* RBST7 */
isin.55='BE0003654655 XBRU' /* SAB */
isin.56='BE0012378593 XBRU' /* SCHD */
isin.57='BE0003677888 XBRU' /* SER */
isin.58='BE0003545531 XBRU' /* SOLV */
isin.59='BE0003798155 XBRU' /* SPA */
isin.60='BE0003463685 XBRU' /* SUCR */
isin.61='BE0974263924 XBRU' /* TEXF */
isin.62='BE0003804219 XBRU' /* THI */
isin.63='NL0000388684 XAMS' /* UNCC7 */
isin.64='NL0000388742 XAMS' /* UNCP6 */
isin.65='NL0000388726 XAMS' /* UNCP7 */
isin.66='IL0010838311 XBRU' /* UNITB */
isin.67='US9078181081 TNLA' /* UNPA */
isin.68='NL0009082486 XAMS' /* VALUE */
isin.69='US92343V1044 TNLA' /* VERIZ */
isin.70='BE0003734481 XBRU' /* WEB */
isin.71='BE0003806230 XBRU' /* ZENT */
pd='--post-data="format=csv&layout=vertical&decimal_separator=.&'
pd=pd||'date_form=d/m/Y&op=Go&form_build_id=form-95ee71b0c76f01d'
pd=pd||'43248b53f98be27b2&form_id=nyx_data_center_download_form"'
ua='--user-agent="Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US'
ua=ua||'; rv:1.5b)"'
IF Stream('AUCTION.TMP','C','QUERY EXISTS')<>'' THEN DO
CALL SysFileDelete 'AUCTION.TMP'
END
IF Stream('AUCTION2.TMP','C','QUERY EXISTS')<>'' THEN DO
CALL SysFileDelete 'AUCTION2.TMP'
END
DO i=1 TO isin.0
url='"https://europeanequities.nyx.com/nl/data/csv/order_boo'
url=url||'k?currentView=data&isin='||Word(isin.i,1)||'&mic='
url=url||Word(isin.i,2)||'"'
'@WGETSSL.EXE -q -OAUCTION.TMP' pd ua url
IF Stream('AUCTION.TMP','C','QUERY EXISTS')<>'' THEN DO
CALL LineIn 'AUCTION.TMP'
regel=Strip(LineIn('AUCTION.TMP'))
IF Pos('-',regel,1)>0 THEN DO
PARSE VAR regel . '-' symbool
regel.0='Order book' Format(i,2)||'/'||isin.0 'of:'
regel.0=regel.0 Strip(symbool) '('||Word(isin.i,1)||')'
DO 5
CALL LineIn 'AUCTION.TMP'
END
laag=0
mkt=0
DO WHILE Lines('AUCTION.TMP')>0
regel=Strip(LineIn('AUCTION.TMP'))
IF Pos('"Total"',regel,1)=0 THEN DO
laag=laag+1
PARSE VAR regel '"' kooporders.laag '","' regel
PARSE VAR regel koopaantal.laag '","' regel
PARSE VAR regel biedprijs.laag '","' . '","' regel
PARSE VAR regel laatprijs.laag '","' regel
PARSE VAR regel verkoopaantal.laag '","' regel
PARSE VAR regel verkooporders.laag '"' .
IF laag=1 THEN DO
IF kooporders.laag>0 THEN DO
IF biedprijs.laag=0 THEN DO
mkt=1
biedprijs.laag='MKT'
END
END
IF verkooporders.laag>0 THEN DO
IF laatprijs.laag=0 THEN DO
mkt=1
laatprijs.laag='MKT'
END
END
END
IF kooporders.laag='' THEN DO
IF biedprijs.laag=0 THEN biedprijs.laag=''
END
IF verkooporders.laag='' THEN DO
IF laatprijs.laag=0 THEN laatprijs.laag=''
END
regel.laag=Right(kooporders.laag,4)
regel.laag=regel.laag Right(koopaantal.laag,9)
regel.laag=regel.laag Right(biedprijs.laag,9)
regel.laag=regel.laag Right(laatprijs.laag,9)
regel.laag=regel.laag Right(verkoopaantal.laag,9)
regel.laag=regel.laag Right(verkooporders.laag,4)
END
END
IF mkt=1 THEN DO
url='"https://europeanequities.nyx.com/nl/nyx_eu_l'
url=url||'istings/real-time/quote/'||Word(isin.i,1)
url=url||'-'||Word(isin.i,2)||'"'
'@WGETSSL.EXE' ua '-q -OAUCTION2.TMP' url
IF Stream('AUCTION2.TMP','C','QUERY EXISTS')<>'' THEN DO
omvang=Stream('AUCTION2.TMP','C','QUERY SIZE')
alles=CharIn('AUCTION2.TMP',1,omvang)
CALL CharOut 'AUCTION2.TMP'
CALL SysFileDelete 'AUCTION2.TMP'
PARSE VAR alles . 'id="datetimeLastvalue">' datum .
PARSE VAR alles . 'id="lastPriceint">' prefix '<' .
PARSE VAR alles . 'id="lastPricefract">' suffix '<' .
SAY regel.0
regel.0='Last:' Strip(prefix)||Strip(suffix)
regel.0=ChangeStr(',',regel.0,'.') '('||datum||')'
END
DO j=0 TO laag
SAY regel.j
END j
SAY
END
END
CALL LineOut 'AUCTION.TMP'
CALL SysFileDelete 'AUCTION.TMP'
END
END i
EXIT
Halt:
IF Stream('AUCTION.TMP','C','QUERY EXISTS')<>'' THEN DO
CALL SysFileDelete 'AUCTION.TMP'
END
IF Stream('AUCTION2.TMP','C','QUERY EXISTS')<>'' THEN DO
CALL SysFileDelete 'AUCTION2.TMP'
END
EXIT
Back to comp.os.os2.apps | Previous | Next — Previous in thread | Next in thread | Find similar
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-02-01 05:31 +0100
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-20 17:40 +0200
Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2012-04-20 15:11 -0600
Re: Stock exchange-related data "Rich Walsh" <spamyourself@127.0.0.1> - 2012-04-21 02:16 +0000
Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2012-04-21 13:34 -0600
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-22 15:39 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-22 14:31 +0200
Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2012-04-22 12:41 -0600
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-23 16:10 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-25 17:21 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-06-22 19:06 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-08-09 20:42 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-08-13 01:01 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-25 18:44 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-08-29 14:21 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-25 19:20 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-26 00:31 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-26 10:06 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-26 15:59 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-26 15:59 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-26 15:59 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-06-22 20:33 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-22 14:50 +0200
Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-04-25 18:04 +0200
csiph-web