JUAN APASTILLADO
25 de octubre de 2017, 23:20
Hola a todos espero no estar equivocado de area.
Pues soy nuevo aqui y ya me desespere despues de estar leyendo la gran cantidad de indicaciones de como utilizar el foro.
Bueno, despues de muchos años de no programar decide iniciarme nuevamente en este facinante mundo de la programación, aunque ya todo cambio para mi, pues estuve programando en las grandes y medianas computadoras, los ultimos lenguajes que utilice fueron cobol, y speedware principalmente, del cual no recuerdo nada en cambio tengo mas presente las instrucciones de cobol, y ahora en mi casa decidi reiniciarme programando en cobol, pero resulta que tengo una pc con windows 10 64 bits y mis primer programa, el ya consabido "hola mundo" funciono muy bien, pero ya leyendo los manuales encontre un ejemplo de programa que manda salida a pantalla, es decir que indica en que linea y columna aparesca una ventanita pidiendo un dato, y ahí es donde nada más no encuentro como, pues me manda el siguiente mensaje:
Redirection is not supported.
Process finished with exit code 1
Y la verdad no e encontrado como corregir esto, tambien tengo otro programa mas grande que esta funcionando bien dentro del compilador sin errores, donde pido se digiten datos a grabar en un archivo, todo bien pero si cambio para pedirlos en una pantalla me manda el mismo mensaje descrito arriba, espero su ayuda.
Nota: estoy trabajando con "opencobolide".
Este es el programa.
IDENTIFICATION DIVISION. PROGRAM-ID. DISPL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TERMFLD PIC X.
88 TERMNOW VALUE "T".
SCREEN SECTION.
01 SCRNAME
BACKGROUND-COLOR 3
FOREGROUND-COLOR 7
HIGHLIGHT.
05 COLUMN 10
LINE 3
VALUE "ENTER ´T´ TO TERMINATE THIS TEST".
05 COLUMN PLUS 2
BACKGROUND-COLOR 7
FOREGROUND-COLOR 4
PIC X
USING TERMFLD.
PROCEDURE DIVISION.
MAINLINE.
PERFORM UNTIL TERMNOW
DISPLAY SCRNAME ACCEPT SCRNAME
END-PERFORM
GOBACK.
END PROGRAM DISPL.
Pues soy nuevo aqui y ya me desespere despues de estar leyendo la gran cantidad de indicaciones de como utilizar el foro.
Bueno, despues de muchos años de no programar decide iniciarme nuevamente en este facinante mundo de la programación, aunque ya todo cambio para mi, pues estuve programando en las grandes y medianas computadoras, los ultimos lenguajes que utilice fueron cobol, y speedware principalmente, del cual no recuerdo nada en cambio tengo mas presente las instrucciones de cobol, y ahora en mi casa decidi reiniciarme programando en cobol, pero resulta que tengo una pc con windows 10 64 bits y mis primer programa, el ya consabido "hola mundo" funciono muy bien, pero ya leyendo los manuales encontre un ejemplo de programa que manda salida a pantalla, es decir que indica en que linea y columna aparesca una ventanita pidiendo un dato, y ahí es donde nada más no encuentro como, pues me manda el siguiente mensaje:
Redirection is not supported.
Process finished with exit code 1
Y la verdad no e encontrado como corregir esto, tambien tengo otro programa mas grande que esta funcionando bien dentro del compilador sin errores, donde pido se digiten datos a grabar en un archivo, todo bien pero si cambio para pedirlos en una pantalla me manda el mismo mensaje descrito arriba, espero su ayuda.
Nota: estoy trabajando con "opencobolide".
Este es el programa.
IDENTIFICATION DIVISION. PROGRAM-ID. DISPL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TERMFLD PIC X.
88 TERMNOW VALUE "T".
SCREEN SECTION.
01 SCRNAME
BACKGROUND-COLOR 3
FOREGROUND-COLOR 7
HIGHLIGHT.
05 COLUMN 10
LINE 3
VALUE "ENTER ´T´ TO TERMINATE THIS TEST".
05 COLUMN PLUS 2
BACKGROUND-COLOR 7
FOREGROUND-COLOR 4
PIC X
USING TERMFLD.
PROCEDURE DIVISION.
MAINLINE.
PERFORM UNTIL TERMNOW
DISPLAY SCRNAME ACCEPT SCRNAME
END-PERFORM
GOBACK.
END PROGRAM DISPL.