cobjapi.cob | searchcode

/tools/cobjapi/src_cobol/cobjapi.cob

https://gitlab.com/iladin/open-cobol-contrib · COBOL · 1895 lines · 1226 code · 449 blank · 220 comment · 0 complexity · 4956447a7c960c88eede82bd7e0cc4a2 MD5 · raw file

*>******************************************************************************
*>  This file is part of cobjapi.
*>
*>  cobjapi.cob is free software: you can redistribute it and/or 
*>  modify it under the terms of the GNU Lesser General Public License as 
*>  published by the Free Software Foundation, either version 3 of the License,
*>  or (at your option) any later version.
*>
*>  cobjapi.cob is distributed in the hope that it will be useful, 
*>  but WITHOUT ANY WARRANTY; without even the implied warranty of 
*>  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*>  See the GNU Lesser General Public License for more details.
*>
*>  You should have received a copy of the GNU Lesser General Public License 
*>  along with cobjapi.cob.
*>  If not, see <http://www.gnu.org/licenses/>.
*>******************************************************************************

*>******************************************************************************
*> Program:      cobjapi.cob
*>
*> Purpose:      GnuCOBOL wrapper functions for JAPI
*>
*> Author:       Laszlo Erdos - https://www.facebook.com/wortfee
*>
*> Date-Written: 2014.12.24
*>
*> Tectonics:    cobc -c -free cobjapi.cob
*>
*> Usage:        Use these functions in GnuCOBOL GUI programs.
*>
*>******************************************************************************
*> Date       Name / Change description 
*> ========== ==================================================================
*> 2003.02.26 This comment is only for History. The latest Version (V1.0.6) of 
*>            JAPI was released on 02/26/2003. Homepage: http://www.japi.de 
*>------------------------------------------------------------------------------
*> 2014.12.24 Laszlo Erdos: 
*>            - GnuCOBOL support for JAPI added. 
*>            - japi4c.c converted into cobjapi.cob. 
*>******************************************************************************
 
