Cobol - Acucobolo beginner ...

Author

Acucobolo beginner ...

Daniele

2007-03-18, 9:55 pm

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

Robert Jones

2007-03-18, 9:55 pm

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

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

Daniele

2007-03-19, 6:55 pm

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

sgbojo@gmail.com

2007-03-19, 6:55 pm

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

Enceha1

2007-03-26, 8:59 am

Carmen Electra Giving A Head And Taking A Load!
http://Carmen-Electra-Giving-A-Head...hp?movie=148803

Sponsored Links