Cobol - TECLAS DE FUNCION

 
Vista:

TECLAS DE FUNCION

Publicado por SuperIndio (161 intervenciones) el 10/05/2005 15:53:03
Hola Coboleros/as, necesito ayuda con MS-COBOL, me han pedido que haga una aplicacion con teclas de funciones, pero en MS-Cobol...e conseguido unn ejemplo, lo he probado en Realia WorkBench funiona perfecto pero en MS-Cobol no funciona Alguien sabe un tiene un ejemplo de eso ???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:TECLAS DE FUNCION

Publicado por MARCELO NAVARRETE (3 intervenciones) el 10/05/2005 20:38:15
EN UN PGM BASICO.
77 KEY-VALUE PIC 99.
88 KEY-F1 VALUE 01.
88 KEY-F2 VALUE 02.
88 KEY-F3 VALUE 03. (ETC..)
88 KEY-ESCAPE VALUE 27.
88 KEY-ARRIBA VALUE 52, 67 <------ VERIFICALO
88 KEY-ABAJO VALUE 53, 68. <--------VERIFICALO
77 KEY-OK PIC 99.
ACEPTA-VARIABLE.
ACCEPT VAR LINE 10 POSITION 10 NO BEEP UPDATE
ON EXCEPTION KEY-VALUE MOVE 1 TO KEY-OK.
DISPLAY KEY-VALUE LINE 12 POSITION 10 REVERSE.
GO TO ACEPTA-VARIABLE.
SI ESTAS EN WINDOWS, LA TECLA ESCAPE, LA DEBES PRESIONAR 2 VECES.
SUERTE.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar