Wie funktioniert while (! Kbhit()) COBOL?

Question

Ich möchte ein Key-Press-Ereignis in COBOL mit dem isCOBOL-Compiler erkennen. Wie geht das?

EX in C:

if(time==despert_time){ while(!kbhit()){ Beep(500,500); } }

Answer 1

Es sieht aus wie Sie eine Interaktion mit dem Benutzer von der Konsole erhalten möchten. Wenn es nicht innerhalb eines Zeitrahmens geschieht: Piep

PERFORM FOREVER *> or UNTIL EXIT or UNTIL 0 = 1, depending on the available extensions 
    ACCEPT OMITTED *> or ACCEPT DUMMY [which you'd define as 77 DUMMY PIC X.], depending on the available extensions 
     BEFORE TIME 500 *> [or WITH TIMEOUT 500] this is a more or less common extension, with most vendors using a different time scale --> may need to change the 500 
    END-ACCEPT 
    IF keypressed NOT = timeout *> the actual var to be checked and the timeout value need to be checked in the docs 
     EXIT PERFORM 
    END-IF 
    CALL x'E5' 
     ON EXCEPTION *> the system call x'E5' for beep may not be available 
     DISPLAY SPACE AT 2080 WITH BEEP *> may not be available, too... 
    END-CALL 
END-PERFORM 

Überprüfen Sie die Online-Dokumentation, die mit Ihrem Compiler („nur für Kunden verfügbar“ ist, deshalb können wir nicht überprüfen).