return to first page linux journal archive
keywordscontents

Listing 1. A Sample Acucobol Program

identification division.
program-id.	PDA.
environment division.
...
data division.
file section.
...
working-storage section.
...
screen section.
01 edit-screen.
	03 from "Name" line 1 col 1.
	03 using title-x line 1 col 6 reverse.
	03 using first-name line 1 col 17
		reverse.
	03 using last-name line 1 col 38 reverse.
	03 from "Addr" line 2 col 1.
	03 using addr-1 line 2 col 6 reverse.
	03 using addr-2 line 3 col 1.
	03 using city-in line 4 col 1.
	03 using prov-in line 4 col 32.
	03 using postal-in line 5 col 1.
	03 using phone1-in line 6 col 1.
	03 using phone2-in line 6 col 20.
	03 using phone3-in line 7 col 1.
procedure division.
	...
	perform build-main-menu.
	call "W$MENU" using wmenu-show,
		menu-handle.
	...
	call "W$KEYBUF" using 1, "{k1}".
	accept omitted on exception next sentence.
	...
	evaluate submenu
		when 200 go to end-it
		when 101 perform read-sdf
		when 102 perform read-delim
		when 103 perform create-new thru
			create-new-exit
		when 104 perform edit-existing
		when 105 perform read-sdf
			perform read-delim
	end-evaluate.
	...
	display window line 12 column 1 size 65
		lines 11 boxed no scroll shadow
		pop-up area win1.
	display edit-screen.
	accept edit-screen.
	write dbase-rec-out from dbase-rec.
	close window win1.
	...
	perform varying i from 39 by -1
		until work-area39 (i: 1) = '"'
		or i = zero
		continue
	end-perform.


Back to article