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]>
>
>
> * 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 *