Dave,
I have created CLASSES that my code calls that will update both the HP3000
and my new SQL database. This allows me to dynamically keep both in sync.
Eventually I turn off the HP3000 update after all reports and screens have
been converted to SQL.
By using .NET classes built to emulate the original HP intrinsic calls, you
can do a mass change (usually with a little manual intervention) to convert
your new calls. It still takes a little work and know how, but you can
preserve you COBOL investment.
You can call and chat with me (but not today, I have an appointment) at
317-259-1426. I have 30 years experience in COBOL. I write in it every week
alone with large amounts of .NET and SQL.
Charlie
-----Original Message-----
From: Dave Vorgang [mailto:[log in to unmask]]
Sent: Tuesday, October 21, 2008 1:48 PM
To: Charles C Cookston; [log in to unmask]
Subject: RE: [HP3000-L] Converting Vplus to .Net
Hi Charlie,
One of the goals is to eliminate the HP3000 altogether. So, we are planning
on porting over the HP3000 cobol to Fujitsu cobol for .net.
The database will also be ported in that we will take the turbo image
structure and go directly to sql server. The new cobol programs will not
need to be changed since we will write wrappers for both the image calls and
the vplus calls.
Currently I am struggling with the vplus calls.
Thank you for replying and any additional insight would be welcomed.
Dave Vorgang
Senior Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]
-----Original Message-----
From: Charles C Cookston [mailto:[log in to unmask]]
Sent: Tuesday, October 21, 2008 9:51 AM
To: Dave Vorgang; [log in to unmask]
Cc: [log in to unmask]
Subject: RE: [HP3000-L] Converting Vplus to .Net
Dave,
I have already done this a couple of ways.
1) If you want to preserve your COBOL then you can create a .Net form and
package up the data in the exact format the ViewRead would see it. On the HP
you would have a listener program that would receive the data string. We
used Minisoft's Middleman to do this.
The receiving program would be a copy of your original COBOL where the
string would be considered the return value from the View3000 Read. We used
this method for several years.
2) We eventually took one screen at a time and did it completely in .Net.
Again we used Minisoft for the connection. We did not use SlowDBC. We did
DBFIND, DBGET, DBUPDATE, DBDELETE directly from the VB or C# code. This is
very fast and allows all the features of a .Net application with the HP3000
as a data server.
Both approaches took a little programming be since I know the HP3000 and its
languages and I know .Net, it was not too difficult.
Charlie Cookston
Web Navigation LLC
HP3000 contract services
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Dave Vorgang
Sent: Tuesday, October 21, 2008 12:25 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Converting Vplus to .Net
Our student system is homegrown. All done with cobol/vplus/image. I've
been assigned the task of wrapping all the vplus intrinsic calls to perform
their vb.net equivalence. The idea being that we can simply take our
existing cobol apps, run them through a converter to convert them to Fijitsu
and then have my vplus routines display the forms.
Dave Vorgang
Senior Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]
-----Original Message-----
From: joseph dolliver [mailto:[log in to unmask]]
Sent: Tuesday, October 21, 2008 9:08 AM
To: Dave Vorgang
Subject: Re: [HP3000-L] Converting Vplus to .Net
Dave, I am curious what application you are running for K12. Is it
homegrown or a package?
Thanks,
Joe Dolliver
On 10/21/08, Dave Vorgang <[log in to unmask]> wrote:
> Hi All,
>
> I have just began working on this project for converting our existing
HP3000
> Vplus screens to use Fujitsu Cobol on backend and use .Net for the forms.
>
> What I plan to do is create routines to emulate the Vplus intrinsics. For
> example, I have this routine to display the form:
>
> Private WithEvents _VFormFile As VplusBaseScreen.BaseFormMain
>
> Public Function VshowForm(ByVal comArea As ComAreaDefinition) As
Boolean
> _VFormFile.LoadScreen(_CurrentScreen)
> _VFormFile.Show()
> End Function
>
>
> Then, this routine would perform the Vreadfields which basically blocks
> execution of my application until _KeyEntered = True
>
> Public Function VreadFields(ByVal comArea As ComAreaDefinition) As
> Boolean
> _VFormFile.Focus()
> _KeyEntered = False
> Do Until _KeyEntered
> System.Windows.Forms.Application.DoEvents()
> Loop
>
> End Function
>
> Then, the form will raise events and set _KeyEntered = True when there is
> user interaction and the main process will catch those events like this:
> Private Sub _VFormFile_LastKeyPressed(ByVal key As Integer) Handles
> _VFormFile.LastKeyPressed
> _KeyEntered = True
> RaiseEvent LastKeyPressed(key)
> End Sub
> The above routine just raises the event back to its caller.
>
> This approach actually works but the Do Loop take 25% of the cpu.
>
> Now I know this is the HP3000 listserv but I thought I would give it a
shot
> since some may have tried to accomplish what I am trying to do.
>
> So, my question is: Is there a better way to accomplish what I'm trying
to
> do? Can/How would I place this on a different thread (if that's a way I
> should do it).
>
>
> Thanks,
>
> Dave Vorgang
> Senior Programmer / Analyst
> Medford School District - Information Technology
> (541) 842-1021
>
mailto:[log in to unmask]<BLOCKED::mailto:[log in to unmask]
12.or.us>
>
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
