Day 20
This is something that you do not see every day. Below is an extract from an old Smalltalk workspace listing I found where I was experimenting with Cincom's ObjectStudio Smalltalk programming environment and the OLE/COM interface to Connect:Direct.
It was just as easy if not easier than VBScript to control Connect:Direct using Smalltalk.
D := OLEDispatcher new: 'CD.NODE'.
N := D call: 'Connect' params: (Array with: 'MY.NODE' with: '' with: '').
TXT := 'TEST001 PROCESS' + CrLf
+ ' MAXDELAY=UNLIMITED' + CrLf
+ ' REMOTE=CD.REMOTE' + CrLf
+ ' HOLD = NO' + CrLf
+ 'STEP01 COPY FROM (' + CrLf
+ ' FILE=C:\TEMP\INPUT.TXT ' + CrLf
+ ' LOCAL /*$Windows NT$*/)' + CrLf
+ ' TO (' + CRLF
+ ' REMOTE /*$Windows NT$*/' + CrLf
+ ' FILE=C:\TEMP\OUTPUT.TXT' + CrLf
+ ' DISP=(RPL))' + CrLf
+ 'PEND'.
P := D call: 'Submit' params: (Array with: TXT).
P at: 'ProcessNumber'
S := D call: 'SelectStats' params: (Array with: 'select statistics pnumber=62').
I := S call: 'HasMore'.
I := S call: 'GetNext'.
I at: 'MsgId'
Smalltalk is one of my favourite programming languages, due to its' simple syntax and object orientation.
It might be interesting to see how this compares to using OLE/COM from TCL. I'll save that for another post.
Posts
