Mostrar información en pantalla PWC3

[LEO-SANLUIS]

Buenas tardes a todos: los molesto porque tengo un sistema hecho en PWC3 y necesito generar en pantalla una historia clínica con datos que tengo en un archivo secuencial, que luego enviaré a imprimir con PDF creator.
El inconveniente es que no encuentro la forma de volcar los datos a pantalla y que me quede editable esa información.
Intenté utilizar el elemento edit activando multitext, pero cuando le envió los datos del archivo secuencial, no avanza el renglón, muestra todos los renglones juntos.

Alguien podría indicarme como hacerlo.
Muchas gracias de antemano.

[Kuk]

@LEO-SANLUIS, hola y bienvenido.

Esto pasa porque tu registro de Cobol viene tal cual, y el control Edit no sabe de registros. Lo que tienes que hacer es, con cada registro que envías al Edit, añadirle un x"0D0A" al final (salto de línea + retorno de carro).

[LEO-SANLUIS]

Kuk, muchas gracias por responderme.
Mira, el registro en la working que luego envio al edit queda así:

01 WR.
02 RENGLON PIC X(80).
02 AVANCE PIC X(4) VALUE "0D0A".

Pero no me avanza el renglón.
Interpreté mal lo que me indicaste?
gracias por tu tiempo!

[Josber]

VALUE "0D0A"

Te falta ponerle una X delante de las comillas, para indicarle que es hexadecimal, la forma correcta es ...

VALUE X"0D0A"

Un salu2.-

[raf0608]

Para ser mas exactos creo que debería ser PIC X(2) :

01 WR.
02 RENGLON PIC X(80).
02 AVANCE PIC X(2) VALUE X"0D0A".

Un byte para 0D y otro byte para 0A

[Josber]

Un byte para 0D y otro byte para 0A

¡¡¡Uyyyyy!!!, es verdad, perdón pero no me había fijado, sí, sí PIC X(2) y luego VALUE X"0D0A"., por supuesto, de lo contrario, se te quedarían los 2 últimos bytes con sabe dios que valor ... :bien: ;) :rofl:

[Roberto]

La otra opción que tiene es crear el fichero secuencial como Line sequential y ya tendría el X"0D0A" al final de cada registro.

Post añadido a las 15:47. Post anterior a las 15:37

No se si esto se puede hacer en PWC3 INVOKE CmText1 "LoadFile" USING fich-imp

@Roberto, usa los botones de resalto de sintaxis

[Roberto]

Perdona Kuk pero no se cuales son esos botones.

[Kuk]

@Roberto, son estos:
https://www.cobolforo.es/imagenes/cobolforo_syntax_highlite.png