Re: Stock exchange-related data

From	"A.D. Fundum" <what.ever@neverm.ind>
Message-ID	<o8uYFJ3iqTdG-pn2-TRikRtLInHsw@localhost> (permalink)
Newsgroups	comp.os.os2.apps
Subject	Re: Stock exchange-related data
References	(10 earlier) <o8uYFJ3iqTdG-pn2-d4jZbCw9ZRdm@localhost> <Mhkkr.15338$FQ1.224@newsfe12.iad> <o8uYFJ3iqTdG-pn2-nVT9nLP6xu2F@localhost> <ChYkr.26131$JR1.22705@newsfe06.iad> <o8uYFJ3iqTdG-pn2-yUDd5mzdNSOO@localhost>
Organization	Xennanews
Date	2012-04-25 18:44 +0200

Show all headers | View raw

 >> 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. 
It should work with any (delayed) free order book data provider with 
websites that can be parsed. Again, WGET is required. Liking and using
the data are different stories. I can think of a few improvements, it 
ain't a cOOl one-button multimedia stock trading app. The sample 
includes a few bonds, and it may run for a while due to the number of 
websites to be downloaded.

An example of its output, if any:


Order book  27/47 of: RBS CAP FUND TRVII (RBST7, US74928P2074)
Last: 12,00
  1    500   10,10   At Best      1   1
  1    500   10,09     13,69      5   1
  0      0       -     13,70     33   1

Order book  40/47 of: RO MMB        0%13 (XS0208678846)
Last: 127,40
  0      0       -   At Best  16000   1
  0      0       -    127,40  20000   1


--

/* Auction.CMD */

CALL RxFuncAdd 'SysFileDelete','RexxUtil','SysFileDelete'

SIGNAL ON Halt

isin.0=47

isin.1='NL0010070777 ' /* 1NOMY */
isin.2='CWN001011006'  /* AMIGO */
isin.3='DE0008600966'  /* BACFP */
isin.4='US0737301038'  /* BEAM  */
isin.5='NL0000285278'  /* BEVER */
isin.6='US0970231058'  /* BOEI  */
isin.7='US1667641005'  /* CHTEX */
isin.8='LU0006013907'  /* CIF   */
isin.9='XS0138973010'  /* DEPCF */
isin.10='NL0009733351' /* DICO  */
isin.11='NL0000288017' /* EAT   */
isin.12='US3448491049' /* FOOTL */
isin.13='NL0000440824' /* GROHA */
isin.14='NL0000358158' /* HITT  */ 
isin.15='ANN4327C1303' /* HUNDP */
isin.16='NL0009391242' /* HYDRA */
isin.17='US4592001014' /* IBMA  */
isin.18='US4595061015' /* IFF   */
isin.19='US5658491064' /* MROIL */
isin.20='NL0009822014' /* NSE   */
isin.21='US6745991058' /* OCPET */
isin.22='US7134481081' /* PEP   */ 
isin.23='NL0000378669' /* PORF  */
isin.24='NL0009875483' /* PREVA */
isin.25='US74928K2087' /* RBST5 */
isin.26='US74928M2044' /* RBST6 */
isin.27='US74928P2074' /* RBST7 */
isin.28='NL0000288736' /* ROLPR */
isin.29='NL0000292720' /* ROPEQ */
isin.30='NL0000388684' /* UNCC7 */
isin.31='NL0000388742' /* UNCP6 */
isin.32='NL0000388726' /* UNCP7 */
isin.33='US9078181081' /* UNPA  */
isin.34='NL0009082486' /* VALUE */
isin.35='US92343V1044' /* VERIZ */
isin.36='NL0000394567' /* WEG   */
isin.37='XS0204176332'
isin.38='XS0204176415'
isin.39='XS0167896660'
isin.40='XS0208678846'
isin.41='XS0192658549'
isin.42='XS0188829229'
isin.43='XS0192658382'
isin.44='XS0366178290'
isin.45='XS0239558819'
isin.46='XS0229443550'
isin.47='XS0303002389'

