Feature #343

Cobol interface for Enduro/X

Added by Madars Vitolins 10 months ago. Updated 4 months ago.

Status:NewStart date:09/13/2018
Priority:NormalDue date:
Assignee:-% Done:

0%

Category:-
Target version:-

Selection_155.png - cobol screen (1.39 MB) Madars Vitolins, 09/14/2018 07:43 AM

y.cbl (1.49 KB) Madars Vitolins, 09/14/2018 07:44 AM

History

#2 Updated by Madars Vitolins 10 months ago

      ******************************************************************
      * 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.

#3 Updated by Madars Vitolins 10 months ago

#4 Updated by Madars Vitolins 10 months ago

Also available in: Atom PDF