Enduro/X Core

https://docs.oracle.com/cd/E13203_01/tuxedo/tux71/html/pbint6.htm

      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. YOUR-PROGRAM-NAME.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 ID-IN-WS PIC X(4).
       01 NAME-IN-WS PIC X(20).
       01 RESPONSE-IN-WS PIC X.
       SCREEN SECTION.
       01  DATA-ENTRY-SCREEN.
           05  VALUE "DATA ENTRY SCREEN" BLANK SCREEN    LINE 1 COL 35.
           05  VALUE "ID #"                              LINE 3 COL 10.
           05   ID-INPUT                                 LINE 3 COL 25
                    PIC  X(4)     TO ID-IN-WS.
           05   VALUE "NAME"                             LINE 5 COL 10.
           05  NAME-INPUT                                LINE 5 COL 25
                    PIC X(20)     TO NAME-IN-WS.
           05  VALUE "C - TO CONTINUE"                   LINE 11 COL 30.
           05  VALUE "Q - TO QUIT"                       LINE 12 COL 30.
           05  VALUE "ENTER RESPONSE"                    LINE 14 COL 30.
           05  RESPONSE-INPUT                            LINE 14 COL 45
                    PIC X         TO RESPONSE-IN-WS.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY DATA-ENTRY-SCREEN.
            ACCEPT DATA-ENTRY-SCREEN.
            DISPLAY "Hello world" 
            STOP RUN.
       END PROGRAM YOUR-PROGRAM-NAME.

http://www.ateam-oracle.com/sample-cobol-program-for-view-buffer/

full apis:
https://docs.oracle.com/cd/E15261_01/tuxedo/docs11gr1/rf3cbl/rf3cbl.html#999299

https://blogs.oracle.com/middlewareplace/getting-started-with-oracle-tuxedo:-creating-a-cobol-based-application

https://docs.oracle.com/cd/E18050_01/tuxedo/docs11gr1/tutor/tutcs.html

https://docs.oracle.com/cd/E13203_01/tuxedo/tux81/rf3cbl/rf3cbl.htm#1005398