opencobol - How to clear screen and set cursor position to the end of the screen in cobol -


so i'm trying make form-like screen user inputs data , saves in .txt file. i'm using opencobolide , i'm going through problems in clearing screen process. have kind of form made in console screen , when user enters data im refreshing new values of variables, cursor position screwing me because after clear screen gets reseted beginning of console screen, , want go end of text i'm displaying after process. explanation may confusing hope point code:

identification division. program-id.pgm001.  environment division.  data division.  working-storage section. 01 ws-data     02 ws-id    pic x(03) value spaces.     02 ws-name  pic a(15) value spaces.     02 ws-phone pic x(09) value spaces. screen section. 01 clear-screen.     02 blank screen. procedure division. menu.     display "id........:" ws-id.     display "name......:" ws-name.     display "phone.....:" ws-phone.     display "-----------".      display "id:".     accept ws-id console.      display clear-screen.     display "id........:" ws-id.     display "name......:" ws-name.     display "phone.....:" ws-phone.     display "-----------".      display "name:".     accept ws-name console.      display clear-screen.     display "id........:" ws-id.     display "name......:" ws-name.     display "phone.....:" ws-phone.     display "-----------".      display "phone:".     accept ws-phone console.      display clear-screen.     display "id........:" ws-id.     display "name......:" ws-name.     display "phone.....:" ws-phone.     display "-----------".      stop run. end-program pgm001.

so you'll notice keep clearing screen , displayin form cursor goes beginning of screen , can't keep inputing data. can me please? there command in cobol moves cursor?

in cobol, there 2 types of display statement: device , screen.

in opencobol, device , screen displays cannot used @ same time; if try to, find there no output device displays after first screen display. happening example: clear-screen defined in screen section, display clear-screen screen display.

you can fix defining entry form in screen section:

screen section. 01  form blank screen.     03  value "id.........".     03  col + 2, pic x(03) ws-id.     03  line + 1, value "name.......".     03  col + 2, pic a(15) ws-name.     03  line + 1, value "phone......".     03  col + 2, pic x(09) ws-phone.     03  line + 1, value "-----------".

as working, has advantage procedure division can reduced to

 display form  accept form

as form data can entered in 1 go.

if, however, want keep data entry is, can turn device displays screen displays adding at line <line-num>:

display "id........:" ws-id @ line 1 display "name......:" ws-name @ line 2 display "phone.....:" ws-phone @ line 3 display "-----------" @ line 4  display "id:" @ line 5 accept ws-id @ line 5, col 5

-

Comments

Post a Comment

Popular posts from this blog

javascript - Thinglink image not visible until browser resize -

Image
i trying repurpose pre-existing theme, includes drop down menu displays image. trying embed thinglink drop down menu's content section, not visible until resize browser window. here menu looks like: then when clicked, can see empty space image should show: then when browser resized, image appears: this code content of menu: <div class="ajax_accordion_content" style="display: none;"> <div class="report-detail"> <table border="0" cellpadding="0" cellspacing="0" width="100%" class="table_basic"> <tbody> <!-- thinglink image embedded --> <img style="max-width: 100%;" src="http://cdn.thinglink.me/api/image/832705713204625409/1024/10/scaletowidth#tl-832705713204625409;1043138249'" class="alwaysthinglink"/> <script async charset="utf-8" src="http://cdn.thinglink.me/jse/embed.j...
Read more

firebird - Error "invalid transaction handle (expecting explicit transaction start)" executing script from Delphi -

i'm developing update app delphi 10. i'm running windows 7 64x, firebird 2.5.1.26351 32x. execution order: checks current version(select statement firebird database) downloads update(via ftp) apply it(.exe files, , execute .sql) error code -901 pops out when try execute .sql files. know there incompatibility issue w7 64x , fdb 32x, but, can everything: backup , restore(gbak), db commands(all). tried fdb 64x instead, , not working. code: //components fdwaitcursor: tfdguixwaitcursor; fddriverlink: tfdphysfbdriverlink; fdconnection:tfdconnection; fdscript: tfdscript; function tthr_script.createcomponents:boolean; begin try fddriverlink := tfdphysfbdriverlink.create(fddriverlink); fdwaitcursor := tfdguixwaitcursor.create(fdwaitcursor); fdconnection := tfdconnection.create(fdconnection); fdconnection begin drivername := 'fb'; params.username := thrbanco.bduser; params.password := thrbanco.bdpass; params.database := ...
Read more

Sound is not coming out while implementing Text-to-speech in Android activity -

i using texttospeak in 1 of app. while adding speech string texttospeech object instance, doesn't produce sound. though not getting error in log still sound not coming out. want device speak value of textview gets set resultmsg.settext() method. public class resultactivity extends activity { @override protected void oncreate(bundle savedinstancestate){ ............ resultmsg.settext(resultmsg_str); texttospeech = new texttospeech(getapplicationcontext(),newtexttospeech.oninitlistener(){ @override public void oninit(int status) { system.out.println("txt speech status = "+status); system.out.println("txt speech error status = "+texttospeech.error); system.out.println("txt speech success status = "+texttospeech.success); if(status == texttospeech.success){ texttospeech.setlanguage(locale.english); ...
Read more