James Lemmon

Hi Simon, The system was written using MF OO. I am making changes to accommodate various library routines, of which I have used many. both Call by name and number. These include calling Windows routines (mouse, cursor and receiving data from a key de-pression) and the various screen handling routines (the most problematic are save and restore data and attributes into memory and changing attributes to highlight portions of data and to create shadows). I also use multiple split keys in most files and...

Hi Jerry, I have compiled some of the programs and am busy resolving the unique features from MF Cobol that do not compile or give different results in GNU. Once completed it will work in both compilers' There has been some delay as I had some problems with my eyes which restricted the time that I was able to work on my PC. should be faster from now on, James Lemmon http://www.avg.com/email-signature?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail Virus-free. www.avg.com...

This is an example of how I use it. The evaluate statement is a lot more than this example shows as there are procedures that I call or perform to not cause a system crash. 01 ws-file-status. 05 status-key-1 pic x. 05 status-key-2 pic x. 05 binary-status redefines status-key-2 pic 99 comp-x. evaluate binary-status when 002 display "file not open" when 007 display "disk space exhausted" when 013 display "file not found" when 024 display "disk error " when 065 display "file locked " when 068 display...

This is an example of how I use it. 01 ws-file-status. 05 status-key-1 pic x. 05 status-key-2 pic x. 05 binary-status redefines status-key-2 pic 99 comp-x. evaluate binary-status when 002 display "file not open" when 007 display "disk space exhausted" when 013 display "file not found" when 024 display "disk error " when 065 display "file locked " when 068 display "record locked " when 039 display "record inconsistent" when 146 display "no current record " when 180 display "file malformed " when 208...

In the select statement use one of "LOCK MANUAL", LOCK EXCLUSIVE", "LOCK AUTOMATIC" and use " WITH LOCK ON MULTIPLE " if you are wanting to lock more than one record at a time. If you use record locking, you can specify whether you want a lock whenever a record is read - this is called automatic record locking, or only when you explicitly specify a lock - this is called manual record locking. When you do not explicitly specify locking in your program, files opened I/O, OUTPUT or EXTEND acquire an...

In the select statement use one of "LOCK MANUAL", LOCK EXCLUSIVE", "LOCK AUTOMATIC" and use " WITH LOCK ON MULTIPLE " if you are wanting to lock more than one record at a time. If you use record locking, you can specify whether you want a lock whenever a record is read - this is called automatic record locking, or only when you explicitly specify a lock - this is called manual record locking. When you do not explicitly specify locking in your program, files opened I/O, OUTPUT or EXTEND acquire an...

In the select statement use one of "LOCK MANUAL", LOCK EXCLUSIVE", "LOCK AUTOMATIC" and use " WITH LOCK ON MULTIPLE " if you are wanting to lock more than one record at a time.