Skip to main content

after accept the screen is cleared by the previuo display

  • September 5, 2021
  • 1 reply
  • 0 views
A
  • Anonymous

I use Visual Cobol Personal Edition as extension of Visual Studio . Iwrite a simple programm

+++++++++++++++++++++++++++++

0 PROCEDURE DIVISION.
001060 INIZIO.
001070 OPEN I-O DCIT.
001080*
001090 BEG.
001100 DISPLAY "AGGIORNAMENTO LETTURE PRECEDENTI" LINE 1 ERASE.
DISPLAY "AZZERO LETTURE QUESTA SCADENZA ?" LINE 2.
001110 DISPLAY "DA CODICE A CODICE " LINE 3.
001120 DISPLAY "TUTTO = 999999, FINE = 0000 " LINE 4.
001130 DISPLAY "VA BENE (SI O NO) = " LINE 8.
*
ACC-SCAD.
001430 ACCEPT PASS-W LINE 2 POSITION 34 PROMPT.
001450 IF PASS-W = "NO" GO TO FINE.
001460 IF PASS-W = "SI" GO TO ACC-MIN.
001470 GO TO ACC-SCAD.

+++++++++++++++++++++++++++++++++

before execution of accepy at 001430

the screen look like fig 01

then I typed "SI" and I got

but when I pressed "enter" the previous dispalies disappear and I got 

how to fix?

thanks

    1 reply

    Gael Wilson
    Forum|alt.badge.img
    • Gael WilsonRocketeer
    • Rocketeer
    • September 7, 2021

    I use Visual Cobol Personal Edition as extension of Visual Studio . Iwrite a simple programm

    +++++++++++++++++++++++++++++

    0 PROCEDURE DIVISION.
    001060 INIZIO.
    001070 OPEN I-O DCIT.
    001080*
    001090 BEG.
    001100 DISPLAY "AGGIORNAMENTO LETTURE PRECEDENTI" LINE 1 ERASE.
    DISPLAY "AZZERO LETTURE QUESTA SCADENZA ?" LINE 2.
    001110 DISPLAY "DA CODICE A CODICE " LINE 3.
    001120 DISPLAY "TUTTO = 999999, FINE = 0000 " LINE 4.
    001130 DISPLAY "VA BENE (SI O NO) = " LINE 8.
    *
    ACC-SCAD.
    001430 ACCEPT PASS-W LINE 2 POSITION 34 PROMPT.
    001450 IF PASS-W = "NO" GO TO FINE.
    001460 IF PASS-W = "SI" GO TO ACC-MIN.
    001470 GO TO ACC-SCAD.

    +++++++++++++++++++++++++++++++++

    before execution of accepy at 001430

    the screen look like fig 01

    then I typed "SI" and I got

    but when I pressed "enter" the previous dispalies disappear and I got 

    how to fix?

    thanks

    Salvatore Mattera

    It would be helpful if you could tell us what compiler directives you used when you compiled your program. Have you tried debugging the code using the Visual Studio debugger ?

    I created a simple program using your code snippet and when I pressed enter that returned to the accept without the screen being cleared. In your third screenshot it appears to be on a different accept statement.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement