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.