GUI ScreenIO for Windows

 ScreenIO.com


Micro Focus COBOL

Copy the file GS.COB from the GUI ScreenIO installation directory to wherever you keep your COBOL program source code.

Launch your COBOL program editor.

Open GS.COB so that you can edit it.

Examine the source code (it's pretty simple). The comments at the beginning of the program explain what you need to do.  Remove the comments from the Micro Focus section of code as shown below. 

DATA DIVISION

You need to decomment the following lines in the DATA DIVISION to specify the linkage convention used to call GUI ScreenIO.

 SPECIAL-NAMES.
*--> Decomment following line for: Micro Focus COBOL <--*
     CALL-CONVENTION 74 IS WINAPI.   

PROCEDURE DIVISION

 0001-PASSTHROUGH-CALL.
*----------------------------------------------------------
*--> Micro Focus and mbp COBOL <--*
* Note:  Decomment the appropriate entry in SPECIAL-NAMES.
*
     CALL 'GS32' WITH STDCALL USING BY REFERENCE A B C D.
     GOBACK.
     ENTRY 'GSWINAPI' USING W A B C D E F.
     CALL 'GSWAPI' WITH STDCALL
                   USING BY REFERENCE W A B C D E F.
     GOBACK.

Be sure that the source code for other compilers is commented out.

Save GS.COB.

Compiling GS.COB

Compile GS.COB using the directive LITLINK to ensure that it'll be called statically by GS. 

Note:  You can use GS as an INT, GNT, OBJ, or DLL, though you must use OBJ or DLL forms if your application will call GSWINAPI to access the Windows APIs that GUI ScreenIO provides. 

Related topics:


© 2000-2019 Norcom, all rights reserved 

TOC

Send feedback to Norcom