ua='--user-agent="Mozilla/5.0 (Windows; U; Windows NT 5.1;'
ua=ua||'en-US; rv:1.5b)"'
DO i=1 TO isin.0
   url='"http://www.euronext.com/trader/advancedmarket/advanced'
   url=url||'market-2594-NL-'||isin.i||'.html?selectedMep=2"'
   '@WGET -q -OAUCTION.TMP' ua url
   IF Stream('AUCTION.TMP','C','QUERY EXISTS')<>'' THEN DO
      grootte=Stream('AUCTION.TMP','C','QUERY SIZE')
      alles=CharIn('AUCTION.TMP',1,grootte)
      CALL CharOut 'AUCTION.TMP'
      CALL SysFileDelete 'AUCTION.TMP'
      IF Pos('>At ',alles,1)>0 THEN DO
         lagen=0
         DO j=0 TO 4
            IF Pos('bidParticipants'||j,alles,1)>0 THEN DO
               lagen=Max(j+1,lagen)
            END
            IF Pos('askParticipants'||j,alles,1)>0 THEN DO
               lagen=Max(j+1,lagen)
            END
         END j
         IF lagen>0 THEN DO
            PARSE VAR alles . 'width="70%">' naam '</td>' rest
            PARSE VAR rest 'LAST_PRICE">' laatste '<' . 'Mnemo' rest2
            PARSE VAR rest2 . '&nbsp;' symbol '<' rest
            symbol=Strip(symbol)
            symbool='('
            IF symbol<>'' THEN symbool=symbool||symbol||', '
            CALL CharOut '','Order book' Format(i,3)||'/'||isin.0
            SAY ' of:' naam symbool||isin.i||')'
            IF DataType(laatste)='NUM' THEN DO
               SAY 'Last:' Translate(laatste,',','.')
            END
            IF DataType(laatste)<>'NUM' THEN DO
               SAY 'Last: -'
            END
            DO j=0 TO lagen-1
               split='bidParticipants'||j||'">'
               PARSE VAR rest . (split) data1 '<' rest
               split='bidVolume'||j||'">'
               PARSE VAR rest . (split) data2 '<' rest
               split='bidPrice'||j||'">'
               PARSE VAR rest . (split) data3 '<' rest
               split='askPrice'||j||'">'
               PARSE VAR rest . (split) data4 '<' rest
               split='askVolume'||j||'">'
               PARSE VAR rest . (split) data5 '<' rest
               split='askParticipants'||j||'">'
               PARSE VAR rest . (split) data6 '<' rest
               DO WHILE Pos(',',data2,1)>0
                  PARSE VAR data2 deel1 ',' deel2
                  data2=deel1||deel2
               END
               IF DataType(data3)='NUM' THEN DO
                  data3=Translate(data3,',','.')
               END
               IF DataType(data4)='NUM' THEN DO
                  data4=Translate(data4,',','.')
               END
               DO WHILE Pos(',',data5,1)>0
                  PARSE VAR data5 deel1 ',' deel2
                  data5=deel1||deel2
               END
               regel=Right(data1,3) Right(data2,6)||' '
               regel=regel||Right(data3,7) Right(data4,9)||' '
               regel=regel||Right(data5,6) Right(data6,3)
               IF Strip(regel)<>'' THEN SAY regel
            END j
            SAY
         END
      END
   END
END i

EXIT

Halt:

IF Stream('AUCTION.TMP','C','QUERY EXISTS')<>'' THEN DO
   CALL SysFileDelete 'AUCTION.TMP'
END

EXIT

Back to comp.os.os2.apps | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2011-12-22 18:16 +0100
  Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2011-12-22 11:55 -0700
    Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2011-12-23 04:01 +0100
      Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2011-12-22 22:50 -0700
        Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2011-12-24 03:20 +0100
          Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2011-12-23 23:42 -0700
            Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2011-12-30 00:10 +0100
              Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2011-12-30 00:53 +0100
              Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2011-12-29 23:55 -0700
                Re: Stock exchange-related data "A.D. Fundum" <what.ever@neverm.ind> - 2012-01-04 01:35 +0100
                Re: Stock exchange-related data Will Honea <whonea@yahoo.com> - 2012-01-04 12:51 -0700
                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