Acucobolo beginner ...

Hi to evrybody,
j'm moving my very very first step in cobol .... using acucobol.

J have some question about this compiler
1) it's possible find in some places any book or on line course/tutorial in
order to use acucobol (for example in delphi there's a reference book with
some code and all procedure & units .....); within the compiler j have found
some book in htlm format but these are not so clear (for me ...).

2) After several trying j got the way to put two buttons in a form (screen)
The first one close the form and stop the program (j know .. is easy ..
but for me this is the classic "hello world").
The second one call a second screen with one button. Here the problem
... how can j do to open and display the second form ??.

Sorry if this matter are so easy ...

Than's for all, Daniele

Bottom posting

On Mar 18, 8:38 pm, "Daniele" <xxx....@zzz.it> wrote:
> Hi to evrybody,
>      j'm moving my very very first step in cobol .... using acucobol.
>
> J have some question about this compiler
> 1) it's possible find in some places any book or on line course/tutorial i
n
> order to use acucobol (for example in delphi there's a reference book with
> some code and all procedure & units .....); within the compiler j have fou
nd
> some book in htlm format but these are not so clear (for me ...).
>
> 2) After several trying j got the way to put two buttons in a form (screen
)
>     The first one close the form and stop the program (j know .. is easy .
.
> but for me this is the classic "hello world").
>     The second one call a second screen with one button. Here the problem
> ... how can j do to open and display the second form ??.
>
> Sorry if this matter are so easy ...
>
> Than's for all, Daniele


Hello Danielle

I suggest you look at the acucobol website, if you are a registered
user, you should be able to obtain everything you need.  Even if not,
there seem to be several potentially useful downloads available at
http://www.acucobol.com/support/downloads/index.php.

I don't have any acucobol experience myself, so cant advise on the
specifics.

Robert

Hi Robert,
j went already in this page

> http://www.acucobol.com/support/downloads/index.php.

and there j got several example, but are so advance for my skill !!!! J'm
really a "new entry" in cobol world !!!!

Sorry for my next post, beacause will be so easy for all of you !!!

Thank's for helping me

Ciao, Daniele

The ACUCOBOL-GT installion has a sample directory with many sample
programs. If you are doing a GUI with ACUCOBOL-GT when the second push
button is pressed you display floating window (properties) and display
screen 2 upon the floating window.

Example :

*{Bench}prg-comment
* Program1.cbl
* Program1.cbl
*{Bench}end
IDENTIFICATION              DIVISION.
*{Bench}prgid
PROGRAM-ID. Program1.
AUTHOR. me.
DATE-WRITTEN. Monday, March 19, 2007 9:50:19 AM.
REMARKS.
*{Bench}end
ENVIRONMENT                 DIVISION.
CONFIGURATION               SECTION.
SPECIAL-NAMES.
*{Bench}decimal-point
*{Bench}end
*{Bench}activex-def
*{Bench}end
INPUT-OUTPUT                SECTION.
FILE-CONTROL.
*{Bench}file-control
*{Bench}end
DATA                        DIVISION.
FILE                        SECTION.
*{Bench}file
*{Bench}end
WORKING-STORAGE             SECTION.
*{Bench}acu-def
COPY "acugui.def".
COPY "acucobol.def".
COPY "crtvars.def".
COPY "fonts.def".
COPY "showmsg.def".
*{Bench}end

*{Bench}copy-working
77 Quit-Mode-Flag PIC S9(5) COMP-4 VALUE 0.
77 Key-Status IS SPECIAL-NAMES CRT STATUS PIC 9(4) VALUE 0.
88 Exit-Pushed VALUE 27.
88 Message-Received VALUE 95.
88 Event-Occurred VALUE 96.
88 Screen-No-Input-Field VALUE 97.
88 Screen-Time-Out VALUE 99.
* property-defined variable

* user-defined variable
77 Form1-Handle
USAGE IS HANDLE OF WINDOW.
77 Form2-SF-HANDLE
USAGE IS HANDLE OF WINDOW.
77 Form2-MN-1-HANDLE
USAGE IS HANDLE OF MENU.
77 MS-Sans-Serif18B
USAGE IS HANDLE OF FONT.

*{Bench}end
LINKAGE                     SECTION.
*{Bench}linkage
*{Bench}end
SCREEN                      SECTION.
*{Bench}copy-screen
01 Form1.
03 Form1-Pb-1, Push-Button,
COL 5.00, LINE 4.00, LINES 4.00 CELLS, SIZE 13.00
CELLS,
EXCEPTION-VALUE 22, ID IS 1, SELF-ACT,
TITLE "2 screen".
03 Form1-Pb-2, Push-Button,
COL 26.00, LINE 4.00, LINES 5.00 CELLS, SIZE 13.00
CELLS,
ID IS 2, SELF-ACT,
TITLE "Push Button".
01 Form2, HELP-ID 1.
03 Form2-PB-OK, Push-Button,
COL 24.00, LINE 18.40, LINES 2.00 CELLS, SIZE 8.00
CELLS,
HELP-ID 2, ID IS 1, SELF-ACT, OK-BUTTON,
TITLE "OK".
03 Form2-PB-CANCEL, Push-Button,
COL 34.00, LINE 18.40, LINES 2.00 CELLS, SIZE 8.00
CELLS,
HELP-ID 3, ID IS 2, SELF-ACT, CANCEL-BUTTON,
TITLE "Cancel".
03 Form2-La-1, Label,
COL 8.00, LINE 3.80, LINES 8.20 CELLS, SIZE 31.00
CELLS,
FONT IS MS-Sans-Serif18B, ID IS 3, LABEL-OFFSET 0,
TITLE "You are here".

*{Bench}end

*{Bench}linkpara
PROCEDURE DIVISION.
*{Bench}end
*{Bench}declarative
*{Bench}end

Acu-Main-Logic.
*{Bench}entry-befprg
*    Before-Program
*{Bench}end
PERFORM Acu-Initial-Routine
* run main screen
*{Bench}run-mainscr
PERFORM Acu-Form1-Routine
*{Bench}end
PERFORM Acu-Exit-Rtn

Carmen Electra Giving A Head And Taking A Load!
http://Carmen-Electra-Giving-A-Head.../>
ovie=148803