A�adimos esto cuando convertimos los programas del S36.
Salida en blanco para recuperar la pantalla
10100 0099 C SHTDN 40
10200 0100 C 40 SETON LR
10300 0101 C SETOFF 22
10400 C*
10500 C 99 GOTO S1ZZ
10600 C Z-ADD 1 M
10700 C SETON 02
10800 C EXCEPT
10900 C SETOFF 02
11000 C SETON 99
11100 C S1ZZ TAG
11200 C**
11300 C* LEE PANTALLA
11400 C**
11500 C READ PMC020FM 05
11600 C*
11700 C N04 SETON 04
11800 C SETOFF 0522
11900 C**
21500 0188 OPMC020FM D 10
21600 0189 O OR 11NKG
21700 0190 O OR 11 22NKG
21800 0191 O OR KA
21900 0192 O K8 'PMC02001'
22000 0193 O HORA Y 8
22100 0194 O FECHA Y 16
22200 0195 O ALM 17
22300 0196 O NALM 37
30300 O E 02
30400 O K8 'PMC02001'
Espero te sirva de ayuda .
Saludos.
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Dpto.Inform�tica
Prod.Climax(Jos� S�nchez)
Enviado el: viernes, 11 de junio de 2004 9:53
Para: [EMAIL PROTECTED]
Asunto: RE: Tratamiento pantalla por Primario
Bueno, gracias a todos, pero no hay manera.
Juanra, al meter el Read peta por lo mismo "Se requiere un nombre de registro".
Intentare convertir el ciclo. Sino lo consigo facilmente lo dejo como esta, queria
convertir a RPG IV porque no se cuanto tiempo IBM mantendra el entorno 36.
Saludos y Gracias
Jos� S�nchez
Dpto.Inform�tica Prod.Climax, S.A.
Pol.Ind.Sector Mollet C/A N� 1
08150-Parets del Valles(Barcelona)
www.productosclimax.com
-----Mensaje original-----
De: Dpto.Inform�tica Prod.Climax(Jos� S�nchez) Enviado el: viernes, 11 de junio de
2004 9:25
Para: [EMAIL PROTECTED]
Asunto: RE: Tratamiento pantalla por Primario
No habia leido este correo, voy a probarlo.
Te digo algo.
Gracias
Jos� S�nchez
Dpto.Inform�tica Prod.Climax, S.A.
Pol.Ind.Sector Mollet C/A N� 1
08150-Parets del Valles(Barcelona)
www.productosclimax.com
-----Mensaje original-----
De: Juan Ram�n Garcia [mailto:[EMAIL PROTECTED]
Enviado el: jueves, 10 de junio de 2004 19:20
Para: [EMAIL PROTECTED]
Asunto: Re: Tratamiento pantalla por Primario
Hola Jos�:
Mi curiosidad ha podido m�s que yo y me he puesto a hacer pruebas, ya recuperar� este
fin de semana el tiempo "perdido" ahora.
He cogido un programa del S/34 de los m�s peque�itos para hacer las pruebas, el
primer obst�culo que me encontrado es que el CVTRPGSRC no me permite convertir
fuentes RPG36, tal vez sea porque estoy en V4.4, tampoco pasa nada, le he dejado en
blanco el tipo de fuente y entonces si que lo ha convertido :-)
No me he encontrado con el problema que describes pero el programa finalizaba sin
sacar ninguna pantalla, a base de Debug he podido ver que realmente si est� haciendo
las salidas a pantalla pero no se espera a la entrada de datos y el programa contin�a
sin m�s.
Despu�s de muchas pruebas he dado con la soluci�n:
En la hoja F cambia el tipo de archivo de pantalla que ahora est� como primario (P) y
ponlo controlado en c�lculo (F).
En la hoja C a�ade como primera l�nea un READ al arch�vo de pantalla.
Nada m�s, con esto funciona, las salidas siguen haci�ndose a trav�s del ciclo l�gico
pero como no se activa LR el ciclo se ejecuta de nuevo y se detiene en la primera
instrucci�n de c�lculo (el READ de la pantalla), lo dem�s funciona exactamente igual
:-D
Espero haberte sido de utilidad.
Un saludo.
Juanra
�iF�sil for ever!
----- Original Message -----
From: "Juan Ram�n Garcia" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, June 10, 2004 5:40 PM
Subject: Re: Tratamiento pantalla por Primario
> Hola otra vez:
>
> Si te puedes esperar al Lunes podr�a (este fin de semana) simular una conversi�n
como
> la tuya, todav�a guardo alguna cinta con programas de mis a�os mozos (�nicamente
por
> morri�a), es que sin ver el problema "in situ" se me hace dif�cil darte una
soluci�n.
>
> Otra posibilidad es que aproveches para crear la definici�n externa de ese archivo
de
> pantalla, si no recuerdo mal el migrador de S/36 generaba un fuente DDS a partir de
> las especificaciones S y D y lo colocaba en el miembro QS36DDSSRC (no estoy seguro
> del nombre, hace muchos a�os de aquello).
> Si el que dise�� la pantalla era "ordenado" los campos deber�an llamarse igual que
en
> las hojas I/O del programa, aunque es posible que algunos no se llamen igual o
est�n
> partidos o redefinidos ya que la definici�n interna no lee los campos, lee el
buffer
> de entrada en el mismo orden que est� descrito.
>
> Si pudieras hacerlo de esta forma el programa necesitar�a muy pocos retoques,
> suprimir las hojas I/O, incluir al final del c�lculo unos WRITE's a los registros
> correspondientes por los mismos indicadores que ahora los graban, la hoja I
> �nicamente deber�a activar los indicadores para cada registro y creo que con eso ya
> funcionar�a como ahora, bueno en la hoja F habr�a que decirle que el archivo de
> pantalla tiene descripci�n externa claro est� ;-)
>
> Un saludo.
> Juanra
>
>
> ----- Original Message -----
> From: "Dpto.Inform�tica Prod.Climax (Jos� S�nchez)"
<[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, June 10, 2004 5:04 PM
> Subject: RE: Tratamiento pantalla por Primario
>
>
> Juanra, no se de que epoca yo empece con el S36, pero me esta llevando por la calle
> de la amargura.
>
> Resumiendo:
>
> Esta definido internamente, hoja I y Hoja O. Ni un Excpt calificado, todo por
> indicadores, ciclo, etc.
>
> En la hoja O a nivel de detalle indica el registro. Creo que tendre que reprogramar
> la logica
>
>
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
