J McNamara - 2024-10-19

Hi -

Is there a quicker way to use grid layout in gnucobol.
I wanted to farm some of it out to AI but it comes up with the unorthodox way like this... yah see how it is trying to layout in grid style but i dont know how to call those thanks...

PROGRAM-ID. Screen1.

    ENVIRONMENT DIVISION.
    CONFIGURATION SECTION.

    DATA DIVISION.
    WORKING-STORAGE SECTION.


    01  USER-INPUT.
       05  INPUT-GL-ACCT       PIC X(50).
       05  INPUT-ASSET-CLASS    PIC 9(1).

    01  Ws-GL-INPUT  PIC 9(2) VALUE 5.
    01  WS-GL-CLASS PIC 9(2) VALUE 1.

    EXEC SQL BEGIN DECLARE SECTION END-EXEC.
  * Declare SQL variables here
    EXEC SQL INCLUDE SQLCA END-EXEC.

    EXEC SQL END DECLARE SECTION END-EXEC.

    PROCEDURE DIVISION.
    MAIN-PROCEDURE.

       CALL 'initscr'.
       CALL 'cbreak'.
       CALL 'noecho'.
       CALL 'keypad'.

       PERFORM DISPLAY-INPUT-FORM.

       CALL 'endwin'.

       STOP RUN.

    DISPLAY-INPUT-FORM.
       CALL 'mvprintw' USING WS-GL-INPUT, 5, "Enter GL ACcT".
       ACCEPT INPUT-GL-ACCT.

       CALL 'refresh'.

       CALL 'mvprintw' USING WS-GL-CLASS, 30, "Enter  Class: ".
       ACCEPT INPUT-ASSET-CLASS.

       CALL 'refresh'.

Sent with Proton Mail secure email.