LJ Archive

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.
LJ Archive