IDENTIFICATION DIVISION.
       ENVIRONMENT DIVISION.                                            
                                                                        
                                                                        
      ******************************************************************
      *                                                                *
      *                C O N F I G U R A T I O N   S E C T I O N       *
      *                                                                *
      ******************************************************************
                                                                        
       CONFIGURATION SECTION.                                           
                                                                        
         SOURCE-COMPUTER. TANDEM-16.                                    
                                                                        
         OBJECT-COMPUTER. TANDEM-16.                                    
                                                                        
                                                                        
         SPECIAL-NAMES.                 
             CALL-CONVENTION 74 IS WINAPI.
       
       DATA DIVISION.
       WORKING-STORAGE SECTION.



       LINKAGE SECTION.

       01 VB-TO-COBOL-LINK.
          03 INPUT-GROUP.
            05 VB-STRING                   PIC X(40).
            05 VB-INTEGER                  PIC S9(4) COMP-5.
            05 TEST-STRING-1               PIC X(40).
      * The following filler is required to give 4 byte            
      * boundary as used by Visual Basic
            05 filler                      pic xx.
            05 VB-LONG                     PIC S9(9) COMP-5.
            05 TEST-STRING-2               PIC X(40).
            05 VB-SINGLE                   COMP-1.
            05 TEST-STRING-3               PIC X(40).
            05 VB-DOUBLE                   COMP-2.
            05 TEST-STRING-4               PIC X(40).
          03 OUTPUT-GROUP.
            05 VB-STRING-OUT               PIC X(40).
            05 VB-INTEGER-OUT              PIC S9(4) COMP-5.
            05 filler                      pic xx.
            05 TEST-STRING-1-OUT           PIC X(40).
            05 VB-LONG-OUT                 PIC S9(9) COMP-5.
            05 TEST-STRING-2-OUT           PIC X(40).
            05 VB-SINGLE-OUT               COMP-1.
            05 TEST-STRING-3-OUT           PIC X(40).
            05 VB-DOUBLE-OUT               COMP-2.
            05 TEST-STRING-4-OUT           PIC X(40).
          03 MESSAGE-FROM-JIM              PIC X(50).

       PROCEDURE DIVISION WINAPI.

       EXIT PROGRAM.

       ENTRY "REALWORK" WINAPI USING BY REFERENCE VB-TO-COBOL-LINK.

       MOVE INPUT-GROUP TO OUTPUT-GROUP.
       MOVE "Supplied by Micro Focus Technical Support" TO
           MESSAGE-FROM-JIM.

       EXIT PROGRAM.