*>------------------------------------------------------------------------------
*> int    j_start( )
*> { return( japi_start());  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-START.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION 
                    RETURNING          LNK-RET.

 MAIN-J-START SECTION.

    CALL STATIC "japi_start" 
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-START-EX.
    EXIT.
 END FUNCTION J-START.

 
*>------------------------------------------------------------------------------
*> int    j_connect( char* arg0)
*> { return( japi_connect(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-CONNECT.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY REFERENCE LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-CONNECT SECTION.

    CALL STATIC "japi_connect" 
         USING BY CONTENT CONCATENATE(TRIM(LNK-ARG-0), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-CONNECT-EX.
    EXIT.
 END FUNCTION J-CONNECT.

 
*>------------------------------------------------------------------------------
*> void j_setport( int arg0)
*> { japi_setport(arg0);  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-SETPORT.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-SETPORT SECTION.

    CALL STATIC "japi_setport" 
         USING BY VALUE LNK-ARG-0
         RETURNING OMITTED 
    END-CALL 

    MOVE ZEROES TO LNK-RET
    
    GOBACK

    .
 MAIN-J-SETPORT-EX.
    EXIT.
 END FUNCTION J-SETPORT.

 
*>------------------------------------------------------------------------------
*> void j_setdebug( int arg0)
*> { japi_setdebug(arg0);  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-SETDEBUG.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-SETDEBUG SECTION.

    CALL STATIC "japi_setdebug" 
         USING BY VALUE LNK-ARG-0
         RETURNING OMITTED 
    END-CALL 

    MOVE ZEROES TO LNK-RET
    
    GOBACK

    .
 MAIN-J-SETDEBUG-EX.
    EXIT.
 END FUNCTION J-SETDEBUG.

 
*>------------------------------------------------------------------------------
*> int  j_frame( char* arg0)
*> { return( japi_frame(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-FRAME.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY REFERENCE LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-FRAME SECTION.

    CALL STATIC "japi_frame" 
         USING BY CONTENT CONCATENATE(TRIM(LNK-ARG-0), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-FRAME-EX.
    EXIT.
 END FUNCTION J-FRAME.

 
*>------------------------------------------------------------------------------
*> int  j_button( int arg0, char* arg1)
*> { return( japi_button(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-BUTTON.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-BUTTON SECTION.

    CALL STATIC "japi_button" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-BUTTON-EX.
    EXIT.
 END FUNCTION J-BUTTON.

 
*>------------------------------------------------------------------------------
*> int  j_graphicbutton( int arg0, char* arg1)
*> { return( japi_graphicbutton(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-GRAPHICBUTTON.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-GRAPHICBUTTON SECTION.

    CALL STATIC "japi_graphicbutton" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-GRAPHICBUTTON-EX.
    EXIT.
 END FUNCTION J-GRAPHICBUTTON.

 
*>------------------------------------------------------------------------------
*> int  j_checkbox( int arg0, char* arg1)
*> { return( japi_checkbox(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-CHECKBOX.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-CHECKBOX SECTION.

    CALL STATIC "japi_checkbox" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-CHECKBOX-EX.
    EXIT.
 END FUNCTION J-CHECKBOX.

 
*>------------------------------------------------------------------------------
*> int  j_label( int arg0, char* arg1)
*> { return( japi_label(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-LABEL.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-LABEL SECTION.

    CALL STATIC "japi_label" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-LABEL-EX.
    EXIT.
 END FUNCTION J-LABEL.

 
*>------------------------------------------------------------------------------
*> int  j_graphiclabel( int arg0, char* arg1)
*> { return( japi_graphiclabel(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-GRAPHICLABEL.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-GRAPHICLABEL SECTION.

    CALL STATIC "japi_graphiclabel" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-GRAPHICLABEL-EX.
    EXIT.
 END FUNCTION J-GRAPHICLABEL.

 
*>------------------------------------------------------------------------------
*> int  j_canvas( int arg0, int arg1, int arg2)
*> { return( japi_canvas(arg0, arg1, arg2));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-CANVAS.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-ARG-2                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                          BY VALUE     LNK-ARG-2
                    RETURNING          LNK-RET.

 MAIN-J-CANVAS SECTION.

    CALL STATIC "japi_canvas" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
               BY VALUE LNK-ARG-2
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-CANVAS-EX.
    EXIT.
 END FUNCTION J-CANVAS.

 
*>------------------------------------------------------------------------------
*> int  j_panel( int arg0)
*> { return( japi_panel(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-PANEL.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-PANEL SECTION.

    CALL STATIC "japi_panel" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-PANEL-EX.
    EXIT.
 END FUNCTION J-PANEL.

 
*>------------------------------------------------------------------------------
*> int  j_borderpanel( int arg0, int arg1)
*> { return( japi_borderpanel(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-BORDERPANEL.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-BORDERPANEL SECTION.

    CALL STATIC "japi_borderpanel" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-BORDERPANEL-EX.
    EXIT.
 END FUNCTION J-BORDERPANEL.

 
*>------------------------------------------------------------------------------
*> int  j_radiogroup( int arg0)
*> { return( japi_radiogroup(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-RADIOGROUP.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-RADIOGROUP SECTION.

    CALL STATIC "japi_radiogroup" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-RADIOGROUP-EX.
    EXIT.
 END FUNCTION J-RADIOGROUP.

 
*>------------------------------------------------------------------------------
*> int  j_radiobutton( int arg0, char* arg1)
*> { return( japi_radiobutton(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-RADIOBUTTON.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-RADIOBUTTON SECTION.

    CALL STATIC "japi_radiobutton" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-RADIOBUTTON-EX.
    EXIT.
 END FUNCTION J-RADIOBUTTON.
 
 
*>------------------------------------------------------------------------------
*> int  j_list( int arg0, int arg1)
*> { return( japi_list(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-LIST.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-LIST SECTION.

    CALL STATIC "japi_list" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-LIST-EX.
    EXIT.
 END FUNCTION J-LIST.

 
*>------------------------------------------------------------------------------
*> int  j_choice( int arg0)
*> { return( japi_choice(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-CHOICE.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-CHOICE SECTION.

    CALL STATIC "japi_choice" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-CHOICE-EX.
    EXIT.
 END FUNCTION J-CHOICE.

 
*>------------------------------------------------------------------------------
*> int  j_dialog( int arg0, char* arg1)
*> { return( japi_dialog(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-DIALOG.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-DIALOG SECTION.

    CALL STATIC "japi_dialog" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-DIALOG-EX.
    EXIT.
 END FUNCTION J-DIALOG.

 
*>------------------------------------------------------------------------------
*> int  j_window( int arg0)
*> { return( japi_window(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-WINDOW.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-WINDOW SECTION.

    CALL STATIC "japi_window" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-WINDOW-EX.
    EXIT.
 END FUNCTION J-WINDOW.

 
*>------------------------------------------------------------------------------
*> int  j_popupmenu( int arg0, char* arg1)
*> { return( japi_popupmenu(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-POPUPMENU.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-POPUPMENU SECTION.

    CALL STATIC "japi_popupmenu" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-POPUPMENU-EX.
    EXIT.
 END FUNCTION J-POPUPMENU.

 
*>------------------------------------------------------------------------------
*> int  j_scrollpane( int arg0)
*> { return( japi_scrollpane(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-SCROLLPANE.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-SCROLLPANE SECTION.

    CALL STATIC "japi_scrollpane" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-SCROLLPANE-EX.
    EXIT.
 END FUNCTION J-SCROLLPANE.

 
*>------------------------------------------------------------------------------
*> int  j_hscrollbar( int arg0)
*> { return( japi_hscrollbar(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-HSCROLLBAR.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-HSCROLLBAR SECTION.

    CALL STATIC "japi_hscrollbar" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-HSCROLLBAR-EX.
    EXIT.
 END FUNCTION J-HSCROLLBAR.

 
*>------------------------------------------------------------------------------
*> int  j_vscrollbar( int arg0)
*> { return( japi_vscrollbar(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-VSCROLLBAR.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-VSCROLLBAR SECTION.

    CALL STATIC "japi_vscrollbar" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-VSCROLLBAR-EX.
    EXIT.
 END FUNCTION J-VSCROLLBAR.

 
*>------------------------------------------------------------------------------
*> int  j_line( int arg0, int arg1, int arg2, int arg3)
*> { return( japi_line(arg0, arg1, arg2, arg3));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-LINE.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-ARG-2                          BINARY-INT.
 01 LNK-ARG-3                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                          BY VALUE     LNK-ARG-2
                          BY VALUE     LNK-ARG-3
                    RETURNING          LNK-RET.

 MAIN-J-LINE SECTION.

    CALL STATIC "japi_line" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
               BY VALUE LNK-ARG-2
               BY VALUE LNK-ARG-3
         RETURNING LNK-RET 
    END-CALL 
    
    GOBACK

    .
 MAIN-J-LINE-EX.
    EXIT.
 END FUNCTION J-LINE.

 
*>------------------------------------------------------------------------------
*> int  j_printer( int arg0)
*> { return( japi_printer(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-PRINTER.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-PRINTER SECTION.

    CALL STATIC "japi_printer" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-PRINTER-EX.
    EXIT.
 END FUNCTION J-PRINTER.

 
*>------------------------------------------------------------------------------
*> int  j_image( int arg0, int arg1)
*> { return( japi_image(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-IMAGE.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-IMAGE SECTION.

    CALL STATIC "japi_image" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-IMAGE-EX.
    EXIT.
 END FUNCTION J-IMAGE.

 
*>------------------------------------------------------------------------------
*> char*  j_filedialog( int arg0, char* arg1, char* arg2, char* arg3)
*> { return( japi_filedialog(arg0, arg1, arg2, arg3));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-FILEDIALOG.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 WS-IND                             BINARY-INT.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-ARG-2                          PIC X ANY LENGTH.
 01 LNK-ARG-3                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                          BY REFERENCE LNK-ARG-2
                          BY REFERENCE LNK-ARG-3
                    RETURNING          LNK-RET.

 MAIN-J-FILEDIALOG SECTION.

*>  init output text field
    MOVE ALL X"00" TO LNK-ARG-3
 
    CALL STATIC "japi_filedialog" 
         USING BY VALUE     LNK-ARG-0
               BY CONTENT   CONCATENATE(TRIM(LNK-ARG-1), X"00")
               BY CONTENT   CONCATENATE(TRIM(LNK-ARG-2), X"00")
               BY REFERENCE LNK-ARG-3
         RETURNING OMITTED 
    END-CALL 
    
    MOVE ZEROES TO LNK-RET

*>  replace all chars with spaces after EOL    
    PERFORM VARYING WS-IND FROM 1 BY 1 
      UNTIL WS-IND > LENGTH(LNK-ARG-3)
       IF LNK-ARG-3(WS-IND:1) = X"00"
       THEN
          MOVE SPACES TO LNK-ARG-3(WS-IND:)
          EXIT PERFORM
       END-IF
    END-PERFORM  
    
    GOBACK

    .
 MAIN-J-FILEDIALOG-EX.
    EXIT.
 END FUNCTION J-FILEDIALOG.

 
*>------------------------------------------------------------------------------
*> char*  j_fileselect( int arg0, char* arg1, char* arg2, char* arg3)
*> { return( japi_fileselect(arg0, arg1, arg2, arg3));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-FILESELECT.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 WS-IND                             BINARY-INT.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-ARG-2                          PIC X ANY LENGTH.
 01 LNK-ARG-3                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                          BY REFERENCE LNK-ARG-2
                          BY REFERENCE LNK-ARG-3
                    RETURNING          LNK-RET.

 MAIN-J-FILESELECT SECTION.

*>  init output text field
    MOVE ALL X"00" TO LNK-ARG-3
 
    CALL STATIC "japi_fileselect" 
         USING BY VALUE     LNK-ARG-0
               BY CONTENT   CONCATENATE(TRIM(LNK-ARG-1), X"00")
               BY CONTENT   CONCATENATE(TRIM(LNK-ARG-2), X"00")
               BY REFERENCE LNK-ARG-3
         RETURNING OMITTED 
    END-CALL 
    
    MOVE ZEROES TO LNK-RET

*>  replace all chars with spaces after EOL    
    PERFORM VARYING WS-IND FROM 1 BY 1 
      UNTIL WS-IND > LENGTH(LNK-ARG-3)
       IF LNK-ARG-3(WS-IND:1) = X"00"
       THEN
          MOVE SPACES TO LNK-ARG-3(WS-IND:)
          EXIT PERFORM
       END-IF
    END-PERFORM  
    
    GOBACK

    .
 MAIN-J-FILESELECT-EX.
    EXIT.
 END FUNCTION J-FILESELECT.

 
*>------------------------------------------------------------------------------
*> int  j_messagebox( int arg0, char* arg1, char* arg2)
*> { return( japi_messagebox(arg0, arg1, arg2));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-MESSAGEBOX.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-ARG-2                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                          BY REFERENCE LNK-ARG-2
                    RETURNING          LNK-RET.

 MAIN-J-MESSAGEBOX SECTION.

    CALL STATIC "japi_messagebox" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-2), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-MESSAGEBOX-EX.
    EXIT.
 END FUNCTION J-MESSAGEBOX.

 
*>------------------------------------------------------------------------------
*> int  j_alertbox( int arg0, char* arg1, char* arg2, char* arg3)
*> { return( japi_alertbox(arg0, arg1, arg2, arg3));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-ALERTBOX.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-ARG-2                          PIC X ANY LENGTH.
 01 LNK-ARG-3                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                          BY REFERENCE LNK-ARG-2
                          BY REFERENCE LNK-ARG-3
                    RETURNING          LNK-RET.

 MAIN-J-ALERTBOX SECTION.

    CALL STATIC "japi_alertbox" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-2), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-3), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-ALERTBOX-EX.
    EXIT.
 END FUNCTION J-ALERTBOX.

 
*>------------------------------------------------------------------------------
*> int  j_choicebox2( int arg0, char* arg1, char* arg2, char* arg3, char* arg4)
*> { return( japi_choicebox2(arg0, arg1, arg2, arg3, arg4));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-CHOICEBOX2.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-ARG-2                          PIC X ANY LENGTH.
 01 LNK-ARG-3                          PIC X ANY LENGTH.
 01 LNK-ARG-4                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                          BY REFERENCE LNK-ARG-2
                          BY REFERENCE LNK-ARG-3
                          BY REFERENCE LNK-ARG-4
                    RETURNING          LNK-RET.

 MAIN-J-CHOICEBOX2 SECTION.

    CALL STATIC "japi_choicebox2" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-2), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-3), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-4), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-CHOICEBOX2-EX.
    EXIT.
 END FUNCTION J-CHOICEBOX2.

 
*>------------------------------------------------------------------------------
*> int  j_choicebox3( int arg0, char* arg1, char* arg2, char* arg3, char* arg4, char* arg5)
*> { return( japi_choicebox3(arg0, arg1, arg2, arg3, arg4, arg5));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-CHOICEBOX3.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-ARG-2                          PIC X ANY LENGTH.
 01 LNK-ARG-3                          PIC X ANY LENGTH.
 01 LNK-ARG-4                          PIC X ANY LENGTH.
 01 LNK-ARG-5                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                          BY REFERENCE LNK-ARG-2
                          BY REFERENCE LNK-ARG-3
                          BY REFERENCE LNK-ARG-4
                          BY REFERENCE LNK-ARG-5
                    RETURNING          LNK-RET.

 MAIN-J-CHOICEBOX3 SECTION.

    CALL STATIC "japi_choicebox3" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-2), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-3), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-4), X"00")
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-5), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-CHOICEBOX3-EX.
    EXIT.
 END FUNCTION J-CHOICEBOX3.

 
*>------------------------------------------------------------------------------
*> int  j_progressbar( int arg0, int arg1)
*> { return( japi_progressbar(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-PROGRESSBAR.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-PROGRESSBAR SECTION.

    CALL STATIC "japi_progressbar" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-PROGRESSBAR-EX.
    EXIT.
 END FUNCTION J-PROGRESSBAR.

 
*>------------------------------------------------------------------------------
*> int  j_led( int arg0, int arg1, int arg2)
*> { return( japi_led(arg0, arg1, arg2));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-LED.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-ARG-2                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                          BY VALUE     LNK-ARG-2
                    RETURNING          LNK-RET.

 MAIN-J-LED SECTION.

    CALL STATIC "japi_led" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
               BY VALUE LNK-ARG-2
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-LED-EX.
    EXIT.
 END FUNCTION J-LED.

 
*>------------------------------------------------------------------------------
*> int  j_sevensegment( int arg0, int arg1)
*> { return( japi_sevensegment(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-SEVENSEGMENT.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-SEVENSEGMENT SECTION.

    CALL STATIC "japi_sevensegment" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-SEVENSEGMENT-EX.
    EXIT.
 END FUNCTION J-SEVENSEGMENT.
 
 
*>------------------------------------------------------------------------------
*> int  j_meter( int arg0, char* arg1)
*> { return( japi_meter(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-METER.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-METER SECTION.

    CALL STATIC "japi_meter" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-METER-EX.
    EXIT.
 END FUNCTION J-METER.

 
*>------------------------------------------------------------------------------
*> void j_additem( int arg0, char* arg1)
*> { japi_additem(arg0, arg1);  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-ADDITEM.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-ADDITEM SECTION.

    CALL STATIC "japi_additem" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING OMITTED 
    END-CALL 

    MOVE ZEROES TO LNK-RET
    
    GOBACK

    .
 MAIN-J-ADDITEM-EX.
    EXIT.
 END FUNCTION J-ADDITEM.

 
*>------------------------------------------------------------------------------
*> int  j_textfield( int arg0, int arg1)
*> { return( japi_textfield(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-TEXTFIELD.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-TEXTFIELD SECTION.

    CALL STATIC "japi_textfield" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-TEXTFIELD-EX.
    EXIT.
 END FUNCTION J-TEXTFIELD.

 
*>------------------------------------------------------------------------------
*> int  j_textarea( int arg0, int arg1, int arg2)
*> { return( japi_textarea(arg0, arg1, arg2));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-TEXTAREA.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          BINARY-INT.
 01 LNK-ARG-2                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY VALUE     LNK-ARG-1
                          BY VALUE     LNK-ARG-2
                    RETURNING          LNK-RET.

 MAIN-J-TEXTAREA SECTION.

    CALL STATIC "japi_textarea" 
         USING BY VALUE LNK-ARG-0
               BY VALUE LNK-ARG-1
               BY VALUE LNK-ARG-2
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-TEXTAREA-EX.
    EXIT.
 END FUNCTION J-TEXTAREA.

 
*>------------------------------------------------------------------------------
*> int  j_menubar( int arg0)
*> { return( japi_menubar(arg0));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-MENUBAR.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                    RETURNING          LNK-RET.

 MAIN-J-MENUBAR SECTION.

    CALL STATIC "japi_menubar" 
         USING BY VALUE LNK-ARG-0
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-MENUBAR-EX.
    EXIT.
 END FUNCTION J-MENUBAR.

 
*>------------------------------------------------------------------------------
*> int  j_menu( int arg0, char* arg1)
*> { return( japi_menu(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-MENU.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-MENU SECTION.

    CALL STATIC "japi_menu" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-MENU-EX.
    EXIT.
 END FUNCTION J-MENU.
 
 
*>------------------------------------------------------------------------------
*> int  j_helpmenu( int arg0, char* arg1)
*> { return( japi_helpmenu(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-HELPMENU.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-HELPMENU SECTION.

    CALL STATIC "japi_helpmenu" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-HELPMENU-EX.
    EXIT.
 END FUNCTION J-HELPMENU.
 
 
*>------------------------------------------------------------------------------
*> int  j_menuitem( int arg0, char* arg1)
*> { return( japi_menuitem(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-MENUITEM.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-MENUITEM SECTION.

    CALL STATIC "japi_menuitem" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-MENUITEM-EX.
    EXIT.
 END FUNCTION J-MENUITEM.
 
 
*>------------------------------------------------------------------------------
*> int  j_checkmenuitem( int arg0, char* arg1)
*> { return( japi_checkmenuitem(arg0, arg1));  }
*>------------------------------------------------------------------------------
 IDENTIFICATION DIVISION.
 FUNCTION-ID. J-CHECKMENUITEM.
 AUTHOR.      Laszlo Erdos.

 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 REPOSITORY.
    FUNCTION ALL INTRINSIC.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.
 01 LNK-ARG-0                          BINARY-INT.
 01 LNK-ARG-1                          PIC X ANY LENGTH.
 01 LNK-RET                            BINARY-INT.

 PROCEDURE DIVISION USING BY VALUE     LNK-ARG-0
                          BY REFERENCE LNK-ARG-1
                    RETURNING          LNK-RET.

 MAIN-J-CHECKMENUITEM SECTION.

    CALL STATIC "japi_checkmenuitem" 
         USING BY VALUE   LNK-ARG-0
               BY CONTENT CONCATENATE(TRIM(LNK-ARG-1), X"00")
         RETURNING LNK-RET 
    END-CALL 
 
    GOBACK

    .
 MAIN-J-CHECKMENUITEM-EX.
    EXIT.
 END F